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

Update prg.txt

Browse Source
This commit is contained in:
Ian Skinner 2021-04-30 22:47:58 -04:00 committed by GitHub
parent b76b7be427
commit ff383ab690
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
prg.txt
View File

@ -50,13 +50,18 @@
2040 ifss=4theni=15:j=18 2040 ifss=4theni=15:j=18
2060 ts=ss 2060 ts=ss
2070 tm=ms 2070 tm=ms
2080 y=1 2090 gosub2300
2090 gosub2500
2100 goto2000 2100 goto2000
2300 forx=1to21 : rem clears the menu
2310 ifx=1then?"home"
2320 ?r1$""
2330 next
2340 gosub2500
2500 forx=itoj 2500 forx=itoj
2505 ifx=ithen?"{home}" 2505 ifx=ithen?"{home}"
2510 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) 2510 ?r1$"{up}{rvon}"right$(str$(y+1),1)"{rvof} "na$(x)
2520 ?r1$r2$"{up}"ia(x) 2520 ?r1$r2$"{up}"ia(x)
2530 ?r1$bd$(x) 2530 ?r1$bd$(x)
2540 ?r1$"{up}"pr(x) 2540 ?r1$"{up}"pr(x)
@ -67,24 +72,25 @@
2565 gosub 3000 2565 gosub 3000
2570 return 2570 return
3000 get k$ 3000 get k$:x=0
3010 gosub 60000 3010 gosub 60000
3020 ifval(k$)<5then3050 3020 ifval(k$)>5then3050
3030 ifval(k$)<1then3050 3030 ifval(k$)<1then3050
3040 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")-5*(k$="5") 3040 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")-5*(k$="5")
3045 gosub 3500 : rem buying routine
3050 gosub 50000 3050 gosub 50000
3055 ifk$=" "thencc=cc+1 3055 ifk$=" "thencc=cc+1
3060 ifk$="+"thenss=ss+1 3060 ifk$="+"thenss=ss+1
3070 ifk$="-"thenss=ss-1 3070 ifk$="-"thenss=ss-1
3080 ifss=0thenss=1 3080 ifss=0thenss=1
3090 ifss=5thenss=4 3090 ifss=5thenss=4
3000 ifx<>0thengosub3500 3110 ifss<>tsthenreturn
3010 ifss<>tsthenreturn
3120 ifms<>tmthenreturn 3120 ifms<>tmthenreturn
3130 goto 3000 3130 goto 3000
3500 y=i+x-1 3500 y=i+x
3510 if cc<pr(y)thenx=0:return 3505 y=y-1
3510 if cc<pr(y)then3610
3520 cc=cc-pr(y):cg(y)=cg(y)+bg(y):pr(y)=pr(y)*1.15 3520 cc=cc-pr(y):cg(y)=cg(y)+bg(y):pr(y)=pr(y)*1.15
3530 ifx=1then?"{home}"r1$r2$"{down}{down}"ia(y) 3530 ifx=1then?"{home}"r1$r2$"{down}{down}"ia(y)
3540 ifx=2then?"{home}"r1$r2$"{down}{down}{down}{down}{down}{down}"ia(y) 3540 ifx=2then?"{home}"r1$r2$"{down}{down}{down}{down}{down}{down}"ia(y)
@ -100,6 +106,7 @@
3620 return 3620 return
5000 ifms<>2thenreturn 5000 ifms<>2thenreturn
5005 ms=1:goto1
5010 tc=cs 5010 tc=cs
5020 tm=ms 5020 tm=ms
5030 gosub5100 5030 gosub5100