'===========================================================================
' Subject: SHOOT'EM (ANNOYING PEOPLE)        Date: 06-11-96 (18:55)       
' Author:  Brian Hof/Connor Reynolds         Code: QB, QBasic, PDS        
' Origin:  dean@marshallnet.com            Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z
RANDOMIZE TIMER
LEVEL = 1
MAX = 4
CLS
COLOR 12
PRINT "Micro"; : COLOR 11: PRINT "Hof"; : COLOR 14: PRINT " presents..."
PRINT
COLOR 10
PRINT "Shoot'Em  "; : COLOR 2: PRINT "v1.0"; : COLOR 9: PRINT "   by"; : COLOR 11: PRINT " Brian Hof"; : COLOR 9: PRINT " and"; : COLOR 11: PRINT " Connor Reynolds"
COLOR 10
PRINT "--------------"
PRINT
COLOR 7
PRINT "   Does Barney annoy you?  Do you wish you could shoot Bill Gates to"
PRINT "death?  If you hate annoying people, or just plain stupid people, then"
PRINT "you'll enjoy this game."
PRINT "   Running around on the screen are four potential targets.  Use the"
PRINT "left and right arrows to move your gun, and the spacebar to fire.  To"
PRINT "advance a level, you only have to shoot the main targets.  With each"
PRINT "advance, five new people are added that just try to get in your way."
PRINT "   There is no level limit, play until you wish.  Then hit ESCAPE to"
PRINT "end the game.  After awhile, all the extra people should make it go"
PRINT "too slow, anyway."
PRINT
COLOR 4
PRINT "Good luck, and happy stress-relieving!"
COLOR 8
PRINT
PRINT "Any key to play..."
COLOR 14
PRINT
PRINT
PRINT "LEFT/RIGHT = Move Gun         SPACE = Fire    "
PRINT "ESCAPE     = Quit Shoot'Em    PLUS  = Next Level (intended for challenge)"
DO: B$ = INKEY$: LOOP UNTIL NOT B$ = ""
SCORE = 0
KILLS = 0
BEGIN:
CLS
COLOR 10
LOCATE 12, 35: PRINT "LEVEL"; LEVEL
SLEEP 2
REDIM HIT$(MAX)
REDIM X(MAX)
REDIM Y(MAX)
REDIM CHAR(MAX)
REDIM COL(MAX)
REDIM DIE$(4)
CLS
LOCATE 24, 1
COLOR 14, 1
PRINT " Potential Targets"; : COLOR 15: PRINT " :  "; : COLOR 5: PRINT "    BARNEY  "; : COLOR 10
PRINT "     POWER RANGER   "; : COLOR 12: PRINT "    ELMO   "; : COLOR 9: PRINT "    BILL GATES ";
LOCATE 25, 1
COLOR 15, 1
PRINT " Score :"; : COLOR 11: PRINT " 0 "; : COLOR 15: PRINT "      Kills :"; : COLOR 11: PRINT " 0    "; : COLOR 15: PRINT "   Message : "; : COLOR 14: PRINT "None                             "; : COLOR 12: PRINT " M"; : COLOR 11: PRINT "H ";
GOSUB RESCORE
COLOR , 0
FOR I = 1 TO MAX
X(I) = INT(RND * 80) + 1
Y(I) = INT(RND * 21) + 1
CHAR(I) = 1
COL(I) = 8
NEXT I
SAY1$(1) = "I Love You!"
SAY2$(1) = "Windows 95!"
SAY3$(1) = "It's Morphin' Time!"
SAY4$(1) = "Play A Game With Elmo!"
SAY1$(2) = "Hi, Boys And Girls!"
SAY2$(2) = "Where Do You Want To Go Today?"
SAY3$(2) = "Power Up!"
SAY4$(2) = "Elmo Loves Sesame Street!"
SAY1$(3) = "Use Good Manners!"
SAY2$(3) = "Start It Up!"
SAY3$(3) = "Call The Megazords!"
SAY4$(3) = "Sing A Song With Elmo!"
DIE$(1) = "That Wasn't Very Nice!          "
DIE$(2) = "Oh God, My Money!               "
DIE$(3) = "Calling White Ranger - I'm Down!"
DIE$(4) = "Elmo No Like This Game!         "
COL(1) = 5
COL(2) = 1
COL(3) = 10
COL(4) = 12
CHAR(1) = 2
CHAR(2) = 2
CHAR(3) = 2
CHAR(4) = 2
COLOR 8
LOCATE 22, 1: PRINT "Þ";
LOCATE 23, 1: PRINT "ß";
GUNX = 1
DO
FOR I = 1 TO MAX
IF HIT$(1) = "YES" AND HIT$(2) = "YES" AND HIT$(3) = "YES" AND HIT$(4) = "YES" THEN SLEEP 2: GOTO PASSL
B$ = INKEY$
IF B$ = "+" THEN GOTO PASSL
IF B$ = CHR$(27) THEN GOTO QUITME
IF B$ = CHR$(0) + "K" THEN
 COLOR 8
 LOCATE 22, GUNX: PRINT " ";
 LOCATE 23, GUNX: PRINT " ";
 GUNX = GUNX - 1
 IF GUNX = 0 THEN GUNX = 1
 LOCATE 22, GUNX: PRINT "Þ";
 LOCATE 23, GUNX: PRINT "ß";
