0 Members and 1 Guest are viewing this topic.
:.MSLUGSKY:prgmASHMUPD:prgmASHMUPI:Repeat getKey(15):C+1→C:prgmASHMUPK:prgmASHMUPM:ClrDraw:prgmASHMUPB::If F:rand^3→G:End::If rand<4096:sub(PE,88,rand^8*8,rand^2+1,0:End::If B:For(I,1,B:Pt-On({I*4+L4-2→J},G-1+{J+1},8*D+Pic0):End:End::If L:For(I,1,L:If {{I*4+L1-4→J}-{J+2}→{J}}≤0:Goto RM:End:If {{J+1}+{J+3}→{J+1}}≥64:Lbl RM:sub(RE,I-1→I:End:End:End:Pt-Change(X,Y,GDB0:sub(DA:DispGraph:sub(DA:End:prgmASHMUPR
:..BG:Pt-Change(‾3*C+96,5,Pic1:Pt-Change(‾3*C+96+8,5,Pic1+8:Pt-Change(‾3*C+130,15,Pic1:Pt-Change(‾3*C+130+8,15,Pic1+8:Pt-Change(‾3*C+180,38,Pic1:Pt-Change(‾3*C+180+8,38,Pic1+8:Pt-Change(‾3*C+70,35,Pic1:Pt-Change(‾3*C+70+8,35,Pic1+8:Pt-Change(‾3*C+5,42,Pic1:Pt-Change(‾3*C+5+8,42,Pic1+8:
:..DATA:[000004181FFC8000→GDB0:[00003C0000000000→Pic0:[0000FF0000000000:[00FFA1FF00000000:[FFFFFFFFFFFFFFFF:[0036498080493600→Pic1:[006C920101926C00:[0070ADE39D7E0000→Pic3:[F82070AFCE7050F8
:..INIT:44→X:40→Y:0→B→D→G→L:15→E:3→H
:..KEYS:If getKey(1) and (Y≠56:Y+2→Y:End:If getKey(2) and (X≠0:X-2→X:End:If getKey(3) and (X≠88:X+2→X:End:If getKey(4) and (Y≠0:Y-2→Y:End:If getKey(54):!If C^E:sub(ASB,D+1,H,X+1,Y+2):End:End:If getKey(34):15→E:0→D:0→F:3→H:End:If getKey(26):6→E:1→D:1→F:4→H:End:If getKey(18):25→E:2→D:0→F:4→H:End:If getKey(35):1→E:3→D:0→F:8→H:End
:..MOVEMENT:If B:For(I,1,B:If {{I*4+L4-2→J}+{J-1}→{J}}>127:sub(RSB,I-1→I):End:End:End
:..ROUTINES:Lbl ASB:If B<80:r4→{r3→{r2→{r1→{B+1→B*4+L4-4}+1}+1}+1}:End:Return:Lbl RSB:conj(r1*4+L4+4,-4,B-1→B-r1*4+1):Return:Lbl DA:If L:For(I,1,L:Pt-Change({I*4+L1-4→J},{J+1},Pic3:End:End:Return:Lbl PE:If L<176:r4→{r3→{r2→{r1→{L+1→L*4+L1-4}+1}+1}+1}:End:Return:Lbl RE:conj(r1*4+L1+4,-4,L-1→L-r1*4+1):Return