0 Members and 1 Guest are viewing this topic.
In english?
:.TILES:Full:Lbl TMAP:ClrDraw:[01010101010101010101010101]→GDB1:[01000000000000000000000001]:[01000000000000000000000001]:[01000000000000010101010101]:[01000000000000000000000001]:[01000101010000000000000001]:[01000000000000000000000001]:[01010101010101010101010101]:[7E81A581A599817E]→Pic1:0→R→C:[3C429581818D423C]→Pic1MAN:[003C7E7E7E7E3C00]→Pic2MAN:[3C42A98181B1423C]→Pic3MAN:45→X:45→Y:0→J:1→D:Repeat getKey(15)::Pt-On(X,Y,Pic2MAN)r:If getKey(2) and (pxl-Test(X-1,Y+6)=0) and (pxl-Test(X-1,Y+1)=0):C++:2→D:End:If getKey(3) and (pxl-Test(X+8,Y+6)=0) and (pxl-Test(X+8,Y+1)=0):C--:1→D:End:If getKey(4) and (pxl-Test(X+1,Y+8) or pxl-Test(X+7,Y+8):18→J:End:If (J>0):R++:J--:End:If (pxl-Test(X+6,Y+8)=0) and (pxl-Test(X+1,Y+8)=0) and (J=0) or (pxl-Test(X,Y) or (pxl-Test(X+7,Y):R--:0→J:End:If getKey(1) and (pxl-Test(X,Y+8)=0):R--:0→J:End:If (D=1):Pt-Change(X,Y,Pic1MAN):End:If (D=2):Pt-Change(X,Y,Pic3MAN):End:Pause 25:DispGraph:DispGraphr:ClrDrawr:If (D=1):Pt-Change(X,Y,Pic1MAN):End:If (D=2):Pt-Change(X,Y,Pic3MAN):End:sub(MAP):End::Lbl MAP:For(B,0,9):For(A,0,13):{B+(R/8)*12+A+(C/8)*8+GDB1}→T:If T:T--:Pt-On(A-1*8+C^8,B-1*8+C^8,T+Pic1):DispGraph:End:End:End
:.TILES:Full:Lbl TMAP:ClrDraw:[01010101010101010101010101]→GDB1:[01000000000000000000000001]:[01000000000000000000000001]:[01000000000000010101010101]:[01000000000000000000000001]:[01000101010000000000000001]:[01000000000000000000000001]:[01010101010101010101010101]:[7E81A581A599817E]→Pic1:0→R→C:[3C429581818D423C]→Pic1MAN:[003C7E7E7E7E3C00]→Pic2MAN:[3C42A98181B1423C]→Pic3MAN:45→X:45→Y:0→J:1→D:Repeat getKey(15)::Pt-On(X,Y,Pic2MAN)r:If getKey(2) and (pxl-Test(X-1,Y+6)=0) and (pxl-Test(X-1,Y+1)=0):C++:2→D:End:If getKey(3) and (pxl-Test(X+8,Y+6)=0) and (pxl-Test(X+8,Y+1)=0):C--:1→D:End:If getKey(4) and (pxl-Test(X+1,Y+8) or pxl-Test(X+7,Y+8):18→J:End:If (J>0):R++:J--:End:If (pxl-Test(X+6,Y+8)=0) and (pxl-Test(X+1,Y+8)=0) and (J=0) or (pxl-Test(X,Y) or (pxl-Test(X+7,Y):R--:0→J:End:If getKey(1) and (pxl-Test(X,Y+8)=0):R--:0→J:End:If (D=1):Pt-Change(X,Y,Pic1MAN):End:If (D=2):Pt-Change(X,Y,Pic3MAN):End:Pause 25:DispGraph:DispGraphr:ClrDrawr:If (D=1):Pt-Change(X,Y,Pic1MAN):End:If (D=2):Pt-Change(X,Y,Pic3MAN):End:sub(MAP):End::Lbl MAP:For(B,0,9):For(A,0,13):{B+(R/8)*12+A+(C/8)+GDB1}→T:If T:T--:Pt-On(A*8-8+C^8,B*8-8+R^8,T*8+Pic1):End:End:DispGraph: