0 Members and 1 Guest are viewing this topic.

:AxesOff:SetUpEditor:{X,Y,V,I→L2:{16,22→dim([A]:[A]→[B]:DelVar SDelVar CDelVar DDelVar GDelVar LDelVar MDelVar J:4→A:6→B:real(0,0:Repeat K=15:real(2,1,C,D,22,16,0,12,0,12,13,0,8,0:If J and Z and C<L2(1) and D<L2(2:Then:identity(5,"FFC3A59999A5C3FF",8(L2(1)-C)-8,8(L2(2)-D)-8,1,8,0,0,0:End:If M and dim(L4:Then:For(θ,1,dim(L4),4):If L4(θ+2)>C and D<L4(θ+3:real(1,8(L4(θ+2)-C)-8,8(L4(θ+3)-D)-8,1,8,13,L4(θ),8L4(θ+1),0,0,0:End:End:real(12,5,8B-9,8A-9,8B,8A,0:real(12,2,8B-9,8A-9,8B-9,8A-9,0:real(12,2,8B,8A,8B,8A,0:real(12,2,8B,8A-9,8B,8A-9,0:real(12,2,8B-9,8A,8B-9,8A,0:If L:Then:Text(0,0,"(",B+C,",",A+D,"):Text(6,0,"(",S,"/",[A](A+D,B+C),"):Text(12,0,"Events::Text(18,0,"Enemy::If M:Then:Text(12,24,"on:Else:Text(12,24,"off:End:If J:Then:Text(18,24,"on:Else:Text(18,24,"off:End:End:real(6:If K=21 or G:Then:[B]→[A]:Else:[A]→[B]:End:Repeat Ans:getKey:End:Ans→K:If K=45:Then:Fill 0,[A]:[A]→[B]:Else:If K=23:Then:0→[A](A+D,B+C:Else:If K=83:Then:0→C:0→D:Else:If K=41:Then:1→X:1→Y:Repeat K=21 or K=15:real(3,13,0,0:Repeat Ans:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1:getKey:End:Ans→K:X+(K=26 and X≠12)-(X and K=24→X:Y+(K=34 and Y≠8)-(K=25 and Y→Y:End:If Y=8 and (X=12 or X=4:Then:Input "TEXT:",Str2:If X=4:Str2→Str8:If X=12:Str2→Str9:End:If K=21:Then:X-1→L4(1+dim(L4:Y-1→L4(1+dim(L4:B+C→L4(1+dim(L4:A+D→L4(1+dim(L4:End:DelVar K:Else:If K=44:Then:0→dim(L4:Else:If K=51:Then:{B+C,A+D→L2:Input "DIRECTION: ",Z:Input "HEALTH: ",R:End:End:End:End:End:End:J-(K=13 and J)+(K=13 and not(J→J:M-(K=12 and M)+(K=12 and not(M→M:G-(K=31 and G)+(K=31 and not(G→G:L-(K=11 and L)+(K=11 and not(L→L:A+(K=34 and A≠8)-(25=K and A≠1→A:B+(B≠12 and K=26)-(K=24 and B≠1→B:C+(K=84 and C<10)-(K=82 and C→C:D+(K=93 and D<8)-(K=73 and D→D:S+(K=95 and S≠100)-(K=85 and S→S:S→[B](A+D,B+C:End:DelVar [B]:ClrDraw:"00000000000000000000000000000000000000000000→Str1:Text(6,0,"TILES CONVERTED...:getKey:For(A,1,16):For(B,1,22):If getKey=15:Then:16→A:22→B:End:Text(0,0,22A+B,"/",374:1+[A](A,B→S:Str1+sub("000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F",2S-1,2→Str1:End:End:Str1→Str2:det(17,Str1→Str1:real(0,1:Str2:DelVar Str2:L2(1→X:L2(2→Y:ClrHome

:AxesOff:SetUpEditor:rand(3:If getKey=15:Goto 1:{X,Y,V,I→L2:{16,22→dim([A]:[A]→[B]:DelVar SDelVar CDelVar DDelVar GDelVar LDelVar MDelVar J:4→A:6→B:real(0,0:Repeat K=15:real(2,1,C,D,22,16,0,12,0,12,13,0,8,0:If J and Z and C<L2(1) and D<L2(2:Then:identity(5,"FFC3A59999A5C3FF",8(L2(1)-C)-8,8(L2(2)-D)-8,1,8,0,0,0:End:If M and dim(L4:Then:For(θ,1,dim(L4),4):If L4(θ+2)>C and D<L4(θ+3:real(1,8(L4(θ+2)-C)-8,8(L4(θ+3)-D)-8,1,8,13,L4(θ),8L4(θ+1),0,0,0:End:End:real(12,5,8B-9,8A-9,8B,8A,0:real(12,2,8B-9,8A-9,8B-9,8A-9,0:real(12,2,8B,8A,8B,8A,0:real(12,2,8B,8A-9,8B,8A-9,0:real(12,2,8B-9,8A,8B-9,8A,0:If L:Then:Text(0,0,"(",B+C,",",A+D,"):Text(6,0,"(",S,"/",[A](A+D,B+C),"):Text(12,0,"Events::Text(18,0,"Enemy::If M:Then:Text(12,24,"on:Else:Text(12,24,"off:End:If J:Then:Text(18,24,"on:Else:Text(18,24,"off:End:End:real(6:If K=21 or G:Then:[B]→[A]:Else:[A]→[B]:End:Repeat Ans:getKey:End:Ans→K:If K=45:Then:Fill 0,[A]:[A]→[B]:Else:If K=23:Then:0→[A](A+D,B+C:Else:If K=83:Then:0→C:0→D:Else:If K=14:Then:1→X:1→Y:Repeat 21=K or K=15:real(3,13,0,0:Repeat Ans:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1:getKey:End:Ans→K:X+(K=26 and X≠12)-(X and K=24→X:Y+(K=34 and Y≠8)-(K=25 and Y→Y:End:If K=21:Then:12(Y-1)+X-1→S:End:DelVar K:Else:If K=41:Then:1→X:1→Y:Repeat K=21 or K=15:real(3,13,0,0:Repeat Ans:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1:getKey:End:Ans→K:X+(K=26 and X≠12)-(X and K=24→X:Y+(K=34 and Y≠8)-(K=25 and Y→Y:End:If Y=8 and (X=12 or X=4:Then:Input "TEXT:",Str2:If X=4:Str2→Str8:If X=12:Str2→Str9:End:If K=21:Then:X-1→L4(1+dim(L4:Y-1→L4(1+dim(L4:B+C→L4(1+dim(L4:A+D→L4(1+dim(L4:End:DelVar K:Else:If K=44:Then:0→dim(L4:Else:If K=51:Then:{B+C,A+D→L2:Input "DIRECTION: ",Z:Input "HEALTH: ",R:End:End:End:End:End:End:End:J-(K=13 and J)+(K=13 and not(J→J:M-(K=12 and M)+(K=12 and not(M→M:G-(K=31 and G)+(K=31 and not(G→G:L-(K=11 and L)+(K=11 and not(L→L:A+(K=34 and A≠8)-(25=K and A≠1→A:B+(B≠12 and K=26)-(K=24 and B≠1→B:C+(K=84 and C<10)-(K=82 and C→C:D+(K=93 and D<8)-(K=73 and D→D:S+(K=95 and S≠100)-(K=85 and S→S:S→[B](A+D,B+C:End:DelVar [B]:Lbl 1:ClrDraw:"00000000000000000000000000000000000000000000→Str1:Text(6,0,"TILES CONVERTED...:getKey:dim([A])→L3:For(A,1,L3(1)):For(B,1,L3(2)):If getKey=15:Then:16→A:22→B:End:Text(0,0,L3(2)A+B,"/",L3(1)L3(2)+L3(2:1+[A](A,B→S:Str1+sub("000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F20212223242526272829",2S-1,2→Str1:End:End:Str1→Str2:det(17,Str1→Str1:real(0,1:Str2:DelVar Str2:L2(1→X:L2(2→Y:ClrHome