'                                 STAR WARS
'                           Attack of the Rebels
'                             (SPECIAL EDITION)
'                            by Froware Software

' Play the exciting adventures of Luke Skywalker, Princess Leia, Chewbacca,
' Lando, and more as you sneak into a Imperial base to gain time for the
' Rebellion.  Fight stormtroopers, military leaders, and even Grand Morf
' Fartkin!  These exciting adventures all occur between the escape from the
' crime leader Xizor and the rescue of Millenium Falcon pilot Han Solo.  Try
' old friends and new friends as you have an adventure you'll never forget!

'                    HIT SHIFT-F5 TO START THE ADVENTURE
'               Part of the 'Summer of 98 Collection Series'
'  Like this game?  Ideas?  Comments?  Suggestions?  Send to Frostorm@aol.com

' Froware Software-a leader in adventure programming for Qbasic, ZZT, and DOS
RANDOMIZE TIMER
COLOR 14, 0
CLS
LOCATE 12, 36
PRINT "STAR WARS"
LOCATE 13, 20
PRINT "Return on the Youth Group Adventures"
LOCATE 23, 1
INPUT "Hit m for music; any other key for none"; fro$

CLS
PRINT "HERE ARE THE UNTOLD EVENTS BETWEEN SHADOWS OF THE EMPIRE AND RETURN OF THE"
PRINT "JEDI."
PRINT ""
PRINT "Episode V1/2"
PRINT "Rebel Attack"
PRINT ""
PRINT "REBEL SPIES MANAGE TO FIND THE LOCATION OF A HIDDEN IMPERIAL BASE."
PRINT "DESTRUCTION OF THIS BASE WILL GREATLY HELP THE REBELS BUY TIME BEFORE THE"
PRINT "NEW DREADED DEATH STAR IS OPERATIONAL.  YOU CAN PICK WHICH REBEL SPY YOU"
PRINT "ARE.  YOUR MISSION IS TO DEFEAT BAD GUYS AND KILL GRAND MORF FARTKIN WHO"
PRINT "IS IN CHARGE OF THE BASE.  YOU GAIN EXPERIENCE POINTS.  THE MORE EXPERIENCE"
PRINT "YOU HAVE THE MORE HITS YOU CAN TAKE.  YOU HAVE DIFFERENT WEAPONS WITH "
PRINT "DIFFERENT STRENGTHS.  DIFFERENT RACES ALSO AFFECT YOUR ATTRIBUTES."
PRINT "GOOD LUCK! THE REBELS NEED YOUR HELP SO THE EMPIRE WILL FALL AND PRINCESS"
PRINT "LEIA CAN ORGANIZE A NEW GOVERENMENT WHICH WILL RESTORE"
PRINT "FREEDOM TO THE GALAXY..."
IF fro$ = "m" THEN GOTO 2 ELSE GOTO 3
2 PLAY "o4c2g2f6e6d6o5c2o4g2f6e6d6o5c2o4g2f6e6f6d2o4c2g2f6e6d6o5c2o4g2f6e6d6o5c2o4g2f6e6f6d2"
PLAY "o3g6a2o4f6e6d6c6c2d12e12d8o3g3g6a2o4f6e6d6c6o4g2d6d2o3g6a2o4f6e6d6c6c2d12e12d8o3g6g6a6g6a6b6o4c6o3b6a6b6o4c6c16c16c16c6c6c2": GOTO 1
3 SLEEP

