Cheese quest part 3

We're glad you came by, but you might find what you're looking for elsewhere.

TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it.

Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

You have not uploaded your program! Please edit the page to upload your program.

Author:

Robert Black

Download: README.txtNo Download Available
Version: 1.0
Compatibility: TI-83/84/+/SE
File Size: 0 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD

Hi.
I'm back.
This is a really fun but slow game, I would appreciate it if anyone could tell me how to make it faster.
The download doesn't work.
I created this program before I knew how to use For loops, sorry.
You are the letter H at the bottom, you press the left and right arrows to move, and the up arrow to shoot.
You can only have one bullet on the screen at one time.
I am working on making it faster.
Thank you.

:1→L
:0→Z
:8→X
:0→P
:{15,2,7,13,5,6,9,11,3,8}→⌊1
:{1,2,3,4,3,2,1,2,3,2}→⌊2
:{1,1,1,1,1,1,1,1,1,1}→⌊3
:{1,1,1,1,1,1,1,1,1,1}→⌊4
:16→A
:8→B
:0→W
:{0,50,100,200,400}→⌊5
:0→V
:While Z=0
:getKey→K
:0→W
:If K=24
:Then
:X-1→X
:End
:If K=26
:X+1→X
:If K=25
:Then
:If B=8
:Then
:X→A
:7→B
:End
:End
:0→W
:While not(W=10)
:W+1→W
:If A=⌊1(W) and B=⌊2(W)
:Then
:⌊3(W)-1→⌊3(W)
:16→A
:8→B
:If ⌊3(W)=0
:Then
:randInt(1,15)→⌊1(W)
:1→⌊2(W)
:P+((⌊4(W)*⌊4(W))*10)→P
:randInt(1,L)→⌊3(W)
:⌊3(W)→⌊4(W)
:End
:End
:End
:If X=16
:Then
:15→X
:End
:If X=0
:Then
:1→X
:End
:If not(Z=V)
:Then
:Disp "YOU FINISHED"
:Disp "LEVEL"
:Pause V
:Z→V
:End
:0→W
:While not(W=5)
:W+1→W
:If P>= ⌊5(W)
:Then
:W→L
:End
:End
:0→W
:While not(W=10)
:W+1→W
:If ⌊1(W) = X and ⌊2(W)=8
:Then
:If not(L=5)
:Then
:While 1
:Disp P
:End
:End
:End
:End
:0→W
:While not(W=10)
:W+1→W
:If ⌊3(W)=1
:Then
:Output(⌊2(W),⌊1(W),"A
:End
:If ⌊3(W)=2
:Then
:Output(⌊2(W),⌊1(W),"B
:End
:If ⌊3(W)=3
:Then
:Output(⌊2(W),⌊1(W),"C
:End
:If ⌊3(W)=4
:Then
:Output(⌊2(W),⌊1(W),"D
:End
:If ⌊3(W)=5
:Then
:Output(⌊2(W),⌊1(W),"E
:End
:End
:0→W
:Output(8,X,"H
:Output(B,A,"O
:While not(W=10)
:W+1→W
:⌊2(W)+1→⌊2(W)
:End
:If not(B=8)
:Then
:B-1→B
:End
:0→W
:While not(W=10)
:W+1→W
:If ⌊2(W)>8
:Then
:1→⌊2(W)
:randInt(1,15)→⌊1(W)
:randInt(1,L)→⌊3(W)
:⌊3(W)→⌊4(W)
:End
:End
:If B=1
:Then
:16→A
:8→B
:End
:Output(1,1,P
:End

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial 2.5 License.