From e12255cc62852dc2f69d4517ebfb3dd771bceb15 Mon Sep 17 00:00:00 2001 From: IanSkinner1982 Date: Tue, 16 Feb 2021 14:56:36 -0500 Subject: [PATCH] Remaking everything. Only the main menu is done. Nothing else works. --- README.md | 44 +----- build/cookie.prg | Bin 6849 -> 2220 bytes build/cookie.prg.out.prg | Bin 5924 -> 2080 bytes build/testmenu.prg | Bin 2391 -> 35 bytes build/testmenu.prg.out.prg | Bin 2144 -> 4 bytes prg.txt | 303 +++++++------------------------------ testmenu.txt | 134 +--------------- 7 files changed, 62 insertions(+), 419 deletions(-) diff --git a/README.md b/README.md index 6c8845d..c1b8894 100644 --- a/README.md +++ b/README.md @@ -21,53 +21,15 @@

-Cookie Clicker C64 (or CC64 for short) is a Cookie clicker clone for the Commodore 64. +Cookie Clicker C64 (or CC64 for short) is a WIP Cookie clicker clone for the Commodore 64. -## How to play : -- Press the space bar to 'click' for cookies. - -- Buy/select items by pressing the letter beside them. (the one in brackets) - -## Saves: - -Saves must be named cc64.sav and placed in the same directory as cookie.prg. (to copy the save onto a d64 file, use DiskImagery64 or another disk editor.) -
Currently saves are only available in the nightly builds. - - -### Save file format: - -

- Stop key flag -
Cookies -
Cookie gain -
Cursor amount -
Grandma amount -
Farm amount -
Mine amount -
Player name -
-
The stop key flag must be `0` or `1`. -
`0` will prevent the player from stoping the program, and `1` allows the player to stop the program. - -### Example save file: - -
0 -
3426597 -
0.9823 -
230 -
54 -
32 -
1 -
IANSKINNER1982

