mirror of
https://github.com/rvtr/Cookie-Clicker-C64.git
synced 2025-10-31 07:41:12 -04:00
updated prg.txt
This commit is contained in:
Myles Skinner
parent
02bc7af517
commit
d0b3337e34
BIN
build/cookie.prg
BIN
build/cookie.prg
Binary file not shown.
Binary file not shown.
85
prg.txt
85
prg.txt
@ -1,8 +1,9 @@
|
||||
0 rem !to "build/cookie.prg"
|
||||
10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0":aa=1
|
||||
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*"
|
||||
@ -24,10 +25,10 @@
|
||||
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"
|
||||
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 v1.3.0 B{grey1}upgrades(u){grey2}B"
|
||||
630 cl$(22)="B v2.0.1 B{grey1}upgrades(u){grey2}B"
|
||||
630 cl$(23)="*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
|
||||
|
||||
700 print cl$(0)
|
||||
@ -41,15 +42,15 @@
|
||||
780 print cl$(8)"{wht}cost: {grey2}B"
|
||||
790 print cl$(9)"{wht}"c2" {grey2}B"
|
||||
800 print cl$(10)
|
||||
810 print cl$(11)
|
||||
820 print cl$(12)
|
||||
830 print cl$(13)
|
||||
840 print cl$(14)
|
||||
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)
|
||||
870 print cl$(17)
|
||||
880 print cl$(18)
|
||||
890 print cl$(19)
|
||||
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)
|
||||
@ -58,7 +59,7 @@
|
||||
1000 if ft$="0" then 10000
|
||||
1010 if mt$="0" then 11000
|
||||
|
||||
1410 get k$:if k$= "" then 1410 rem then 1900
|
||||
1410 get k$:if k$= "" then 1900
|
||||
|
||||
1415 if k$=" " then 2000
|
||||
1420 if k$="c" then 3000
|
||||
@ -68,8 +69,7 @@
|
||||
|
||||
1890 rem start of auto add
|
||||
|
||||
|
||||
1900 cc=cc+cg
|
||||
1900 rem cc=cc+cg
|
||||
1910 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
||||
1920 goto 1000
|
||||
|
||||
@ -77,7 +77,7 @@
|
||||
1990 rem start of 'clicking'
|
||||
|
||||
|
||||
2000 cc=cc+aa
|
||||
2000 cc=cc+1
|
||||
2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
||||
2020 goto 1000
|
||||
|
||||
@ -88,12 +88,12 @@
|
||||
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$cl$(5)ca
|
||||
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$cl$(5)"{wht}"ca
|
||||
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
|
||||
|
||||
@ -104,8 +104,8 @@
|
||||
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
|
||||
3020 ga=ga+1
|
||||
3025 print"{home}"ds$ds$ds$ds$ds$ds$ds$cl$(7)"{grey2}"cl$(10)"{wht}"ga
|
||||
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)
|
||||
@ -119,7 +119,7 @@
|
||||
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$"{grey2}"cl$(12)"{wht}"fa
|
||||
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)
|
||||
@ -133,7 +133,7 @@
|
||||
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$"{grey2}"cl$(20)"{wht}"ma
|
||||
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)
|
||||
@ -155,44 +155,25 @@
|
||||
10055 print cl$(13)
|
||||
10060 cl$(14)="B {brown}*{blk}*{brown}************{grey2} *CCCCCCCCCCC*"
|
||||
10065 print cl$(14)
|
||||
10170 goto 1010
|
||||
10070 goto 1010
|
||||
|
||||
|
||||
|
||||
11000 if cc<6000 then 1410
|
||||
11010 mt$="1"
|
||||
11020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}"cl$(16)"{wht}mine(m) {grey2}B"
|
||||
11030 printcl$(17)"{wht}"ma" {grey2}B"
|
||||
11040 printcl$(18)"{wht}cost: {grey2}B"
|
||||
11050 printcl$(19)"{wht}"c4" {grey2}B"
|
||||
11060 printcl$(20)
|
||||
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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
30010
|
||||
Loading…
Reference in New Issue
Block a user