0 Members and 1 Guest are viewing this topic.
:.A:ClrDraw:DispGraph:Full:DiagnosticOff:[5FEB7DAFF5BED7FAAF7DEB5FFAD7BEF57E83858B95ABD57EFF83878F9FBFFFFFBD7EEFD7EBF7EBFF7EFFF7EBD7EFD7FF→Pic1:[54C025A401BC032A2A03A425803DC054→Pic2:[7EFFFFFFFFFFFF7E→Pic3:ClrDraw:[01010101010101010100000000000001010000000000000101000000000000010100000000000001010000000000000101000000000000010101010101010101→Str1:conj(Str1,L5,64:2→{rand^64+L5}:"FREQ:→Str9:0→F→C+8→A→B:Repeat getKey(54):Text(0,0,Str9:Text(20,0,F►Dec:Pause 50:F+(2*(getKey(3))*(F<6))-(2*(getKey(2))*(F>0))→F:End:FnInt(A,F:FnOn :Repeat getKey(15):If getKey(3):A+1→AStop:End:If getKey(2):A-1→AStop:End:If getKey(1):B+1→BStop:End:If getKey(4):B-1→BStop:End:End:FnOff :LnReg:Return:Lbl A:C+1→C:ClrDraw:For(M,0,7:For(L,0,7:Pt-On(8*L,8*M,{8*M+L+L5}*16+(8*(C=2))+Pic1:End:End:Pt-On(A,B,Pic3:Pt-Change(A,B,(C=2)*8+Pic2:DispGraph:If C=3:0→CEnd
:.A:DiagnosticOff:Full:‾1→X+1→Y→B+1→D+19→S→T:[3C7EFFFFFF7F7EFC3C7EFFFFFFFE7E3F3C7EFFFFFFFF7EFF3C7EFFFFFFFF7EFF003C7E003A1A2058003C7E005C58041A003C423C5A5A005A003C7E0000001842→Pic2:[FC7E1C00000000003F7E380000000000FF7E660000000000FF7E660000000000FE7C3800000000007FFE6C00000000007F7E6000000000007F7E600000000000FE7F3600000000007F3E1C0000000000FE7E060000000000FE7E060000000000400C000000000000023000000000000042240000000000005A000000000000000430000000000000026400000000000002200000000000001A000000000000004026000000000000200C00000000000040040000000000005800000000000000→Pic3:[00000000000000000050200A04A04A04208C123A4C6A308400030F3BEBABABABFF7EBDDBE7DBBD7E00C0F0FCFFFFFFFFABABABABABABABAB7EBDDBE7DBBD7EFFFFFFFFFFFFFFFFFFABABACB0E020302A00FF708999A9700000FFEE113355EE00FFFF3F0F07040C5420202020302A3D1F7EB9C5CDD5BB8381EE113355EE0055FF040404040CB45CF83C42C3BFA7A7A77E→Pic1:[0101010101010101010101010101010101010101→GDB1:[0101010101010101010101010101010101010101:[0101010101010101010101010101010101010101:[0101010111111111111111111111111101010101:[0101010111010101010101010101011101010101:[0101010111010100000000000001011101010101:[0101010111010000000000000000011101010101:[0101010111000000000000000000001101010101:[0101010111000202030404050202001101010101:[0101010111000202060707080202001101010101:[0101010111000202090A0B0C0202001101010101:[01010101110002020D0E0F100202001101010101:[0101010111000000000000000000001101010101:[0101010111000000000000000000001101010101:[0101010111111111111111111111111101010101:[0101010101010101010101010101010101010101:[0101010101010101010101010101010101010101:[0101010101010101010101010101010101010101:Repeat 0:For(L,0,12:For(M,0,9:{M+Y*S+L+X+GDB1}→A:Pt-Off(8*L-4,8*M-4,8*A+Pic1:End:End:Pt-On(44,25,D-1*8+Pic2:Pt-Change(44,25,D*8+24+Pic2:Pt-On(44,33,32*B+(D-1*8)+Pic3:Pt-Change(44,33,32*B+(D-1*8)+96+Pic3:DispGraph:For(L,0,6000:If getKey(15):Goto Q:End:0→C:If getKey(3):1→D→CEnd:If getKey(2):2→D→CEnd:If getKey(1):3→D→CEnd:If getKey(4):4→D→CEnd:End:If getKey(3) and (D=1):If {Y+4*S+X+7+GDB1}<3:X+1→XEnd:End:If getKey(2) and (D=2):If {Y+4*S+X+5+GDB1}<3:X-1→XEnd:End:If getKey(1) and (D=3):If {Y+5*S+X+6+GDB1}<3:1+Y→YEnd:End:If getKey(4) and (D=4):If {Y+3*S+X+6+GDB1}<3:Y-1→YEnd:End:If C:(B<2)+1→B:Else:0→BEnd:End:Lbl Q
Wow that's AMAZING! Nice job on that!Also I especially like this:QuoteI've been thinking about writing a tilemapper in Axe that works with individual bits, either with the upcoming bit reading command or by copying portions of the map data to L3/back-buffer and pxl-testing them. It would pxl-test each side of each tile and draw the appropriate wall or floor tile in the middle. Illusiat 12, Mana Force 2, Illusiat 2004 and ROL series actually use some primitive form of what I am talking about. In their case, when drawing a wall, it checks if the map tile below is a floor then draws a different wall tile than the rest of the walls.