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.

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

ClrHome

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.