From e12255cc62852dc2f69d4517ebfb3dd771bceb15 Mon Sep 17 00:00:00 2001 From: IanSkinner1982 Date: Tue, 16 Feb 2021 14:56:36 -0500 Subject: [PATCH 01/37] 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 From 464d473407f7205eb351a49f6f6c016ae2255f8b Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 09:37:26 -0400 Subject: [PATCH 02/37] Added a better store routine (won't work yet) --- prg.txt | 59 ++++++++++++++++++++++++++++++++++++++------------------- 1 file changed, 39 insertions(+), 20 deletions(-) diff --git a/prg.txt b/prg.txt index 7968739..6653bfa 100755 --- a/prg.txt +++ b/prg.txt @@ -6,7 +6,8 @@ 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}" +90 gs=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +95 r2$="{right}{right}{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"; @@ -39,25 +40,43 @@ 1000 on gs gosub 2000, 1010 goto 1000 +2000 ifms<>1thenreturn +2010 ifss=1theni=0:j=3 +2020 ifss=2theni=4:j=7 +2030 ifss=3theni=8:j=12 +2040 ifss=4theni=13:j=16 +2050 ifss=5theni=17:j=19 +2060 ts=ss +2070 tm=ms +2080 gosub2500 +2090 goto2000 +2500 forx=itoj +2510 ?ml$na$(x)ia(x) +2520 ?ml$bd$(x) +2530 ?ml$pr(x)"{down}" +2540 next +2550 gosub +2560 return -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 ", +3000 get k$ +3010 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4") +3020 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}") +3030 ifk$="+"thenss=ss+1 +3040 ifk$="-"thenss=ss-1 +3050 ifss=0thenss=1 +3060 ifss=6thenss=5 +3070 on x gosub 3500, +3080 ifss<>tsthenreturn +3090 isms<>tmthenreturn +3100 goto 3000 -60000 get k$ -60010 goto 60000 +3500 x=0:y=.1 +3510 gosub 100 +3520 printms$"{down3}"pr(x) +3530 return + +10000 ifx=1then?r1$r2$"{down}{down}"ia(x) +10010 ifx=2then?r1$r2$"{down}{down}{down}{down}{down}{down}{down}"ia(x) +10020 ifx=3then?r1$r2$"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"ia(x) +10030 ifx=4then?r1$r2$"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"ia(x) From 4a176da0a1525efcfd0bfeb8a28cf11320c9b9bc Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 09:40:01 -0400 Subject: [PATCH 03/37] Create storedat --- storedat | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 storedat diff --git a/storedat b/storedat new file mode 100644 index 0000000..93a62f4 --- /dev/null +++ b/storedat @@ -0,0 +1,20 @@ +Name 1 +Amount 1 +Desc 1 +Price 1 +Name 2 +Amount 2 +Desc 2 +Price 2 +Name 3 +Amount 3 +Desc 3 +Price 3 +Name 4 +Amount 4 +Desc 4 +Price 4 +Name 5 +Amount 5 +Desc 5 +Price 5 From d32b1796c6c1eed69f4b4ab663892fb563772ec2 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 19:06:38 -0400 Subject: [PATCH 04/37] Swapped ML$ with R1$ and fixed printing IA(x) --- prg.txt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/prg.txt b/prg.txt index 6653bfa..56eb20a 100755 --- a/prg.txt +++ b/prg.txt @@ -52,12 +52,13 @@ 2090 goto2000 2500 forx=itoj -2510 ?ml$na$(x)ia(x) -2520 ?ml$bd$(x) -2530 ?ml$pr(x)"{down}" -2540 next -2550 gosub -2560 return +2510 ?r1$na$(x) +2520 ?r1$r2$ia(x) +2530 ?r1$bd$(x) +2540 ?r1$pr(x)"{down}" +2550 next +2560 gosub 3000 +2570 return 3000 get k$ 3010 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4") From 6fb0215189bd83006929318c74599d9dde02e830 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 19:59:19 -0400 Subject: [PATCH 05/37] Update storedat --- storedat | 74 +++++++++++++++++++++++++++++++++++++++++--------------- 1 file changed, 54 insertions(+), 20 deletions(-) diff --git a/storedat b/storedat index 93a62f4..b0d3fd1 100644 --- a/storedat +++ b/storedat @@ -1,20 +1,54 @@ -Name 1 -Amount 1 -Desc 1 -Price 1 -Name 2 -Amount 2 -Desc 2 -Price 2 -Name 3 -Amount 3 -Desc 3 -Price 3 -Name 4 -Amount 4 -Desc 4 -Price 4 -Name 5 -Amount 5 -Desc 5 -Price 5 +cursor +adds .1 cps +15 +grandma +adds 1 cps +100 +farm +adds 8 cps +1100 +mine +adds 47 cps +12000 +factory +adds 260 cps +130000 +bank +adds 1400 cps +1400000 +temple +adds 7800 cps +20000000 +wizard tower +adds 44000 cps +330000000 +shipment +adds 260000 cps +5100000000 +alchemy lab +adds 1600000 cps +75000000000 +portal +adds 10 million cps +1000000000000 +time machine +adds 65 million cps +14000000000000 +antimatter condenser +adds 430 million cps +170000000000000 +prism +adds 2.9 billion cps +2100000000000000 +chancemaker +adds 21 billion cps +26000000000000000 +fractal engine +adds 150 billion cps +310000000000000000 +ml monitor +adds 1.1 trillion cps +71000000000000000000 +idleverse +adds 8.3 trillion cps +1.2e+22 From 8fabf242061c6c5f49e4dc9ce9d9e35f442e7f7c Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 20:18:37 -0400 Subject: [PATCH 06/37] Move storedat From 6315dffdc216ea54d97220a56f7a132ba44cb7cd Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 20:23:10 -0400 Subject: [PATCH 07/37] Added storedat to /build... and to the right branch this time. --- build/storedat | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 build/storedat diff --git a/build/storedat b/build/storedat new file mode 100644 index 0000000..b0d3fd1 --- /dev/null +++ b/build/storedat @@ -0,0 +1,54 @@ +cursor +adds .1 cps +15 +grandma +adds 1 cps +100 +farm +adds 8 cps +1100 +mine +adds 47 cps +12000 +factory +adds 260 cps +130000 +bank +adds 1400 cps +1400000 +temple +adds 7800 cps +20000000 +wizard tower +adds 44000 cps +330000000 +shipment +adds 260000 cps +5100000000 +alchemy lab +adds 1600000 cps +75000000000 +portal +adds 10 million cps +1000000000000 +time machine +adds 65 million cps +14000000000000 +antimatter condenser +adds 430 million cps +170000000000000 +prism +adds 2.9 billion cps +2100000000000000 +chancemaker +adds 21 billion cps +26000000000000000 +fractal engine +adds 150 billion cps +310000000000000000 +ml monitor +adds 1.1 trillion cps +71000000000000000000 +idleverse +adds 8.3 trillion cps +1.2e+22 From fbcf9c8254602f6276b6b7db34490cf47c8c0104 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 20:23:44 -0400 Subject: [PATCH 08/37] Remove 2nd storedat --- storedat | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 storedat diff --git a/storedat b/storedat deleted file mode 100644 index b0d3fd1..0000000 --- a/storedat +++ /dev/null @@ -1,54 +0,0 @@ -cursor -adds .1 cps -15 -grandma -adds 1 cps -100 -farm -adds 8 cps -1100 -mine -adds 47 cps -12000 -factory -adds 260 cps -130000 -bank -adds 1400 cps -1400000 -temple -adds 7800 cps -20000000 -wizard tower -adds 44000 cps -330000000 -shipment -adds 260000 cps -5100000000 -alchemy lab -adds 1600000 cps -75000000000 -portal -adds 10 million cps -1000000000000 -time machine -adds 65 million cps -14000000000000 -antimatter condenser -adds 430 million cps -170000000000000 -prism -adds 2.9 billion cps -2100000000000000 -chancemaker -adds 21 billion cps -26000000000000000 -fractal engine -adds 150 billion cps -310000000000000000 -ml monitor -adds 1.1 trillion cps -71000000000000000000 -idleverse -adds 8.3 trillion cps -1.2e+22 From ad14ebd604e81c1f8c34ea04942abf0c19808b42 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 20:36:12 -0400 Subject: [PATCH 09/37] Now loads storedat --- prg.txt | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/prg.txt b/prg.txt index 56eb20a..2f27a6d 100755 --- a/prg.txt +++ b/prg.txt @@ -1,11 +1,12 @@ 0 rem !to "build/cookie.prg" -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 +10 dimna$(17):dimia(17):dimbd$(17):dimpr(17) +20 open 8,8,8,"storedat,s,r" +30 forx=0to17 +40 input#8,na$(x) +50 input#8,bd$(x) +60 input#8,pr(x) +70 next +80 close 8 90 gs=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" 95 r2$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" 100 rem stick news here. @@ -48,14 +49,15 @@ 2050 ifss=5theni=17:j=19 2060 ts=ss 2070 tm=ms -2080 gosub2500 -2090 goto2000 +2080 y=1 +2090 gosub2500 +2100 goto2000 2500 forx=itoj -2510 ?r1$na$(x) +2510 ?r1$"{rvon}"y"{rvof} "na$(x) 2520 ?r1$r2$ia(x) 2530 ?r1$bd$(x) -2540 ?r1$pr(x)"{down}" +2540 ?r1$pr(x)"{down}":y=y+1 2550 next 2560 gosub 3000 2570 return From 05b91a8b96499a3386f3b39efc3de1334f7c5371 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 21:53:44 -0400 Subject: [PATCH 10/37] Added base cps --- build/storedat | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/build/storedat b/build/storedat index b0d3fd1..d92d22c 100644 --- a/build/storedat +++ b/build/storedat @@ -1,54 +1,72 @@ cursor adds .1 cps +.1 15 grandma adds 1 cps +1 100 farm adds 8 cps +8 1100 mine adds 47 cps +47 12000 factory adds 260 cps +260 130000 bank adds 1400 cps +1400 1400000 temple adds 7800 cps +7800 20000000 wizard tower adds 44000 cps +44000 330000000 shipment adds 260000 cps +260000 5100000000 alchemy lab adds 1600000 cps +1600000 75000000000 portal adds 10 million cps +10000000 1000000000000 time machine adds 65 million cps +65000000 14000000000000 antimatter condenser adds 430 million cps +430000000 170000000000000 prism adds 2.9 billion cps +2900000000 2100000000000000 chancemaker adds 21 billion cps +21000000000 26000000000000000 fractal engine adds 150 billion cps +150000000000 310000000000000000 ml monitor adds 1.1 trillion cps +1100000000000 71000000000000000000 idleverse adds 8.3 trillion cps +8300000000000 1.2e+22 From 8b0ab6acf7398effc62517f0e7a431696cded0f4 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 22:07:26 -0400 Subject: [PATCH 11/37] Make shop subroutine even better --- prg.txt | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/prg.txt b/prg.txt index 2f27a6d..7c581d2 100755 --- a/prg.txt +++ b/prg.txt @@ -1,9 +1,10 @@ 0 rem !to "build/cookie.prg" -10 dimna$(17):dimia(17):dimbd$(17):dimpr(17) +10 dimna$(17):dimia(17):dimbd$(17):dimbg(17):dimpr(17) 20 open 8,8,8,"storedat,s,r" 30 forx=0to17 40 input#8,na$(x) 50 input#8,bd$(x) +55 input#8,bg(x) 60 input#8,pr(x) 70 next 80 close 8 @@ -69,17 +70,21 @@ 3040 ifk$="-"thenss=ss-1 3050 ifss=0thenss=1 3060 ifss=6thenss=5 -3070 on x gosub 3500, +3070 ifx<>0gosub3500 3080 ifss<>tsthenreturn 3090 isms<>tmthenreturn 3100 goto 3000 -3500 x=0:y=.1 -3510 gosub 100 -3520 printms$"{down3}"pr(x) -3530 return +3500 y=i+x-1 +3510 if cc Date: Tue, 27 Apr 2021 22:08:55 -0400 Subject: [PATCH 12/37] Missed something --- prg.txt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/prg.txt b/prg.txt index 7c581d2..cd26d3e 100755 --- a/prg.txt +++ b/prg.txt @@ -86,5 +86,6 @@ 3580 ifx=2then?"{home}"r1$"{down}{down}{down}{down}{down}{down}{down}{down}{down}"pr(y) 3590 ifx=3then?"{home}"r1$"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"pr(y) 3600 ifx=4then?"{home}"r1$"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"pr(y) -3610 return +3610 x=0 +3620 return From 43632b59cc887777ecc4570a7846422ca16b3d08 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 27 Apr 2021 22:30:25 -0400 Subject: [PATCH 13/37] Update prg.txt --- prg.txt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/prg.txt b/prg.txt index cd26d3e..6940db9 100755 --- a/prg.txt +++ b/prg.txt @@ -64,6 +64,7 @@ 2570 return 3000 get k$ +3005 gosub 60000 3010 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4") 3020 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}") 3030 ifk$="+"thenss=ss+1 @@ -89,3 +90,10 @@ 3610 x=0 3620 return + +60000 fora=0to17 +60010 b=b+cg(x) +60020 next +60030 cc=cc+b +60040 return + From 2ca57bbec055b87002a69044e457b67c74db5a4e Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Wed, 28 Apr 2021 09:07:39 -0400 Subject: [PATCH 14/37] Polished up the store design --- prg.txt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/prg.txt b/prg.txt index 6940db9..74797e7 100755 --- a/prg.txt +++ b/prg.txt @@ -58,8 +58,9 @@ 2510 ?r1$"{rvon}"y"{rvof} "na$(x) 2520 ?r1$r2$ia(x) 2530 ?r1$bd$(x) -2540 ?r1$pr(x)"{down}":y=y+1 +2540 ?r1$pr(x)"{down}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}":y=y+1 2550 next +2555 ?"{down} prev/next(-/+)" 2560 gosub 3000 2570 return From 6eb700db1fc4731ff127ceecf9216a02d3266daa Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Wed, 28 Apr 2021 09:10:42 -0400 Subject: [PATCH 15/37] Updated prg file. --- build/cookie.prg | Bin 2220 -> 2568 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/build/cookie.prg b/build/cookie.prg index 4c1e12c4e0397a65d3eb84a1932ae3ff172dbe31..8ac15bc0cd9b29b1b36f3c4e4bc4f3357dd50931 100644 GIT binary patch literal 2568 zcmb7GZD?Cn7=E|e?It(5A614FE4PP&jZ4$qByGCrk0rNhOkgYKe(hsZ#ynrj=?^HhQDOKbtZX#?T=;MMT_`p(Uu4IYivpe9yh<+LS8X6S((0 z&v~A6-kgv3+znhO2k^4eHLH-s{pov$`m}sLlTHRk^%Q{&=Z1+~yt_w@`eGC5xcyEH zHHk#ZCPsDkhDW(u;4Nj)&whj&c|AE4H~iGE6WGh$4hIWna8`}Nb6gKRKj>%O7JN|Q zLJYA!5xvPpEtF#5J??G>uy+JUxnUTG45RtDi$?g2)?H{g<{EcqxZrvT4YlP#o9}w-fXj%DAiH04HbTOE*qPyJch#9; z*8PDq!#D1e&J3IR)6NW0{wrsO$M_$d8D{ujoEgsWOU?{e_JNR z;}GBSyjkuf zANFXP4}S7qLp+Vq+G(5;Sn_fkXNZg(!DI<-LOVjHz>4xeDwMzTZ-!n0V*XW-vBlhCvrDT1*I;2r^N4MEJvE z!pICFqlVyF;cttIAf<*GHvnZ}BgeYxXIzwV+u?P=!x_}16pjd6IU{RkDZDQzT+vja zF5JnLL;V=h2_eEwvN++i@Tm*0mGtZgoEOfzW-$Acc2Xo$3Ta+1OTu>+jkzDMFT6*t z3qM;#^TO#Bf3u)<$q@OSb&E`5MYC8{AuRrd30oJhxNt_<1hO)!CwKPck_Druw{M$| zz?cZ`vJz(T?H1kc3Op%(#2-;I-LPLg!IzZ*Yzab5JjEBxnmXT;!COfszFNqxhOip8 zt6{80>}rJg;GFn5pQSfEhgLijE1nlnxF~+hmsq#k$Q;fvr5O5E@q*3uHo2M#ywu>? z5(Jq_g%0Vm1qT@H2cL9}FBR$w!E%_*dQ{>(D6TIU6gR@K)b2@Bwk?b-!uzD#Jd^f+ z9+T$1MKfJ3-~fB25R8jz+H!Xo!}zlY7$u{xS~ZLT$IkS#!zdc%t}+i%Re$jcpb%RSyWzR zvdDkQR%@wzsU;!|2ZyslhJEtYmVm4_+iVNokT(mf<5>}`R(&Q*Om!oiHLBIpFXRpZ zCl|h!yM+pzmmg{zjN2buzsq|X2{Tc}>BY_er@XH*4%g)a4Qm0a321A7u~7kle*tCU BUorpy 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 From dd6c216492f8d965b788e7ae3c98dffc00a166b0 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Wed, 28 Apr 2021 16:33:18 -0400 Subject: [PATCH 16/37] Whoops. I was still using GS instead of MS --- prg.txt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/prg.txt b/prg.txt index 74797e7..7b7a619 100755 --- a/prg.txt +++ b/prg.txt @@ -8,7 +8,7 @@ 60 input#8,pr(x) 70 next 80 close 8 -90 gs=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" 95 r2$="{right}{right}{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"; @@ -39,7 +39,7 @@ 510 print"{brown}B{wht} cookies" 520 print"{down}{brown}B{wht}"bn$ 530 print"{brown}B{wht} bakery" -1000 on gs gosub 2000, +1000 on ms gosub 2000, 1010 goto 1000 2000 ifms<>1thenreturn From b5ba282ae7fc08acac374a6c79ca0dad1fef3086 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Wed, 28 Apr 2021 17:04:51 -0400 Subject: [PATCH 17/37] Update prg.txt --- prg.txt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/prg.txt b/prg.txt index 7b7a619..d5e0faa 100755 --- a/prg.txt +++ b/prg.txt @@ -9,7 +9,7 @@ 70 next 80 close 8 90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" -95 r2$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +95 r2$="{right}{right}{right}{right}{right}{right}{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"; @@ -60,7 +60,7 @@ 2530 ?r1$bd$(x) 2540 ?r1$pr(x)"{down}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}":y=y+1 2550 next -2555 ?"{down} prev/next(-/+)" +2555 ?"{down}"r1$" prev/next(-/+)" 2560 gosub 3000 2570 return @@ -96,5 +96,6 @@ 60010 b=b+cg(x) 60020 next 60030 cc=cc+b +60040 ?"{home}{down}{right}"int(cc) 60040 return From 5359331af57cf5298fbf356a401262a01f8a12f6 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Thu, 29 Apr 2021 11:22:53 -0400 Subject: [PATCH 18/37] Fixed graphical errors. Everything else is still broken. --- prg.txt | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/prg.txt b/prg.txt index d5e0faa..ca41b0f 100755 --- a/prg.txt +++ b/prg.txt @@ -6,10 +6,11 @@ 50 input#8,bd$(x) 55 input#8,bg(x) 60 input#8,pr(x) +65 ?x+1"/18" 70 next 80 close 8 90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" -95 r2$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +95 r2$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}":ss=1 100 rem stick news here. 110 print"{brown}{clear}UCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCCCCCCCCCCCCI"; 120 print"B B B"; @@ -37,9 +38,9 @@ 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$ +520 ?"{brown}B{wht}"bn$ 530 print"{brown}B{wht} bakery" -1000 on ms gosub 2000, +1000 on ms gosub 2000, 2000, 2000, 2000 1010 goto 1000 2000 ifms<>1thenreturn @@ -55,12 +56,13 @@ 2100 goto2000 2500 forx=itoj -2510 ?r1$"{rvon}"y"{rvof} "na$(x) -2520 ?r1$r2$ia(x) +2505 ifx=ithen?"{home}" +2510 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) +2520 ?r1$r2$"{up}"ia(x) 2530 ?r1$bd$(x) -2540 ?r1$pr(x)"{down}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}":y=y+1 -2550 next -2555 ?"{down}"r1$" prev/next(-/+)" +2540 ?r1$"{up}"pr$(x) +2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 +2555 ?"{down}{donw}{down}"r1$" prev/next(-/+)" 2560 gosub 3000 2570 return @@ -72,9 +74,9 @@ 3040 ifk$="-"thenss=ss-1 3050 ifss=0thenss=1 3060 ifss=6thenss=5 -3070 ifx<>0gosub3500 +3070 ifx<>0thengosub3500 3080 ifss<>tsthenreturn -3090 isms<>tmthenreturn +3090 ifms<>tmthenreturn 3100 goto 3000 3500 y=i+x-1 From 10b281ec7f7fd4c126182e04e257066d5c1a9400 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Thu, 29 Apr 2021 15:00:52 -0400 Subject: [PATCH 19/37] Accidentally deleted a line. --- prg.txt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/prg.txt b/prg.txt index ca41b0f..c06f204 100755 --- a/prg.txt +++ b/prg.txt @@ -62,7 +62,8 @@ 2530 ?r1$bd$(x) 2540 ?r1$"{up}"pr$(x) 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 -2555 ?"{down}{donw}{down}"r1$" prev/next(-/+)" +2550 next +2555 ?"{down}{down}{down}"r1$" prev/next(-/+)" 2560 gosub 3000 2570 return From a6c039530408dcd37855e91a90595181d115ec27 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Thu, 29 Apr 2021 19:48:09 -0400 Subject: [PATCH 20/37] Update prg.txt --- prg.txt | 61 ++++++++++++++++++++++++++++++++++----------------------- 1 file changed, 36 insertions(+), 25 deletions(-) diff --git a/prg.txt b/prg.txt index c06f204..f4043f6 100755 --- a/prg.txt +++ b/prg.txt @@ -43,12 +43,11 @@ 1000 on ms gosub 2000, 2000, 2000, 2000 1010 goto 1000 -2000 ifms<>1thenreturn -2010 ifss=1theni=0:j=3 -2020 ifss=2theni=4:j=7 -2030 ifss=3theni=8:j=12 -2040 ifss=4theni=13:j=16 -2050 ifss=5theni=17:j=19 +2000 ifms<>1thenreturn +2010 ifss=1theni=0:j=4 +2020 ifss=2theni=5:j=9 +2030 ifss=3theni=10:j=14 +2040 ifss=4theni=15:j=18 2060 ts=ss 2070 tm=ms 2080 y=1 @@ -63,37 +62,49 @@ 2540 ?r1$"{up}"pr$(x) 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 2550 next -2555 ?"{down}{down}{down}"r1$" prev/next(-/+)" -2560 gosub 3000 +2555 ifj=18then?r1$"{down}{down}{down} prev/next(-/+)" +2560 ?r1$" prev/next(-/+)" +2565 gosub 3000 2570 return 3000 get k$ -3005 gosub 60000 -3010 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4") -3020 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}") -3030 ifk$="+"thenss=ss+1 -3040 ifk$="-"thenss=ss-1 -3050 ifss=0thenss=1 -3060 ifss=6thenss=5 -3070 ifx<>0thengosub3500 -3080 ifss<>tsthenreturn -3090 ifms<>tmthenreturn -3100 goto 3000 +3010 gosub 60000 +3020 ifval(k$)<5then3050 +3030 ifval(k$)<1then3050 +3040 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")-5*(k$="5") +3050 gosub 50000 +3060 ifk$="+"thenss=ss+1 +3070 ifk$="-"thenss=ss-1 +3080 ifss=0thenss=1 +3090 ifss=5thenss=4 +3000 ifx<>0thengosub3500 +3010 ifss<>tsthenreturn +3120 ifms<>tmthenreturn +3130 goto 3000 3500 y=i+x-1 3510 if cc Date: Thu, 29 Apr 2021 20:01:50 -0400 Subject: [PATCH 21/37] Finally added the code that lets you increase your cookies. --- prg.txt | 1 + 1 file changed, 1 insertion(+) diff --git a/prg.txt b/prg.txt index f4043f6..1c94d19 100755 --- a/prg.txt +++ b/prg.txt @@ -73,6 +73,7 @@ 3030 ifval(k$)<1then3050 3040 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")-5*(k$="5") 3050 gosub 50000 +3055 ifk$=" "thencc=cc+1 3060 ifk$="+"thenss=ss+1 3070 ifk$="-"thenss=ss-1 3080 ifss=0thenss=1 From c8cd0827f15c811186b4f07e3a61c3e30b695d49 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Fri, 30 Apr 2021 19:08:34 -0400 Subject: [PATCH 22/37] Fixed price printing error + started settings --- prg.txt | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/prg.txt b/prg.txt index 1c94d19..1f30e83 100755 --- a/prg.txt +++ b/prg.txt @@ -40,7 +40,7 @@ 510 print"{brown}B{wht} cookies" 520 ?"{brown}B{wht}"bn$ 530 print"{brown}B{wht} bakery" -1000 on ms gosub 2000, 2000, 2000, 2000 +1000 on ms gosub 2000, 5000, 5000 1010 goto 1000 2000 ifms<>1thenreturn @@ -59,7 +59,7 @@ 2510 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) 2520 ?r1$r2$"{up}"ia(x) 2530 ?r1$bd$(x) -2540 ?r1$"{up}"pr$(x) +2540 ?r1$"{up}"pr(x) 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 2550 next 2555 ifj=18then?r1$"{down}{down}{down} prev/next(-/+)" @@ -99,6 +99,15 @@ 3610 x=0 3620 return +5000 ifms<>2thenreturn +5010 tc=cs +5020 tm=ms +5030 gosub5100 +5040 goto5000 + + + + 49999 rem adding and menu selecting subroutines 50000 ifk$="{f1}"then50040 50010 ifk$="{f3}"then50040 From b76b7be4270128b1998cf9ab35616f219f917417 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Fri, 30 Apr 2021 19:42:31 -0400 Subject: [PATCH 23/37] Fixed bad subscript error in 60010 --- prg.txt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/prg.txt b/prg.txt index 1f30e83..d9e0ca2 100755 --- a/prg.txt +++ b/prg.txt @@ -1,5 +1,5 @@ 0 rem !to "build/cookie.prg" -10 dimna$(17):dimia(17):dimbd$(17):dimbg(17):dimpr(17) +10 dimna$(17):dimia(17):dimbd$(17):dimbg(17):dimpr(17):dimcg(17) 20 open 8,8,8,"storedat,s,r" 30 forx=0to17 40 input#8,na$(x) @@ -63,7 +63,7 @@ 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 2550 next 2555 ifj=18then?r1$"{down}{down}{down} prev/next(-/+)" -2560 ?r1$" prev/next(-/+)" +2560 ?r1$"{up} prev/next(-/+)" 2565 gosub 3000 2570 return From ff383ab6903e2144980ceb3beebdf5d42554697b Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Fri, 30 Apr 2021 22:47:58 -0400 Subject: [PATCH 24/37] Update prg.txt --- prg.txt | 25 ++++++++++++++++--------- 1 file changed, 16 insertions(+), 9 deletions(-) diff --git a/prg.txt b/prg.txt index d9e0ca2..4a5a102 100755 --- a/prg.txt +++ b/prg.txt @@ -50,13 +50,18 @@ 2040 ifss=4theni=15:j=18 2060 ts=ss 2070 tm=ms -2080 y=1 -2090 gosub2500 +2090 gosub2300 2100 goto2000 +2300 forx=1to21 : rem clears the menu +2310 ifx=1then?"home" +2320 ?r1$"" +2330 next +2340 gosub2500 + 2500 forx=itoj 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) 2530 ?r1$bd$(x) 2540 ?r1$"{up}"pr(x) @@ -67,24 +72,25 @@ 2565 gosub 3000 2570 return -3000 get k$ +3000 get k$:x=0 3010 gosub 60000 -3020 ifval(k$)<5then3050 +3020 ifval(k$)>5then3050 3030 ifval(k$)<1then3050 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 3055 ifk$=" "thencc=cc+1 3060 ifk$="+"thenss=ss+1 3070 ifk$="-"thenss=ss-1 3080 ifss=0thenss=1 3090 ifss=5thenss=4 -3000 ifx<>0thengosub3500 -3010 ifss<>tsthenreturn +3110 ifss<>tsthenreturn 3120 ifms<>tmthenreturn 3130 goto 3000 -3500 y=i+x-1 -3510 if cc2thenreturn +5005 ms=1:goto1 5010 tc=cs 5020 tm=ms 5030 gosub5100 From 478af5416456388b5fe3bfccddacbe1b41e0e415 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Fri, 30 Apr 2021 22:52:27 -0400 Subject: [PATCH 25/37] Stopped the delay when adding. --- prg.txt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prg.txt b/prg.txt index 4a5a102..4514b35 100755 --- a/prg.txt +++ b/prg.txt @@ -79,7 +79,7 @@ 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 -3055 ifk$=" "thencc=cc+1 +3055 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) 3060 ifk$="+"thenss=ss+1 3070 ifk$="-"thenss=ss-1 3080 ifss=0thenss=1 From 1645747e0c645a59139ef782026476665aa4d592 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Sat, 1 May 2021 22:31:40 -0400 Subject: [PATCH 26/37] The store is fully working now. --- prg.txt | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/prg.txt b/prg.txt index 4514b35..901eaaf 100755 --- a/prg.txt +++ b/prg.txt @@ -47,27 +47,27 @@ 2010 ifss=1theni=0:j=4 2020 ifss=2theni=5:j=9 2030 ifss=3theni=10:j=14 -2040 ifss=4theni=15:j=18 +2040 ifss=4theni=15:j=17 2060 ts=ss 2070 tm=ms 2090 gosub2300 2100 goto2000 -2300 forx=1to21 : rem clears the menu -2310 ifx=1then?"home" -2320 ?r1$"" +2300 forx=1to20: rem clears the menu +2310 ifx=1then?"{home}"r1$"{down} " +2320 ?r1$"{right} "; 2330 next 2340 gosub2500 -2500 forx=itoj +2500 y=1:forx=itoj 2505 ifx=ithen?"{home}" -2510 ?r1$"{up}{rvon}"right$(str$(y+1),1)"{rvof} "na$(x) +2510 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) 2520 ?r1$r2$"{up}"ia(x) 2530 ?r1$bd$(x) 2540 ?r1$"{up}"pr(x) 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 2550 next -2555 ifj=18then?r1$"{down}{down}{down} prev/next(-/+)" +2555 ifj=17then?r1$"{down}{down}{down}{down}{down}{down}{down} prev/next(-/+)" 2560 ?r1$"{up} prev/next(-/+)" 2565 gosub 3000 2570 return @@ -92,16 +92,16 @@ 3505 y=y-1 3510 if cc Date: Sat, 1 May 2021 22:35:41 -0400 Subject: [PATCH 27/37] Missed a semicolon. (*now* it's working) --- prg.txt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prg.txt b/prg.txt index 901eaaf..5330e60 100755 --- a/prg.txt +++ b/prg.txt @@ -54,7 +54,7 @@ 2100 goto2000 2300 forx=1to20: rem clears the menu -2310 ifx=1then?"{home}"r1$"{down} " +2310 ifx=1then?"{home}"r1$"{down} "; 2320 ?r1$"{right} "; 2330 next 2340 gosub2500 From af768a178e3651fe4b10f7a2ded9fdc5997d0966 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Sun, 2 May 2021 10:19:01 -0400 Subject: [PATCH 28/37] Updated the .prg file. --- build/cookie.prg | Bin 2568 -> 3177 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/build/cookie.prg b/build/cookie.prg index 8ac15bc0cd9b29b1b36f3c4e4bc4f3357dd50931..6012606c03e23c08d1eb4406652dcefe393c3b80 100644 GIT binary patch literal 3177 zcmb7GeQXp(6n}`o-q+sk?P&~2ahx=I2j#kZAG925xR0eA?R{{2CB5l^6;MC?UoeB}5HTL~>D3f<_UEZ+7p>wSdXaCAaf_ z@AsRToq2EGPUGr0fC2KrFrl&bWLu&!p2@T(6@NC@LP6!M(4CIfd*voyq&pckp0Pv) zh_x6%HfKEJx(ypS54=U18`zJk`AkkpMDq=5Lyp1=+#J~2p-IDX6YSu;@Je$78@|H_ zd$<6z*w|4BhxL|? zu$S)MwQ23-rcE}h))RCQylUBuk~L&{(6XHKxwS~4g2#QL5&!6oYvbAtPAC(H@5wlB>Iw%WcmC(vvc%n5$9{bo+! zv0pPMQ0#Y4GZn4R+j(<>qWwN|f-`n%PGE5~m=i=C3(N_gb}VLs8DvGkztAtum;DmU zuigKX)o(hMp=869Bpsb%SIj3dNxyOAQ80tJm&ikS4dGRa-QW<(Wb?^PT16ww@MxZO zn}$eKjVtK{3V(K7MWHCv(Zk+&+y~bjH_+aVt2OR-l>*0ecj*wt>k{gCw_&k&h(%kK zT!F$u{^ImOl2S<@2}qLEK*AIMkl?RO?;$b*u$=#5R&Poj8mv)$E5TE)Q?}mY-qw2GXt)@Z z!V+w8eO*DuWCQuwb=O^?~aRl`4z7BO~J z75C3C+%T~D6>LO?M+DB!f?HxN8QKK5Zibl|f==NKRZN7(1<9^wMLvbrvqHq) zW9-{Y!a+wtOO`rdyD*Bq0uKC|@V=v$#N%Ul#06h5xImWRwD74zU+jnuM)32h;M4T~ z5`KCWd=VYj^#6mhUk*cA_{>oo=`5@S7FGoxSlwSSU!a-=x{rlJ#qW22&-}q#{56~v z?u(2Qx-F-M*X90|@xpiH)o}N@uP|;+cH)u_d-b>S!BO{h=ABqIWlC%}85i9%d1Oqi zyULi%a*Hm;npk-)Ycg}Ocn@PvtbHnTGJB~wn`e=q7VG(bSSjuh^)nCPkv}H(iTdYg zj||U1mB6B2GU(cE{p37WP26)L)e)~NB-{-|d|Ii|%*7>0ONB|OiSyCCb?QZ}+G2CF?g%C(ub J9_@Yr_zxzL|CIm$ literal 2568 zcmb7GZD?Cn7=E|e?It(5A614FE4PP&jZ4$qByGCrk0rNhOkgYKe(hsZ#ynrj=?^HhQDOKbtZX#?T=;MMT_`p(Uu4IYivpe9yh<+LS8X6S((0 z&v~A6-kgv3+znhO2k^4eHLH-s{pov$`m}sLlTHRk^%Q{&=Z1+~yt_w@`eGC5xcyEH zHHk#ZCPsDkhDW(u;4Nj)&whj&c|AE4H~iGE6WGh$4hIWna8`}Nb6gKRKj>%O7JN|Q zLJYA!5xvPpEtF#5J??G>uy+JUxnUTG45RtDi$?g2)?H{g<{EcqxZrvT4YlP#o9}w-fXj%DAiH04HbTOE*qPyJch#9; z*8PDq!#D1e&J3IR)6NW0{wrsO$M_$d8D{ujoEgsWOU?{e_JNR z;}GBSyjkuf zANFXP4}S7qLp+Vq+G(5;Sn_fkXNZg(!DI<-LOVjHz>4xeDwMzTZ-!n0V*XW-vBlhCvrDT1*I;2r^N4MEJvE z!pICFqlVyF;cttIAf<*GHvnZ}BgeYxXIzwV+u?P=!x_}16pjd6IU{RkDZDQzT+vja zF5JnLL;V=h2_eEwvN++i@Tm*0mGtZgoEOfzW-$Acc2Xo$3Ta+1OTu>+jkzDMFT6*t z3qM;#^TO#Bf3u)<$q@OSb&E`5MYC8{AuRrd30oJhxNt_<1hO)!CwKPck_Druw{M$| zz?cZ`vJz(T?H1kc3Op%(#2-;I-LPLg!IzZ*Yzab5JjEBxnmXT;!COfszFNqxhOip8 zt6{80>}rJg;GFn5pQSfEhgLijE1nlnxF~+hmsq#k$Q;fvr5O5E@q*3uHo2M#ywu>? z5(Jq_g%0Vm1qT@H2cL9}FBR$w!E%_*dQ{>(D6TIU6gR@K)b2@Bwk?b-!uzD#Jd^f+ z9+T$1MKfJ3-~fB25R8jz+H!Xo!}zlY7$u{xS~ZLT$IkS#!zdc%t}+i%Re$jcpb%RSyWzR zvdDkQR%@wzsU;!|2ZyslhJEtYmVm4_+iVNokT(mf<5>}`R(&Q*Om!oiHLBIpFXRpZ zCl|h!yM+pzmmg{zjN2buzsq|X2{Tc}>BY_er@XH*4%g)a4Qm0a321A7u~7kle*tCU BUorpy From b3f60c8dfad838589421e168b0b3776487a92108 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Mon, 3 May 2021 16:30:40 -0400 Subject: [PATCH 29/37] Added menu switching. --- prg.txt | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/prg.txt b/prg.txt index 5330e60..4291d38 100755 --- a/prg.txt +++ b/prg.txt @@ -74,16 +74,18 @@ 3000 get k$:x=0 3010 gosub 60000 -3020 ifval(k$)>5then3050 -3030 ifval(k$)<1then3050 -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 -3055 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) -3060 ifk$="+"thenss=ss+1 -3070 ifk$="-"thenss=ss-1 -3080 ifss=0thenss=1 -3090 ifss=5thenss=4 +3015 ifval(k$)>5then3065 +3020 ifval(k$)<1then3065 +3025 x=val(k$) +3030 ifk$="{f3}"thenms=2 +3035 ifk$="{f5}"thenms=3 +3065 gosub 3500 : rem buying routine +3070 gosub 50000 +3075 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) +3080 ifk$="+"thenss=ss+1 +3085 ifk$="-"thenss=ss-1 +3090 ifss=0thenss=1 +3095 ifss=5thenss=4 3110 ifss<>tsthenreturn 3120 ifms<>tmthenreturn 3130 goto 3000 From a411a77f24d784e17109a2bd04e8d7e938cb2281 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Wed, 5 May 2021 11:50:43 -0400 Subject: [PATCH 30/37] Added very blocky cookie. --- prg.txt | 65 +++++++++++++++++++++++---------------------------------- 1 file changed, 26 insertions(+), 39 deletions(-) diff --git a/prg.txt b/prg.txt index 4291d38..ee988c4 100755 --- a/prg.txt +++ b/prg.txt @@ -19,19 +19,19 @@ 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"; +180 print"B {rvon} {rvof} B B"; +190 print"B {rvon} {blk} {brown} {rvof} B B"; +200 print"B {rvon} {blk} {brown} {rvof} B B"; +210 print"B {rvon} {blk} {brown} {blk} {brown} {rvof} B B"; +220 print"B {rvon} {blk} {brown} {blk} {brown} {rvof} B B"; +230 print"B {rvon} {rvof} B B"; +240 print"B {rvon} {rvof} B B"; +250 print"B {rvon} {blk} {brown} {rvof} B B"; +260 print"B {rvon} {blk} {brown} {blk} {brown} {blk} {brown} {rvof} B B"; +270 print"B {rvon} {blk} {brown} {blk} {brown} {rvof} B B"; +280 print"B {rvon} {rvof} B B"; +290 print"B {rvon} {rvof} B B"; +300 print"B {rvon} {rvof} B B"; 310 print"B B B"; 320 print"B{wht} v2.9.0-1.0 {brown}B B"; 330 print"JCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCCCCCCCCCCCCK"; @@ -39,24 +39,21 @@ 500 print"{home}{down}{right}"int(cc) 510 print"{brown}B{wht} cookies" 520 ?"{brown}B{wht}"bn$ -530 print"{brown}B{wht} bakery" +530 print"{up}{brown}B{wht} bakery" 1000 on ms gosub 2000, 5000, 5000 1010 goto 1000 2000 ifms<>1thenreturn -2010 ifss=1theni=0:j=4 -2020 ifss=2theni=5:j=9 -2030 ifss=3theni=10:j=14 -2040 ifss=4theni=15:j=17 -2060 ts=ss -2070 tm=ms + + +2010 ifss>0theni=0:j=4:ifss>1theni=5:j=9:ifss>2theni=10:j=14:ifss>3theni=15:j=17 :rem set ranges for the arrays +2060 ts=ss:tm=ms 2090 gosub2300 2100 goto2000 2300 forx=1to20: rem clears the menu 2310 ifx=1then?"{home}"r1$"{down} "; -2320 ?r1$"{right} "; -2330 next +2320 ?r1$"{right} ";:next 2340 gosub2500 2500 y=1:forx=itoj @@ -72,13 +69,11 @@ 2565 gosub 3000 2570 return -3000 get k$:x=0 +3000 get k$:x=0 :rem don't add a 'ifk$=""' or else the adding routine won't run properly 3010 gosub 60000 3015 ifval(k$)>5then3065 3020 ifval(k$)<1then3065 3025 x=val(k$) -3030 ifk$="{f3}"thenms=2 -3035 ifk$="{f5}"thenms=3 3065 gosub 3500 : rem buying routine 3070 gosub 50000 3075 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) @@ -90,8 +85,7 @@ 3120 ifms<>tmthenreturn 3130 goto 3000 -3500 y=i+x -3505 y=y-1 +3500 y=i+x-1 3510 if cc2thenreturn 5005 ms=1:goto1 @@ -117,18 +110,12 @@ -49999 rem adding and menu selecting subroutines -50000 ifk$="{f1}"then50040 +50000 ifk$="{f1}"then50040:rem menu selecting subroutine 50010 ifk$="{f3}"then50040 50020 ifk$="{f5}"then50040 50030 return -50040 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}") -50050 return +50040 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}"):return -60000 fora=0to17 -60010 b=b+cg(x) -60020 next -60030 cc=cc+b -60040 ?"{home}{down}{right}"int(cc) -60040 return +60000 fora=0to17:b=b+cg(x):next:rem adding subroutine +60030 cc=cc+b:?"{home}{down}{right}"int(cc):return From 56d84acb1f589f8e9dbc6f891daba3c5bb962e1c Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Sat, 8 May 2021 15:25:25 -0400 Subject: [PATCH 31/37] Update prg.txt --- prg.txt | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/prg.txt b/prg.txt index ee988c4..40287fa 100755 --- a/prg.txt +++ b/prg.txt @@ -44,21 +44,15 @@ 1010 goto 1000 2000 ifms<>1thenreturn - - 2010 ifss>0theni=0:j=4:ifss>1theni=5:j=9:ifss>2theni=10:j=14:ifss>3theni=15:j=17 :rem set ranges for the arrays 2060 ts=ss:tm=ms -2090 gosub2300 +2090 gosub2500 2100 goto2000 -2300 forx=1to20: rem clears the menu -2310 ifx=1then?"{home}"r1$"{down} "; -2320 ?r1$"{right} ";:next -2340 gosub2500 - -2500 y=1:forx=itoj -2505 ifx=ithen?"{home}" -2510 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) +2500 gosub51000 +2505y=1:forx=itoj +2510 ifx=ithen?"{home}" +2515 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) 2520 ?r1$r2$"{up}"ia(x) 2530 ?r1$bd$(x) 2540 ?r1$"{up}"pr(x) @@ -116,6 +110,11 @@ 50030 return 50040 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}"):return +51000 forx=1to20: rem clears the menu +51010 ifx=1then?"{home}"r1$"{down} "; +51020 ?r1$"{right} ";:next +51040 return + 60000 fora=0to17:b=b+cg(x):next:rem adding subroutine 60030 cc=cc+b:?"{home}{down}{right}"int(cc):return From 46b1beb59b69f5558ea2af1d418b6aa09e4650a0 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Sat, 15 May 2021 13:12:20 -0400 Subject: [PATCH 32/37] # of items now stored as MI (Max Item #) --- prg.txt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/prg.txt b/prg.txt index 40287fa..7c42270 100755 --- a/prg.txt +++ b/prg.txt @@ -1,12 +1,12 @@ 0 rem !to "build/cookie.prg" -10 dimna$(17):dimia(17):dimbd$(17):dimbg(17):dimpr(17):dimcg(17) +10 mi=17:dimna$(mi):dimia(mi):dimbd$(mi):dimbg(mi):dimpr(mi):dimcg(mi) 20 open 8,8,8,"storedat,s,r" -30 forx=0to17 +30 forx=0tomi 40 input#8,na$(x) 50 input#8,bd$(x) 55 input#8,bg(x) 60 input#8,pr(x) -65 ?x+1"/18" +65 ?x+1"/"mi+1 70 next 80 close 8 90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" @@ -115,6 +115,6 @@ 51020 ?r1$"{right} ";:next 51040 return -60000 fora=0to17:b=b+cg(x):next:rem adding subroutine +60000 fora=0tomi:b=b+cg(x):next:rem adding subroutine 60030 cc=cc+b:?"{home}{down}{right}"int(cc):return From c96441b2b43285b2af22590d94007ab6f6b4bc31 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Tue, 18 May 2021 12:21:05 -0400 Subject: [PATCH 33/37] Update README.md --- README.md | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index c1b8894..3f4ca79 100644 --- a/README.md +++ b/README.md @@ -9,9 +9,6 @@ Chat on Discord - - - @@ -21,8 +18,7 @@

-Cookie Clicker C64 (or CC64 for short) is a WIP Cookie clicker clone for the Commodore 64. - +Cookie Clicker C64 (CC64 for short) is a WIP Cookie clicker clone for the Commodore 64. Credits: @@ -31,6 +27,7 @@ Credits: Notes: - Editing program lines larger than 80 characters on the C64 (or on an emulator) will result in parts of them being deleted +- `storedat` must be placed in the same d64 as `cookie.prg`, or in the same directory, if your emulator treats a folder like a disk. Also note that unlike `storedat`, `cc64.sav` is not needed to run the game, so you can place it on another d64 and swap disks when needed. From f6f25cd9f8851ce6c34af14b246749615839cf67 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Wed, 19 May 2021 18:37:15 -0400 Subject: [PATCH 34/37] Stopped using storedat for quicker testing (I'll add it back later) --- prg.txt | 101 ++++++++++++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 87 insertions(+), 14 deletions(-) diff --git a/prg.txt b/prg.txt index 7c42270..dfede8f 100755 --- a/prg.txt +++ b/prg.txt @@ -1,14 +1,14 @@ 0 rem !to "build/cookie.prg" 10 mi=17:dimna$(mi):dimia(mi):dimbd$(mi):dimbg(mi):dimpr(mi):dimcg(mi) -20 open 8,8,8,"storedat,s,r" -30 forx=0tomi -40 input#8,na$(x) -50 input#8,bd$(x) -55 input#8,bg(x) -60 input#8,pr(x) -65 ?x+1"/"mi+1 -70 next -80 close 8 +20 rem open 8,8,8,"storedat,s,r" +30 rem forx=0tomi +40 rem input#8,na$(x) +50 rem input#8,bd$(x) +55 rem input#8,bg(x) +60 rem input#8,pr(x) +65 rem ?x+1"/"mi+1 +70 rem next +80 gosub 52000:rem close 8 90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" 95 r2$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}":ss=1 100 rem stick news here. @@ -55,7 +55,7 @@ 2515 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) 2520 ?r1$r2$"{up}"ia(x) 2530 ?r1$bd$(x) -2540 ?r1$"{up}"pr(x) +2540 ?r1$"{up}"int(pr(x)) 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1 2550 next 2555 ifj=17then?r1$"{down}{down}{down}{down}{down}{down}{down} prev/next(-/+)" @@ -65,8 +65,8 @@ 3000 get k$:x=0 :rem don't add a 'ifk$=""' or else the adding routine won't run properly 3010 gosub 60000 -3015 ifval(k$)>5then3065 -3020 ifval(k$)<1then3065 +3015 ifval(k$)>5then3070 +3020 ifval(k$)<1then3070 3025 x=val(k$) 3065 gosub 3500 : rem buying routine 3070 gosub 50000 @@ -81,7 +81,7 @@ 3500 y=i+x-1 3510 if cc Date: Sat, 29 May 2021 16:26:16 -0400 Subject: [PATCH 35/37] Fixed a few problems - Added item cap (300) - Fixed bug where only item one gain is added to cc - Stopped the total gain from multiplying by 2 or more each time --- prg.txt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/prg.txt b/prg.txt index dfede8f..138d547 100755 --- a/prg.txt +++ b/prg.txt @@ -70,7 +70,6 @@ 3025 x=val(k$) 3065 gosub 3500 : rem buying routine 3070 gosub 50000 -3075 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) 3080 ifk$="+"thenss=ss+1 3085 ifk$="-"thenss=ss-1 3090 ifss=0thenss=1 @@ -81,6 +80,7 @@ 3500 y=i+x-1 3510 if cc Date: Sun, 30 May 2021 19:58:55 -0400 Subject: [PATCH 36/37] Lots of stuff - Added settings - Commented my code - Made the adding routine (and other stuff) better --- prg.txt | 80 ++++++++++++++++++++++++++++++++++++++------------------- 1 file changed, 54 insertions(+), 26 deletions(-) diff --git a/prg.txt b/prg.txt index 138d547..cd1c135 100755 --- a/prg.txt +++ b/prg.txt @@ -9,7 +9,7 @@ 65 rem ?x+1"/"mi+1 70 rem next 80 gosub 52000:rem close 8 -90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +90 ms=2:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" 95 r2$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}":ss=1 100 rem stick news here. 110 print"{brown}{clear}UCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCCCCCCCCCCCCI"; @@ -43,15 +43,15 @@ 1000 on ms gosub 2000, 5000, 5000 1010 goto 1000 -2000 ifms<>1thenreturn -2010 ifss>0theni=0:j=4:ifss>1theni=5:j=9:ifss>2theni=10:j=14:ifss>3theni=15:j=17 :rem set ranges for the arrays -2060 ts=ss:tm=ms -2090 gosub2500 -2100 goto2000 +2000 ifms<>1thenreturn :rem store page selection and menu switching area. +2010 ifss>0theni=0:j=4:ifss>1theni=5:j=9:ifss>2theni=10:j=14:ifss>3theni=15:j=17 +2060 ts=ss:tm=ms :rem 2010 sets the range of item data +2090 gosub2500 :rem to be used. do not have a range +2100 goto2000 :rem bigger than 5. (smaller is fine) 2500 gosub51000 -2505y=1:forx=itoj -2510 ifx=ithen?"{home}" +2505 y=1:forx=itoj :rem this section prints the +2510 ifx=ithen?"{home}" :rem item data in the given range. 2515 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x) 2520 ?r1$r2$"{up}"ia(x) 2530 ?r1$bd$(x) @@ -63,12 +63,12 @@ 2565 gosub 3000 2570 return -3000 get k$:x=0 :rem don't add a 'ifk$=""' or else the adding routine won't run properly -3010 gosub 60000 -3015 ifval(k$)>5then3070 -3020 ifval(k$)<1then3070 +3000 get k$:x=0 :rem don't add a 'ifk$=""' or else the adding routine won't run properly +3010 gosub 60000 :rem +3015 ifval(k$)>5then3070 :rem main loop +3020 ifval(k$)<1then3070 :rem 3025 x=val(k$) -3065 gosub 3500 : rem buying routine +3065 gosub 3500 3070 gosub 50000 3080 ifk$="+"thenss=ss+1 3085 ifk$="-"thenss=ss-1 @@ -78,7 +78,7 @@ 3120 ifms<>tmthenreturn 3130 goto 3000 -3500 y=i+x-1 +3500 y=i+x-1 :rem buying subroutine 3510 if cc2thenreturn -5005 ms=1:goto1 -5010 tc=cs -5020 tm=ms -5030 gosub5100 -5040 goto5000 +5000 ifms<>2thenreturn :rem +5010 tm=ms :rem this section is for menu switching. +5020 gosub51000:gosub5100:goto5000 :rem + +5100 ?"{home}{down}"r1$"{rvon}1{rvof} change your bakery's" +5110 ?r1$"name" +5120 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}" +5130 ?r1$"{up}{rvon}2{rvof} create a save file" +5140 ?r1$"on a disk" +5150 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}" +5160 ?r1$"{up}{rvon}3{rvof} load a save file" +5170 ?r1$"from a disk" +5180 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}" +5160 ?r1$"{up}{rvon}4{rvof} manage your saves" +5180 ?r1$"{down}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{down}" +5200 getk$ :rem +5210 ifval(k$)>4then5240 :rem main loop +5220 ifval(k$)<1then5240 :rem +5230 onval(k$)gosub5500,5600,5700,5800 +5240 gosub 50000 +5250 ifms<>tmthenreturn +5260 goto 5200 +5500 tn$="":?"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"r1$"new name:" +5510 getnp$:ifnp$=""then5510 : +5515 iflen(tn$)=0then?r1$, +5520 ?np$;:tn$=tn$+np$:ifnp$="{\n}"then5540 :rem bakery name +5530 iflen(tn$)<14then5510 : +5540 ?"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"r1$" " +5550 ?r1$" ":bn$=left$(tn$,13):?"{home}{down}{down}{down}{down}{right} {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"bn$"'s":return -50000 ifk$="{f1}"then50040:rem menu selecting subroutine -50010 ifk$="{f3}"then50040 -50020 ifk$="{f5}"then50040 +10000 stop + +49999 :rem important subroutines + +50000 ifk$="{f1}"then50040:rem +50010 ifk$="{f3}"then50040:rem menu selecting +50020 ifk$="{f5}"then50040:rem 50030 return 50040 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}"):return @@ -189,6 +216,7 @@ 52071 pr(x)=1.2e+22 52072 return -60000 b=0:fora=0tomi:b=b+cg(a):next:rem adding subroutine -60010 cc=cc+b:?"{home}{down}{right}"int(cc):return -60020 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc) +60000 b=0:fora=0tomi:b=b+(cg(a)/3.6):next:rem adding subroutine +60010 ifk$=" "thencc=cc+1 +60020 ifcb>ccthen?"{home}{down}{right} " +60030 cc=cc+b:?"{home}{down}{right}"int(cc):cb=cc:return From a3a61b1840c8e70e25846d73596a45efdf1526b6 Mon Sep 17 00:00:00 2001 From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com> Date: Sun, 30 May 2021 22:49:11 -0400 Subject: [PATCH 37/37] Added saving/loading and fixed problems with setting bn$ --- prg.txt | 35 ++++++++++++++++++++++++++++------- 1 file changed, 28 insertions(+), 7 deletions(-) diff --git a/prg.txt b/prg.txt index cd1c135..9bcd613 100755 --- a/prg.txt +++ b/prg.txt @@ -114,18 +114,39 @@ 5200 getk$ :rem 5210 ifval(k$)>4then5240 :rem main loop 5220 ifval(k$)<1then5240 :rem -5230 onval(k$)gosub5500,5600,5700,5800 +5230 onval(k$)gosub5500,5700,5900,6100 5240 gosub 50000 5250 ifms<>tmthenreturn 5260 goto 5200 -5500 tn$="":?"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"r1$"new name:" -5510 getnp$:ifnp$=""then5510 : -5515 iflen(tn$)=0then?r1$, +5500 tn$="":?"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"r1$"new name:" +5510 getnp$:ifnp$=""then5510 +5515 iflen(tn$)<1then?r1$; : 5520 ?np$;:tn$=tn$+np$:ifnp$="{\n}"then5540 :rem bakery name -5530 iflen(tn$)<14then5510 : -5540 ?"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"r1$" " -5550 ?r1$" ":bn$=left$(tn$,13):?"{home}{down}{down}{down}{down}{right} {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"bn$"'s":return +5530 iflen(tn$)<14then5510 : +5540 ?"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"r1$" " +5550 ?r1$" ":bn$=left$(tn$,(len(tn$)-1)) +5560 ?"{home}{down}{down}{down}{down}{right} {home}{down}{down}{down}{down}{right}"bn$"'s":return + +5700 open 8,8,8,"@0:savedat,s,w" :rem save data +5710 print#8,fl +5720 print#8,bn$ +5730 print#8,cc +5740 forx=0tomi +5750 print#8,cg(x) +5760 print#8,pr(x) +5770 print#8,ia(x) +5780 next:close 8:return + +5900 open 8,8,8,"@0:savedat,s,r" :rem load data +5910 input#8,fl +5920 input#8,bn$ +5930 input#8,cc +5940 forx=0tomi +5950 input#8,cg(x) +5960 input#8,pr(x) +5970 input#8,ia(x) +5980 next:close 8:return 10000 stop