.ROGUE A roguelike
prgmFLOOR1
DiagnosticOff
[3C409EA2A29E423C]->Pic100
4->X->Y
Repeat getKey(15)
If getKey(4)?TCh(X,Y-1)
Y--
ElseIf getKey(1)?TCh(X,Y+1)
Y++
ElseIf getKey(2)?TCh(X-1,Y)
X--
ElseIf getKey(3)?TCh(X+1,Y)
X++
ElseIf getKey(48) and getKey(14)?TCh(X,Y)=2
4->X->Y
End
Lbl DP
For(B,0,7)
For(A,0,11)
Pt-Off(A-X*8,B-Y*8,{B-4*12+A-4+GDB0}*8+Pic000)
End
End
Pt-Off(32,32,Pic100)
DispGraph
End
Return
Lbl TCh
Return {[r2]*12+[r1]+GDB0}
Return