#dungeon_level!=dungeon_level!+1 #ambientred!=ambientred!-3 #ambientgreen!=ambientgreen!-3 #ambientblue!=ambientblue!-3 #clear #text(21,20,"Level ") #erase("room1") #generate("room1") #smooth("room1") #startbrd("room1") #method startbrd("room1") { #text(2,5,"Placing...") #random(4,start!) #done!=0 #if(start!=1) { #x!=1 #y!=1 } #if(start!=2) { #x!=1 #y!=1 } #if(start!=3) { #x!=28 #y!=28 } #if(start!=4) { #x!=28 #y!=28 } #while(done!=0) { #castlit(x!,x$) #castlit(y!,y$) #cmd$="#type!="+matrix$+"_"+x$+"_"+y$+"!" #rpgcode(cmd$) #if(type!=1) { #done!=1 #sendbrd("room1",x!,y!,1) } #if(type!~=1) { #if(start!=1) { #x!=x!+1 #if(x!>28) { #x!=1 #y!=y!+1 } } #if(start!=2) { #y!=y!+1 #if(y!>28) { #y!=1 #x!=x!+1 } } #if(start!=3) { #x!=x!-1 #if(x!<1) { #x!=28 #y!=y!-1 } } #if(start!=4) { #y!=y!-1 #if(y!<1) { #y!=28 #x!=x!-1 } } } } } #method erase(matrix$) { #text(2,2,"Preparing...") #for(i!=1;i!<=28;i!=i!+1) { #for(j!=1;j!<=28;j!=j!+1) { #castlit(i!,i$) #castlit(j!,j$) #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=0" #rpgcode(cmd$) } } } *#cmd$="#kill("+matrix$+"_"+i$+"_"+j$+"!)" #method sendbrd(matrix$,x!,y!,level!) { #send("random_slate.brd",x!,y!,1) #for(i!=1;i!<=28;i!=i!+1) { #for(j!=1;j!<=28;j!=j!+1) { #castlit(i!,i$) #castlit(j!,j$) #cmd$="#type!="+matrix$+"_"+i$+"_"+j$+"!" #rpgcode(cmd$) #if(type!=1) { #layerput(i!,j!,1,"cave+mountain.tst1") #tiletype(i!,j!,"Normal",1) } #if(type!=2){#layerput(i!,j!,1,"cave+mountain.tst3")} #if(type!=3){#layerput(i!,j!,1,"cave+mountain.tst2")} #if(type!=4){#layerput(i!,j!,1,"cave+mountain.tst4")} #if(type!=5) { #layerput(i!,j!,1,"cave+mountain.tst4") #tiletype(i!,j!,"Under",1) } #if(type!=6){#layerput(i!,j!,1,"cave+mountain.tst32")} #if(type!=7) { #layerput(i!,j!,1,"cave+mountain.tst1") #tiletype(i!,j!,"Normal",1) #createitem("chest.itm",dun_chest!) #putitem(dun_chest!,i!,j!,1) } #if(type!=8) { #layerput(i!,j!,1,"cave+mountain.tst1") #tiletype(i!,j!,"Normal",1) #createitem("chest2.itm",dun_chest2!) #putitem(dun_chest2!,i!,j!,1) } #if(type!=9) { #layerput(i!,j!,1,"cave+mountain.tst95") #tiletype(i!,j!,"Normal",1) #exit_x!=i! #exit_y!=j! } } } #forceredraw #done } #method generate(matrix$) { #text(2,3,"Generating...") #tunnelX!=15 #tunnelY!=15 #i1!=tunnelX!-1 #i2!=tunnelX!+1 #j1!=tunnelY!-1 #j2!=tunnelY!+1 #for(i!=i1!;i!<=i2!;i!=i!+1) { #for(j!=j1!;j!<=j2!;j!=j!+1) { #castlit(i!,i$) #castlit(j!,j$) #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=1" #rpgcode(cmd$) } } #for(iter!=0;iter!<6;iter!=iter!+1) { #tunnelX!=14 #tunnelY!=14 #random(4,direction!) #random(5,length!) #length!=length!+5 #while(length!>0) { #random(3,dist!) #if(direction!=1){#tunnelX!=tunnelX!+dist!} #if(direction!=2){#tunnelX!=tunnelX!-dist!} #if(direction!=3){#tunnelY!=tunnelY!+dist!} #if(direction!=4){#tunnelY!=tunnelY!-dist!} #if(tunnelX!<3){#tunnelX!=3} #if(tunnelX!>28){#tunnelX!=28} #if(tunnelY!<4){#tunnelY!=4} #if(tunnelY!>28){#tunnelY!=28} #i1!=tunnelX!-1 #i2!=tunnelX!+1 #j1!=tunnelY!-1 #j2!=tunnelY!+1 #castlit(tunnelX!,i$) #castlit(tunnelY!,j$) #castlit(i1!,i1$) #castlit(i2!,i2$) #castlit(j1!,j1$) #castlit(j2!,j2$) #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i$+"_"+j1$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i$+"_"+j2$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i1$+"_"+j$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i1$+"_"+j1$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i1$+"_"+j2$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i2$+"_"+j$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i2$+"_"+j1$+"!=1" #rpgcode(cmd$) #cmd$="#"+matrix$+"_"+i2$+"_"+j2$+"!=1" #rpgcode(cmd$) #random(8,changedir!) #if(changedir!<=4){#direction!=changedir!} #length!=length!-1 } } } * #for(i!=i1!;i!<=i2!;i!=i!+1) * { * #for(j!=j1!;j!<=j2!;j!=j!+1) * { * #castlit(i!,i$) * #castlit(j!,j$) * #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=1" * #rpgcode(cmd$) * } * } #method smooth(matrix$) { #text(2,4,"Refining...") #chest!=0 #exit!=0 #for(i!=1;i!<=28;i!=i!+1) { #for(j!=1;j!<=28;j!=j!+1) { #castlit(i!,i$) #castlit(j!,j$) #cmd$="#type!="+matrix$+"_"+i$+"_"+j$+"!" #rpgcode(cmd$) #if(type!=1) { #checkJ!=j!-1 #castlit(checkJ!,checkJ$) #cmd$="#check!="+matrix$+"_"+i$+"_"+checkJ$+"!" #rpgcode(cmd$) #if(check!=0) { #cmd$="#"+matrix$+"_"+i$+"_"+checkJ$+"!=2" #rpgcode(cmd$) #checkJ!=j!-2 #castlit(checkJ!,checkJ$) #cmd$="#"+matrix$+"_"+i$+"_"+checkJ$+"!=3" #rpgcode(cmd$) #checkJ!=j!-3 #castlit(checkJ!,checkJ$) #check2J!=j!-4 #castlit(check2J!,check2J$) #cmd$="#check2!="+matrix$+"_"+i$+"_"+check2J$+"!" #rpgcode(cmd$) #if(check2!~=1){#cmd$="#"+matrix$+"_"+i$+"_"+checkJ$+"!=4"} #if(check2!=1){#cmd$="#"+matrix$+"_"+i$+"_"+checkJ$+"!=5"} #rpgcode(cmd$) } #random(25,rand!) #if(rand!=1) { #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=6" #rpgcode(cmd$) } #if(chest!=1) { #random(75,rand!) #if(rand!=1) { #chest!=2 #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=8" #rpgcode(cmd$) } } #if(chest!=0) { #random(75,rand!) #if(rand!=1) { #chest!=1 #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=7" #rpgcode(cmd$) } } #if(exit!=0) { #random(55,rand!) #if(rand!=1) { #exit!=1 #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=9" #rpgcode(cmd$) } } } } } #if(exit!=0) { #exit!=1 #i$="14" #j$="14" #cmd$="#"+matrix$+"_"+i$+"_"+j$+"!=9" #rpgcode(cmd$) } }