Please post in the comments column if you would like me to type up my cookie clicker version 2 code. Thanks, Nick
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