Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.
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:
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+X50
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.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are GMT - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum