So this is another one of my small TI-Basic projects. I have made another Cookie Clicker for the TI-84 Plus CE/CSE, but there is a bit of difference. I have added a Competitive mode, which only allows a small amount of time to get as many clicks as possible. I am open to any optimizations and suggestions as I am still really new to this. I will say though that before you post an optimization, run it in an emulator or the calculator itself and see if it runs at about the same speed. I'm too lazy to post screenshots, but it's a well known game, so I don't see a big issue.
Code:
I have seen that many people have their programs uploaded to this site. If you think that I should upload this one, then tell me to and how to do so.
Code:
SetUpEditor CAL
If dim(⌊CAL)=0
{0,1,0,0,0,0,0,0}→⌊CAL
If ⌊CAL(1)>⌊CAL(6
⌊CAL(1)→⌊CAL(6
ClrHome
Output(2,5,"CALCULATOR CLICKER
Output(3,8,"BY: ALPHA527
Repeat getKey=105
For(A,1,26
For(B,1,25
End
Output(10,A," PRESS ENTER
End
End
Lbl HO
ClrHome
Menu("CALCULATOR CLICKER","CONTINUE GAME",C0,"NEW GAME",H,"COMPETITIVE GAME",CC,"HIGHSCORES",HS,"INFORMATION",I,"QUIT",Q
Lbl HS
Disp "THE CURRENT HIGHSCORE IS:
Disp ⌊CAL(6
Disp "THE COMPETITIVE SCORES ARE
Disp "LONG GAME:
Disp ⌊CAL(8
Disp "SHORT GAME:
Pause ⌊CAL(7
Goto HO
Lbl I
Disp "ENTER: CLICKS
Disp "2ND: BUYS FINGER
Disp "ALPHA: BUYS DISTRIBUTERS
Disp "MATH: BUYS FACTORY
Disp "X: BUYS ARMY
Disp "DEL: SAVE AND QUIT
Disp "MODE: QUIT COMP GAME
Pause "CREATED BY: ALPHA527
Goto HO
Lbl CC
5→G
Disp "ENTER 1 FOR A LONG GAME
Disp "AND 2 FOR A SHORT ONE.
Input N
If N=1
1→T
If N=2
4999→T
Lbl H
0→C
1→Q
0→X
0→Y
0→Z
Goto C9
Lbl Q
Disp "THANKS FOR PLAYING!!
Disp "MADE BY ALPHA527
Return
Lbl C0
⌊CAL(1)→C
⌊CAL(2)→Q
⌊CAL(3)→X
⌊CAL(4)→Y
⌊CAL(5)→Z
Lbl C9
ClrHome
If G=5
Output(10,1,"TIME:
Output(1,1,"CLICKS:
Output(1,9,C
Output(3,1,"FINGERS:
Output(4,1,"DISTRIBUTERS:
Output(4,15,X
Output(2,18,"COST
Output(3,10,Q
Output(5,1,"FACTORIES:
Output(5,12,Y
Output(6,1,"ARMIES:
Output(6,9,Z
Output(3,20,10+10Q
Output(4,20,100+X²50
Output(5,20,1000+25Y^3
Output(6,20,10000+10000Z²
Lbl S
Repeat B≠0
Output(1,9,C
If X>0
C+X→C
If Y>0
C+4Y→C
If Z>0
C+2Z²→C
If G=5 and T≥9999
Goto CE
If G=5
Output(10,6,9999-T
T+1→T
getKey→B
End
If B=22 and G=5
Goto CE
If T=8999
Output(10,6,"
If B=23
Goto QS
If B=105
C+Q→C
If B=21
Then
If C-10-10Q<0
Goto B0
C-10-10Q→C
Q+1→Q
Output(3,10,Q
Output(3,20,10+10Q
Lbl B0
End
If B=31
Then
If C-100-50X²≤0
Goto B1
C-100-50X²→C
X+1→X
Output(4,15,X
Output(4,20,100+50X²
Lbl B1
End
If B=41
Then
If C-1000-25Y^3≤0
Goto B2
C-1000-25Y^3→C
Y+1→Y
Output(5,12,Y
Output(5,20,1000+25Y^3
Lbl B2
End
If B=51
Then
If C-10000-10000Z²≤0
Goto B3
C-10000-10000Z²→C
Z+1→Z
Output(6,9,Z
Output(6,20,10000+10000Z²
Lbl B3
End
Output(1,9,"
Goto S
Lbl QS
{C,Q,X,Y,Z,⌊CAL(6),⌊CAL(7),⌊CAL(8)}→⌊CAL
ClrHome
Return
Lbl CE
ClrHome
0→G
Disp "YOUR SCORE WAS:
Output(1,17,C
Output(2,1,"LONG HIGHSCORE
Output(2,16,⌊CAL(8
Output(3,1,"SHORT HIGHSCORE
Output(3,17,⌊CAL(7
If C>⌊CAL(8) and N=1
C→⌊CAL(8
If C>⌊CAL(7 and N=2
C→⌊CAL(7
Pause
ClrHomeI have seen that many people have their programs uploaded to this site. If you think that I should upload this one, then tell me to and how to do so.