From 422cc71f5057963fa5a97a03b2a778eded9b7fbc Mon Sep 17 00:00:00 2001 From: "Ian M. Skinner" Date: Sat, 16 Oct 2021 19:37:24 -0400 Subject: [PATCH] Saving and loading works now! (except it is pretty bad) --- CC64.d64 | 38 +++++++++++++++----------------------- Cookie Clicker.cbmprj | 11 ----------- Cookie Clicker.prg | Bin 374 -> 6587 bytes prg.txt | 39 +++++++++++++++++++++++++-------------- savedat.seq | 1 + savedat.txt | 0 6 files changed, 41 insertions(+), 48 deletions(-) create mode 100644 savedat.seq create mode 100644 savedat.txt diff --git a/CC64.d64 b/CC64.d64 index c6b16f2..9d0dcf0 100644 --- a/CC64.d64 +++ b/CC64.d64 @@ -1,29 +1,21 @@ KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK -ÃÃÃÃÉ";4 -x™"  Â";e -‚™"  Â";– -Œ™"«ÃÃÃÃÃÃÃÃÃÃÃÃÃÃó Â";Ç -–™"  Â";ø - ™"  Â";) Â";<@™" V2.9.0-1.0 •Â Â";mJ™"ÊÃÃÃÃÃÃÃÃÃÃÃÃÃÃñÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃË";¦T™" F1’ STORE F3’ OPTIONS F5’ STATS F7’ ASCEND";¶ô™""µ(CC)Éþ™"•Â COOKIES"×™"•Â"BN$í™"‘•Â BAKERY"ýè RANGE,4‰2000 : BIGGER THAN 5. (SMALLER IS FINE)7Ä 51000fÉ Y²1:X²I¤J : THIS SECTION PRINTS THE•Î ‹X²I§™"" : ITEM DATA IN THE GIVEN RANGE.µÓ ™R1$"‘"É(Ä(Y),1)"’ "NA$(X)ÉØ ™R1$R2$"‘"IA(X)Øâ ™R1$BD$(X)ìì ™R1$"‘"µ(PR(X)): Ç ‹Å(K$)±5§3070 : MAIN LOOP"Ì ‹Å(K$)³1§3070 :.Ñ X²Å(K$)9ù 3500Eþ 50000Y ‹K$²"+"§SS²SSª1m ‹K$²"-"§SS²SS«1| ‹SS²0§SS²1‹ ‹SS²5§SS²4™& ‹SS³±TS§Ž§0 ‹MS³±TM§Ž²: ‰ 3000Û¬ Y²IªX«1:‹Y±MB§Ž : BUYING SUBROUTINEï¶ ‹ CC³PR(Y)""R1$R2$""IA(Y)'ò ‹X²1§™""R1$""µ(PR(Y))Iü ‹X²2§™""R1$""µ(PR(Y))o‹X²3§™""R1$""µ(PR(Y))™‹X²4§™""R1$""µ(PR(Y))Ç‹X²5§™""R1$""µ(PR(Y))ÑX²0:Ž×'ôOÃ: IMPORTAŽ`êB²0:A²0¤MB:B²Bª(CG(A)­3.6):‚: ADDING SUBROUTINE/jê‹K$²" "§CC²CCª1Ptê‹CB±CC§™" "p~êCC²CCªB:™""µ(CC):CB²CC:ŽKKKK ª™"  Â";\ ´™"  ’  Â";‘ ¾™"  • ’  Â";Æ È™"  • ’  Â";ý Ò™"  • • ’   Â";? ™"  • • ’  Â";r ™"  ’  Â";¥ "™"  ’  Â";Ø ,™"  ’  Â"; 6™"  ‘ MS 2000ò‰ 1000FЋMS³±1§Ž : STORE PAGE SELECTION AND MENU SWITCHING AREA.†Ú‹SS±0§I²0:J²4:‹SS±1§I²5:J²9:‹SS±2§I²10:J²14:‹SS±3§I²15:J²17À TS²SS:TM²MS : 2010 SETS THE RANGE OF ITEM DATAõ*2500 : TO BE USED. DO NOT HAVE A ñ ™R1$"££££££££££££££££££££££":Y²Yª1ö ‚Gû ‹J²17§™R1$" PREV/NEXT(-/+)"i -™R1$"‘ PREV/NEXT(-/+)"t - 3000z - -Ž×¸ ¡ K$:X²0 : DON'T ADD A 'IFK$=""' OR ELSE THE ADDING ROUTINE WON'T RUN PROPERLYî 60000 §3610» ‹ IA(Y)²300§3610: TEMP ITEM CAPUÀ CC²CC«PR(Y):CG(Y)²CG(Y)ªBG(Y):PR(Y)²PR(Y)¬1.15:IA(Y)²IA(Y)ª1qÊ ‹X²1§™""R1$R2$""IA(Y)‘Ô ‹X²2§™""R1$R2$""IA(Y)µÞ ‹X²3§™""R1$R2$""IA(Y)Ýè ‹X²4§™""R1$R2$""IA(Y) í ‹X²5§™NT SUBROUTINESPËK$²"…"§50040:+ZËK$²"†"§50040: MENU SELECTING?dËK$²"‡"§50040:EnÃŽpxÃMS²«1¬(K$²"…")«2¬(K$²"†")«3¬(K$²"‡"):Ž8ÇX²1¤20: CLEARS THE MENUºBÇ‹X²1§™""R1$" ";ßLÇ™R1$" ";:‚å`ÇKKKK Â";4 Ü™"  • • ’  Â";g æ™"  ’  Â";š ð™"  ’  Â";Ï ú™"  • ’  Â"; ™"  • • • ’   +™"TEST1":Ÿ 8,8,8,"@0:SAVEDAT,S,R" : LOAD DATA„8,AL! „8,BN$+*„8,CC74X²0¤MBD>„8,CG(X)QH„8,PR(X)^R„8,IA(X)j\‚:  8:Žp'OÃ: IMPORTANT SUBROUTINES°PËK$²"…"§50040: MENU SELECTINGÂZËK$²"†"§50040ÔdËK$²"‡"§50040ÚnÃŽ "ADDS 44000 CPS"ö>ËBG(X)²44000 +?ËPR(X)²330000000&@ËX²Xª1:NA$(X)²"SHIPMENT"CAËBD$(X)²"ADDS 260000 CPS"TBËBG(X)²260000iCËPR(X)²5100000000ˆDËX²Xª1:NA$(X)²"ALCHEMY LAB"¦EËBD$(X)²"ADDS 1600000 CPS"¸FËBG(X)²1600000ÎGËPR(X)²75000000000èHËX X)²"ADDS 430 MILLION CPS"ÿRËBG(X)²430000000SËPR(X)²1700000000000002TËX²Xª1:NA$(X)²"PRISM"TUËBD$(X)²"ADDS 2.9 BILLION CPS"iVËBG(X)²2900000000„WËPR(X)²2100000000000000£XËX²Xª1:NA$(X)²"CHANCEMAKER"ÄYËBD$(X)²"ADDS 21 BILLION CPS"ÚZËBG(X)²2(X)²71000000000000000000!dËX²Xª1:NA$(X)²"IDLEVERSE"&!eËBD$(X)²"ADDS 8.3 TRILLION CPS">!fËBG(X)²8300000000000P!gËPR(X)²1.2Eª22V!hËŽ¥!`êB²0:A²0¤MB:B²Bª(CG(A)­3.6):‚: SLOW, HORRIBLE, NOT GOOD ADDING SUBROUTINE¹!jê‹K$²" "§CC²CCª1Ú!tê‹CB±CC§™" ""R1$R2$""IA(Y)'ò ‹X²1§™""R1$""µ(PR(Y))Iü ‹X²2§™""R1$""µ(PR(Y))o‹X²3§™""R1$""µ(PR(Y))™‹X²4§™""R1$""µ(PR(Y))Ç‹X²5§™""R1$""µ(PR(Y))ÑX²0:Ž×'ôOÃ: IMPORTAŽ`êB²0:A²0¤MB:B²Bª(CG(A)­3.6):‚: ADDING SUBROUTINE/jê‹K$²" "§CC²CCª1Ptê‹CB±CC§™" "p~êCC²CCªB:™""µ(CC):CB²CC:ŽKKKKxÃMS²«1¬(K$²"…")«2¬(K$²"†")«3¬(K$²"‡"):Ž$8ÇX²1¤20: CLEARS THE MENUOBÇ‹X²1§™""R1$" ";tLÇ™R1$" ";:‚z`ÇŽ’ ËX²0:NA$(X)²"CURSOR"«!ËBD$(X)²"ADDS .1 CPS"¸"ËBG(X)².1Å#ËPR(X)²15à$ËX²Xª1:NA$(X)²"GR260 CPS"î2ËBG(X)²260ÿ3ËPR(X)²1300004ËX²Xª1:NA$(X)²"BANK"25ËBD$(X)²"ADDS 1400 CPS"A6ËBG(X)²1400S7ËPR(X)²1400000m8ËX²Xª1:NA$(X)²"TEMPLE"ˆ9ËBD$(X)²"ADDS 7800 CPS"—:ËBG(X)²7800ª;ËPR(X)²20000000Ê<ËX²Xª1:NA$(X)²"WIZARD TOWER"æ=ËBD$(X)²²Xª1:NA$(X)²"PORTAL" IËBD$(X)²"ADDS 10 MILLION CPS"JËBG(X)²100000004KËPR(X)²1000000000000TLËX²Xª1:NA$(X)²"TIME MACHINE"uMËBD$(X)²"ADDS 65 MILLION CPS"ˆNËBG(X)²65000000¡OËPR(X)²14000000000000ÉPËX²Xª1:NA$(X)²"ANTIMATTER CONDENSER"ëQËBD$(1000000000ö[ËPR(X)²26000000000000000 \ËX²Xª1:NA$(X)²"FRACTAL ENGINE": ]ËBD$(X)²"ADDS 150 BILLION CPS"Q ^ËBG(X)²150000000000n _ËPR(X)²310000000000000000Œ `ËX²Xª1:NA$(X)²"ML MONITOR"¯ aËBD$(X)²"ADDS 1.1 TRILLION CPS"Ç bËBG(X)²1100000000000æ cËPR2 "ú!~êCC²CCªB:™""µ(CC):CB²CC:Ž²CC«PR(Y):CG(Y)²CG(Y)ªBG(Y):PR(Y)²PR(Y)¬1.15:IA(Y)²IA(Y)ª1qÊ ‹X²1§™""R1$R2$""IA(Y)‘Ô ‹X²2§™""R1$R2$""IA(Y)µÞ ‹X²3§™""R1$R2$""IA(Y)Ýè ‹X²4§™""R1$R2$""IA(Y) í ‹X²5§™NT SUBROUTINESPËK$²"…"§50040:+ZËK$²"†"§50040: MENU SELECTING?dËK$²"‡"§50040:EnÃŽpxÃMS²«1¬(K$²"…")«2¬(K$²"†")«3¬(K$²"‡"):Ž8ÇX²1¤20: CLEARS THE MENUºBÇ‹X²1§™""R1$" ";ßLÇ™R1$" ";:‚å`ÇKKKK ANDMA"ø%ËBD$(X)²"ADDS 1 CPS"&ËBG(X)²1'ËPR(X)²100*(ËX²Xª1:NA$(X)²"FARM"B)ËBD$(X)²"ADDS 8 CPS"N*ËBG(X)²8]+ËPR(X)²1100u,ËX²Xª1:NA$(X)²"MINE"Ž-ËBD$(X)²"ADDS 47 CPS"›.ËBG(X)²47«/ËPR(X)²12000Æ0ËX²Xª1:NA$(X)²"FACTORY"à1ËBD$(X)²"ADDS   !TO "BUILD/COOKIE.PRG"Z -MB²17:†NA$(MB):†IA(MB):†BD$(MB):†BG(MB):†PR(MB):†CG(MB)uŸ 8,8,8,"STOREDAT,S,R"X²0¤MB(„8,NA$(X)2„8,BD$(X)ª7„8,BG(X)·<„8,PR(X)ÓA™Xª1"/"MBª1:™PR(X)CG(X)ÙF‚ïP  8: GOSUB 52000 ZMS²1:BN$²"  ’  Â";W ú™"  • ’  Â"; ™"  • • • ’  Â";Ç ™"  • • ’  Â";ú ™"  ’   ;.T™" F1’ STORE F3’ OPTIONS F5’ STATS F7’ ASCEND";>ô™""µ(CC)Qþ™"•Â COOKIES"_™"•Â"BN$u™"‘•Â BAKERY"…è‘ MS 2000ò‰ 1000ÎЋMS³±1§Ž : STORE PAGE SELECTION AND MENU SWITCHING AREA.Ú‹SS±0§I²0:J²4:‹SS±1§I²5:J²9:‹SSÎ ‹X²I§™"" : ITEM DATA IN THE GIVEN RANGE.=Ó ™R1$"‘"É(Ä(Y),1)"’ "NA$(X)QØ ™R1$R2$"‘"IA(X)`â ™R1$BD$(X)tì ™R1$"‘"µ(PR(X))›ñ ™R1$"££££££££££££££££££££££":Y²Yª1¡ö ‚Ïû ‹J²17§™R1$" PREV/NEXT(-/+)"ñ -™R1$"‘ PREV/NEXT(-/"§SS²SS«1 ‹SS²0§SS²1 ‹SS²5§SS²4!& ‹SS³±TS§Ž/0 ‹MS³±TM§Ž:: ‰ 3000c¬ Y²IªX«1:‹Y±MB§Ž : BUYING SUBROUTINEw¶ ‹ CC³PR(Y)§3610œ» ‹ IA(Y)²300§3610: TEMP ITEM CAPÝÀ CC²CC«PR(Y):CG(Y)²CG(Y)ªBG(Y):PR(Y)²PR(Y)¬1.15:IA(Y)²IA(Y)ª1ùÊ ‹X²1§™""µ(PR(Y))!‹X²4§™""R1$""µ(PR(Y))O‹X²5§™""R1$""µ(PR(Y))YX²0:Ž_'|OÃ: IMPORTANT SUBROUTINESPËK$²"…"§50040:³ZËK$²"†"§50040: MENU SELECTINGÇdËK$²"‡"§50040:ÍnÃŽøxÃMS²«1¬(K$²"…")«2¬(K$:™""µ(CC):CB²CC:Ž²CC:ŽA)­3.6):‚: ADDING SUBROUTINE4jê‹K$²" "§CC²CCª1Utê‹CB±CC§™" "u~êCC²CCªB:™""µ(CC):CB²CC:ŽDDS 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 ANTIM. CONDENSER ADDS 430 MILLION CPS 430000000 170000000000000 P5LEVERSE ADDS 8.3 TRILLION CPS 8300000000000 1.2E+22 000000000000 +MB²17:†NA$(MB):†IA(MB):†BD$(MB):†BG(MB):†PR(MB):†CG(MB)t52000: REMOVE LATER” OPEN 8,8,8,"STOREDAT,S,R"¥ FORX=0TOMBÌ( INPUT#8,NA$(X):REM BUILDING NAMEú2 INPUT#8,BD$(X):REM BUILDING DESCRIPTION9 7  Â";H ¾™"  • ’  Â";} È™"  • ’  Â";´ Ò™"  • • ’  Â";ë Ü™"  • • ’  Â"; æ™"   ";)™"  ’  Â";\"™"  ’  Â";,™"  ’  Â";À6™"  Â";ó@™" V2.9.0-1.0 •Â Â" STORE PAGE SELECTION AND MENU SWITCHING AREA._Ú‹SS±0§I²0:J²4:‹SS±1§I²5:J²9:‹SS±2§I²10:J²14:‹SS±3§I²15:J²17™ TS²SS:TM²MS : 2010 SETS THE RANGE OF ITEM DATAÎ*2500 : TO BE USED. DO NOT HAVE A RANGE4‰2000 : BIGGER TH££££££££££££££££":Y²Yª1: THE BARS BELOW EACH ITEM$ö ‚Rû ‹J²17§™R1$" PREV/NEXT(-/+)"t +™R1$"‘ PREV/NEXT(-/+)" + 3000… + +Žá¸ ¡ K$:X²0: DON'T ADD AN 'IFK$=""THEN3000' OR ELSE THE ADDING ROUTINE WON'T RUN PROPERLYí 60Y)²300§3610: ITEM CAP (OTHERWISE YOU'D HAVE PRICES TOO BIG TO HANDLE)oÀ CC²CC«PR(Y):CG(Y)²CG(Y)ªBG(Y):PR(Y)²PR(Y)¬1.15:IA(Y)²IA(Y)ª1ªÊ ‹X²1§™""R1$R2$""IA(Y): FIND A BETTER WAY TO DO THISÊÔ ‹X²2§™""R1$R2$""IA(Y)îÞ ‹X²3§™""R1$R2$""µ(PR(Y)) +X²0:Žˆ‹MS³±2§Ž!’TM²MS+œ51005¦‰5000\ì™""R1$"1’ CHANGE YOUR BAKERY'S"kö™R1$"NAME"™R1$"££££££££££££££££££££££"¯ +™R1$"‘2’ CREATE A SAVE FILE"ÙR1$"ON A DISK"å™R1$"£££££££££££££££££££££DDS 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 ANTIM. CONDENSER ADDS 430 MILLION CPS 430000000 170000000000000 P5LEVERSE ADDS 8.3 TRILLION CPS 8300000000000 1.2E+22 000000000000 IDLEVERSE ADDS 8.3 TRILLION CPS 8300000000000 1.2E+22 -X)²Å(Y$): I SHOULD FIND OUR WHY AS SOON AS POSSIBLE.C A™Xª1"/"MBª1I F‚_ P  8: GOSUB 52000 ZMS²1:BN$²"SOMEONE'S":R1$²""± _R2$²"":SS²1Ð dCC²9999: STICK NEWS HERE. -n™"•“ÕÃÃÃÃÃÃÃÃÃÃÃÃÃÃòÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃSOMEONE'S":R1$²""A _R2$²"":SS²1X d STICK NEWS HERE.‹ n™"•“ÕÃÃÃÃÃÃÃÃÃÃÃÃÃÃòÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÉ";¼ x™"  Â";í ‚™"  Â"; -Œ™"«ÃÃÃÃÃÃÃ’  Â";N È™"  • ’  Â";… Ò™"  • • ’  Â";¼ Ü™"  • • ’  Â";ï æ™"  ’  Â";" ð™"  Â";- "™"  ’  Â";` ,™"  ’  Â";‘ 6™"  Â";Ä @™" V2.9.0-1.0 •Â Â";õ J™"ÊÃÃÃÃÃÃÃÃÃÃÃÃÃÃñÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃË"±2§I²10:J²14:‹SS±3§I²15:J²17H TS²SS:TM²MS : 2010 SETS THE RANGE OF ITEM DATA}*2500 : TO BE USED. DO NOT HAVE A RANGE´4‰2000 : BIGGER THAN 5. (SMALLER IS FINE)¿Ä 51000îÉ Y²1:X²I¤J : THIS SECTION PRINTS THE+)"ü - 3000 - -Ž_¸ ¡ K$:X²0 : DON'T ADD A 'IFK$=""' OR ELSE THE ADDING ROUTINE WON'T RUN PROPERLYv 60000 :•Ç ‹Å(K$)±5§3070 : MAIN LOOPªÌ ‹Å(K$)³1§3070 :¶Ñ X²Å(K$)Áù 3500Íþ 50000á ‹K$²"+"§SS²SSª1õ ‹K$²"-"R1$R2$""IA(Y)Ô ‹X²2§™""R1$R2$""IA(Y)=Þ ‹X²3§™""R1$R2$""IA(Y)eè ‹X²4§™""R1$R2$""IA(Y)‘í ‹X²5§™""R1$R2$""IA(Y)¯ò ‹X²1§™""R1$""µ(PR(Y))Ñü ‹X²2§™""R1$""µ(PR(Y))÷‹X²3§™""R1$"²"†")«3¬(K$²"‡"):Ž8ÇX²1¤20: CLEARS THE MENUBBÇ‹X²1§™""R1$" ";gLÇ™R1$" ";:‚m`ÇŽ£`êB²0:A²0¤MB:B²Bª(CG(A)­3.6):‚: ADDING SUBROUTINE·jê‹K$²" "§CC²CCª1Øtê‹CB±CC§™" "ø~êCC²CCªBSPACEBAR 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 ARISM 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 ID  !TO "BUILD/COOKIE.PRG"Z -MB²17:†NA$(MB):†IA(MB):†BD$(MB):†BG(MB):†PR(MB):†CG(MB)uŸ 8,8,8,"STOREDAT,S,R"X²0¤MB(„8,NA$(X)2„8,BD$(X)§7„8,Y$ì:PR(X)²Å(Y$): I HAVE NO CLUE WHY I SUDDENLY NEED THIS, BUT I DO.ö<„8,Y$3 >PR( ÃÃÃÃÃÃÃó Â";O -–™"  Â";€ - ™"  Â";± -ª™"  Â";ä -´™"  ’  Â"; ¾™"  • Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                     2A    ÿ‚COOKIE CLICKER  STOREDAT        STOREDAT        KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK \ No newline at end of file +900÷x 50000: 60000‚‹MS³±TM§ŽŒ‰ 5200HD™"TEST":Ÿ 8,8,8,"@0:SAVEDAT,S,W":™"L00": SAVE DATAYN˜8,AL:™"L10"kX˜8,BN$:™"L20"|b˜8,CC:™"L30"‘lX²0¤MB:™"L40+"X¥v˜8,CG(X):™"L50"¹€˜8,PR(X):™"L60"ÍŠ˜8,IA(X):™"L70"Ù”‚:  8:Ž   INPUT#8,BG(X):REM BUILDING CPS (NOT ACTUALLY PER SECOND)` < INPUT#8,PR(X):REM BUILDING PRICEs A ?X+1"/"MB+1:~ F NEXTœ P CLOSE 8:REM GOSUB 52000ï ZMS²2:BN$²"SOMEONE'S":R1$²"": MS IS THE MAIN SUBROUTINE VALUEE +_R2$²"  Â";M Œ™"«ÃÃÃÃÃÃÃÃÃÃÃÃÃÃó Â";~ –™"  Â";¯  ™"  Â";à ª™"  Â"; ´™"  ’  ’  Â";Q ð™"  ’  Â";† ú™"  • ’  Â";¿ ™"  • • • ’  Â";ö ™"  • • ’  Â;$J™"ÊÃÃÃÃÃÃÃÃÃÃÃÃÃÃñÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃË";]T™" F1’ STORE F3’ OPTIONS F5’ STATS F7’ ASCEND";mô™""µ(CC)€þ™"•Â COOKIES"Ž™"•Â"BN$¤™"‘•Â BAKERY"Âè‘ MS 2000, 5000:, 7000áò‰ 1000: THE MENU SELECTORЋMS³±1§Ž :AN 5. (SMALLER IS FINE)'Ä 51000: CLEAR DYNAMIC WINDOWVÉ Y²1:X²I¤J : THIS SECTION PRINTS THE…Î ‹X²I§™"" : ITEM DATA IN THE GIVEN RANGE.¥Ó ™R1$"‘"É(Ä(Y),1)"’ "NA$(X)¹Ø ™R1$R2$"‘"IA(X)Èâ ™R1$BD$(X)Üì ™R1$"‘"µ(PR(X))ñ ™R1$"££££££000ÿÇ ‹Å(K$)±5§3070Ì ‹Å(K$)³1§3070Ñ X²Å(K$)(ù 35004þ 50000H ‹K$²"+"§SS²SSª1\ ‹K$²"-"§SS²SS«1k ‹SS²0§SS²1z ‹SS²5§SS²4ˆ& ‹SS³±TS§Ž–0 ‹MS³±TM§Ž¡: ‰ 3000ʬ Y²IªX«1:‹Y±MB§Ž : BUYING SUBROUTINEÞ¶ ‹ CC³PR(Y)§3610.» ‹ IA("IA(Y)è ‹X²4§™""R1$R2$""IA(Y)Bí ‹X²5§™""R1$R2$""IA(Y)`ò ‹X²1§™""R1$""µ(PR(Y))‚ü ‹X²2§™""R1$""µ(PR(Y))¨‹X²3§™""R1$""µ(PR(Y))Ò‹X²4§™""R1$""µ(PR(Y))‹X²5§™""R1$"SPACEBAR 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 ARISM 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 ID £"(™R1$"‘3’ LOAD A SAVE FILE"2™R1$"FROM A DISK"=<™R1$"££££££££££££££££££££££"^F™R1$"‘4’ MANAGE YOUR SAVES"K™R1$"££££££££££££££££££££££"šP¡K$ :¹Z‹Å(K$)±4§5240 : MAIN LOOPÎd‹Å(K$)³1§5240 :ãn‘Å(K$)5700,5 ":SS²1: HUH? THAT ISN'T RIGHT. WHY ARE R1 AND R2 THE SAME?‡ +d STICK NEWS HERE. ALSO SS IS THE SHOP PAGE. (TO BE NAMED SP)º +n™"•“ÕÃÃÃÃÃÃÃÃÃÃÃÃÃÃòÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÉ";ë +x™"  Â"; ‚™" Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ðƒýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                     2A    ÿ‚cOOKIE cLICKER  STOREDAT        SAVEDAT         SAVEDAT         KKKKKKKKKKKKKKKKK + 0 SOMEONE'S 9990 9990 15 99 0 100 0 0 1100 0 0 12000 0 0 130000 0 0 1400000 0 0 20000000 0 0 330000000 0 0 5.1E+09 0 0 7.5E+10 0 0 1E+12 0 0 1.4E+13 0 0 1.7E+14 0 0 2.1EKKKKKKKKKY+15 0 0 2.6E+16 0 0 3.1E+17 0 0 7.10000001E+19 0 0 1.2E+22 0 SAVEDAT         KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK \ No newline at end of file diff --git a/Cookie Clicker.cbmprj b/Cookie Clicker.cbmprj index 6d4cc32..d2e94b8 100644 --- a/Cookie Clicker.cbmprj +++ b/Cookie Clicker.cbmprj @@ -63,16 +63,5 @@ False True - - Tune.bas - - 1 - False - - - - True - True - \ No newline at end of file diff --git a/Cookie Clicker.prg b/Cookie Clicker.prg index b67732afdf27b16376fab508fa632d64612b97b1..42ef4722c3f6b95352de484042bd5f9adf059960 100644 GIT binary patch literal 6587 zcmb7IeQ+Da6@Qeb_}kG(B-yg;_2FWPIEqdmwj(~m>2#7VmUQCoWLs$<0n!#qN&hI5 zGMy;}LlRPBhq#1EIt+y&;MPfpiIOtV4lPaS1QLd!6xt5M&_Zd4252d5X-gUC+r2wk zIubKE&sev+@BMyn-|oKm_ReYQZ35Uu`gMhHsj{3;uND<$OqRkWHOs;JrWPoqs{BZD zdr=q&7E+<)c3CifQ)#m!l{Gp_s_`qbHr&|M2{VakBoayPBC1qS#wC&$bV-G~o7_mL zl%ygV9io4nrYowH7W5%)Naf(6rd}M+DC*=T5nU;y;Mt}icF4t2SwDYth*~lkN+Kj- z7R$vfDGCJ%K4^;8iBbFPVrfYeRk@_gN)gsHkJL+NKOroZG!iT-IuS&@EadYQQj%1n zNup9rhhS6l#dYd9cRN=}l|>1@-YlTl+R2qXx0)-YR`N->xjBPfMQKupdz(x6D&`eU zBBN|ZSw$-}e^@Q2ogvr}-j9jPfenXPl|{}O)6wf)ReL5;fz*@GHPYYC-q zwLNVr87x$B57Syg=}6lPh7#3bM2l=osJ+$p3R7cDhDJ?q3ANt#KQF2=C(wU$WC@ka z+uuD~mF?{x*i;PLmgM<)`)ALgd)e^A9_G76&o5!%`|TY}(bS|%Wzj7)uTY22P-A+A zFXr%P38oDloT*aNp&Co6?CKb@R7@SFv6RY_9m6#h!>mu?_(#WORACtzkA~NTBdhpu zglgrmx{?N}eOwaw;9Jl0oq>Zq`cI5YelMmbDX_!^tT3`P@)hK&U67j*hM zGDieWl!|FoyrJ`-sOWM8xE}{aF$A}CeuV8kXswZCH4bJwn?A$3I1KWzztf4W-Bbdf zlrSc#6%LMezIpC$8ro+FO{YU7!IJ6_8Npw8t@FKecM{&nvn=vU#WJR;yd9ZnRnwAsp^7sw9yB8w;Uj1Ox{R8v3PrR> z$q-q`td50%0M9MIuxTcWGc|PxHQq=YWlc(lNm?N^Ip+kdD+B`pmO0{0JE@OqN>nQ) zXS0~OF{c$t0+Wwcz-*2km?<-u8bdJXc&d3OVY*PvOM*($6)Y)akxazGPtjhb>)n=jR5Cba$x(^5@{Gu@**yebyc^XCMarHTBLTz4H#jqJ?<#8;3*u2B= zkmJ|Q`!K0`eMXrBuQ=W| zA#ks;Y9s``&c7Rd51#hnl9g&@fu?-A1Svt)Fem4g2_gw%j#&%?&i9+AKz07Fd73Wg zJTuZ^JeG?~sx-cuRx`m>t5=3NxX}qM#$?VU@ond_mKhSGn|GVDrDYagb3WGk02v!d zPU0rpg)2+z4k4Y!eMtu8%-Fys9EUa*smdTxR3hcEV4_x|5Z$a+ku$+G)iPZStS{Ak z1>SKUZJi;*s2PEeoyS|Je;FJb2pvky$08#UaJZf|dk*tPPr&u7*2yXpf}rcas2jsg z2yxd(_(~661ahvXw&^h}qE>SASTt$c0uLKp?MB}!v+n>8*Snl;cwDLxD#gP$U0&8q z&}JO&a9u!~hY#u6{4Ct#inOs~su!^JfGgRy)9}y<*TMEmRbH4pz$d3GhYBg<7^lh= zI`PE<4_FOnHJ}novi>Uje~=Gj z7%<4$e{|D=`$Rh)44xef-0^frJLrx^RV?}Ou;E!wNjhE=$b?X#+<4CEF@qEC7pZEr zL6vSrLmmF=ewB{LJ~3V=<5}@0m5HBLrcN%k;vFiNIHO#h?4}j(QQ6v*IBF6*gOyMS zrdE7NM{8EoQTi-O{9wiBI#8l!wqfRH|lqy;P$lcveu!n(cPUM(Gw$cLzOn zv*7jI;bJ>5iW{)sGv{Iv8&-Pmb+On83D3i>o%9622G83rn%6iQvz(X|Mcg15z;O?$ zX4b-M3S94b-^C&Uy`6C|;{i8oo;Dgi=-}WHPm3Y3+Zjbr%s@Jg?HUd7899#_$2@LB zf+j7JmbEbs{^aTX6x?OrpoNQRJFf_Im(`*Ay-{O4qbh|O?j_!fKLz(nZ^pun&*6=$ zNV6()0tH78-0B@O1RQ6a^Y^?Z_XA@CR;)CCle^$??|Qcxtm5;DXgosm2)otg6{Q5v zc{iKG7`e=0_@j4=dpC<+GYKpXh7xOVwf^nB$!&(Nq!kI5`KH{9;byt-PWMiB>4Zyt zY0o~6=aS#I?&g<8l5{r4?RGMVRClFs>xp1q?(LLM~VBz>br%oV8mKhb-u59 zFk?pc;~jphZ!7Di_iVV$cMEM`n83zezVFZm1_5l`>$}@CmAoHs!?SS0*XG^FMbBi5 zN^N0_$!vMi=keaoZ27&9&^Kz!UwjwRSG46{zPQ)2n^^G?xX!=Y0;2^f z-0qLq&@%X4Nul-qeSW?XFghGD5D)sJCL(sh6aJV5Nh_fUyyTDDFjGPiBjUUML?a*{ z$C8*W!^i$%%X8QVj-C+<5}OorWzVP$6HD?EjlG$kHI1kvqZVqpCuyS6KDf5$A`_KP zoj!0!&&4*_33X9FQ6r zc*bDbzcrAtd~S5Zoq?>$F~UkpgXG~r&PKw*OrC?|0ojHhAq6>~r`Ha)tS<-FSriNl zO@1#hW^&MrP3-|^Z{EhD%LV$qkly=nnPa_$My}yRBUh%kXmSmk#>2*5#o{uykx2(T zdP_DkjGA&mUL^p>?=1C;b#M^a_d|<*f(wxMKOCC52X4gOr~gqH_^{m^-bESXf-5C1$ukuV5+ZT zBjg+T_V%r}_!gnzNZ%JMLSxTZrXb^Q`Zm}YGb+XsAy1@YmaXA``mSgs`wOz!#w+7(WL#1;+^%nsFE-MShGRC`56PEI+EHukP-y7r|FTKThojO$Gz#wi zYfsL?HT|1Tr7*YMDzMTenX0B1f_TXhLO+UyheOFJOzaw7l!r)8QB^sWmxkDn>*B=>N(oRu>R%o?V{s9<;ar##7T`>X0bXD~7|KZ#j6Z|K?MMa4K2%2`MS2 K@b-mCAK?E8{Pv*$ literal 374 zcmZurJ4ysW5Pb?ljj6^`Vq#DW-96py%wV{|1`{ldo0w{%fyoA%`3n~D0DFN2Va?_O zp25`9SUm%cfmBdc@5kGrW7@?tw|(&L%<+bG*RkO>w_+N8!G!kEjV!KcA8YQm&WjC6 z(`|!P)p(T|bNPx=)wriata#S&JJ0%0%OCuNM>2thenreturn 5010 tm=ms -5020 gosub5500 +5020 gosub5100 5030 goto5000 -5500 gosub51000:rem clear screen -5510 ?r1$"change name"; -5530 ?r1$"{$a3*22}{down}" -5540 ?r1$"save"; -5560 ?r1$"{$a3*22}{down}" -5570 ?r1$"load"; -5590 ?r1$"{$a3*22}{down}" -5600 getk$:rem main loop -5610 gosub 60000:rem adding routine -5620 +5100 ?"{home}{down}"r1$"{reverse on}1{reverse off} change your bakery's" +5110 ?r1$"name" +5120 ?r1$"{cm t*22}{down}" +5130 ?r1$"{up}{reverse on}2{reverse off} create a save file" +5140 ?r1$"on a disk" +5150 ?r1$"{cm t*22}{down}" +5160 ?r1$"{up}{reverse on}3{reverse off} load a save file" +5170 ?r1$"from a disk" +5180 ?r1$"{cm t*22}{down}" +5190 ?r1$"{up}{reverse on}4{reverse off} manage your saves" +5195 ?r1$"{down}{cm t*22}{down}" -5700 open 8,8,8,"@0:savedat,s,w" :rem save data + +5200 getk$ :rem +5210 ifval(k$)>4then5240 :rem main loop +5220 ifval(k$)<1then5240 :rem +5230 onval(k$)gosub5700,5900 +5240 gosub 50000:gosub 60000 +5250 ifms<>tmthenreturn +5260 goto 5200 + + +5700 print"1":open 8,8,8,"@0:savedat,s,w":rem save data 5710 print#8,al 5720 print#8,bn$ 5730 print#8,cc @@ -128,7 +139,7 @@ 5770 print#8,ia(x) 5780 next:close 8:return -5900 open 8,8,8,"@0:savedat,s,r" :rem load data +5900 print"2":open 8,8,8,"@0:savedat,s,r":rem load data 5910 input#8,al 5920 input#8,bn$ 5930 input#8,cc diff --git a/savedat.seq b/savedat.seq new file mode 100644 index 0000000..49a5094 --- /dev/null +++ b/savedat.seq @@ -0,0 +1 @@ + 0 SOMEONE'S 0 0 15 0 0 100 0 0 1100 0 0 12000 0 0 130000 0 0 1400000 0 0 20000000 0 0 330000000 0 0 5.1E+09 0 0 7.5E+10 0 0 1E+12 0 0 1.4E+13 0 0 1.7E+14 0 0 2.1E+15 0 0 2.6E+16 0 0 3.1E+17 0 0 7.10000001E+19 0 0 1.2E+22 0 \ No newline at end of file diff --git a/savedat.txt b/savedat.txt new file mode 100644 index 0000000..e69de29