'                                HIC QUEST 2:          
'                               Back for Booze

'                Adapted from the TI 82/83 Calculator Game

'                An adventure into the South like no other!
                       

'    Programmed for Qbasic by FROWARE SOFTWARE and BRIAN Q PROGRAMMING


' Hit SHIFT-F5 to play


'  Look for more Froware Software developments later this year!!






















RANDOMIZE TIMER
energy% = 100
money% = 10
b% = 0
weapon$ = "your chicken"
ride$ = "red tricycle"
w% = 1
t% = 1

COLOR 3, 1
CLS
LOCATE 11, 29
PRINT "Welcome to Hic Quest 2:"
LOCATE 12, 34
PRINT "Back for Booze"
LOCATE 14, 21
PRINT "Adapted from the TI-82/83 Calculator game"
LOCATE 23, 25
PRINT "Press any key to be a hic..."
1 key$ = INKEY$: IF key$ = "" THEN GOTO 1

2 CLS
IF w% = 2 THEN weapon$ = "table leg"
IF w% = 3 THEN weapon$ = "fencepost"
IF w% = 4 THEN weapon$ = "pointed stick"
IF w% = 5 THEN weapon$ = "bb gun"
IF w% = 6 THEN weapon$ = "12 gauge shotgun"
IF w% = 7 THEN weapon$ = "forklift"

IF t% = 2 THEN ride$ = "dead horse"
IF t% = 3 THEN ride$ = "pick-up truck"

IF b% >= 0 AND b% <= 19 THEN PRINT "DUMB ASS": che% = 1
IF b% >= 20 AND b% <= 39 THEN PRINT "SMART ASS": che% = 2
IF b% >= 40 AND b% <= 59 THEN PRINT "JEFF FOXWORTHY": che% = 3
IF b% >= 60 AND b% <= 79 THEN PRINT "RED NECK": che% = 4
IF b% >= 80 AND b% <= 99 THEN PRINT "SOUTHENER": che% = 5
IF b% >= 100 THEN GOTO 100
PRINT "Energy:"; energy%
PRINT "B.A.C.:"; b%
PRINT "Cash:"; money%
PRINT "You fight with a "; weapon$
PRINT "You ride a "; ride$
LOCATE 23, 5
PRINT "Hit a key to go on..."
3 key$ = INKEY$: IF key$ = "" THEN GOTO 3

4 CLS
LOCATE 5, 5
PRINT "Choose one:"
LOCATE 6, 5
PRINT "1-Drink Al-k-hau"
LOCATE 7, 5
PRINT "2-Go huntin'"
LOCATE 8, 5
PRINT "3-Trading post"
LOCATE 9, 5
PRINT "4-Exit the game"
LOCATE 10, 5
PRINT "5-Help and Tips"
LOCATE 11, 5
INPUT "Choose one (1-5)"; opton%
IF opton% < 1 OR opton% > 5 GOTO 4
IF opton% = 5 THEN GOTO 400
IF opton% = 4 THEN END
IF opton% = 3 THEN GOTO 90
IF opton% = 2 THEN GOTO 10

5 CLS
LOCATE 15, 5
PRINT "You have:$"; money%
LOCATE 1, 1
PRINT "What do you want to drink?"
PRINT "1-Beer                                1$"
PRINT "2-Wine                                3$"
PRINT "3-Rubbing Al-k-hau                    5$"
PRINT "4-Go to main menu"
INPUT "What's your choice (1-4)"; drink%
IF drink% < 1 OR drink% > 4 THEN GOTO 5
6 IF drink% = 1 THEN INPUT "How many do you want?"; number%: IF number% > money% THEN PRINT "You don't have enough cash!": LOCATE 7, 1: PRINT "                               ": LOCATE 6, 1: GOTO 7
IF drink% = 1 THEN b% = b% + number%: money% = money% - number%: GOTO 2
IF drink% = 2 THEN money% = 0: PRINT "Hicks don't drink wine!  A guy who talks like a frenchman takes your money": PRINT "and gives you a bottle of semen.  Sick!"
IF drink% = 4 THEN GOTO 2
IF drink% = 3 AND money% > 4 THEN b% = b% + 5: money% = money% - 5: PRINT "You chug the stuff!"
IF drink% = 3 AND money% < 5 THEN PRINT "You don't have enough cash!"
7 key$ = INKEY$: IF key$ = "" THEN GOTO 7
GOTO 2

