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

Added menu switching.

Browse Source
This commit is contained in:
Ian Skinner 2021-05-03 16:30:40 -04:00 committed by GitHub
parent af768a178e
commit b3f60c8dfa
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
prg.txt
View File

@ -74,16 +74,18 @@
3000 get k$:x=0 3000 get k$:x=0
3010 gosub 60000 3010 gosub 60000
3020 ifval(k$)>5then3050 3015 ifval(k$)>5then3065
3030 ifval(k$)<1then3050 3020 ifval(k$)<1then3065
3040 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")-5*(k$="5") 3025 x=val(k$)
3045 gosub 3500 : rem buying routine 3030 ifk$="{f3}"thenms=2
3050 gosub 50000 3035 ifk$="{f5}"thenms=3
3055 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) 3065 gosub 3500 : rem buying routine
3060 ifk$="+"thenss=ss+1 3070 gosub 50000
3070 ifk$="-"thenss=ss-1 3075 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc)
3080 ifss=0thenss=1 3080 ifk$="+"thenss=ss+1
3090 ifss=5thenss=4 3085 ifk$="-"thenss=ss-1
3090 ifss=0thenss=1
3095 ifss=5thenss=4
3110 ifss<>tsthenreturn 3110 ifss<>tsthenreturn
3120 ifms<>tmthenreturn 3120 ifms<>tmthenreturn
3130 goto 3000 3130 goto 3000