rvtr/Cookie-Clicker-C64
1
Fork 0
mirror of https://github.com/rvtr/Cookie-Clicker-C64.git synced 2025-10-31 07:41:12 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity
a8514c5824
Cookie-Clicker-C64/prg.txt
IanSkinner1982 a8514c5824 fixed a couple graphical errors
2020-12-17 18:50:39 -05:00

276 lines
10 KiB
Plaintext
Raw Blame History

0 rem !to "build/cookie.prg"
10 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone"
20 ds$=chr$(17):rem cursor down
30 rs$=chr$(29):rem cursor right
40 ls$=chr$(157):rem cursor left
50 c1=15:c2=100:c3=1100:c4=12000
99 print"{clear}{home}"
1000 print"{clear}{home}{grey2}UCCCCCCCCCCCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCI"
1010 print"{grey2}B{wht} you have 0 {grey2}B{wht}cursor(c) {grey2}B"
1020 print"{grey2}B{wht} cookies {grey2}B{wht}"ca" {grey2}B"
1030 print"{grey2}{$ab}CCCCCCCCCCCCCCCCCCCCCCCCC{$b3}{wht}cost: {grey2}B"
1040 print"{grey2}B {grey2}B{wht} 15 {grey2}B"
1050 print"{grey2}B {grey2}{$ab}CCCCCCCCCCC{$b3}"
1060 print"{grey2}B {grey2}B{wht}grandma(g) {grey2}B"
1070 print"{grey2}B {grey2}B{wht}"ga" {grey2}B"
1080 print"{grey2}B {brown}******** {grey2}B{wht}cost: {grey2}B"
1090 print"{grey2}B {brown}*******{blk}**{brown}* {grey2}B{wht} 100 {grey2}B"
1100 print"{grey2}B {brown}***{blk}*{brown}******** {grey2}{$ab}CCCCCCCCCCC{$b3}"
1110 print"{grey2}B {brown}***{blk}**{brown}********* {grey2}B B"
1120 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B B"
1130 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B B"
1140 print"{grey2}B {brown}************** {grey2}B B"
1150 print"{grey2}B {brown}*{blk}*{brown}************ {grey2}B B"
1160 print"{grey2}B {brown}*************{brown}* {grey2}B B"
1170 print"{grey2}B {brown}******{blk}**{brown}**** {grey2}B B"
1180 print"{grey2}B {brown}*****{blk}**{brown}*** {grey2}B B"
1190 print"{grey2}B {brown}******** {grey2}B B"
1200 print"{grey2}B {$ab}CCCCCCCCCCC{$b3}"
1210 print"{grey2}B B{grey1}settings(s){grey2}B"
1220 print"{grey2}B v2.9.0-1.0 B{grey1}upgrades(u){grey2}B"
1230 print"{grey2}JCCCCCCCCCCCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCK"
1300 print"{home}{down}{down}{down}{down}B "bn$"'s bakery
1500 ft$="0":mt$="0"
1900 if ft$="0" then gosub 4000
1910 if mt$="0" then gosub 4100
1920 get k$:if k$= "" then 1990
1930 if k$=" " then 2100
1940 if k$="c" then 2200
1950 if k$="g" then 2300
1960 if k$="f" then 2400
1970 if k$="m" then 2500
1980 if k$="s" then 10000
1990 rem start of auto add
2000 cc=cc+cg
2010 print"{home}{down}{grey2}B{wht} you have "int(cc)
2020 goto 1900
2099 rem part 2
2100 cc=cc+1
2110 print"{home}{down}{grey2}B{wht} you have "int(cc)
2120 goto 1900
2200 if cc<15 then 1900 rem CURSORS
2210 cc=cc-15:cg=cg+.04:ca=ca+1
2220 print"{home}{down}{grey2}B{wht} you have "int(cc)
2225 print"{home}{down}{grey2}B{wht} you have {grey2}B
2230 print"{home}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"ca
2240 goto 1900
2300 if cc<100 then 1900 rem GRANDMAS
2310 cc=cc-100:cg=cg+.05:ga=ga+1
2320 print"{home}{down}{grey2}B{wht} you have "int(cc)
2325 print"{home}{down}{grey2}B{wht} you have {grey2}B
2330 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"ga
2340 goto 1900
2400 if cc<1100 then 1900 rem MINES
2410 cc=cc-1100:cg=cg+.06:ma=ma+1
2420 print"{home}{down}{grey2}B{wht} you have "int(cc)
2425 print"{home}{down}{grey2}B{wht} you have {grey2}B
2430 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"ma
2440 goto 1900
2500 if cc<12000 then 1900 rem FARMS
2510 cc=cc-12000:cg=cg+.1:fa=fa+1
2520 print"{home}{down}{grey2}B{wht} you have "int(cc)
2525 print"{home}{down}{grey2}B{wht} you have {grey2}B
2530 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"fa
2540 goto 1900
4000 if cc<400 then return
4010 ft$="1"
4020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{grey2}B {brown}***{blk}*{brown}******** {grey2}{$ab}CCCCCCCCCCC{$b3}"
4030 print"{grey2}B {brown}***{blk}**{brown}********* {grey2}B{wht}farm(f) {grey2}B"
4040 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B{wht}"fa
4045 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B{wht} {right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B"
4050 print"{up}{grey2}B {brown}********{blk}**{brown}**** {grey2}B{wht}cost: {grey2}B"
4060 print"{grey2}B {brown}************** {grey2}B{wht} 1100 {grey2}B"
4070 print"{grey2}B {brown}*{blk}*{brown}************ {grey2}{$ab}CCCCCCCCCCC{$b3}"
4080 return
4100 if cc<6000 then return
4110 mt$="1"
4120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{grey2}B {brown}*{blk}*{brown}***********{brown}* {grey2}{$ab}CCCCCCCCCCC{$b3}"
4130 print"{grey2}B {brown}*************{brown}* {grey2}B{wht}mine(m) {grey2}B"
4140 print"{grey2}B {brown}******{blk}**{brown}**** {grey2}B{wht}"ma
4145 print"{up}{grey2}B {brown}******{blk}**{brown}**** {grey2}B{wht} {right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B"
4150 print"{grey2}B {brown}*****{blk}**{brown}*** {grey2}B{wht}cost: {grey2}B"
4160 print"{grey2}B {brown}******** {grey2}B{wht} 12000 {grey2}B"
4170 print"{grey2}B {grey2}{$ab}CCCCCCCCCCC{$b3}"
4180 return
4180 return
10000 rem settings start here
10010 poke53280,0:poke53281,0
10100 print"{clear}{grey1}UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI"
10110 print"B B"
10120 print"B {wht}bakery name (b): {grey1}B"
10130 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
10140 print"B B"
10150 print"B {wht}save (s) {grey1}B"
10160 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
10170 print"B B"
10180 print"B {wht}load (l) {grey1}B"
10190 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
10200 print"B B"
10210 print"B {red}wipe save (w) {grey1}B"
10220 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
10230 print"B B"
10240 rem print"B B"
10250 rem print"B B"
10260 rem print"B B"
10270 rem print"B B"
10280 rem print"B USE LATER IF YOU ADD MORE OPTIONS B"
10290 rem print"B B"
10300 rem print"B B"
10310 print"B {wht}exit settings (e) {grey1}B"
10320 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
10330 print"B B"
10340 print"JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK"
11200 getk$:ifk$=""then 11200
11210 ifk$="b"then goto 12000
11220 ifk$="s"then goto 12100
11230 ifk$="l"then goto 12200
11240 ifk$="w"then goto 12300
11250 ifk$="e"then goto 13000
12100 print"{clear}writing save data..."
12110 open 8,8,8,"@0:cc64.sav,s,w"
12120 print#8,cc
12130 print#8,cg
12140 print#8,ca
12145 print#8,ga
12150 print#8,fa
12155 print#8,ma
12160 close 8
12170 print"saving complete"
12180 goto 10000
12200 print"{clear}loading save data..."
12210 open 8,8,8,"cc64.sav,s,r"
12220 input#8,cc
12222 input#8,cg
12224 input#8,ca
12226 input#8,ga
12228 input#8,fa
12230 input#8,ma
12260 close 8
12270 print"loading complete"
12275 poke53280,14:poke53281,6
12280 goto 10000
13000 print"{clear}"
13010 poke53280,14:poke53281,6
13030 goto 1000
40000 rem testing menu
40010 poke53280,0:poke53281,0:poke646,5
40020 print"{clear}logging into console...
40025 print"cc64:/>"
40030 print"{up}{right}{right}{right}{right}{right}{right}{right} h"
40040 print"loading help menu..."
40045 print""
40050 print" edit saves:"
40060 print""
40070 print" create [c]"
40080 print" delete [d]"
40090 print" edit [e]"
40100 print""
40110 print" varibles:"
40120 print""
40130 print" read all [r]"
40140 print" edit all [m]"
40150 print""
40160 print" help [h]
40170 print""
40180 print"cc64:/>"
40500 getk$:ifk$=""then40500
40510 ifk$="c"then 41000
40520 ifk$="d"then
40530 ifk$="e"then
40540 ifk$="r"then
40550 ifk$="m"then
40560 ifk$="h"then 40030
40600 goto 40500
41000 print"{up}{right}{right}{right}{right}{right}{right}{right} c"
41010 print"creating save file..."
41015 open 8,8,8,"cc64.sav,s,w"
41020 print#8,0
41030 print#8,0
41040 print#8,0
41045 print#8,0
41050 print#8,0
41055 print#8,0
41060 close 8
41070 print"done!"
41080 goto 40180
42000 print"{clear}deleting save file..."
42010 open 8,8,8,"@0:cc64.sav,s,r"
42020 input#8,0
42022 input#8,0
42024 input#8,0
42026 input#8,0
42028 input#8,0
42030 input#8,0
42060 close 8
42070 print"done!"
43000 print"{clear}loading save file..."
43010 open 8,8,8,"@0:cc64.sav,s,r"
43020 get#8,s1
43022 get#8,s2
43024 get#8,s3
43026 get#8,s4
43028 get#8,s5
43030 get#8,s6
43070 print"loading complete"
43100 print" cookies: "s
43110 print" cookie gain: "s
43120 print" cursor amount "s
43130 print" grandma amount "s
43140 print" farm amount "s
43150 print" mine amount "s
49020 rem [20:38:28 ~/development/commodore/cookie-clicker-c64] git commit -m "saving/load
49030 rem mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
Reference in New Issue View Git Blame Copy Permalink