0 Members and 1 Guest are viewing this topic.

.A./front frames[FFC1C3E7C33E23FB]→Pic0[C1C3E7C33E62F3FF][FFC1C3E7C37CC4DF][C1C3E7C37C46CFFF]./right frames[FFC1E1EBA13E22DB][C1E1EBE1DF9393E7][FFC1E1EBE19F93DB][C1E1EBE1BE2223E7]./left frames[FF8387D7857C44DB][8387D787FBC9C9E7][FF8387D787F9C9DB][8387D7877D44C4E7]./back frames[FF83C3FFA3223BF3][83C3FFA3227AF3FF][FF83C3FFC544DCCF][83C3FFC5445ECFFF]./slime frames[FFFFFFC7A3410183]→Pic2[FFFFC7A3A38383C7][FFFFFFC7A3410183][FFFFFFFF81600081]./wall tile, 00[45FF11FF45FF11FF]→Pic1./ground tile, 01[FFFFFFFFFFEFFFFF]./tile map[00000000000000000000000000000000000000000000000000000000000000000000000000]→GDB0[00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000010101010100000000000000000000000000000101010101000000000000][00000000000000010101010100000000000000000000000000000101010101000000000000][00000000000000010101010100000000000000000000000000000101010101000000000000][00000000000000010101010100000000000000000000000000000101010101000000000000][00000000000000010101010101010101010101010101010101010101010101000000000000][00000000000000000000000000000000000101010101010100000101010101000000000000][00000000000000000000000000000000000101010101010100000101010101000000000000][00000000000000000000000000000000000101010101010100000101010101000000000000][00000000000000000000000000000101010101010101010100000101010101000000000000][00000000000000000000000000000100000101010101010100000000010000000000000000][00000000000000000000000000000100000000000000000000000000010000000000000000][00000000000000000000000000000100000000000000000000000000010000000000000000][00000000000000000000000000000100000000000000000000000000010000000000000000][00000000000000000000000000000100000000000101010101010101010000000000000000][00000000000000000000000000000100000000000101010101010000000000000000000000][00000000000000000000000000000101010101010101010101010000000000000000000000][00000000000000000000000000000000000001000101010101010000000000000000000000][00000000000000000000000000000000000001000101010101010000000000000000000000][00000000000000000000000000000000000001000000000100000000000000000000000000][00000000000000000000000000000000000001000000000100000000000000000000000000][00000000000000000000000000000000000001000000000100000000000000000000000000][00000000000000000000000000000000000001000000000100000000000000000000000000][00000000000000000000000000000000000001000000000000000000000000000000000000][00000000000000010101010101010101000001000000000000000000000000000000000000][00000000000000010101010101010101010101000000000000000000000000000000000000][00000000000000010101010101010101000000000000000000000000000000000000000000][00000000000000010101010101010101000000000000000000000000000000000000000000][00000000000000010101010101010101010101010101010101010101010101000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000][00000000000000000000000000000000000000000000000000000000000000000000000000]0->Q->P→V->H→I→J→F→S→L->K->TFix 5AddMob(1,0)AddMob(2,2)AddMob(15,9)AddMob(2,26)ClrDrawRepeat getKey(15) ./192 is the offset from the beginning of GDB0 Q*37+P+192→Z If getKey(3) and (I=0) and (J=0) and ({Z+1+GDB0}=1) If Z+1≠M 1→I 32→S End End If getKey(2) and (I=0) and (J=0) and ({Z-1+GDB0}=1) If Z-1≠M 0-1→I 64→S End End If getKey(1) and (I=0) and (J=0) and ({Z+37+GDB0}=1) If Z+37≠M 1→J 0→S End End If getKey(4) and (I=0) and (J=0) and ({Z-37+GDB0}=1) If Z-37≠M 0-1→J 96→S End End F++ H+I+I→H V+J+J→V If (H-8=0) or (H+8=0) P+I→P 0→H→I End If (V-8=0) or (V+8=0) Q+J→Q 0→V→J End DrawMap() DrawMob() Pt-Off(44,28,Pic0+(F/3^4*8)+S) ...Text(0,0,Z►Dec) For(E,1,L) E*4+L₁-4→G Text(0,E*6,{G+2}ʳ►Dec) End ... DispGraphEndClrDrawFix 4Lbl AddMob ./r1 = x, r2 = y ./creates an array [x,y,y*37+x+192] If L<18 r₂*37+r₁+192→{r₂→{r₁→{L+1→L*4+L₁-4}+1}+1}ʳ EndReturnLbl DrawMob For(E,1,L) E*4+L₁-4→G {E*4+L₁-2}ʳ→M Text(0,0,M►Dec) ./If ((M-192≤Z) and (M+192≥Z)) ./Text(0,E*6,"Drawn") {G}-P*8→r₁ {G+1}-Q*8→r₂ ./Text(0,0,M►Dec) Pt-Off(44+r₁-H,28+r₂-V,Pic2+(F/3^4*8)) ./Else ./Text(0,E*6,"Not Drawn") ./End EndReturnLbl DrawMap Q*37+P→T ClrDraw For(B,0,10) For(A,0,14) A-1*8-4-H→C B-1*8-4-V→D Pt-On(C,D,{B*37+A+T+GDB0}*8+Pic1) End EndReturn

