'Search and Destroy Demo


CLS                                       'intro


PRINT "OmletteSoft presents:"


WHILE INKEY$ = ""


WEND


CLS


PRINT "Search & Destroy (The Demo)"


WHILE INKEY$ = ""


WEND


gamerules:


  CLS


  PRINT "The object of the game is to find and kill (search & destroy) an"


  PRINT "alien.  Unfortunately, the alien is hunting you.  The alien also"


  PRINT "has a bomb that might go off at any time.  You are in a cluster "


  PRINT "of 9 rooms.  Each time you turn comes, you have an opportunity  "


  PRINT "to pick which room you go into.  When you are prompted to, type "


  PRINT "the number of the room you want to go into.  After you are done "


  PRINT "the alien gets a chance to go.  If he walks into your room, he  "


  PRINT "will kill you.  If you walk into the room he's in, you might get"


  PRINT "a chance to kill him, but your aim sucks, so you might miss.  I "


  PRINT "hope you understand the rules to this game, because we are about"


  PRINT "to start the game.  If you wish to exit this game at any time,  "


  PRINT "hold down the CTRL-BREAK keys.  Have fun!!!"


  WHILE INKEY$ = ""


  WEND


  GOTO gamestart:


gamestart:


  RANDOMIZE TIMER


  CLS


  t = 10                    'Time left on time bomb


  a = INT(8 * RND + 2)      'Alien position


  ah = 1                    'Alien's health


  mh = 1                    'The player's health


  M = 1                     'The position you start from


  PRINT "You have entered Room 1.  The place smells like alien s@*!."


  INPUT "Where will you go (1-9)"; M


  IF 0 < p < 10 THEN GOTO 1


  IF M > 9 THEN mh = mh - 1


  IF M < 0 THEN mh = mh - 1


  IF mh = 0 THEN GOTO theend1


1 LET p = M


  IF M = a THEN GOTO faceoff


  GOTO alienturn


theend1:                    'You died because you ran into a wall


  CLS


  PRINT "You run into a wall and suffer a concussion."


  PRINT "The place blows up while you sleep."


  WHILE INKEY$ = ""


  WEND


  CLS


  PRINT "GAME OVER!!"


  END


theend2:                    'The place blows up.


  CLS


  PRINT "The alien got sick and tired of looking for you and he blew up"


  PRINT "the place."


  WHILE INKEY$ = ""


  WEND


  CLS


  PRINT "GAME OVER!!"


  END


theend3:                    'Alien shoots you


  CLS


  PRINT "The alien walks into the room you are in."


  PRINT "The alien shoots you."


  PRINT "Funny, the plasma blowing a hot, radioactive hole through you"


  PRINT "doesn't hurt as much as you thought it would..."


  WHILE INKEY$ = ""


  WEND


  CLS


  PRINT "GAME OVER!!"


  END


theend4:                    'You win


  CLS


  PRINT "Taking careful aim, you pull the trigger.  Alien blood & brain"


  PRINT "splatters as your bullet smacks the alien right between his beady"


  PRINT "little eyes."


  WHILE INKEY$ = ""


  WEND


  CLS


  PRINT "Congratulations on a job well done."


  PRINT


  PRINT "This game was programmed by the Omlette.  He hopes you had as much"


  PRINT "fun playing it as he had while he was programming it.  See you next"


  PRINT "mission."


  WHILE INKEY$ = ""


  WEND


  CLS


  END


faceoff:                           'You see the alien


  CLS


  PRINT "You see the alien."


2 INPUT "Will you shoot it (YES\NO)"; b$


  IF UCASE$(b$) = "YES" THEN GOTO theend4


  IF UCASE$(b$) = "NO" THEN GOTO theend5


  GOTO 2


alienturn:                         'The alien goes now.


  CLS


  t = t - 1


  IF t = 0 THEN GOTO theend2


  a = INT(9 * RND + 1)


  IF a = M THEN GOTO theend3


  GOTO yourturn


yourturn:                            'It's your turn to go


  PRINT "You didn't find the alien...yet."


  INPUT "Where do you want to go (1-9)"; M


  IF M > 9 THEN mh = mh - 1


  IF M < 0 THEN mh = mh - 1


  IF mh = 0 THEN GOTO theend1


  


  IF M = a THEN GOTO faceoff


  GOTO alienturn


theend5:


  CLS


  PRINT "The alien shoots you."


  PRINT "You writhe on the floor in pain as the alien watches you.  It laughs"


  PRINT "as you bleed to death.  Darn, now you'll never get that promotion."


  WHILE INKEY$ = ""


  WEND


  CLS


  PRINT "GAME OVER!!"


  END