END IF
IF B$ = CHR$(0) + "M" THEN
 COLOR 8
 LOCATE 22, GUNX: PRINT " ";
 LOCATE 23, GUNX: PRINT " ";
 GUNX = GUNX + 1
 IF GUNX = 81 THEN GUNX = 80
 LOCATE 22, GUNX: PRINT "Þ";
 LOCATE 23, GUNX: PRINT "ß";
END IF
IF B$ = CHR$(32) THEN
 BULLETY = 21
 BULLETX = GUNX
 LOCATE BULLETY, BULLETX
 COLOR 4
 PRINT "|";
 FOR Y = 21 TO 1 STEP -1
   PLAY "P32"
   LOCATE BULLETY, BULLETX: PRINT " ";
   BULLETY = BULLETY - 1
   IF BULLETY = 0 THEN GOTO SKIPP
   FOR P = 1 TO MAX
    IF BULLETY = Y(P) AND BULLETX = X(P) THEN
      COLOR 4
      LOCATE BULLETY, BULLETX: PRINT "#";
      COLOR 15, 1
      IF P = 1 THEN LOCATE 24, 26: PRINT "û"; : COLOR 0: PRINT "BARNEY";
      IF P = 3 THEN LOCATE 24, 39: PRINT "û"; : COLOR 0: PRINT "POWER RANGER";
      IF P = 4 THEN LOCATE 24, 58: PRINT "û"; : COLOR 0: PRINT "ELMO";
      IF P = 2 THEN LOCATE 24, 69: PRINT "û"; : COLOR 0: PRINT "BILL GATES";
      COLOR , 0
      X(P) = 0
      Y(P) = 0
      IF P > 4 THEN SCORE = SCORE + 1
      IF P = 1 OR P = 2 OR P = 3 OR P = 4 THEN SCORE = SCORE + 10
      KILLS = KILLS + 1
      IF P = 1 OR P = 2 OR P = 3 OR P = 4 THEN DEATH$ = DIE$(P) ELSE DEATH$ = ""
      GOSUB RESCORE
      HIT$(P) = "YES": GOTO SKIPP
    END IF
   NEXT P
   LOCATE BULLETY, BULLETX: PRINT "|";
 NEXT Y
