Bumpdate:
So, I've ran into a bit of a problem, for some reason whne the ser selects Info or Help, it just quits the game. I've looked at it on and off for a few days, and I can't figure it out.
Maybe mr womp womp will know? Anyways, code, and screenshot showing it.
(The syntax error was a Trace where a real( should be)
Code:
real(0,1,1
real(8,1,0
SetUpEditor ʟNAG
If not(dim(ʟNAG
{0→ʟNAG
Lbl H
ʟNAG(1→Z
real(0,3,4,0
"Nagoji:
real(6,0,23,5,252,36
"4x3
real(6,0,83,5,16,36
"CSE
real(6,0,113,5,224,36
160→A
"Play Help/Info Quit
real(6,0,43,17,5,47
"High:
real(6,0,43,35,196,0
real(6,1,85,35,196,Z,0
DelVar V
1→Q:1→R:16→B:Repeat max(K={21,105,45
">
real(6,0,40R-5,9+8Q,15
real(6,0,40R-6,9+8Q,10
Repeat K
A-40→A
real(7,9,A,45+40(C=1),40,35+40(C=2),D
rand(B
real(7,9,A,45+40(C=1),40,35+40(C=2),0
If not(A:Then
160→A
B-1→B
randInt(1,255→D
randInt(1,2→C
End
If not(B
16→B
getKey→K
End
If max(K={25,34:Then
">
real(6,0,40R-5,9+8Q,0
real(6,0,40R-6,9+8Q,0
End
Q+(K=34)-(K=25→Q
Q-2(Q=3)+2not(Q→Q
If max(K={24,26
">
real(6,0,40R-5,9+8Q,0
real(6,0,40R-6,9+8Q,0
R+(K=26)-(K=24)→R
R-2(R=3)+2not(R→R
End
If K=45 or R=2 and Q=2
Goto X
If R=1 and Q=1:Then
real(0,3,4,0
1→V:3→E:160→A:40→M:40→I:80→J
DelVar FDelVar HDelVar BDelVar Z
Repeat K=15
Z+1→Z
real(2,0→K
H+1→H:B+.5→B
If E≤0
.5→E
If K=2:Then
80→M:80→I:40→J
2→θ:2→W
End
If K=3:Then
80→I:40→J
3→θ:3→W
End
If K=4:Then
DelVar M
4→θ:4→W
End
real(7,9,0,M,I,J,5,0
If K=2
real(7,9,0,40,40,40,F
If K=3 or K=4
real(7,9,0,80,40,40,F
If B=E
A-40→A
real(7,9,A,0+80(C=2),40,80+40(C=3),D
If B≥E:Then
A+40→A
real(7,9,A,0+40(C=2),40,80+40(C=3),F
DelVar B
A-40→A
real(7,9,0,40,40,80,5,0
If θ=2
real(7,9,0,80,80,40,0,0
If θ=3
real(7,9,40,40,40,40,0,0
If θ=4
real(7,9,0,0,40,40,0,0
40→I:40→M:40→J
DelVar θ
End
If A=160
DelVar W
If C=3 and W≠3 and not(A:Then
15→K
1→V
End
If C=2 and W≠4 and not(A:Then
15→K
1→V
End
If C=1 and W≠2 and not(A:Then
15→K
1→V
End
If not(A:Then
real(7,9,A,0+40(C=2),40,80+40(C=3),F
E-.5→E
160→A
If H≥130:Then
randInt(0,255→F
DelVar θ
End
If H≥58
randInt(0,255→L
randInt(1,255→D
randInt(1,3→C
End
If F=D
randInt(0,255→D
End
If V=1:Then
real(0,3,4,0,0
"YOUR SCORE IS:
real(6,0,1,1,255,0
real(6,1,122,1,255,Z,0
If max(ʟNAG<Z:Then
Repeat K
real(2,0,0→K
"YOU GOT A HIGH SCORE!
real(6,0,1,9,R,0
randInt(1,255→R
End
{Z→ʟNAG
End
Repeat K
real(2,0,0→K
End
Repeat getKey
End
DelVar Z
1→G
End
If R=2 and Q=1:Then
real(0,3,4,0
"How to play:=Up arrow to jump=Down arrow to slide=Right arrow to SMASj`=The point of the=game is to get=through as many=obstacles as=possible,=traversing through=μltiple levels of=different=difficulties and=themes.
real(6,0,0,5,255,61
Repeat getKey
End
1→G
End
If R=1 and Q=2:Then
real(0,3,4,0,0
"This game was first=envisioned by alexgt=for The Codewalr.us=4x3 Contest. It was=made for the HP=Prime, and now, the=TI-84+ CSE by=Unicorn.
real(6,0,0,5,255,61
Repeat getKey
End
1→G
End
If G
Goto H
Lbl X
real(0,1,1
real(0,3,4,255,1
real(0,3,4,255
Return