10 CLS
LOCATE 5, 5
PRINT "Choose where you want to hunt:"
LOCATE 6, 5
PRINT "1-Woodlands"
LOCATE 7, 5
PRINT "2-Bain"
LOCATE 8, 5
PRINT "3-Mini-Mall"
LOCATE 9, 5
PRINT "4-Go to Main Menu"
LOCATE 10, 5
PRINT "5-Exit the game"
LOCATE 11, 5
INPUT "Your choice (1-5)"; butt%
IF butt% < 1 OR butt% > 5 THEN GOTO 10
IF butt% = 5 THEN END
IF butt% = 4 THEN GOTO 2
IF butt% = 3 AND t% < 3 THEN PRINT "You need a pick-up truck to get here!": GOTO 11
IF butt% = 2 AND t% < 2 THEN PRINT "Your tricycle won't make it to the consulting firm!": GOTO 11
IF butt% = 1 THEN GOTO 12
IF butt% = 2 THEN GOTO 40
IF butt% = 3 THEN GOTO 70
11 key$ = INKEY$: IF key$ = "" THEN GOTO 11
GOTO 10

12 CLS
LOCATE 5, 5
PRINT "In woodlands..."
LOCATE 6, 5
PRINT "1-Cousin Ralf"
LOCATE 7, 5
PRINT "2-Wild Bear"
LOCATE 8, 5
PRINT "3-Rock"
LOCATE 9, 5
PRINT "4-Go to main menu"
LOCATE 10, 5
INPUT "Your choice (1-4)"; wood%
IF wood% < 1 OR wood% > 4 THEN GOTO 12
IF wood% = 4 GOTO 2
ralf% = 40
bear% = 50
rock% = 60
IF wood% = 2 THEN GOTO 20
IF wood% = 3 THEN GOTO 30

13 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Cousin"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT ralf%
IF ralf% < 1 OR energy% < 1 THEN GOTO 16
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 12
IF less% = 2 THEN lesss% = 15
IF less% = 3 THEN lesss% = 19
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% > 4 THEN beeef% = beeef% - 1
IF w% <= 4 THEN beeef% = beeef% + 1

energy% = energy% - beeef%
ralf% = ralf% - lesss%

15 key$ = INKEY$: IF key$ = "" THEN GOTO 15
GOTO 13
16 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF ralf% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 7
IF be% = 2 THEN extra% = 9
IF be% = 3 THEN extra% = 10

heal% = INT(7 * RND + 1)

8 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 8
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 19
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

19 key$ = INKEY$: IF key$ = "" THEN GOTO 19
GOTO 2

20 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Wild Bear"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT bear%
IF bear% < 1 OR energy% < 1 THEN GOTO 26
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 12
IF less% = 2 THEN lesss% = 15
IF less% = 3 THEN lesss% = 19
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 2
IF w% > 1 THEN beeef% = beeef% + 0
IF w% = 5 THEN beeef% = beeef% - 1
IF w% > 5 THEN beeef% = beeef% - 4
energy% = energy% - beeef%
bear% = bear% - lesss%

21 key$ = INKEY$: IF key$ = "" THEN GOTO 21
GOTO 20
26 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF bear% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 5
IF be% = 2 THEN extra% = 7
IF be% = 3 THEN extra% = 9


28 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 28
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 29
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

29 key$ = INKEY$: IF key$ = "" THEN GOTO 29
GOTO 2



30 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Rock"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT rock%
IF rock% < 1 OR energy% < 1 THEN GOTO 36
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 12
IF less% = 2 THEN lesss% = 15
IF less% = 3 THEN lesss% = 19
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 1
IF w% > 1 THEN beeef% = beeef% + 2
IF w% = 5 THEN beeef% = beeef% - 4
IF w% > 5 THEN beeef% = beeef% - 5
energy% = energy% - beeef%
rock% = rock% - lesss%

31 key$ = INKEY$: IF key$ = "" THEN GOTO 31
GOTO 30
36 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF rock% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 8
IF be% = 2 THEN extra% = 9
IF be% = 3 THEN extra% = 10

heal% = INT(RND * 10 + 1)

38 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 38
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 39
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

39 key$ = INKEY$: IF key$ = "" THEN GOTO 39
GOTO 2

40 CLS
LOCATE 5, 5
PRINT "Bain"
LOCATE 6, 5
PRINT "1-Consultant"
LOCATE 7, 5
PRINT "2-VP"
LOCATE 8, 5
PRINT "3-B+D"
LOCATE 9, 5
PRINT "4-Go to Main menu"
LOCATE 10, 5
INPUT "Your choice (1-4)"; pick%
bainee% = 60
vp% = 70
bd% = 80
IF pick% < 1 OR pick% > 4 GOTO 40
IF pick% = 4 THEN GOTO 2
IF pick% = 3 THEN GOTO 50
IF pick% = 2 THEN GOTO 60