.ARRAYClrHome0→L193→AAddEntry(1156)AddEntry(193)AddEntry(208)AddEntry(447)Repeat getKey(15) CheckArray()EndClrHomeLbl AddEntry r₁→{L+1→L*2+L₁-2}ʳReturnLbl CheckArray For(I,1,L) {I*2+L₁-2}ʳ→B If A=B Output(0,0,"EQUAL") Pause 1800 ClrHome Else Output(0,0,"NOT EQUAL") Pause 1800 ClrHome End EndReturn

.ARRAYClrHome0→L193→AAddEntry(2,26)AddEntry(1,0)AddEntry(15,9)AddEntry(2,2)Repeat getKey(15) CheckArray()EndClrHomeLbl AddEntry r₂*37+[r1]+192→{[r2]->{[r1]->{L+1->L*4+L1-4}+1}+1}ʳReturnLbl CheckArray For(I,1,L) {I*4+L₁-2}ʳ→B If (B-192≤A) and (B+192≥A) Output(0,0,"IN BOUNDS") Pause 1800 ClrHome Else Output(0,0,"OUT OF BOUNDS") Pause 1800 ClrHome End EndReturn

AddMob(1,0)AddMob(2,2)AddMob(15,9)AddMob(2,26)AddMob(7,5)AddMob(8,5)Lbl DrawMob For(E,1,L) E*4+L₁-4→G {E*4+L₁-2}ʳ→M Text(0,0,M►Dec) Text(36,0,L►Dec) If (M-192≤Z) and (M+192≥Z) Text(0,E*6,"Drawn") {G}-P*8→r₁ {G+1}-Q*8→r₂ Pt-Off(44+r₁-H,28+r₂-V,Pic2+(F/3^4*8)) Else Text(0,E*6,"Not Drawn") End EndReturn

If ((M-155≤Z) and (M+155≥Z))

If (M-155≤Z) and (M+155≥Z)

{G+2}ʳ

If getKey(3) and (I=0) and (J=0) and ({Z+1+GDB0}=1) If CheckRight() 1→I 32→S End EndLbl CheckRight For(K,1,L) {K*4+L₁-2}ʳ→N Z+1≠N EndReturn

...Text(0,0,Z►Dec) For(E,1,L) E*4+L₁-4→G Text(0,E*6,{G+2}ʳ►Dec) End ...

If getKey(3) and (I=0) and (J=0) and ({Z+1+GDB0}=1) If CheckRight() 1→I 32→S End End If getKey(2) and (I=0) and (J=0) and ({Z-1+GDB0}=1) If CheckLeft() 0-1→I 64→S End End If getKey(1) and (I=0) and (J=0) and ({Z+37+GDB0}=1) If CheckDown() 1→J 0→S End End If getKey(4) and (I=0) and (J=0) and ({Z-37+GDB0}=1) If CheckUp() 0-1→J 96→S End EndLbl CheckRight For(K,1,L) {K*4+L₁-2}ʳ→N Return!If Z+1≠N EndReturnLbl CheckLeft For(K,1,L) {K*4+L₁-2}ʳ→N Return!If Z-1≠N EndReturnLbl CheckDown For(K,1,L) {K*4+L₁-2}ʳ→N Return!If Z+37≠N EndReturnLbl CheckUp For(K,1,L) {K*4+L₁-2}ʳ→N Return!If Z-37≠N EndReturn