[TI-84+CSE] Nagoji 4x3 CSE [Hybrid Basic]

[Dream of Omnimaga]

Wow, looks as fun as the original. Glad to see progress. Will speed increase this fast in the final version, though?

[Unicorn]

It might, I haven't gotten around to balancing things yet, but when you get to the fastest speed, it becomes crazy with color changes.

Here's a screenshot of what it looks like.

[Dream of Omnimaga]

By the way, I don't notice much flicker in the screenshot. jsTIfied sometimes add flicker to them so I was wondering if you managed to get rid of flickering on the real calc? I can't wait to try it.

[alexgt]

Looks awesome Unicorn, also btw you go back to the running position after the obsticals move three times, you can add it if you want but it is up to you

[Unicorn]

Looks awesome Unicorn, also btw you go back to the running position after the obsticals move three times, you can add it if you want but it is up to you

what do you mean? Did you see the screenshot on page 3? Its better

[alexgt]

It looked like to me that the player went down immediately after the obstical unless it speeds up there

[Unicorn]

UPDATE:

I'm pretty much done, I just have to work out a few minor kinks, and maybe get some optimization. Highscores work, btw

[Dream of Omnimaga]

Awesome. Be sure to upload it in the first post or put a ticalc/cemetech link in it so I can clone the topic in the downloads section and also put it on ticalc.org Did you keep the same control scheme as the original, by the way?

[Unicorn]

Awesome. Be sure to upload it in the first post or put a ticalc/cemetech link in it so I can clone the topic in the downloads section and also put it on ticalc.org Did you keep the same control scheme as the original, by the way?

Yup, I will post links when it is ready, and the control scheme is pretty much the same.

[alexgt]

Great to hear

[Unicorn]

I rn into a bit of a problem. For some reason, the menu does not let the player go to info or help. I ve beenn loking at it for a couple of days now and I can't find the problem. I will post the code tomorrow, and besides that, I just need to write the readme!

[Unicorn]

Ok, here's the code I promised, along with a screenshot

Code Select Expand


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


[Dream of Omnimaga]

I don't have time to check right now because I am heading to bed soon, but try to poke me again tomorrow evening in case I forgot and that I might have some time. I can't guarantee I'll find the problem but we never know.

Do you mean it won't let the cursor move down or just error when you try to confirm those selections?

[Unicorn]

Well, I move the coursor to info or help, then press enteror second, then it just randomly quits. AnDd I know that it doesn't go through the whole program beforw quitting, s the exit is atthe end.

[alexgt]

That is weird, the only help I can give you is goto the the error and see if there are any misplaced characters but you probably did that