'                           EMPIRE AT 11:00
'                             Version 2.75
'                         a strategic game by
'                          FROWARE  SOFTWARE

'    Hit SHIFT-F5 to play

'    This game will test your skills as a good planner and strategist.
'  A lot of luck is needed too.  Try to beat my highest score of 37 pts!

'    Look for our new recently released program, Cotillion-a-roo '98!!
'         It's a hillarious role-playing game of a dinner-dance!!

'         Stay tuned for more Qbasic and ZZT games by Froware Software

' In the next few months look for: Storm Chaser-a-roo, Nagano 98, and Baseball
'              FROWARE SOFTWARE--our name isn't redudant; we are.

1 RANDOMIZE TIMER
day% = 1
tables% = 1
money% = 2
mutiny% = 5
COLOR 14, 1
CLS
LOCATE 12, 32
PRINT "Empire at 11:00"
LOCATE 14, 20
PRINT "A game of total lunchroom domination"
LOCATE 23, 14
PRINT "Hit a key to continue..."
SLEEP
                   'Please don't change the programming code!
10 CLS
IF day% = 15 THEN GOTO 20
IF mutiny% < 3 THEN GOTO 30
PRINT "Today is day"; day%; "out of 14 days."
PRINT "Money:"; money%
PRINT "Tables:"; tables%
PRINT "Happiness rating:"; mutiny%
INPUT "Choices-(G)RUB, (T)AKE OVER, (F)EED, (H)ELP, (E)XIT"; choice$
IF LCASE$(choice$) = "e" THEN END
IF LCASE$(choice$) = "g" OR LCASE$(choice$) = "t" OR LCASE$(choice$) = "f" OR LCASE$(choice$) = "h" THEN GOTO 11 ELSE GOTO 10
11 IF LCASE$(choice$) = "h" THEN GOTO 50
IF LCASE$(choice$) = "g" THEN froman% = INT(RND * 5): CLS : PRINT "Today, you've earned"; froman%; "dollar(s)!": money% = money% + froman%: day% = day% + 1: SLEEP: GOTO 10
IF LCASE$(choice$) = "t" THEN beef% = INT(RND * 3): CLS : PRINT "Today you've added"; beef%; "table(s) to your empire!": tables% = tables% + beef%:  mutiny% = mutiny% - beef%: day% = day% + 1: SLEEP: GOTO 10
7 LOCATE 6, 1: IF LCASE$(choice$) = "f" THEN INPUT "Which food-(C)heesesteak 5$, (F)ries 3$, (P)otato Chips 2$"; food$
IF LCASE$(food$) = "c" AND money% < 5 THEN PRINT "You don't have enough money!": SLEEP: GOTO 10
IF LCASE$(food$) = "c" AND money% > 4 THEN PRINT "You help feed your table(s).": money% = money% - 5: mutiny% = mutiny% + 5: day% = day% + 1: SLEEP: GOTO 10
IF LCASE$(food$) = "f" AND money% > 2 THEN PRINT "You help feed your table(s)!": mutiny% = mutiny% + 4: money% = money% - 3: day% = day% + 1: SLEEP: GOTO 10
IF LCASE$(food$) = "f" AND money% < 3 THEN PRINT "You don't have enough money!": SLEEP: GOTO 10
IF LCASE$(food$) = "p" AND money% > 1 THEN PRINT "You help feed your table(s)!": mutiny% = mutiny% + 3: money% = money% - 2: day% = day% + 1: SLEEP: GOTO 10
IF LCASE$(food$) = "p" AND money% < 2 THEN PRINT "You don't have enough money!": SLEEP: GOTO 10
GOTO 7

20 CLS
score% = 2 * tables%
score% = score% + money%
score% = score% + mutiny%
PRINT "Your 14 days are over!"
PRINT "Your score is:"; score%
IF score% > 37 THEN PRINT "YOU HAVE BEATEN MY HIGHEST SCORE!!  CONGRATS!!"
LOCATE 6, 1
PRINT "You had a total of"; tables%; "table(s)."
PRINT "You finished with"; money%; "dollar(s)."
PRINT "Your final happiness rating was:"; mutiny%;
LOCATE 13, 1
INPUT "Wanna play again (y for yes, anything else for no)"; fro$
IF LCASE$(fro$) = "y" THEN GOTO 1
END
                     'Thanks for not touching the code!
30 CLS
PRINT "Your fellow students rebel against you!!"
PRINT "You lose tables!!"
tables% = 1
mutiny% = 5
SLEEP
GOTO 10

50 CLS
PRINT "The object of this game is to have the most points by Day 14."
PRINT "GRUB helps you get money."
PRINT "TAKE OVER, brings more tables to your control, but makes people not like you"
PRINT "FEED makes people like you more, but it costs money."
PRINT "More expensive food will make others like you better."
PRINT "GRUBBING can be difficult, and some days you may not get any money at all!"
PRINT "If you TAKE OVER too much, and your table mates's happiness rating gets"
PRINT "below 3, they will rebel and you'll lose territory."
PRINT "Some days, territory will be unavaiable and the day will be a waste!"
PRINT "Good Luck!!  Send all comments to frostorm@aol.com"
SLEEP
GOTO 10

' Please do not modify the programming code!  Thanks!