SKIPP:
END IF
IF HIT$(I) = "YES" THEN GOTO GOTHIM
LOCATE Y(I), X(I)
COLOR COL(I)
PRINT " ";
C = INT(RND * 4) + 1
IF C = 1 THEN X(I) = X(I) - 1
IF C = 2 THEN X(I) = X(I) + 1
IF C = 3 THEN Y(I) = Y(I) - 1
IF C = 4 THEN Y(I) = Y(I) + 1
IF X(I) = 81 THEN X(I) = 80
IF X(I) = 0 THEN X(I) = 1
IF Y(I) = 0 THEN Y(I) = 1
IF Y(I) = 22 THEN Y(I) = 21
LOCATE Y(I), X(I)
COLOR COL(I)
PRINT CHR$(CHAR(I));
IF I > 4 THEN GOTO SKIP
J = INT(RND * 45)
IF J = 1 THEN
  FACT = 0
  Q = INT(RND * 3) + 1
  IF I = 1 THEN TEXT$ = SAY1$(Q)
  IF I = 2 THEN TEXT$ = SAY2$(Q)
  IF I = 3 THEN TEXT$ = SAY3$(Q)
  IF I = 4 THEN TEXT$ = SAY4$(Q)
  IF X(I) + LEN(TEXT$) > 79 THEN FACT = -LEN(TEXT$)
  IF Y(I) = 1 THEN GOTO SKIP
  LOCATE Y(I) - 1, X(I) + FACT
  PRINT TEXT$;
  'LOCATE Y(I) - 1, X(I)
  'PRINT STRING$(LEN(SAY$(I)), " ")
END IF
SKIP:
GOTHIM:
NEXT I
PLAY "MFP16"
LOOP
        
PASSL:
CLS
COLOR 14
PRINT "Congratulations!"
COLOR 9
PRINT "You shot all the annoyances!  Prepare to move to next level..."
LEVEL = LEVEL + 1
IF LEVEL < 51 THEN MAX = MAX + 5
COLOR 4
PRINT
PRINT "Press "; : COLOR 20: PRINT "ENTER"; : COLOR 4: PRINT " to continue..."
DEATH$ = "None                            "
DO
B$ = INKEY$
LOOP UNTIL B$ = CHR$(13)
IF B$ = CHR$(27) THEN GOTO QUITME
GOTO BEGIN

RESCORE:
COLOR 11, 1
LOCATE 25, 9: PRINT SCORE;
LOCATE 25, 25: PRINT KILLS;
COLOR 14, 1
LOCATE 25, 44: PRINT DEATH$;
COLOR , 0
RETURN

QUITME:
CLS
COLOR 5: PRINT STRING$(79, "Ä")
COLOR 14
PRINT "Thank you for playing"; : COLOR 10: PRINT " Shoot'Em"; : COLOR 14: PRINT " by "; : COLOR 12: PRINT "Micro"; : COLOR 11: PRINT "Hof"; : COLOR 14: PRINT "!"
COLOR 5: PRINT STRING$(79, "Ä")
COLOR 8
PRINT "Programmed and compiled using"; : COLOR 7: PRINT " QuickBasic"; : COLOR 8: PRINT " v4.5."
COLOR 5: PRINT STRING$(79, "Ä")
COLOR 2
PRINT "Final Score :"; : COLOR 10: PRINT SCORE; : COLOR 14: PRINT "    Good Shootin', Tex!"
COLOR 2
PRINT "Total Kills :"; : COLOR 10: PRINT KILLS
COLOR 5: PRINT STRING$(79, "Ä")
COLOR 12
PRINT "Micro"; : COLOR 11: PRINT "Hof"; : COLOR 14: PRINT " is                        "; : COLOR 4: PRINT " For more product info, write :"
PRINT "-----------"; : COLOR 12: PRINT "                           Brian Hof"
COLOR 11: PRINT "*"; : COLOR 9: PRINT " Brian Hof"; : COLOR 12: PRINT "                           212 S 11 St           "
COLOR 11: PRINT "*"; : COLOR 9: PRINT " Connor Reynolds"; : COLOR 12: PRINT "                     Marshalltown, IA  50158"
COLOR 5: PRINT STRING$(79, "Ä")
COLOR 12
COLOR 15
PRINT "OR write to "; : COLOR 8: PRINT ":"; : COLOR 12: PRINT " dean"; : COLOR 4: PRINT "@"; : COLOR 12: PRINT "marshallnet.com"
COLOR 5: PRINT STRING$(79, "Ä")
COLOR 7
END