From 70836d3645f21627d6bdf3b4a6abe49189bfc7dd Mon Sep 17 00:00:00 2001 From: IanSkinner1982 Date: Sat, 5 Dec 2020 18:11:31 -0500 Subject: [PATCH] Partial rewrite upload. (NOT WORKING YET) --- .gitignore | 3 + build/cc64.sav | 1 + build/cookie.prg | Bin 7388 -> 1817 bytes build/cookie.prg.out.prg | Bin 6191 -> 1643 bytes prg.txt | 312 ++++++--------------------------------- 5 files changed, 53 insertions(+), 263 deletions(-) create mode 100644 .gitignore create mode 100644 build/cc64.sav diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..3a25fa4 --- /dev/null +++ b/.gitignore @@ -0,0 +1,3 @@ +# Mac files +.DS_Store +build/.DS_Store diff --git a/build/cc64.sav b/build/cc64.sav new file mode 100644 index 0000000..69ae57e --- /dev/null +++ b/build/cc64.sav @@ -0,0 +1 @@ + 7668 0 0 0 0 0 \ No newline at end of file diff --git a/build/cookie.prg b/build/cookie.prg index ad7682aec5fce9f14cabc5b19daa0815196ac939..249127d14b5db88998862e4ea2a7c3d7bf920b66 100644 GIT binary patch literal 1817 zcmb7_O=uHA6vv;`G@Gxj(jw@gJcocu4smzestJCu*(BT0G#j#;N^goMi$V+HQN)v4 zN{U)&L@I(>sTbX%2k{ieq7{*%6-4mjLC}+D56)yao6VNCIEUGp|GeLO^JaEtc5wY1 zKn?dB8j?)4P|O}wG;O4iOO`7t0fP&IqL@NjQCTI^N@Z2vh?+zo=~4TeDbc>Jjpnpc zj=&_>2U$I8uEfN{@pKK9YDL#7nAJ{}V2105N^?v~xyC95b=ZI z%RWWZjkJX@VlA+X5seMrTLO(D4z)VXiFF0{ZG*VuFB3QvjBW!od}>85Wk=M=deezLQX*A_7*B~wY~|8oLhqgtk? zCY#e^)i|}UM?Nt7cbx~`)qCn{uM&73>GRb|?`~Qe^lC0e$pIZR@<^^Sj<6c}=JVXa z2)`re{L^U5xQN$KOwof;LsiqO8AJg7A~mq@Y-%t=wY~gh|2-Uurl)CTA|X^4Q<4Bl z{yH_L8bPK>?2N$){+2B&OhhR23$~zI!fF1IE#xg>iZ^XxlnHQ!e`)u1%iuQu#$Q9- zkShjid6cX4DU!2USmZzY>D!|yONt6B{8v9+4MLw4dK>!M_cVDHQCLqvcABQP?gjk{qXOpn?8L%QA2izr``$Q$*u$xCr}Cx zWP89DvnO72xYs&c28r4cjYXow7wK$+r?S5SQQqfiPV0*X0~_LSJX?W~05+r}Lz+Jh z?_~Qybtl{nEvhHscHt`P6K?+NO}ITSmkZv{Zif;2h?#;d=fF*DWiDre4%fUg-(Px9 z4TZ1gJkC*Wh8i=FEs+kgLD{5{j6duXCOK3mA;V)7`f{G)NRLDcYGWBVG4^=Qb9`+5 zHP&WOBe8gkP{HPSFXu&$^YS@nsV1$;MlHI9;K-`nF+Q?ko{ zNrBP+Tk}5Rqut#7V_YvAeEc1u%t7P9^k;MdPH8=VfQHkaM#b zNFw=ke1+K37ny-PomV7~EFuo(I0!YWD!c%W$#LnZ(wh2@+cJzTWe#Z693bGu9L!A-8R;Kx~m1o!oIa$je^ zu&Ur#)(GFsT~2tYU_w5)owyw@`sW3Qsybo1U`o#7aZ&?GS&W=qb4pdQ!})@9QURVn zpA}q?4_?&fZb>TvNVWU@Jqf= z6XPBFQzPpSLyl>?F5xF?7%EIVbV-vKv)Z&Hlu(mok;f>Y0L%O^-=gfXTc}mQ#38%KS{$ zz+@{5N2M&xWQ|PbDLf)&FF`A1M7q9eH561g;yzFf&lFBcjc%AMJa<)vrwT9V z3YQc;mzTCcnP$CmV*L1<s$@+LDAd77UmbD`QqHRNWWB=Kgz>2S5-#c&~5(o z3tcHSP+aT*^A&wXNC*7Xyd+-+#tHLd#xy_5{EE!)$n)ldM&U@0?#O?eM~%{v9%w24 zopJFT=`TKF#9|=8s5)BwlCD{}HT@gyTwE8UwtxbY#V;FEUOrPiDGX&^{tS!nka_Wl94vXl>{k+gMr4uY zkghqM!a3WEPAWReuK=<9+N|^12&*m63cDGvVaxOS>gMEiv*oB+^7>uNc5521;b5B< zgD%SstKikE^ZKA=w^j1$g}+*UWL-R7|7Gd1hLuE^@w&^}r)!>*%c}^#2%5tR+;1JQ zN}Ap9i1iV{0%Q5Gby#2PoGkyz`U|UInZUbNV|5zM9c`hAx>0EjX@nQ^Z2ygGo8tsN zwVJ9q^>_dx_XA)kEwARsFjnTRrFJ}aut-T&M)TJ<2KJ6P{8-|O!u76FXY~jXXWdn3 zgnLVCaGab5j+EAkDU(@oG6By_{ITRtW=y=a94oEYHDTg$rL;+Cx{eAfvw+MmTc>Nn zq{Uy>Dm2ZmxH9S{17TMTi~+$xyey#W!E|S^EF|=#)nD_}Q8Tk}0zWJJs;=#Ci$w%8TKtFFU! z8D53f@*;%EN#VY7i&(&QRB)M|>@Tm-HLZ2RWH}LS>wt4af24s z;Hiq1dxje7Jx#7!R|{{ru@MXLo3ciXr!y5lxd$(>hSGy&W-*ukgvH#=%YTl5`72az zt^C3gq+$6pe7Hg06}2g0jW}AJ@|G!mG$BI>cz$_;0VuBV|M|fg;r#Mr3o*^KVnUb} ziYPwf2=UOLX;A8knYMq$)QvLj=!$a-G3~t-7ldgsb{C141}Q^kx0q?$D=*zB(;lt7 zyb#kSDzkR7_+8!^Y}bgeuX8^8m}$z&dwe%a&qeQ z>nGnlg%@iSo+Ht8&}_11Nf7i7xntp=;;QZ3Lk4YgFrM0h9ok$G#iD7jYR8R=rkAUB zFC?1Yuj;|!*L^N5p{2VHvAYz!N}&`lNO-YdO6e{xX+=>VspnTIt7)wehJ=vcrL@vU zA&dzjzf9?*w+UgV5c1oUyXoyhs0kszPT5W0?HVL(C&s)KhUkY~c&f=q@s|6PxKdYF zM3Whh)v|w7RU5r^xC_+AYNHg6(a*Yinrc-QCg>I33cwVFZYERU9L-`atPd~H zn^_AhnoIOctc6MUf2qCuAZdaETV3}E)u&b?;r5Ug*C^a#tM8UavD>Sk#f`AW*3{ic z8XH`&&NkJ9r?|3-W!CUD+qoVzp)(p}7q=NE+-tkglQiKr{C}yG6`d6J*e>-9b1V97 z|KY6wJZ8JhTM8Vsea>2F#i%W7AGXknBetcig;pH17RqT@7rHSOdt~LXq7j8J@(0zga_b&eY(Goti|O% zY2SL0)2k7m*4hz(-`MZGh^eMZAYs3YwE}R={sY!f2u#@T!&U%WQ}$kL`LXqu{b6h& HNdW%?B&)Nb diff --git a/build/cookie.prg.out.prg b/build/cookie.prg.out.prg index 74801165f8b95218299349cfc6395a925fb17891..72958e0982850d7bd27e6ad90417085ac74852b1 100644 GIT binary patch literal 1643 zcmbW1zi-n(6vtlxqw*t>Q2v4A6oj22vI9}oZ0^N1RY(lEB&ZS$FfsLyKrAKnhd`Cm zu~Q_NaK(fKl^GBqMi%}7Hl#{r=be2%pAAtYZaCjJ_dfUadpW<-(()1jW1-z3Eu%yEfwgqFUb<}kl=OmciOt6~?Eu`Xu?AhH65{PDVEH6vKG2Rb7m z$*900vzud5CzT0uMdCxAP$#QJ;qO0L6dxJf8xGg|J~z1~F4@(x%zfN!tTfd9QwAg& z-NCP><8gCjVf@`B{!9LY*VG$r{guLI9ACYHBO(;LCcVzds@wGj8w8%`IRR_R-lF$-FibAYetRt(8F@Nfb0xN;u0 HYykKJasnbx!@~JNMLo{<>4u%PM=I({cR+4_w32@1W!trv z9~b3x#>+WW#%9eWxI)!o>wVJSIt4FOn{d)o{ z_Q9GsI$f(yXM|%}i>o%>u92QbifVOYJgCKRO7^&x&28XYLR4$@5v77{Jg;$iX=9CQ z>xe%QOwU@7{8&pC+DK|_Ec%XZD*EEZQLBm4v_Cmo@iQey#y+fZgB##%`n8rEib_7y zr$39$kdWV4>>4>7K^ox6zP@Mrnqb8Lsg`zS`B$Z0mOcr=xUpCgc5l}$z&#+53fM%3 zrj%agG>lFeB==>(IB~P^qPWdq;b`XBR@AtZX2U@Z40cy z?b)e<^tgWvuGyW2inUJFpu*NMf-Tq8L@lV-$0tj*OwHl{>n99OHO@WW!0DnBhAujE!O(-3ZodTk z)S;6!2Mf z>G_HD$ovHMZF|{usXLh<$ys1?lullwSOK;`x#YEqErA`RBgw6b9RoW|cPFn?Y{g#o zT)Hp0O|dnw1$sESoyQ9yRz!)OO7foGX=6xe-IHzASWhQ+(40r7lRGuWrMEVKoJ(HM zkPnj`G%v&}!d>?0b6}*+Gs30qH?*-CwwfYr`jwJgWcTpJ>~eX(!l&QC1m-MJS{cX| zXpT9Pn-|;psdICdh5d%`S6n)P zkABmXZ>{c{O#caz7&1#7%ePIG%6s$|j$GavKwHVDEuGOaB$+d1$bz|8iw<_~;w+4I zcB(AokcGRAf-@pVkG4~=CJRqMa?EdxaTd09g=VAiuS;L{j3CQnKJA4IrZT9S+F9`q^Q_o+>~1>Dt6r1X&$n|3`&0^^K+syJ{e>xVZmNvOKK;KR_Nk1z0N3E zKa3FnG3GZhgvaZ*Wv@|$@#A(dQt2jU@_7Bqp(2bfj~hiBj_9Z#AM#}Zxqb_w8Vo(} zX*HKNvH#1c;8E#QFem7Xz56g8Z`nt5s*v-Bvi;c+Nw^?tW%-_>h;Pd}03n|?@reQXTp4{egdHPu@rT7_MFVf*uui^vdhsjS_c)Z@5;*2lw0|4(qR5y+Kb$?)B zz^30~@gGC|{AUYM%nzX1`fL5uHvJhZj}7$;K~HL`M1R+mPp1`yQGG>Gm``6-6sE8@ zK%E|<4{%wsjbTx(OqGLrVAEH)uOIks-aPS(^zYP-G?%6SrfhiK)hoT8nI7l2H!-hW zEE=!xz^mz|<1;oL#^R!MJkV5$s+#g?R#9;Lenr9YhZP0K9{~l&=W$uGkqS25^n0QA zCX9#$TIx;1!?RLovRb#sIj~AFSr107*`R)-P3L+KMQfWIr1QNu6W8RU-k$>dnZz#G q^eu>WQt?A?hUQ$l+JYabzz%sWQJ1{>)WcVVkmf4_=;tfkC;A`E(C)YZ diff --git a/prg.txt b/prg.txt index 4add13e..0c0a9d2 100644 --- a/prg.txt +++ b/prg.txt @@ -1,274 +1,60 @@ 0 rem !to "build/cookie.prg" -10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0" -20 if dm$<>"1"thendim cl$(23) -30 dm$="1" -50 ds$=chr$(17):rem cursor down -60 rs$=chr$(29):rem cursor right -65 ls$=chr$(157):rem cursor left -70 c1=15:c2=100:c3=1100:c4=12000 -80 print"{clear}{home}" +10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0":bn$="someone" +20 ds$=chr$(17):rem cursor down +30 rs$=chr$(29):rem cursor right +40 ls$=chr$(157):rem cursor left +50 c1=15:c2=100:c3=1100:c4=12000 +99 print"{clear}{home}" -400 cl$(0)="{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" -410 cl$(1)="{grey2}B{wht} you have {grey2}B{wht}cursor(c) {grey2}B" -420 cl$(2)="{grey2}B{wht} cookies {grey2}B" -430 cl$(3)="{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*{wht}cost: {grey2}B" -440 cl$(4)="{grey2}B bakery B" -450 cl$(5)="{grey2}B *CCCCCCCCCCC*" -460 cl$(6)="{grey2}B B{wht}grandma(g) {grey2}B" -470 cl$(7)="{grey2}B B" -480 cl$(8)="{grey2}B {brown}********{grey2} B{wht}cost: {grey2}B" -490 cl$(9)="{grey2}B {brown}*******{blk}**{brown}*{grey2} B" -500 cl$(10)="{grey2}B {brown}***{blk}*{brown}********{grey2} *CCCCCCCCCCC*" -510 cl$(11)="B {brown}***{blk}**{brown}*********{grey2} B B" -520 cl$(12)="B {brown}********{blk}**{brown}****{grey2} B B" -530 cl$(13)="B {brown}********{blk}**{brown}****{grey2} B B" -540 cl$(14)="B {brown}**************{grey2} B B" -550 cl$(15)="B {brown}*{blk}*{brown}************{grey2} B B" -560 cl$(16)="B {brown}*************{brown}*{grey2} B B" -570 cl$(17)="B {brown}******{blk}**{brown}****{grey2} B B" -580 cl$(18)="B {brown}*****{blk}**{brown}***{grey2} B B" -590 cl$(19)="B {brown}********{grey2} B B" -600 cl$(20)="B *CCCCCCCCCCC*" -610 cl$(21)="B B{wht}settings(s){grey2}B" -630 cl$(22)="B v2.9.0 B{grey1}upgrades(u){grey2}B" -630 cl$(23)="*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" +1000 print"{grey2}UCCCCCCCCCCCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCI" +1010 print"{grey2}B you have 0 {grey2}B{wht}cursor(c) {grey2}B" +1020 print"{grey2}B cookies {grey2}B{wht} "ca" {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" {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{wht}settings(s){grey2}B" +1220 print"{grey2}B v2.9.0 Bupgrades(u)B" +1230 print"{grey2}JCCCCCCCCCCCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCK" -650 rem ft$="0":mt$="0" +1300 print"{home}{down}{down}{down}{down}B "bn$"'s bakery -700 print cl$(0) -710 print cl$(1)ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$int(cc) -720 print cl$(2)"{wht} 0 {grey2}B"ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ca$ -730 print cl$(3) -740 print cl$(4)"{wht}15 {grey2}B" -750 print cl$(5) -760 print cl$(6) -770 print cl$(7)"{wht} 0 {grey2}B"ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ls$ga$ -780 print cl$(8) -790 print cl$(9)"{wht}100 {grey2}B" -800 print cl$(10) -810 print cl$(11):rem f -820 print cl$(12):rem f -830 print cl$(13):rem f -840 print cl$(14):rem f -850 print cl$(15) -860 print cl$(16):rem m -870 print cl$(17):rem m -880 print cl$(18):rem m -890 print cl$(19):rem m -900 print cl$(20) -910 print cl$(21) -920 print cl$(22) -940 print cl$(23) +1500 ft$="0":mt$="0" -950 rem stop - -1000 if ft$="0" then gosub 10000 -1010 if mt$="0" then gosub 11000 - -1410 get k$:if k$= "" then 1900 -1415 if k$=" " then 2000 -1420 if k$="c" then 3000 -1430 if k$="g" then 4000 -1440 if k$="f" then 5000 -1450 if k$="m" then 6000 -1460 if k$="s" then 30000 -1890 rem start of auto add -1900 cc=cc+cg -1910 print"{home}"ds$"{grey2}B{wht} you have "int(cc) -1920 goto 1000 - - -1990 rem start of 'clicking' - - -2000 cc=cc+1 +1900 if ft$="0" then goto 1900 rem gosub +1910 if mt$="0" then gosub +1920 get k$:if k$= "" then 1920 +1930 if k$=" " then 2100 +1940 if k$="c" then +1950 if k$="g" then +1960 if k$="f" then +1970 if k$="m" then +1980 if k$="s" then +1990 rem start of auto add +2000 cc=cc+cg 2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc) -2020 goto 1000 +2020 goto 1900 -2990 rem start of cursor CLEAN THIS CODE FOR 2.0.1 +2099 rem part 2 -3000 if cc