mirror of
https://github.com/rvtr/Cookie-Clicker-C64.git
synced 2025-10-31 07:41:12 -04:00
179 lines
5.9 KiB
Plaintext
179 lines
5.9 KiB
Plaintext
0 rem !to "build/cookie.prg"
|
|
10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0"
|
|
20 c1=15:c2=100:c3=1100:c4=12000
|
|
50 ds$=chr$(17):rem cursor down
|
|
60 rs$=chr$(29):rem cursor right
|
|
65 ls$=chr$(157):rem cursor left
|
|
70 dim cl$(23)
|
|
|
|
400 cl$(0)="{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
|
|
410 cl$(1)="{grey2}B{wht} you have "
|
|
420 cl$(2)="{grey2}B{wht} cookies {grey2}B"
|
|
430 cl$(3)="*CCCCCCCCCCCCCCCCCCCCCCCCC*"
|
|
440 cl$(4)="B B"
|
|
450 cl$(5)="B *CCCCCCCCCCC*"
|
|
460 cl$(6)="B B"
|
|
470 cl$(7)="B B"
|
|
480 cl$(8)="B {brown}********{grey2} B"
|
|
490 cl$(9)="B {brown}*******{blk}**{brown}*{grey2} B"
|
|
500 cl$(10)="B {brown}***{blk}*{brown}********{grey2} *CCCCCCCCCCC*"
|
|
510 cl$(11)="B {brown}***{blk}**{brown}*********{grey2} B B"
|
|
520 cl$(12)="B {brown}********{blk}**{brown}****{grey2} B B"
|
|
530 cl$(13)="B {brown}********{blk}**{brown}****{grey2} B B"
|
|
540 cl$(14)="B {brown}**************{grey2} B B"
|
|
550 cl$(15)="B {brown}*{blk}*{brown}************{grey2} B B"
|
|
560 cl$(16)="B {brown}*************{brown}*{grey2} B B"
|
|
570 cl$(17)="B {brown}******{blk}**{brown}****{grey2} B B"
|
|
580 cl$(18)="B {brown}*****{blk}**{brown}***{grey2} B B"
|
|
590 cl$(19)="B {brown}********{grey2} B B"
|
|
600 cl$(20)="B *CCCCCCCCCCC*"
|
|
610 cl$(21)="B B{wht}settings(s){grey2}B"
|
|
630 cl$(22)="B v2.0.1 B{grey1}upgrades(u){grey2}B"
|
|
630 cl$(23)="*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
|
|
|
|
700 print cl$(0)
|
|
710 print cl$(1)int(cc)" {grey2}B{wht}cursor(c) {grey2}B"
|
|
720 print cl$(2)"{wht}"ca" {grey2}B"
|
|
730 print cl$(3)"{wht}cost: {grey2}B"
|
|
740 print cl$(4)"{wht}"c1" {grey2}B"
|
|
750 print cl$(5)
|
|
760 print cl$(6)"{wht}grandma(g) {grey2}B"
|
|
770 print cl$(7)"{wht}"ga" {grey2}B"
|
|
780 print cl$(8)"{wht}cost: {grey2}B"
|
|
790 print cl$(9)"{wht}"c2" {grey2}B"
|
|
800 print cl$(10)
|
|
810 print cl$(11):rem f
|
|
820 print cl$(12):rem f
|
|
830 print cl$(13):rem f
|
|
840 print cl$(14):rem f
|
|
850 print cl$(15)
|
|
860 print cl$(16):rem m
|
|
870 print cl$(17):rem m
|
|
880 print cl$(18):rem m
|
|
890 print cl$(19):rem m
|
|
900 print cl$(20)
|
|
910 print cl$(21)
|
|
920 print cl$(22)
|
|
940 print cl$(23)
|
|
|
|
1000 if ft$="0" then 10000
|
|
1010 if mt$="0" then 11000
|
|
|
|
1410 get k$:if k$= "" then 1900
|
|
|
|
1415 if k$=" " then 2000
|
|
1420 if k$="c" then 3000
|
|
1430 if k$="g" then 4000
|
|
1440 if k$="f" then 5000
|
|
1450 if k$="m" then 6000
|
|
|
|
1890 rem start of auto add
|
|
|
|
1900 rem cc=cc+cg
|
|
1910 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
1920 goto 1000
|
|
|
|
|
|
1990 rem start of 'clicking'
|
|
|
|
|
|
2000 cc=cc+1
|
|
2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
2020 goto 1000
|
|
|
|
|
|
2990 start of cursor
|
|
|
|
|
|
3000 if cc<c1 then 1000
|
|
3010 cc=cc-c1
|
|
3015 print"{home}"ds$"{grey2}B{wht} you have ":rem stops from messing up the counter
|
|
3025 print"{home}{grey2}"ds$ds$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$ca
|
|
3030 cg=cg+.05
|
|
3040 cc=cc+cg
|
|
3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
3060 ca=ca+1
|
|
3065 print"{home}{grey2}"ds$ds$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$"{wht}"ca
|
|
3070 print"{home}"ds$ds$
|
|
3075 goto 1000
|
|
|
|
|
|
3990 start of grandma
|
|
|
|
|
|
4000 if cc<c2 then 1000
|
|
4010 cc=cc-c2
|
|
4015 print"{home}"ds$"{grey2}B{wht} you have ":rem stops from messing up the counter
|
|
4020 ga=ga+1
|
|
4025 print"{home}"ds$ds$ds$ds$ds$ds$ds$"{wht}"rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$ga
|
|
4030 cg=cg+.05
|
|
4040 cc=cc+cg
|
|
4050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
4060 goto 1000
|
|
|
|
|
|
4990 start of farms
|
|
|
|
|
|
5000 if cc<c3 then 1000
|
|
5010 cc=cc-c3
|
|
5015 print"{home}"ds$"{grey2}B{wht} you have ":rem stops from messing up the counter
|
|
5020 fa=fa+1
|
|
5025 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$"{wht}"fa
|
|
5030 cg=cg+.06
|
|
5035 cc=cc+cg
|
|
5040 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
5050 goto 1000
|
|
|
|
|
|
5990 start of mines
|
|
|
|
|
|
6000 if cc<c4 then 1000
|
|
6010 cc=cc-c4
|
|
6015 print"{home}"ds$"{grey2}B{wht} you have ":rem stops from messing up the counter
|
|
6020 ma=ma+1
|
|
6025 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$rs$"{wht}"ma
|
|
6030 cg=cg+.1
|
|
6035 cc=cc+cg
|
|
6040 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
6050 goto 1000
|
|
|
|
|
|
9999 start of unlockable building text
|
|
|
|
|
|
10000 if cc<400 then 1010
|
|
10010 ft$="1"
|
|
10020 cl$(10)="{grey2}B {brown}***{blk}**{brown}*********{grey2} B{wht}farm(f) {grey2}B"
|
|
10025 print ds$ds$ds$ds$ds$ds$ds$ds$ds$cl$(10)
|
|
10030 cl$(11)="B {brown}********{blk}**{brown}****{grey2} B{wht} 0 {grey2}B"
|
|
10035 print cl$(11)
|
|
10040 cl$(12)="B {brown}********{blk}**{brown}****{grey2} B{wht}cost: {grey2}B"
|
|
10045 print cl$(12)
|
|
10050 cl$(13)="B {brown}**************{grey2} B{wht} 1100 {grey2}B"
|
|
10055 print cl$(13)
|
|
10060 cl$(14)="B {brown}*{blk}*{brown}************{grey2} *CCCCCCCCCCC*"
|
|
10065 print cl$(14)
|
|
10070 goto 1010
|
|
|
|
|
|
|
|
11000 if cc<6000 then 1410
|
|
11010 mt$="1"
|
|
11020 cl$(16)="{grey2}B {brown}*************{brown}*{grey2} B{wht}mine(m) {grey2}B"
|
|
11025 print ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$cl$(16)
|
|
11030 cl$(17)="B {brown}******{blk}**{brown}****{grey2} B{wht} 0 {grey2}B"
|
|
11035 print cl$(17)
|
|
11040 cl$(18)="B {brown}*****{blk}**{brown}***{grey2} B{wht}cost: {grey2}B"
|
|
11045 print cl$(18)
|
|
11050 cl$(19)="B {brown}********{grey2} B{wht} 12000 {grey2}B"
|
|
11055 print cl$(19)
|
|
11060 cl$(20)="B *CCCCCCCCCCC*"
|
|
11065 print cl$(20)
|
|
11070 goto 1410
|
|
|
|
|
|
|
|
30000 rem settings start here
|
|
30010 |