SHOW:
|
|
- or go back to the newest paste.
| 1 | .ROGUE A roguelike | |
| 2 | prgmFLOOR1 | |
| 3 | DiagnosticOff | |
| 4 | [3C409EA2A29E423C]->Pic100 | |
| 5 | - | 1->X->Y |
| 5 | + | 4->X->Y |
| 6 | Repeat getKey(15) | |
| 7 | If getKey(4)?TCh(X,Y-1) | |
| 8 | Y-- | |
| 9 | ElseIf getKey(1)?TCh(X,Y+1) | |
| 10 | Y++ | |
| 11 | ElseIf getKey(2)?TCh(X-1,Y) | |
| 12 | X-- | |
| 13 | ElseIf getKey(3)?TCh(X+1,Y) | |
| 14 | X++ | |
| 15 | ElseIf getKey(48) and getKey(14)?TCh(X,Y)=2 | |
| 16 | - | 1->X->Y |
| 16 | + | 4->X->Y |
| 17 | End | |
| 18 | Lbl DP | |
| 19 | For(B,0,7) | |
| 20 | For(A,0,11) | |
| 21 | - | Pt-Off(A-X*8,B-Y*8,{B*12+A+GDB0}*8+Pic000)
|
| 21 | + | Pt-Off(A-X*8,B-Y*8,{B-4*12+A-4+GDB0}*8+Pic000)
|
| 22 | End | |
| 23 | End | |
| 24 | - | Pt-Off(X*8,Y*8,Pic100) |
| 24 | + | Pt-Off(32,32,Pic100) |
| 25 | DispGraph | |
| 26 | End | |
| 27 | Return | |
| 28 | Lbl TCh | |
| 29 | Return {[r2]*12+[r1]+GDB0}
| |
| 30 | Return |
