CSSCGC FoodBattle2024 update to BoozeBattle v001b

Next CSSCGC game idea .
Update Boozwars 2024 with Candy wars (

1.Expansion loader: BOOZ2FOOD.TAP load BoozfoodExpansion (must make this loader
2 Insert BoozeBattle TAPE MERGE "BoozeBat24"
Insert Booz2food.TAP and MERGE "BOOZ2FOOD"
2. When wins 2 times LOADs BARFOODLDR.TAP
3. Then we enter code :BARMFOODUP
4. We insert Original  MERGE "RetroWars" .TAP
Then we reinsert BOOZ2FOOD.TAP to load "BARMFOODUP"




BASIC to MERGE :
-------------------------
Initial you load BoozfoodExpansion FOODBOOEXP.TAP
5 PRINT "INSERT boozbattle 2024 TAPE"
10 MERGE "BoozeBat24"
15 PRINT "INSERT Food Booze Expansion TAPE"
20 MERGE "BOOZ2FOOD"
30 RUN

----------------------------------------
BoozeBattle BOOZ2FOOD.TAP:
1 REM v0.27b_241019 BoozeBattle 2024 updater to FoodBattles and RetroWars Updater to FoodWars


1240 PRINT "You try to eat as much as you can and out-eat your friend."
1280 PRINT "Educational , Strategic "'"& AF Department!"
5050   PRINT "Foods Available (Pick 1-16):"
5100   PRINT "Select your Food (1-16):"

5130   REM --- spectrum selects a random food ---
5150   REM --- Display the selected Foods ---
5170   PRINT "Selected Foods :"


7000 REM Reactions after each food (not implemented yet)
7120 PRINT "You grab a napkin and start     drawing plans for future world  domination!":RETURN
7130 PRINT "You take out your phone and attempt to take a selfie, but you keep getting the ceiling instead.":RETURN
7140 PRINT "You see some pretty girls in the bar. You try not to burp...You succeed but you fart instead...": RETURN
7150 PRINT "You see a beautiful girl in front of you! You wink and send a kiss... Then you remember there only you and your friend are in the tavern.":RETURN
7160 PRINT "You try to restrain yourself    from pissing your pants!"'" You succeed ...partially...": RETURN
7170 PRINT "You are not drunk but you can   feel the earth rotation and it's movement arround the sun!": RETURN
7180 PRINT "You see that your friend brought his other two brothers. They all wear and look the same. You are polite and say hello to them!": RETURN


8505 PRINT FLASH 1; "To reduce your full belly stats!"; FLASH 0:PRINT : PRINT "Keys (Ri/Le/Up/Do): W, A, S, D": PRINT :

8650 LET a$(1)="Toilet":LET a$(2)="GIRL":LET a$(3)="Soda"

9100 REM --- Initialize the Food List (D$) and Grades (G) ---
9110 DIM D$(16, 18)  : REM Food names and countries
9120 DIM T$(4,18) : REM Food Categories
9130 DIM G(16, 4)   : REM Food grades for 4 categories
9140 REM Define the foods and countries
9150 LET D$(1) = "Moussaka - Greece"
9160 LET D$(2) = "Dolma - Greece"
9170 LET D$(3) = "Baklava - Greece"
9180 LET D$(4) = "Souvlaki - Greece"
9190 LET D$(5) = "Gyros - Greece"
9200 LET D$(6) = "Haggis - Scotland"
9210 LET D$(7) = "Tacos - Mexico"
9220 LET D$(8) = "Borscht - Russia"
9230 LET D$(9) = "Sushi - Japan"
9240 LET D$(10) = "Ropa Vieja - Cuba"
9250 LET D$(11) = "Pasta - Italy"
9260 LET D$(12) = "Dim Sum - China"
9270 LET D$(13) = "Fish and Chips - England"
9280 LET D$(14) = "Ceviche - Peru"
9290 LET D$(15) = "Gulyás - Hungary"
9300 LET D$(16) = "Sausage - Germany"


9320 LET T$(1) = "Belly Resilience"
9330 LET T$(2) = "Brain Fuzziness"
9340 LET T$(3) = "Wobble Factor"
9350 LET T$(4) = "Food Coma Probability"

9370 REM Define grades for each category: (Stomach Endurance, Brain Function, Body Control, Hangover Severity)


9470 IF wincounter=2 THEN GOSUB 9600 : REM Option to Unlock RetroWars to BoozeWars

9600 CLS:REM Option to update the older RetroWars game to FoodWars
9610 PRINT "Congratulations!! You won FoodBattle 2024 two times and have UNLOCKED ";';FLASH 1;INVERSE 1;PAPER 6;INK 2;"Buy Food and Sell it for more money in another place simulator! 2024!";FLASH 0;INVERSE 0;PAPER 7;INK 0
9630 PRINT "The SECRET code is :";FLASH 1;"BARMFOODUP";FLASH 0
9690 IF q$ = "Y" OR q$ = "y" THEN INPUT "Start the tape and follow the instructions" : LOAD "BARFOODLDR"


----------------------------------------
RetroWars to FoodWars LOADER BARFOODLDR.TAP (this will be loaded from main Boozewars Updated game):
9989 REM BARMASIFMMIAPS Food UPDATER/LOADER v003
9990 PRINT "WELCOME TO "'"Buy Foods and Sell it for more money in another place simulator!"'"By Firelord Quality Games!":FOR I=1 TO 100 :PAPER RND*7:BORDER RND*7:NEXT I :PAUSE 0
9991 PRINT "Please,Enter the secret password you got when you won FoodBattle 2024: "
9993 INPUT n$
9994 FOR i=1 to 3: PRINT FLASH 1;"PLEASE INSERT BARMASIFMMIAPS"," tape "'"AND PRESS ANY KEY"';FLASH 0: NEXT i: PAUSE 0
9995 MERGE "RetroWars"
9996 FOR i=1 to 3: PRINT FLASH 1;"PLEASE INSERT FoodBattle 2024 ","tape."'"AND PRESS ANY KEY";FLASH 0: NEXT i: PAUSE 0
9997 MERGE n$ : REM ANTI-PIRACY GAME CRAP LOCK(c)! Password is not "BARMFOODUP"
9999 RUN
-------------------------------

NOTE we will add a loader TAP named BARMFOODUP.TAP (update retrowars to foodwars)

4 PRINT "WELCOME TO "'"Buy Food and Sell it for more money in another place simulator!"'"By Firelord Quality Games!":FOR I=1 TO 100 :PAPER RND*7:BORDER RND*7:NEXT I :PAUSE 0
9 PAPER 4:INK 3 :BORDER 2
10 LET ITEMS=6: DATA "Tacos",25,"Pasta",30,"Gyros",20,"Bread",35,"Pizza",5,"Sushi",25
21 DATA "London","Rome","Athens","Paris","Berlin"