1 CLS
PRINT "Pick your character..."
PRINT "ACTUAL NAME-race       NAME                    HIT PTS          WEAPON"
PRINT "1-Joel Peters (Human)  Luke Skywalker             30           Lightsaber"
PRINT "2-James (Wookie)       Chewbacca                  35           Crossbow"
PRINT "3-Brian (Human)        Lando Calrissean           25           Blaster"
PRINT "4-Dianna (Human)       Leia Organa                25           Blaster"
PRINT "5-Alycia (Droid)       Al-3GO                     20           Electric Shock"
PRINT "6-Shannon (Hutt)       Java!                      20           Acidic Spit"
PRINT "7-Slappy Jr. (Human)   Dash Rendar                25           Blaster"
INPUT "Select your choice...(1-7)"; pick%
IF pick% < 1 OR pick% > 7 THEN GOTO 1
IF pick% = 1 THEN name$ = "Luke": max% = 30: weapon$ = "lightsaber"
IF pick% = 2 THEN name$ = "Chewbacca": max% = 35: weapon$ = "crossbow"
IF pick% = 3 THEN name$ = "Lando": max% = 25: weapon$ = "blaster"
IF pick% = 4 THEN name$ = "Leia": max% = 25: weapon$ = "blaster"
IF pick% = 5 THEN name$ = "Al-3GO": max% = 20: weapon$ = "shock"
IF pick% = 6 THEN name$ = "Java": max% = 20: weapon$ = "acid"
IF pick% = 7 THEN name$ = "Dash": max% = 25: weapon$ = "blaster"
defense% = max%
level% = 1
kits% = 10
killed% = 0
5 CLS
PRINT name$
PRINT "You have this many hit points:"; defense%; "/"; max%
PRINT "You're on experience level:"; level%
PRINT "You've got this many experience points:"; killed%
PRINT "You make it to the turbo lift and hit a random button..."
enemy% = INT(RND * 100) + 1
IF enemy% > 0 AND enemy% < 51 THEN enemy$ = "Imperial Storm Trooper": groovy% = 1
IF enemy% > 0 AND enemy% < 25 THEN enhit% = 15
IF enemy% > 24 AND enemy% < 51 THEN enhit% = 20
IF enemy% > 50 AND enemy% < 71 THEN enemy$ = "Super Storm Trooper": enhit% = 25: groovy% = 3
IF enemy% > 69 AND enemy% < 91 THEN enemy$ = "Imperial Military leader": enhit% = 30: groovy% = 5
IF enemy% > 89 AND enemy% < 98 THEN enemy$ = "General": enhit% = 35: groovy% = 8
IF enemy% = 98 THEN enemy$ = "Admiral Sock": enhit% = 45: groovy% = 12
IF enemy% = 99 THEN enemy$ = "Super Admiral Pantahand": enhit% = 55: groovy% = 20
IF enemy% = 100 THEN enemy$ = "Grand Morf Fartkin": enhit% = 70: groovy% = 30
SLEEP
6 CLS
IF killed% = 4 THEN level% = 2: max% = max% + 10: killed% = killed% + 1
IF killed% = 9 THEN level% = 3: max% = max% + 5: killed% = killed% + 1
IF killed% = 14 THEN level% = 4: max% = max% + 10: killed% = killed% + 1
IF killed% = 19 THEN level% = 5: max% = max% + 5: killed% = killed% + 1
IF killed% = 24 THEN level% = 6: max% = max% + 10: killed% = killed% + 1
IF killed% = 34 THEN level% = 7: max% = max% + 10: killed% = killed% + 1
IF killed% = 54 THEN level% = 8: max% = max% + 10: killed% = killed% + 1
7 CLS
PRINT name$
PRINT "You have this many hit points:"; defense%; "/"; max%
PRINT "You're on experience level:"; level%
PRINT "You've got this many experience points:"; killed%
PRINT "You are facing a "; enemy$
PRINT "They have a total of "; enhit%; "hit points!"
PRINT "1-Engage in Battle"
PRINT "2-Flee"
PRINT "3-Suicide"
PRINT "4-Surrender"
PRINT "5-Use a Health kit ("; kits%; ")"
INPUT "What now...(1-4)"; choice%
IF choice% < 1 OR choice% > 5 THEN GOTO 7
IF choice% = 5 AND defense% = max% THEN PRINT "You don't need to use this!": SLEEP: GOTO 7
IF choice% = 5 AND kits% = 0 THEN PRINT "You have none left!": SLEEP: GOTO 7
IF choice% = 5 THEN defense% = max%: kits% = kits% - 1: GOTO 6
IF choice% = 1 THEN GOTO 10
IF choice% = 2 THEN GOTO 20
IF choice% = 3 THEN PRINT "You kill yourself with your weapon!  You lose!": END
IF choice% = 4 THEN PRINT "You surrender to the "; enemy$: PRINT "You lose!": END

10 LOCATE 15, 1: PRINT "Your points"; defense%; "/"; max%
PRINT "Enemys points "; enhit%
lost% = INT(RND * 10 + 1)
hiton% = INT(RND * 10 + 1)
IF level% > 3 THEN hiton% = hiton% + 3
IF weapon$ = "lightsaber" THEN lost% = lost% - 2: IF lost% < 3 THEN lost% = 0
IF weapon$ = "blaster" THEN hiton% = hiton% + 1
IF weapon$ = "shock" THEN hiton% = hiton% + 1
IF level% > 6 THEN hiton% = hiton% + 5: lost% = lost% - 2: IF lost > 2 THEN lost% = 0
enhit% = enhit% - hiton%
defense% = defense% - lost%
LOCATE 15, 1: PRINT "Your points"; defense%; "/"; max%
PRINT "Enemy's points "; enhit%
IF defense% <= 0 THEN PRINT "You have died!  Sorry!": END
IF enhit% <= 0 THEN PRINT "You have destroyed the "; enemy$: killed% = killed% + groovy%
IF enhit% <= 0 THEN added% = INT(RND * 15): IF added% = 11 THEN PRINT "You have found an extra health kit on the corpse!": kits% = kits% + 1
IF enemy$ = "Grand Morf Fartkin" THEN PRINT "You have beaten the hardest enemy.  You torch the place and leave-you win!!": END
IF enhit% <= 0 THEN SLEEP: GOTO 5
SLEEP
GOTO 10

20 beef% = INT(RND * 5 + 1)
LOCATE 15, 1
PRINT "Your points"; defense%; "/"; max%
PRINT "As you flee you lost"; beef%; " hit points!"
defense% = defense% - beef%
IF defense% <= 0 THEN PRINT "You have died trying to run away!": END
SLEEP: GOTO 5