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 |