- -## Credits and Notes Credits: -- [@Orteil](https://orteil.dashnet.org/) (for making the original cookie clicker game) +- [@Orteil](https://orteil.dashnet.org/) for making the original cookie clicker game +- [@drskinner](https://github.com/drskinner/) Notes: -- Due to the way I have everything set up, some of my commits will appear as commits by [@drskinner](https://github.com/drskinner/) - Editing program lines larger than 80 characters on the C64 (or on an emulator) will result in parts of them being deleted diff --git a/build/cookie.prg b/build/cookie.prg index f3caea4e3861349d4bc0a03234ace504ae09f0ac..4c1e12c4e0397a65d3eb84a1932ae3ff172dbe31 100644 GIT binary patch literal 2220 zcmb7_O=uHA6o6k_Yc|PdlU5NAwv0o;Dr?-`wE0s?lkILA(`G|9ttcuYBH}@cy?F8< zy%ZI-_J-LCOOs}mnH+ZByziSgv+PW2 zgk}NY653j@5Ki``d%AY%mX%2x!CXFtK^Hu59YtmO!@3@B3)+c(*_QJdtuz=EHo{O; zHr4nfimnVhc3@O!h4aYlDJkeSGS!l*MdPMcYS-dssHDb1FePXVP|JX}7zH9Kyb<=W zyvFiMx&Bo!Svs^Ty(0VEIhY8yD|EdRktkWWMxHTEHbcNb4DtHTK!4+sGS11jFuAP{dy}-NSiTeyu zrYl}sWxSN0Cc-E8IX+>F=K>M#Ef-ySKCGy?szR@4oUg)J&m^C4-*cBwc;}ho6B@iv z`Gll*hEEvuzUC8ddf)O1bKVbp!g}!wpAZoj`GgbVx*D#pwJ1t_!mPNNPxvWfK0)@$ ze8M4Lm`}Lu>!deqs?pt4g9D)e}b{o_f|L0U4AG4lH{*wV+kD=1~7i%3%xMMiK~`c^lLR1&~| z^vXr=N4hGz&}W)3F3r1WRZOl_T%Z%JX;_BG(tB5t62_V=9U#QK^qCR16Y)#>!3f7H z&Hh^9ZA2FgTK=*RXzk?BudztaKF~V^#3;qs9^i?fG zs)&JZMwm`SFp&QbkqaDTMAa$iUQP#&GorgHLWt4803#gV`nAB3g&Qc-0(Sx@7lu)o Jd`Sub`~fV!>lgq4 literal 6849 zcmbtZ4{RIN8Gju$P12^Z^RH2Fk*lj5WUMO^ z?%{(%G{z($*c}_|?&5>p(b!h1OPVYzR8mu_7Nm+w2jvl+YVwdQ8f2oXhCD%gg80Wt zQg<|@i^D-ZsBtuZ#pqTr7vnlL`em9J&~$^Q1{9f`s;VP*_XPF6ylJU`P&L7DP%eT~ zG8L6LaaK2yCuvWqz5N-nQok$>>Qpz>A*4+cDKSY_S9{17s`q7i`V1Xg)zcH~3dhD) z^@f8&Zv;{NYE=nRVYQk_ke^lii6mwDn3Tku2)88O5_n59$!O1VJQqt_zkLck>uOq7 z6`3Ow)nO9X+p{nGg;fFYrj*fiRiklrtwIh|UrsdkF5GK-rwt_g4Ki1qASn~rWk;su zgh9?#4-rYo3SBWNoE3N=7Rd_iH<}f~JkOK=R$oshxa|!b5o+GO2&M7U)0M8Q?Zq*U ze7EK!K#Wg0=!lx3{pfhg+g(fHo!Jn-6rk|Lk( zKSv%|+;*$2mxXSkwrQo#orIQ7W1+p-C!&1!f(x+{hTuu3w0In2q z@6x??M84#_P%>G5xAes?x1So*Wy2UylDc0H;2?W{>5PdO4u^U}{MUp~ZU|a+OpRrR zV1C7A-JfBI*1B0lyjr|A*q-*;MmTcL%7g zFk`A=$tR!I-L+^39c+(nfm@bx9J~^GdwEjpydUgA$5GUU!I%=C^ASraF(m{G((QcQ z(j}QLf`)_6XDwxdDS-kd-*RRxWtu6w0DZgjprzAM2eqK(gU+LiAa^iC&Ah3!sHES zw8|_%AfGs|sH%it;Oeik@E+HA)fOsA`(eFD-vGa@bo%tkxz|q4k=3r9W_i0YnkKVS za#x6tVx*VET>=?#Jy)@cyIlLq-xc>aOdIlq>i{!zxgIOJpw$=a9%&vkJ%Yx-^$>MgEan2;oqtE1joUCAB6`lj-C* zK8A!LHhr_cz1s5ZkLs_hHa&}jE6@1EvDugA$VB~(Il6Yf-Iz9|k?#xj8_GFZ-G8S3 z$K~(J`8pal+WA%>ofe6+VN;HDsA0w;jhRw`_0c0IPs|auVK&DaU+0E|fEix`S>M#~ zdO0(T^}`K+E`L|f`f$V9GS(HSCq#0*;e#CYGYwDHF@NK1e1?vacN=!qv4uk5$jZj& z>#Ws`6$aCaRegc+`I^Q<05>s}?5q6geD7S+9L$4q&MR>p`hkN9a!s=Urk0<-#I~e+wl{YdYOrAC$wq1K zyxhFThRW4eoNhqxu=#2BFGoIYzS54ddeQb%8e2baHk_km;WE5$ST^jO!o4r#7j#-p zr`7mgnNA&CH2tnwbsmbpyB9&KUEMgZ6|Kbt2?L>Ss#Et{CR!^&U!M=1v&+w#bkd?CCS{6F(y2AAi+w{WddJoJ!F=efY5inAbZ%`WejI9# z8?tV|49HNwQPD$4=gHO@1YF3_c?!&5Yi(rZm$vMSp22+K3XdPML2W=WE`0p=uJF$v z^!*j#`GcNXaryi~r&c7G3mo#g0i&>N_~kG1GrIVqwxRjBINbJ)`MCJoZR^3j@;1u8 z7Qr^^hi!*1-GLhr+-q=<1>(X@9%y^@Ql{wx737P!n3ElCr%a`8DIoxp18r}b%9N!< z`0=)PO=a3r!mfn8-S&~Gluae& z`}5Eis-&##M40d5$uHeioe({@ZEKS?P1Ry%xrVCJl&T~hT&&=q&A=(jlb!C`&YV~N z;I0R>sL5;>q-Qkw>(oEesRTH3(!H#+fPDtAU0via?zT?m+7W0msCszvFZU%_9FP87 z=;1r@6cX6RHk&HW6NehMJJxCgxW#5m3XO|~7z%|rvc{uy=1+0gK+an@$X&~kE8*=p z9@7%TvkoOmBG-Dp!=xm+!E-Z{L~@(wR+M0eaHr=ElpyE3*Yi`9Aivn=xeF!WMJ7D= zbi&~++3UF)fOXhAgA%a5++h0hYvRe{Thz!{TQ;a7@CG(fK4uAPiqpDf7L z+zkN0;m%#v&gD`7l!HAS`2ly^v@erL t;Ia$DE0N0R{dB+}hq!wu$GRf|e0hN{P7(M56T#mI`xSb7f)PT<{{UCjuiO9t diff --git a/build/cookie.prg.out.prg b/build/cookie.prg.out.prg index 55e92d05d915ed72c78404a60f0dedffd16fe61d..fea8c526e48f305dc3229df6e0f8c19b78ca3fd7 100644 GIT binary patch literal 2080 zcmb7^PiWIn9LImt73Q>C>tF|^5FZ1l#F9Vjn#PN5Olql1q%RJ{qhoh3o&+xP6>G@wRyq1QG9E#NP|=l_fOFOApESeZQal@(q0%n>aWD@W4{p zk2ucaLYdZ=RjPIf%%gMFQa#;%Xn}`f-8&s=Pdq)+4a@e7sAAZj8R<0>E^t@h;V#se zTh-wTHw|WLN$?)`%%L~L-k{ZAtZ3{3`c(@b#K3dSP(2gAqt~R7Za4h7h|plk4Se@7 zCH4~2rSw7Iz#f3Rq<8zvyW|lirBENpacIZLKuI2H&D{Y4mt}$HG4Myz)fkLqf zUu7puPqNzSXHM%K9Ztvs7iEFRvcP9qV0^D+>543{Dhu>wf%me&Z&~2zKFPOqUKY46 z3v9>&zhr?!`M7jWSvJbGvUW@_YwXY8`^S#x#K>l9lfF!8E8S-206tEf_BTL1UBNO zBCZkq^1-KJ0!uXNZMSodz&0-4YSJ5q3g7Z$u%^L}{4Tf&g(=p3rbzG`NkYEolP98r z!BQ;YCM~Wo5sC!ON?a0&%qe$7qLp=zw<6(ZCALJOnU(k>5+ef&c2TBz+srNvk;v?_ zA`)juj=?F{M8eBTJpFHCQzS;-f_3>R5~oH+Ffmo&Z8P8cY+*M%YR^HbFb-=b0Q?2; C7q#;M literal 5924 zcmbtYYiuJ|6+T;VyWO^NyvaV|#O~eOw6%lRJ7bR>$6HY*5XR4O4)rQro^(zKS8 z*NW_>;;qPTGwfF3QhmHdC7Q2T&*>`aX04*vsyc<25MMCITfdFTlW}OHW^gSv6^A!b zD~q-aHonJ(l3Q{nuccbDgrlWfGJh&9IVDLF{1+|O=`%wVPTeh}wYRqWT`f<;4GNEQ z#9BK*&ea-ZRz0H=A`$O}ZCb-HYer0q6SCH(@Er%E)oODk-SnDs88K8-;Wci!!g}Aq zGU8sW_xD8a8y=pW;#NSbnf1IFlp!8E#JpZ>chRtaUE>BEc znQ&k{RFa(mY@~}`6a!sGd*5hlzG(fzgAouHV~^D_UpUS`eHcCjCx?>7&yP8AuNwu2 z)Gipa7e@HgXOyQp5FYm#st@Ls4vgqt+?`D{D>zz5l+vJ;G6!Jce8J=ntHunsus$zILm|A{gyL#UA2!LfI;R`w2!+q_ z)|IyBE$bA!myqWK0q=x3@!*30rFanmGo4idUL809%hr$0r&B5TxTY}E|>Aq{^U z_z+y38_zG#Vf~;@S%P;5J`7wVsHOmd0ikNBDi93bDbymWS%?Pj66y@9IXD?SDAWpV zrX+YIc(+hZR27&G9)j;eEy!z|rd`*H@C8)X=}?II?^Fo-^O&Z^;e7BOSd!rz!FyRP zM0**Y+rj*5@IGe#VsHSKHEm1IG-dd`J=O-RZ^f2Yyq=U4R!}t+yL)Gc?gj^YFzcKF zOk_A^nT0~ncURLt8;<_G;^< zbLyX(ogNFq-B!lGc2sz}u?6PdzQDN+&XwYxU^j>YWWU%mE3^I44CC1D#lwo=JH6VvIUYMK-1Ktf zayQW#6{3faFrtaWM>$aiX8DfAOJsh48KUEYj$}zz}oS9iWdXahEN&uIe0xdkZ$A<3#rezMaB_UW1A9 z#X7=^tp{uuYHJiWJ1~8!q_0qHA?6aahmP?{$+G0R1b@IE`3i`$GBn(4l5KZ72XPCl zZyY|k6T#ZrCtMs>bXpDC5~&9_Y5FgGjaT&Y^sjm_8fGkUo;U(u`eO&f>;`(oJG zE|)Ycy&KzEWfS{J*3Z`A*GGEOpH@-TT; zc9L*4M(4p}+}*vfxrXL-Vea;^gM{W6E%QLRrWQ!7yeplT_DARM`=c{_T+D5tqE^+S zPFRpkV!gY5Pgry`0oZGF&RhNayXvK5@7FBz@7Hy+j@jNIv3lPKF*>*QN9VxEzEU}5 znFsW75DLICy}oy+^9^C~y*zfJePx42Dzb0qBD?xwQv_Qyna&1L26!%h;}DAQX-Y9k;kk$|Rf!-!F6>^~@y5VIuT8)2Co6d;*qm zoG*tdTVg_i`LeE>I>BX2H;78A`XUj_fvga1Ry9-&8%$DB&&KlGig&zdw z>h17D2vZH6Z@tZip+8Du=T24Q6#f%_*c+$x6dW9l3BS(Krjmle(Kx!50WvxP?Cc3y z<(dA`(T^}U1B*t9eSq zC?egj;bWcJY+Sx8_ET<7Anp98+uh+=UBG%U;tonzCi0$AzX(IHtRDU5ZHFd{lC< z7Li3h%CwnDLo<>RY6{g1yc|gjHO;>~e-%++2|*u3GXK}P>YdRn5B3AmN#~TeE00e` z?L5v3NrFdhVb&HFY~ka!@VG5}9tF&U^U)k1>+8`emY)>9hrjnqfM_0;B=}MEv@rV# znyur(uQC}w4ZlQXft>@Vl{nl$rC=Wl-)3e!&FI27wQCEL6FCYWu-3x(Y3H9BjVk8B d{YW93mhq4pPrTE3Se<6iG=IudxkMTO{s(}}YR~`x diff --git a/build/testmenu.prg b/build/testmenu.prg index 701b1b315a19d99bdf0627c98e41bec0596d4a46..4ba2c255179667e8f205358c2d2f60f0a9e8f2f5 100644 GIT binary patch delta 8 PcmcaEq&z{9iGcwC3u*zt literal 2391 zcmaJ@eP~-%6h8y4$;;QPFp%N&ddajMv3oC{ubGp*Brh*nllQWhm#%Y*%Fr=&6B+Y^ zIYgxe$FQ@CwjE{b{Mdx9>)PT#*dLpSbs{K!3_%?O*_Z*@C{w4D;<@*wA!ut_a)0@q z-@W(TbI&>NEprhUz(I14Z4#QQsA;{C`u?6P7WqI!y&md z0y)?Ek%NQ@^M+2C7#??R7#WO3!ip41 z3mSz1*Jd=P)A49>&4U!)b3Ked2Ua>ClB00OwF8-yY4Y82TA{?Zr0}V07aA!1=-Q1V zAw|_tb&ZtOZmpc8@QZ67H_y3Fax)pC*h$Jx-WCX4tK3Sll$q+%;C&e>N5z@dKydGXxPtZ zP#ALGz?qFOjJutF-d~6?%ZKcWax1cl_jLUb#HYji%}6qU2*Sq zD2-83M*ZdPb*LPpBq<_+SLk;r8>u*oB)CHuI=mmvY^&8m+i24@WGHkA_an2(%JXY5 zQya9jT}~2d6={>!$n6xK5W=HJh!SFdbiI^hXX(Jp2$e&dDC`yzqeDtaf)|Ac9MCJM z4tQP2I^Z3l%K=A(k^?>z9&*6P!XpgOvRTwj1JmZ5@Yv`mQQ%kMY369j!mL`{J9(UW z_q*`IC_9|2NN}6y(pb~saJAK*%g7W=HNz5=We~~c3tIE>a-Q1Q634SBSe|QRy-KK@ zf~}q#45ibs-SY=WIy~dK$&m_sJ%2N#tI+G2V<@Xazh|DIq6)(v*9k-^BM3(kvh&S& z?mdCNF5(*AKgM3>vH!{=p^CzFPZCG6MXnOe=o0DDHj`{Y)srj}DSFrH&2T}uiWO*f z<*`zDlJYN1KL~pbE{H4$h_2?1x`?KAD0_RjAc}&DRW>c67R`!bJ6ohx*yG*C1+gm8 zE!D^r)g}eSlfUiV$p!H$$*NYd$;zC>fSmR|#|4QhDdr9BUjmHN58ju#K&g_H+ND{W ziJ=zpwwzP2@XdR_8)t#&tU3k9niOf{t%0O-s-bITOo|rYMO0B(<-3Ywsi3K44b7&B zgK7}7WamwT!aCn9nw{EQ$ZFQBEZ^LCbCE`4Q3nX*Sn*-0l9E2`r8X^I!3QKGBFpS+j{sy46BO!!loI8cBJbna#F?>i=e< zk6=P|`+u4^fM8N4#|f^%&-;}B3MZ$fCh~dzb+$=V!U`PlhfXcF357%c_^CdEiFnMv z{?vl}tpANA+5Y z64=?07XxROkaq_@Lpdh!w!qg7`Mv;|T731s!0M?!d}_f!AUd_+%vhjz3He8Xew4H1 zJ{K5j=zk7eMg79_vi{gyxsr5rP?!(=hPMA{*>{SwQ%m$TY}xmUe@jNIfn37 zlH#&yhIGh?EgY#}h#rP8Og*B=5Q~7goFP2iE^!4z%7%Q6n=q1<0QKY&?fw)8Kw@kVM+JLvDdDG7~A8uiM{LWZW5x%a03Jq66JtU zxgb%b&_{6pFTC6&-NI#YM+189|cWL;W;T*D*0ULBv%n5!rs~rlz^@Wf}aS#e+GeqI9zQC)ESol%kC>%C(C7 z^fgMmHk?h}36fN4w+J7m4k;GW?h_V#p1Mm>PP>)`yQ#Yst<$av-=+>L7SnDn2Yabe z*s|f*R0^NhuXB~czKmo&Y{)tX<)?Wij!MLwCmHjkm8CE<2JoqCh#&ftSrV}>V6lzJ zSf@Zx{Ma>2$o7EU1E+eR+5@c~SnGio6rfSi;(?EC@d{q}%!O@SFwAy{O+%B|dZC%~ z8SAPD?84X>Y*}z+YlIv_C16!o@by-$x%po_w` zbdyc1L$FQTWSMV}T9bJt(OwjT`zkTm9UQA*xqo`RnfgVQq*k2UHWEXj zLs|`=|I2`7I+GaO4k@!`9&QkyweVf3EJXD#CXQl<$SD%X0LjRCCzU$$Jsx2`f_9IhIixl$Y4<9+h%^UH?LI~GNb|6%9Z|G^6x%{Os;G;TYQh`Zw4z0% zHoT?Hz!naBSGylyMUq#eUuzG*xv0Erb+<6~ zAG8Mr`_h!`C+#7e8yjwF4PY-c^BAnP{m-Kn*{6>Fth;vUkvD>ceC#3UtJu}34 zOE^W_?dw@-ot}IQt-T{N`42TaOBNO=6eh)d{LkSTqv7Cl1`p3?QN+U&U)PHYVaZP? z$b&Z%#NZu;uq5v(gehN82vfSGkO=t-LOf@F#04Y%PgsMe%rBFVV|H+3(m?Arg_~l} zUdGB5vZr7l$x8a#UdG8~;qVkdRS>I?h2u!hQ*naPl{8hyjzES>p(M0w`c(gyhO0Pn d9lX4gcP#wEfZq%p{Nmt<)sd@JbPWdp{sF`L+av%0 diff --git a/prg.txt b/prg.txt index 624c279..7968739 100755 --- a/prg.txt +++ b/prg.txt @@ -1,250 +1,63 @@ 0 rem !to "build/cookie.prg" -5 poke53280,14:poke53281,6:poke650,64:rem screen color, no keys repeat - -10 open 8,8,8,"cc64.sav,s,r" : rem reads the first line -15 input#8,sb : rem of the save file and -20 close 8 : rem checks stop key flag -30 if sb=0 then poke788,52:poke792,193: rem 0=on, 1=off - -40 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone" -50 ds$=chr$(17):rem cursor down -60 rs$=chr$(29):rem cursor right -70 ls$=chr$(157):rem cursor left -80 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 -1025 print"{up}{grey2}B{wht} cookies {grey2}B{wht}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{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 -1075 print"{up}{grey2}B{wht} {grey2}B{wht}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{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 " -1310 print"{up}B{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B{wht} 15 {grey2}B" -1320 print"{grey2}B {grey2}{$ab}CCCCCCCCCCC{$b3}" - -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 {wht}manage saves (m) {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 print"B {yel}testmenu (t) {grey1}B" -10250 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" -10260 print"B B" -10270 rem print"B B" -10280 rem print"B 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$="m"then goto 12300 -11250 ifk$="e"then goto 15000 -11260 ifk$="t"then goto 40000 -11270 goto 11200 - -12000 print"{clear}{down}{wht}please enter a new name (14 characters max):" -12010 input nn$ -12020 nl=len(nn$) -12030 if nl<15 then 12050 -12040 print"{up}{up}{up}{red}error: name too long{wht}":getk$:ifk$=""goto12040 -12045 goto 12000 -12050 print"are you sure? (y/n)" -12055 getk$:ifk$=""then12055 -12060 ifk$="y"then 12080 -12070 goto 10100 -12080 bn$=nn$:goto10100 - -12100 print"{clear}{wht}writing save data..." -12110 open 8,8,8,"@0:cc64.sav,s,w" -12110 print#8,sb -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 print#8,bn$ -12165 close 8 -12170 print"saving complete" -12180 goto 10000 - -12200 print"{clear}{wht}loading save data..." -12210 open 8,8,8,"cc64.sav,s,r" -12215 input#8,sb -12220 input#8,cc -12222 input#8,cg -12224 input#8,ca -12226 input#8,ga -12228 input#8,fa -12230 input#8,ma -12235 input#8,bn$ -12260 close 8 -12270 print"loading complete" -12275 poke53280,14:poke53281,6 -12280 goto 10000 +10 open 8,8,8,"cc64.sav,s,r" +20 input#8,f1:close 8 +40 if fl=0 then f1=128:f2=52:f3=193 +50 if fl=1 then f1=128:f2=49:f3=71 +60 if fl=2 then f1=0:f2=52:f3=193 +70 if fl=3 then f1=0:f2=49:f3=71 +80 poke650,f1:poke788,f2:poke792,f3 +90 gs=1:bn$="someone's":mn$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +100 rem stick news here. +110 print"{brown}{clear}UCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCCCCCCCCCCCCI"; +120 print"B B B"; +130 print"B B B"; +140 print"{$ab}CCCCCCCCCCCCCCC{$b3} B"; +150 print"B B B"; +160 print"B B B"; +170 print"B B B"; +180 print"B B B"; +190 print"B B B"; +200 print"B B B"; +210 print"B B B"; +220 print"B B B"; +230 print"B B B"; +240 print"B B B"; +250 print"B B B"; +260 print"B B B"; +270 print"B B B"; +280 print"B B B"; +290 print"B B B"; +300 print"B B B"; +310 print"B B B"; +320 print"B{wht} v2.9.0-1.0 {brown}B B"; +330 print"JCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCCCCCCCCCCCCK"; +340 print"{wht} {rvon}f1{rvof} store {rvon}f3{rvof} options {rvon}f5{rvof} stats {rvon}f7{rvof} ascend"; +500 print"{home}{down}{right}"int(cc) +510 print"{brown}B{wht} cookies" +520 print"{down}{brown}B{wht}"bn$ +530 print"{brown}B{wht} bakery" +1000 on gs gosub 2000, +1010 goto 1000 +2000 rem store stuff +2010 print"{home}{down}"mn$"t ", +2020 printmn$"e ", +2030 printmn$"s ", +2040 printmn$"t ", +2050 printmn$"i ", +2060 printmn$"n ", +2070 printmn$"g ", +2080 printmn$" ", +2090 printmn$"s ", +2100 printmn$"t ", +2110 printmn$"u ", +2120 printmn$"f ", +2130 printmn$"f ", +2140 printmn$" ", +2150 printmn$"h ", +2160 printmn$"i ", - - - - -12300 print"{home}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}*CCCCCCCCCCCCCCCCCCCCCCCCCCCCC*" -12310 print"{right}{right}{right}{right}B (1) erase current save B" -12320 print"{right}{right}{right}{right}B (2) erase cc64.sav B" -12330 rem print"{right}{right}{right}{right}B (3) create 2nd save B" -12340 rem print"{right}{right}{right}{right}B (4) erase 2nd save B" -12350 print"{right}{right}{right}{right}B (3) exit B" -12360 print"{right}{right}{right}{right}*CCCCCCCCCCCCCCCCCCCCCCCCCCCCC*" -12400 getk$:ifk$=""then12400 -12410 ifk$="1"then 12500 -12420 ifk$="2"then 12600 -12450 ifk$="3"then 10000 -12460 goto 12400 - -12500 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone" -12510 goto 10000 - -12600 open 8,8,8,"@0:cc64.sav,s,w" -12610 print#8,sb -12610 print#8,0 -12620 print#8,0 -12630 print#8,0 -12640 print#8,0 -12650 print#8,0 -12660 print#8,0 -12670 close 8 -12680 goto 10000 - - - - - - -15000 print"{clear}" -15010 poke53280,14:poke53281,6 -15030 goto 1000 - -40000 print"{clear}" -40010 print chr$(147); -40020 q$=chr$(34) -40030 d$=chr$(17) -40040 print"load"q$"testmenu"q$",8" -40050 printd$;d$;d$;d$;"run" -40060 rem load keyboard buffer and flush it -40070 poke631,19:poke632,13:poke633,13:poke198,3 \ No newline at end of file +60000 get k$ +60010 goto 60000 diff --git a/testmenu.txt b/testmenu.txt index ba225fa..09adad9 100644 --- a/testmenu.txt +++ b/testmenu.txt @@ -1,133 +1 @@ -0 rem !to "build/testmenu.prg" -5 poke788,52:poke792,193 -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"booting help menu" -40045 print"" -40050 print" manage saves:" -40060 print"" -40110 print" delete [d]" -40130 print" restore [r]" -40140 print" edit [e]" -40150 print"" -40160 print" others:" -40165 print"" -40170 print" help [h]" -40160 print" exit [t]" -40170 print"" -40180 print"cc64:/>" -40500 getk$:ifk$=""then40500 -40520 ifk$="d"then 41000 -40540 ifk$="r"then 43000 -40570 ifk$="e"then 44000 -40580 ifk$="h"then 40030 -40590 ifk$="t"then 60000 -40600 goto 40500 - -41000 print"{up}{right}{right}{right}{right}{right}{right}{right} d" -41005 print"writing objects: 0% (0/1)" -41010 open 8,8,8,"@0:cc64.sav,s,w" -41015 print#8,0 -41020 print#8,0 -41025 print#8,0 -41030 print#8,0 -41035 print#8,0 -41040 print#8,0 -41050 print#8,0 -41055 print#8,"someone" -41060 close 8 -41070 print"{up}writing objects: 0% (1/1)" -41080 goto 40180 - -44000 print"{up}{right}{right}{right}{right}{right}{right}{right} e" -44005 print"loading save file: 0% (0/1)" -44010 open 8,8,8,"@0:cc64.sav,s,r" -44015 input#8,sb -44020 input#8,cc -44022 input#8,cg -44024 input#8,ca -44026 input#8,ga -44028 input#8,fa -44030 input#8,ma -44040 input#8,bn$ -44040 close 8 -44070 print"{up}loading save file: 100% (1/1)" -44080 print"" -44090 print" [1] stop key flag: "sb -44100 print" [2] cookies: "cc -44110 print" [3] cookie gain: "cg -44120 print" [4] cursor amount: "ca -44130 print" [5] grandma amount: "ga -44140 print" [6] farm amount: "fa -44150 print" [7] mine amount: "ma -44160 print" [8] bakery name: "bn$ -44500 print" [9] exit menu (saves changes)" -44510 print"" -44520 print"please choose an option" -44530 print"cc64:/cc64.sav/>" -44540 getk$:ifk$=""then44540 -44550 if k$="1"then 45000 -44560 if k$="2"then 45100 -44570 if k$="3"then 45200 -44580 if k$="4"then 45300 -44590 if k$="5"then 45400 -44600 if k$="6"then 45500 -44610 if k$="7"then 45600 -44620 if k$="8"then 45700 -44630 if k$="9"then 45800 -44999 goto 43540 - -45000 print"please set a value (0=on:1=off) -45010 input sb -45020 if sb>1 then goto 45000 -45030 if sb<0 then goto 45000 -45040 goto 44080 -45100 print"please set a value" -45110 input cc -45120 goto 44080 -45200 print"please set a value" -45210 input cg -45220 goto 44080 -45300 print"please set a value" -45310 input ca -45320 goto 44080 -45400 print"please set a value" -45410 input ga -45420 goto 44080 -45500 print"please set a value" -45510 input fa -45520 goto 44080 -45600 print"please set a value" -45610 input ma -45620 goto 44080 -45700 print"please set a value" -45710 input bn$ -45720 goto 44080 - - -45800 print"{up}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right} .." -45805 print"writing objects: 0% (0/1)" -45810 open 8,8,8,"@0:cc64.sav,s,w" -45815 print#8,sb -45820 print#8,cc -45825 print#8,cg -45830 print#8,ca -45835 print#8,ga -45840 print#8,fa -45845 print#8,ma -45850 print#8,bn$ -45855 close 8 -45860 print"{up}writing objects: 100% (1/1)" -45865 goto 40180 - -60000 print"{clear}" -60010 print chr$(147); -60020 q$=chr$(34) -60030 d$=chr$(17) -60040 print"load"q$"cookie"q$",8" -60050 printd$;d$;d$;d$;"run" -60060 rem load keyboard buffer and flush it -60070 poke631,19:poke632,13:poke633,13:poke198,3 \ No newline at end of file +0 rem !to "build/testmenu.prg" \ No newline at end of file