41 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Bainee"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT bainee%
IF bainee% < 1 OR energy% < 1 THEN GOTO 46
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 12
IF less% = 2 THEN lesss% = 15
IF less% = 3 THEN lesss% = 19
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 4
IF w% > 1 THEN beeef% = beeef% + 2
IF w% = 5 THEN beeef% = beeef% - 3
IF w% > 5 THEN beeef% = beeef% - 5
energy% = energy% - beeef%
bainee% = bainee% - lesss%

42 key$ = INKEY$: IF key$ = "" THEN GOTO 42
GOTO 41
46 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF bainee% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 12
IF be% = 2 THEN extra% = 13
IF be% = 3 THEN extra% = 16

heal% = INT(RND * 15 + 1)

48 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 48
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 49
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

49 key$ = INKEY$: IF key$ = "" THEN GOTO 49
GOTO 2


50 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "VP"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT vp%
IF vp% < 1 OR energy% < 1 THEN GOTO 56
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 12
IF less% = 2 THEN lesss% = 15
IF less% = 3 THEN lesss% = 19
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 6
IF w% > 1 THEN beeef% = beeef% + 3
IF w% = 5 THEN beeef% = beeef% - 2
IF w% > 5 THEN beeef% = beeef% - 4
energy% = energy% - beeef%
vp% = vp% - lesss%

52 key$ = INKEY$: IF key$ = "" THEN GOTO 52
GOTO 50
56 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF vp% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 14
IF be% = 2 THEN extra% = 15
IF be% = 3 THEN extra% = 17


58 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 58
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 59
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

59 key$ = INKEY$: IF key$ = "" THEN GOTO 59
GOTO 2

60 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "B+D"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT bd%
IF bd% < 1 OR energy% < 1 THEN GOTO 66
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 12
IF less% = 2 THEN lesss% = 15
IF less% = 3 THEN lesss% = 19
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 9
IF w% > 1 THEN beeef% = beeef% + 5
IF w% = 5 THEN beeef% = beeef% - 1
IF w% > 5 THEN beeef% = beeef% - 4
energy% = energy% - beeef%
bd% = bd% - lesss%

62 key$ = INKEY$: IF key$ = "" THEN GOTO 62
GOTO 60
66 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF bd% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 19
IF be% = 2 THEN extra% = 18
IF be% = 3 THEN extra% = 20


68 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 68
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 69
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

69 key$ = INKEY$: IF key$ = "" THEN GOTO 69
GOTO 2

70 CLS
LOCATE 5, 5
PRINT "In Mini-Mall"
LOCATE 6, 5
PRINT "1-Security Guard"
LOCATE 7, 5
PRINT "2-Cashier"
LOCATE 8, 5
PRINT "3-Rent-A-Cop"
LOCATE 9, 5
PRINT "4-Go to Main menu"
LOCATE 10, 5
INPUT "Your choice (1-4)"; pick%
guard% = 70
cashier% = 80
cop% = 90
IF pick% < 1 OR pick% > 4 GOTO 70
IF pick% = 4 THEN GOTO 2
IF pick% = 3 THEN GOTO 81
IF pick% = 2 THEN GOTO 300

71 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Guard"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT guard%
IF guard% < 1 OR energy% < 1 THEN GOTO 76
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 9
IF less% = 2 THEN lesss% = 11
IF less% = 3 THEN lesss% = 13
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 15
IF w% > 1 THEN beeef% = beeef% + 10
IF w% = 5 THEN beeef% = beeef% - 0
IF w% > 5 THEN beeef% = beeef% - 5
energy% = energy% - beeef%
guard% = guard% - lesss%

72 key$ = INKEY$: IF key$ = "" THEN GOTO 72
GOTO 71
76 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF guard% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 21
IF be% = 2 THEN extra% = 17
IF be% = 3 THEN extra% = 18


78 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 78
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 79
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

79 key$ = INKEY$: IF key$ = "" THEN GOTO 79
GOTO 2

