Cheese quest part 3

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-ShareAlike 3.0 License