Cookie Clicker for TI-83 Plus
Please post in the comments column if you would like me to type up my cookie clicker version 2 code. Thanks, Nick
Cookie Clicker for TI-83 Plus
|
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. |
Forum
» Programming & Design / TI-83/84/+/SE Programming
» Cookie Clicker for TI-83 Plus
Ill start typing it up here…
0▶A
1▶B
0▶C
0▶D
0▶E
0▶F
0▶G
0▶H
0▶I
0▶J
0▶Q
0▶R
0▶S
0▶T
0▶U
0▶V
0▶X
0▶N
1000000000000▶P
ZSquare
ClrHome
Lbl L
Lbl 7
C*.1+D*1+E*10+F*50+G*100+H*1000▶I
RecallPic Pic6
Text(0,0,"Insert Your Bakery Here"
Text(57,5,C
Text(57,29,D
Text(57,48,E
Text(57,69,F
Text(57,82,G
Text(35,62,H
Lbl 9
While 1
getKey▶Z
P-A▶P
If P=0
1▶Q
Text(29,77,"Pre:"
Text(29,77,N
Text(38,0,P," Left"
Text(2,58,A," Cook"
Text(12,58,"I,"/Sec"
A+I▶A
If Z=34
Goto 8
If Z=11
Goto 1
If Z=12
Goto 2
If Z=13
Goto 3
If Z=14
Goto 4
If Z=15
Goto 5
If Z=25
Goto 6
If Z=24
Goto S
If Z=105
A+B▶A
If Z=31
Goto G
If Z=21
Goto O
If Z=22
Stop
End
Lbl 8
Menu("Click upgrades:","X2 250",R,"X4 800",S,"X6 1200",T
Lbl R
If A<250
Goto L
B*2▶B
A-250▶A
Goto L
Lbl S
If A<800
Goto L
B*4▶B
A-800▶A
Goto L
Lbl T
If A<1200
Goto L
B*8▶B
A-1200▶A
Goto L
Lbl G
Menu("Save Options:","Save",H,"Restore",I
Lbl H
Menu("Save File:","Save File 1",T,"Save File 2",U
Lbl T
{C,D,E,F,G,H,A}▶L1
{Q,R,S,T,U,V}▶L3
{O,B}▶L5
Goto L
Lbl U
{C,D,E,F,G,H,A}▶L2
{Q,R,S,T,U,V}▶L4
{P,B}▶L6
Goto L
Lbl I
Menu("Save File:","Save File 1",W,"Save File 2",X
Lbl W
L1(1)▶C
L1(2)▶D
L1(3)▶E
L1(4)▶F
L1(5)▶G
L1(6)▶H
L1(7)▶A
L3(1)▶Q
L3(2)▶R
L3(3)▶S
L3(4)▶T
L3(5)▶U
L3(6)▶V
L5(1)▶P
L5(2)▶B
Lbl X
L2(1)▶C
L2(2)▶D
L2(3)▶E
L2(4)▶F
L2(5)▶G
L2(6)▶H
L2(7)▶A
L4(1)▶Q
L4(2)▶R
L4(3)▶S
L4(4)▶T
L4(5)▶U
L4(6)▶V
L6(1)▶P
L6(2)▶B
This is only incompete ill finish it later
this is the next portion
Goto 7
Lbl S
ClrDraw
Text(0,0"COST: BUILDING: OUTPUT:"
Text(6,0,Q+15," CURSOR .1"
Text(12,0,R+100," GRANDMA 1"
Text(18,0,S+110," FARM 10"
Text(24,0,T+1200," MINE 50"
Text(30,0,U+130000," FACTORY 100"
Text(36,0,V+1600000," BANK 1000"
Pause
ClrDraw
Goto L
Lbl 2
If A<R+15
Goto L
A-(R+15)▶A
R+15▶R
C+1▶C
Goto 7
Lbl 1
If A<Q+15
Goto L
A-(Q+15)▶A
Q+15▶Q
C+1▶C
Goto 7
Lbl 3
If A<S+15
Goto L
A-(S+15)▶A
S+15▶S
C+1▶C
Goto 7
Lbl 4
If A<T+15
Goto L
A-(T+15)▶A
T+15▶T
C+1▶C
Goto 7
Lbl 5
If A<U+15
Goto L
A-(U+15)▶A
U+15▶U
C+1▶C
Goto 7
Lbl 6
If A<V+15
Goto L
A-(V+15)▶A
V+15▶V
C+1▶C
Goto 7
Lbl O
Menu("Prestige?","Yes",R,"No",7
Lbl R
0▶A
0▶I
0▶C
0▶D
0▶E
0▶F
0▶G
0▶H
If P≤ 1
N+1▶N
1000000000000▶P
Goto 7
Controls
2ND Prestige
Left - Prestige
ALPHA - Load or Save To File
Y= - Buy cursor
WINDOW - Buy grandma
ZOOM - Buy farm
TRACE - buy mine
GRAPH - buy factory
Up - buy bank
MODE - Quit
Note:
Make your own picture around the source code and store it to Pic6
I might post mine later
Took your code (see below) and built it into a program attached as a file to this thread for people to download. Also, I think perhaps the program archives would be a better place for programs in the future. There is a how-to guide on how to do this.
0→A
1→B
0→C
0→D
0→E
0→F
0→G
0→H
0→I
0→J
0→Q
0→R
0→S
0→T
0→U
0→V
0→X
0→N
1000000000000→P
ZSquare
ClrHome
Lbl L
Lbl 7
C*.1+D*1+E*10+F*50+G*100+H*1000→I
RecallPic Pic6
Text(0,0,"Insert Your Bakery Here"
Text(57,5,C
Text(57,29,D
Text(57,48,E
Text(57,69,F
Text(57,82,G
Text(35,62,H
Lbl 9
While 1
getKey→Z
P-A→P
If P=0
1→Q
Text(29,77,"Pre:"
Text(29,77,N
Text(38,0,P," Left"
Text(2,58,A," Cook"
Text(12,58,"I,"/Sec"
A+I→A
If Z=34
Goto 8
If Z=11
Goto 1
If Z=12
Goto 2
If Z=13
Goto 3
If Z=14
Goto 4
If Z=15
Goto 5
If Z=25
Goto 6
If Z=24
Goto S
If Z=105
A+B→A
If Z=31
Goto G
If Z=21
Goto O
If Z=22
Stop
End
Lbl 8
Menu("Click upgrades:","X2 250",R,"X4 800",S,"X6 1200",T
Lbl R
If A<250
Goto L
B*2→B
A-250→A
Goto L
Lbl S
If A<800
Goto L
B*4→B
A-800→A
Goto L
Lbl T
If A<1200
Goto L
B*8→B
A-1200→A
Goto L
Lbl G
Menu("Save Options:","Save",H,"Restore",I
Lbl H
Menu("Save File:","Save File 1",T,"Save File 2",U
Lbl T
{C,D,E,F,G,H,A}→L₁
{Q,R,S,T,U,V}→L₃
{O,B}→L₅
Goto L
Lbl U
{C,D,E,F,G,H,A}→L₂
{Q,R,S,T,U,V}→L₄
{P,B}→L₆
Goto L
Lbl I
Menu("Save File:","Save File 1",W,"Save File 2",X
Lbl W
L₁(1)→C
L₁(2)→D
L₁(3)→E
L₁(4)→F
L₁(5)→G
L₁(6)→H
L₁(7)→A
L₃(1)→Q
L₃(2)→R
L₃(3)→S
L₃(4)→T
L₃(5)→U
L₃(6)→V
L₅(1)→P
L₅(2)→B
Lbl X
L₂(1)→C
L₂(2)→D
L₂(3)→E
L₂(4)→F
L₂(5)→G
L₂(6)→H
L₂(7)→A
L₄(1)→Q
L₄(2)→R
L₄(3)→S
L₄(4)→T
L₄(5)→U
L₄(6)→V
L₆(1)→P
L₆(2)→B
Goto 7
Lbl S
ClrDraw
Text(0,0"COST: BUILDING: OUTPUT:"
Text(6,0,Q+15," CURSOR .1"
Text(12,0,R+100," GRANDMA 1"
Text(18,0,S+110," FARM 10"
Text(24,0,T+1200," MINE 50"
Text(30,0,U+130000," FACTORY 100"
Text(36,0,V+1600000," BANK 1000"
Pause
ClrDraw
Goto L
Lbl 2
If A<R+15
Goto L
A-(R+15)→A
R+15→R
C+1→C
Goto 7
Lbl 1
If A<Q+15
Goto L
A-(Q+15)→A
Q+15→Q
C+1→C
Goto 7
Lbl 3
If A<S+15
Goto L
A-(S+15)→A
S+15→S
C+1→C
Goto 7
Lbl 4
If A<T+15
Goto L
A-(T+15)→A
T+15→T
C+1→C
Goto 7
Lbl 5
If A<U+15
Goto L
A-(U+15)→A
U+15→U
C+1→C
Goto 7
Lbl 6
If A<V+15
Goto L
A-(V+15)→A
V+15→V
C+1→C
Goto 7
Lbl O
Menu("Prestige?","Yes",R,"No",7
Lbl R
0→A
0→I
0→C
0→D
0→E
0→F
0→G
0→H
If P≤1
N+1→N
1000000000000→P
Goto 7
/forum/t-2061998/cookie-clicker-for-ti-83-plus#post-