I'm trying to seriously get into Axe, and I decided to resurrect an old project idea of mine, to create a "text based" roguelike on the Ti 8X B/W calculators. I absolutely love the ascii art of those roguelikes, and I want to see if I can do this!
After rereading and typing out the things from the Axe documents, I have created a very VERY rudimentary scrolling engine and collision engine. The collision engine doesn't work quite right (because the sprite drawing happens after everything and I need to figure that out), but here it is!
Code:
The floor is unchanged:
Code:
After rereading and typing out the things from the Axe documents, I have created a very VERY rudimentary scrolling engine and collision engine. The collision engine doesn't work quite right (because the sprite drawing happens after everything and I need to figure that out), but here it is!
Code:
.ROGUE A roguelike in Axe
prgmFLOR2SRC
DiagnosticOff
[3C429AA6A69C423C]->Pic100
[0042665A5A424200]->Pic101
1->X->Y
.3->U->V
0->U->V
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
1->X->Y
End
If X>10:3->U
Else
0->U
End
If Y>6:3->V
Else
0->V
End
Lbl DP
For(B,0,7)
For(A,0,11)
Pt-Off(A*8,B*8,{B+V*G+A+U+GDB0}*8+Pic000)
End
End
Pt-Off(X*8,Y*8,Pic100)
DispGraph
End
Return
Lbl TCh
.<Row#>*<Total Columns> + <Column#> + <Start of Data>
Return {[r2]+V*G+[r1]+U+GDB0}
Lbl MonsGenChk
Return
The floor is unchanged:
Code:
.FLOOR2
[00247E24247E2400]->Pic000
[0000000000001818]->Pic001
[C0300C03030C30C0]->Pic002
16->G
12->H
[00000000000000000000000000000000]->GDB0
[00010101010101010101010101010000]
[00010000010101010101010000010000]
[00010101010101010101010101010000]
[00010101010100010001010101010000]
[00010101010101020101010101010000]
[00010101010101020101010101010000]
[00010101010100010001010101010000]
[00010101010101010101010101010000]
[00010000010101010101010000010000]
[00010101010101010101010101010000]
[00000000000000000000000000000000]