81 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Cashier"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT cashier%
IF cashier% < 1 OR energy% < 1 THEN GOTO 76
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 9
IF less% = 2 THEN lesss% = 11
IF less% = 3 THEN lesss% = 13
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 11
IF beef% = 2 THEN beeef% = 12
IF beef% = 3 THEN beeef% = 13
IF w% = 1 THEN beeef% = beeef% + 15
IF w% > 1 THEN beeef% = beeef% + 10
IF w% = 5 THEN beeef% = beeef% - 0
IF w% > 5 THEN beeef% = beeef% - 5
energy% = energy% - beeef%
cashier% = cashier% - lesss%

82 key$ = INKEY$: IF key$ = "" THEN GOTO 82
GOTO 81
86 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF cashier% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 22
IF be% = 2 THEN extra% = 21
IF be% = 3 THEN extra% = 13


88 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 88
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 89
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

89 key$ = INKEY$: IF key$ = "" THEN GOTO 89
GOTO 2


90 CLS
PRINT "What do you want to get by trading..."
PRINT "1-A vehicle"
PRINT "2-A weapon"
PRINT "3-Go to main menu"
INPUT "Your choice (1-3)"; hic%
IF hic% < 1 OR hic% > 3 THEN GOTO 90
IF hic% = 3 GOTO 2
IF hic% = 2 GOTO 95
200 CLS
IF t% = 2 GOTO 91
IF t% = 1 THEN PRINT "I'll give you a non-living horse for 30$ and that tricycle"
INPUT "Do you do it?  yes or no"; hick$
IF LCASE$(hick$) = "yes" AND money% > 29 THEN PRINT "You make the trade!": money% = money% - 30: t% = t% + 1: GOTO 92
IF LCASE$(hick$) = "yes" AND money% < 30 THEN PRINT "You don't got enough cash!": GOTO 92
IF LCASE$(hick$) = "no" THEN PRINT "Too Bad!" ELSE GOTO 200
IF LCASE$(hick$) = "no" THEN GOTO 92
91 PRINT "I'll give you a pick-up truck for 100$ and that horse!"
INPUT "Do you do it?  Yes or no"; hick$
IF hick$ = "yes" AND money% > 99 THEN PRINT "You make the trade!": money% = money% - 100: t% = t% + 1: GOTO 92
IF hick$ = "yes" AND money% < 100 THEN PRINT "You don't got enough cash!"
IF hick$ = "no" THEN PRINT "Too Bad!" ELSE GOTO 200
92 LOCATE 23, 15
PRINT "Press any key to go on..."
93 key$ = INKEY$: IF key$ = "" THEN GOTO 93
GOTO 2
95 GOTO 150

100 CLS
PRINT "You win!  Your are voted king of the Hicks because your blood is blue!"
PRINT "Huzzah!  Huzzah!  Your blood has been completly changed to al-k-hau!!!"
END




150 CLS
IF w% = 1 THEN GOTO 155
IF w% = 2 THEN GOTO 165
IF w% = 3 THEN GOTO 175
IF w% = 4 THEN GOTO 185
IF w% = 5 THEN GOTO 215
IF w% = 6 THEN GOTO 225

PRINT "You've got the best around!  I cannot help you!"
151 LOCATE 20, 5
PRINT "Hit a key to go on..."
153 key$ = INKEY$: IF key$ = "" THEN GOTO 153
GOTO 2

155 CLS
PRINT "I'll give you a table leg for 10$ and that chicken!"
INPUT "Do you trade-yes or no?"; fish$
IF fish$ = "no" THEN PRINT "Too bad!": GOTO 151
IF fish$ = "yes" AND money% < 10 THEN PRINT "You don't have enough cash!": GOTO 151
IF fish$ = "yes" AND money% > 9 THEN PRINT "You make the trade!": w% = w% + 1: money% = money% - 10: GOTO 151
GOTO 155

165 CLS
PRINT "I'll give you a fencepost for 30$ and that table leg!"
INPUT "Do you trade-yes or no?"; fish$
IF fish$ = "no" THEN PRINT "Too bad!": GOTO 151
IF fish$ = "yes" AND money% < 30 THEN PRINT "You don't have enough cash!": GOTO 151
IF fish$ = "yes" AND money% > 29 THEN PRINT "You make the trade!": w% = w% + 1: money% = money% - 30: GOTO 151
GOTO 165

175 CLS
PRINT "I'll give you a pointed stick for 50$ and that fencepost!"
INPUT "Do you trade-yes or no?"; fish$
IF fish$ = "no" THEN PRINT "Too bad!": GOTO 151
IF fish$ = "yes" AND money% < 50 THEN PRINT "You don't have enough cash!": GOTO 151
IF fish$ = "yes" AND money% > 49 THEN PRINT "You make the trade!": w% = w% + 1: money% = money% - 50: GOTO 151
GOTO 175

185 CLS
PRINT "I'll give you a bb gun for 75$ and that stick!"
INPUT "Do you trade-yes or no?"; fish$
IF fish$ = "no" THEN PRINT "Too bad!": GOTO 151
IF fish$ = "yes" AND money% < 75 THEN PRINT "You don't have enough cash!": GOTO 151
IF fish$ = "yes" AND money% > 74 THEN PRINT "You make the trade!": w% = w% + 1: money% = money% - 75: GOTO 151
GOTO 185


215 CLS
PRINT "I'll give you a 12 gauge shotgun for 100$ and that bb gun!"
INPUT "Do you trade-yes or no?"; fish$
IF fish$ = "no" THEN PRINT "Too bad!": GOTO 151
IF fish$ = "yes" AND money% < 100 THEN PRINT "You don't have enough cash!": GOTO 151
IF fish$ = "yes" AND money% > 99 THEN PRINT "You make the trade!": w% = w% + 1: money% = money% - 100: GOTO 151
GOTO 215

225 CLS
PRINT "I'll give you a forklift for 125$ and that shotgun!"
INPUT "Do you trade-yes or no?"; fish$
IF fish$ = "no" THEN PRINT "Too bad!": GOTO 151
IF fish$ = "yes" AND money% < 125 THEN PRINT "You don't have enough cash!": GOTO 151
IF fish$ = "yes" AND money% > 124 THEN PRINT "You make the trade!": w% = w% + 1: money% = money% - 125: GOTO 151
GOTO 215



300 CLS : LOCATE 5, 25: PRINT "FIGHT-----------------FIGHT!!": LOCATE 11, 15: PRINT "You": LOCATE 11, 55: PRINT "Cop"
LOCATE 12, 15: PRINT energy%: LOCATE 12, 55: PRINT cop%
IF guard% < 1 OR energy% < 1 THEN GOTO 306
less% = INT(RND * 3 + 1)
IF less% = 1 THEN lesss% = 9
IF less% = 2 THEN lesss% = 11
IF less% = 3 THEN lesss% = 13
beef% = INT(RND * 3 + 1)
IF beef% = 1 THEN beeef% = 13
IF beef% = 2 THEN beeef% = 14
IF beef% = 3 THEN beeef% = 19
IF w% = 1 THEN beeef% = beeef% + 17
IF w% > 1 THEN beeef% = beeef% + 12
IF w% = 5 THEN beeef% = beeef% - 1
IF w% > 5 THEN beeef% = beeef% - 4
energy% = energy% - beeef%
cop% = cop% - lesss%

302 key$ = INKEY$: IF key$ = "" THEN GOTO 302
GOTO 300
306 IF energy% < 1 THEN PRINT "You died!  Try again and drink more, hickhead!": END
IF cop% < 0 AND energy% > 0 THEN PRINT "You were victorious!"
be% = INT(RND * 3 + 1)
IF be% = 1 THEN extra% = 8
IF be% = 2 THEN extra% = 9
IF be% = 3 THEN extra% = 10

che% = INT(RND * 3 + 1)
IF che% = 1 THEN heal% = 3
IF che% = 2 THEN heal% = 4
IF che% = 3 THEN heal% = 8

308 PRINT "You found "; extra%; " dollars on the coprse!": money% = money% + extra%
PRINT "A doctor comes up to you on your way home and will heal you for "; heal%; ""
PRINT "1-Yeah..."
PRINT "2-Nope"

INPUT "Do you let him heal you?"; meal%
IF meal% > 2 OR meal% < 1 THEN GOTO 308
IF meal% = 2 THEN PRINT "You go home wounded!": GOTO 309
IF meal% = 1 THEN PRINT "He heals you!": energy% = 100: money% = money% - heal%

309 key$ = INKEY$: IF key$ = "" THEN GOTO 309
GOTO 2

400 CLS
PRINT "The object of this game is to get your B.A.C. level to 100.  You can"
PRINT "achieve this by defeating people in battles bu hunting.  You can "
PRINT "defeat better and richer people by getting better weapons and"
PRINT "vehicles by trading.  Try not to get killed!!"
PRINT "Tips: Kill easier people and earn good weapons before going on"
PRINT "to the second and third levels.  Good Luck!"
401 key$ = INKEY$: IF key$ = "" THEN GOTO 401
GOTO 2