!*************************** AMUS Program Label ******************************
! Filename: AFRIC2.BAS                                      Date: 12/12/90
! Category: GAME         Hash Code: 450-241-426-015      Version:                
! Initials: TFBC/AM      Name: A. Grant Thomson
! Company: T F Business Computers                  Telephone #: 4166753282
! Related Files: 
! Min. Op. Sys.:                               Expertise Level: BEG
! Special: 
! Description: African safari text adventure game                           
!                 
! 
!*****************************************************************************
! Written by Lee Pallmann of UltraSoft Corporation. 14-October-1987.
! Enhanced by Grant Thomson of T F Business Computers. 15-June-1990. 1-416-675-3282

MAPS:	MAP1 OPT,F,6
	MAP1 OPS,F,6
	MAP1 DOOR,B,1
	MAP1 DOLL,B,1
	MAP1 TIME'PASSES,B,1	! Time spent in a location
	MAP1 ABOVE,B,1		! If you are above the camp, ABOVE=1
	MAP1 KNIFE,B,1
	MAP1 TEMPLE,B,1		! If you've been in temple, TEMPLE=1
	MAP1 JEEP,B,1		! If you've ridden in a jeep, JEEP=1

INIT:	ON ERROR GOTO CTRLC

START:	PRINT TAB(-1,0)
	PRINT TAB(10) "AFRICAN ADVENTURE"
	PRINT
	PRINT "You are on an African safari."

GRASS:	PRINT "You are standing in a field of tall grass.  To the west"
	PRINT "you see a field and to the east is a jungle."
	PRINT "	[1] Go West"
	PRINT "	[2] Go East"
	PRINT "	[3] Stay Put"
	OPS=3 : CALL OPT
	ON OPT GOTO FIELD, JUNGLE, LION

FIELD:	PRINT "You are in a field. You notice a Rhino grazing nearby."
	PRINT "	[1] Make loud noises"
	PRINT "	[2] Continue west anyway"
	PRINT "	[3] Go east - into the jungle"
	PRINT "	[4] Wait"
	PRINT "	[5] Go NorthWest around the Rhino"
	OPS=5 : CALL OPT
	ON OPT GOTO RHINO, ANYWAY, JUNGLE, SNAKE, AROUND

RHINO:	PRINT "The Rhino charges after you and, despite your attempts"
	PRINT "to flee, gores you to death."
	GOTO DEAD

LION:	PRINT "A mountain lion pounces on you from behind and eats you"
	PRINT "for lunch."
	GOTO DEAD

ANYWAY:	PRINT "The Rhino sees you and decides to make an example out of you,"
	PRINT "trampling you into the ground."
	GOTO DEAD

AROUND:	PRINT "You are just north of the Rhino.  He is watching you."
	PRINT "The land is becoming desert."
	PRINT "	[1] Give the Rhino the finger"
	PRINT "	[2] Go North"
	PRINT "	[3] Wait"
	PRINT "	[4] Go SouthEast back to the field"
	OPS=4 : CALL OPT
	ON OPT GOTO ANYWAY, DESERT, JEEP, FIELD

JEEP:	PRINT "A Jeep drives by and you are offered a ride."
	PRINT "	[1] Give the driver the finger"
	PRINT "	[2] Accept the ride"
	OPS=2 : CALL OPT
	ON OPT GOTO HUNTER, RIDE

HUNTER:	PRINT "The driver says: ";CHR$(34);"Yer buzzard bait, mate!";CHR$(34);
	PRINT ", promptly pulls out a "
	PRINT "hunting rifle and blows your head off."
	GOTO DEAD

RIDE:	PRINT "The driver drives you north across the desert, and drops you off."
	JEEP=1
	GOTO OASIS

DESERT:	PRINT "You are in the open desert."
	PRINT "	[1] Continue North"
	PRINT "	[2] Wait"
	PRINT "	[3] Go South"
	OPS=3 : CALL OPT
	IF OPT=2 AND TIME'PASSES > 0 THEN CALL CHECK'TIME
	ON OPT GOTO DEEPER, SCORP, AROUND

DEEPER: PRINT "You are in the open desert.  A scorpion sits on a rock"
	PRINT "nearby."
	PRINT "	[1] Go North"
	PRINT "	[2] Go South, further into the desert"
	PRINT "	[3] Wait"
	CALL CHECK'TIME
	OPS=3 : CALL OPT
	ON OPT GOTO OASIS, TOMUCH, TOMUCH

SCORP:	PRINT "You have a scorpion on your arm!"
	PRINT "	[1] Brush him off"
	PRINT "	[2] Leave him be (He won't hurt you if you don't bother him)"
	CALL CHECK'TIME
	OPS=2 : CALL OPT
	ON OPT GOTO DEEPER, BITE

BITE:	PRINT "The scorpion thinks you're nuts and decides to bite you"
	PRINT "repeatedly.  You begin to feel cold all over.  This refreshes"
	PRINT "you from the desert heat momentarily as you expire within"
	PRINT "seconds."
	GOTO DEAD

CHECK'TIME:
	TIME'PASSES=TIME'PASSES+1
	IF TIME'PASSES < 3 THEN RETURN

TOMUCH: PRINT "You've spent too much time in the desert.  You start"
	PRINT "losing your marbles, digging in the sand for water,"
	PRINT "but to no avail.  You wither and lie motionless."
	GOTO DEAD

OASIS:	PRINT "You are standing before a small oasis.  There is a palm"
	PRINT "tree on the left and a small body of water before you."
	PRINT "	[1] Go East"
	PRINT "	[2] Have a Drink"
	PRINT "	[3] Go South"
	OPS=3 : CALL OPT
	ON OPT GOTO WEST, DRINK, DEEPER

DRINK:	TIME'PASSES=0
	IF JEEP=1 THEN GOTO CROC
	PRINT "Feels good, don't it?"
	PRINT
	GOTO OASIS

CROC:	PRINT "When you bend over for a drink, a crocodile snaps at you, grabs"
	PRINT "your arm and pulls you into a watery slaughter."	
	GOTO DEAD

WEST:	IF TIME'PASSES > 0 THEN GOTO TOMUCH
	PRINT "You are deep within the African heartland.  Sounds of"
	PRINT "various origins abound everywhere.  To the southeast, you"
	PRINT "hear the faint beat of a drum.  The forest doesn't seem"
	PRINT "as dark to the south.  Perhaps there's a clearing that way."
	IF KNIFE=0 THEN &
	 PRINT "There is a rock beside you with a knife on it."
	PRINT "	[1] Go West"
	PRINT "	[2] Go East"
	PRINT "	[3] Go South"
	IF KNIFE=0 THEN &
	 PRINT "	[4] Pick up the knife."
	IF KNIFE < 2 THEN OPS=5 ELSE OPS=4
	CALL OPT
	ON OPT GOTO OASIS, ABOVE, QUICK, KNIFE

KNIFE:	PRINT "You have the knife in your hand."
	KNIFE=KNIFE+1
	IF TEMPLE=1 THEN GOTO STAB ELSE GOTO WEST

STAB:	PRINT "A Native has followed you from the temple.  Upon your"
	PRINT "handling of the weapon, he immediately attacks and "
	PRINT "slices your throat from ear to ear."
	GOTO DEAD

ABOVE:	PRINT "You see through the bushes, a tribe of Head Hunters, boiling "
	PRINT "a missionary.  You are north of the camp."
	ABOVE=1
	PRINT "	[1] Attack the natives in an attempt to free the missionary"
	PRINT "	[2] Move west - away from danger"
	PRINT "	[3] Observe layout of tribal grounds"
	PRINT "	[4] Wait until something happens"
	OPS=4 : CALL OPT
	ON OPT GOTO ATTACK, WEST, THINK, DART

JUNGLE:	PRINT "You are deep within the African heartland.  Sounds of"
	PRINT "various origins abound everywhere.  To the east, you"
	PRINT "hear the faint beat of a drum, to the west is a grassy"
	PRINT "plain.  To the south there is a trail. To the north"
	PRINT "all seems peaceful."
EEKEEK:	PRINT "	[1] Go west - out of the jungle"
	PRINT "	[2] Go east to investigate"
	PRINT "	[3] Go north"
	PRINT "	[4] Go south"
	PRINT "	[5] Remain stationary"
	OPS = 5 : CALL OPT
	IF OPT=4 THEN PRINT "You journey south. ";
	ON OPT GOTO GRASS, DRUM, NORTH, SOUTH, STAY
	TIME'PASSES=0
STAY:	PRINT "Time passes..."
	TIME'PASSES=TIME'PASSES+1
	IF TIME'PASSES=3 THEN GOTO LION
	GOTO EEKEEK

NORTH:	PRINT "You travel north until you come to a open, sandy area."
	PRINT "Directly south is a jungle.  On either side of you, the"
	PRINT "forest is much too thick to cut through."
	PRINT "	[1] Continue northward"
	PRINT "	[2] Go South"
	OPS = 2 : CALL OPT
	ON OPT GOTO QUICK, JUNGLE

QUICK:	PRINT "As you step into the quicksand, you rapidly sink below"
	PRINT "the surface, meeting your death."
	GOTO DEAD

SNAKE:	PRINT "A huge snake wraps around your leg and begins to squeeze."
	PRINT "	[1] Welcome snake."
	PRINT "	[2] Try to get it off."
	PRINT "	[3] Run away."
	OPS = 3 : CALL OPT
	ON OPT GOTO WELCOM, GETOFF, RUN
WELCOM:	PRINT "The snake accepts your hospitality as it squeezes your"
	PRINT "last breath from your lungs."
	GOTO DEAD
GETOFF:	PRINT "You manage to free the snake from your leg, but it starts"
	PRINT "to chase you."
	PRINT "	[1] Run west"
	PRINT "	[2] Run east"
	OPS=2 : CALL OPT
	ON OPT GOTO RHINO, JUNGLE
RUN:	PRINT "You (foolishly) start running with the snake still attached"
	PRINT "to your leg.  But such is the law of the wild. The snake"
	PRINT "sinks his venemous fangs into your body as you slowly inhale"
	PRINT "your last breath."
	GOTO  DEAD

SOUTH:	PRINT "Eventually the trail ends and you find yourself"
	PRINT "in thick jungle.  ";
TARZAN:	IF DOLL=1 THEN PRINT : GOTO SOUTH2
	PRINT "You notice on the ground near you,"
	PRINT "a small man-made object, made of fabric."
	PRINT "	[1] Take object"
	PRINT "	[2] Examine object"
	PRINT "	[3] Go back north"
	PRINT "	[4] Try to continue south"
	OPS = 4 : CALL OPT
	ON OPT GOTO DOLL, EXAMINE, JUNGLE, APE

KEEP:	PRINT "You now have the doll."

SOUTH2:	PRINT "	[1] Go north"
	PRINT "	[2] Go south"
	OPS = 2 : CALL OPT
	ON OPT GOTO JUNGLE, APE

EXAMINE:
	PRINT "You pick up the object and find that it is some sort of doll."
	PRINT "The doll is wearing cloths not unlike your own."
	DOLL=1
VOODOO:	PRINT "	[1] Keep doll"
	PRINT "	[2] Leave doll"
	PRINT "	[3] Break doll"
	PRINT "	[4] Throw doll"
	OPS = 4 : CALL OPT
	ON OPT GOTO KEEP, LEAVE, BREAK, THROW

DOLL:	PRINT "You holding what appears to be a doll of some sort."
	DOLL=1
	GOTO VOODOO

THROW:	PRINT "You toss the doll down and proceed.  As the doll hits the"
	PRINT "ground, your head begins to throb."
	DOLL=0
	GOTO GO

LEAVE:	PRINT "You put the doll down and proceed merrily on your way."
	DOLL=0
GO:	PRINT "	[1] Go north"
	PRINT "	[2] Go south"
	PRINT "	[3] Pick up doll again"
	OPS = 3 : CALL OPT
	ON OPT GOTO JUNGLE, APE, DOLL

BREAK:	PRINT "You rip the voodoo doll to shreads when suddenly you find"
	PRINT "yourself being ripped to shreads, also.  As the voodoo doll"
	PRINT "drops to the ground, you soon follow."
	GOTO DEAD

APE:	PRINT "A huge ape leaps out of a nearby tree and lands directly"
	PRINT "in front of you, pounding his chest and grunting."
	PRINT "	[1] Shake his hand"
	PRINT "	[2] Attack ape"
	PRINT "	[3] Offer him banana"
	PRINT "	[4] Stare him down"
	PRINT "	[5] Run away"
	IF DOLL=1 THEN PRINT "	[6] Give doll to ape"
	OPS = 5 + DOLL
	CALL OPT
	ON OPT CALL SHAKE, FIGHT, BANANA, STARE, AWAY, RIP

RIP:	PRINT "The ape takes the voodoo doll and begins to stomp on it.  As his"
	PRINT "blows hit the doll, you feel as though they are hitting you."
	PRINT "The ape then rips the doll to shreads when suddenly everything"
	PRINT "goes black."
	GOTO DEAD

SHAKE:	PRINT "You extend your hand warmly to the ape.  The ape then"
	PRINT "grabs you and treats you like Samsonite luggage."
	GOTO DEAD

FIGHT:	PRINT "You begin to punch the ape as he picks you up and hurles"
	PRINT "you into several trees, killing you."
	GOTO DEAD

BANANA:	PRINT "If only you HAD a banana.  The ape stomps you into the ground,"
	PRINT "taking your imaginary banana as well as your life."
	GOTO DEAD

STARE:	PRINT "You stare coldly through the ape.  He ponders the situation"
	PRINT "for about ten minutes, finally deciding to rip your lungs out."
	GOTO DEAD

AWAY:	PRINT "You run away and, fortunately, the ape decides not to follow."
	PRINT "You find yourself back at the beginning of a trail which leads"
	PRINT "north.  To the south your here fierce grunting noises.";
	IF DOLL=0 THEN PRINT
	GOTO TARZAN

DRUM:	PRINT "The drum beat is quite loud now. There are certainly head"
	PRINT "hunters in the area.  You remember that where there is"
	PRINT "danger there is usually also great treasure."
	PRINT "	[1] Continue eastward toward the beat"
	PRINT "	[2] Move west - away from the noise"
	PRINT "	[3] Wait"
	OPS=3 : CALL OPT
	ON OPT GOTO NATIVE, JUNGLE, DART
DART:	PRINT "As you linger, a poisonous dart pierces your side, as you"
	PRINT "fall to the ground.  You will no doubt be the prize of this"
	PRINT "particular Head Hunter's collection."
	GOTO DEAD

NATIVE:	PRINT "You travel even further until you see through the"
	PRINT "bushes, a tribe of Head Hunters, boiling a missionary."
	PRINT "You are west of the camp."
	ABOVE=0
	PRINT "	[1] Attack the natives in an attempt to free the missionary"
	PRINT "	[2] Move west - away from danger"
	PRINT "	[3] Observe layout of tribal grounds"
	PRINT "	[4] Wait until something happens"
	PRINT "	[5] Move north - away from danger"
	OPS=4 : CALL OPT
	ON OPT GOTO ATTACK, DRUM, THINK, DART, ABOVE

SHOUT:	PRINT "You are ";
	GOTO SPEAR

ATTACK:	PRINT "You bravely leap into the middle of the action, only to be"
SPEAR:	PRINT "speared to death by hundreds of natives.  As you shut your"
	PRINT "eyes for the last time, you hear something uttered about "
	PRINT "`dessert'"
	GOTO DEAD

THINK:	PRINT "As you survey the area, you notice that there is an unguarded"
	PRINT "temple to the Elephant God to the east of the camp."
	PRINT "	[1] Sneak around the parameter of the camp, toward the temple"
	PRINT "	[2] Shout loud obscenities"
	PRINT "	[3] Devise a plan to free the missionary"
	PRINT "	[4] Wait"
	OPS = 4 : CALL OPT
	ON OPT GOTO TEMPLE, SHOUT, TOAST, DART

TOAST:	PRINT "The missionary is toast.  Start thinking about yourself."
	PRINT "	[1] Sneak around the parameter of the camp, toward the temple"
	PRINT "	[2] Shout loud obscenities"
	PRINT "	[3] Wait"
	OPS = 3 : CALL OPT
	ON OPT GOTO TEMPLE, SHOUT, DART

TEMPLE:	IF DOOR=1 THEN GOTO CHECK2
	TEMPLE=1
	PRINT "You find the temple rear-entrance."
	PRINT "	[1] Open door"
	PRINT "	[2] Check for traps"
	PRINT "	[3] Ask native for the best way in"
	PRINT "	[4] Go back into the jungle"
	OPS = 4 : CALL OPT
	IF ABOVE=0 THEN ON OPT GOTO TRAP, CHECK, CONGO, JUNGLE
	IF ABOVE=1 THEN ON OPT GOTO TRAP, CHECK, CONGO, ABOVE

CONGO:	PRINT "You track down a local, asking him how to get in."
	PRINT "Both shocked and appalled, the native slices you to"
	PRINT "ribbons in seconds."
	GOTO DEAD

CHECK:	IF DOOR=1 THEN GOTO CHECK2
	PRINT "You stand beside the door, and slowly pull it open"
	PRINT "when two poisonous darts fly by you and into a nearby"
	PRINT "tree."
DOOR:	PRINT "	[1] Enter"
	PRINT "	[2] Go back into the jungle"
	PRINT "	[3] Wait"
	DOOR=1
	OPS = 3 : CALL OPT
	IF ABOVE=0 THEN ON OPT GOTO ENTER, JUNGLE, WAIT
	IF ABOVE=1 THEN ON OPT GOTO ENTER, ABOVE, WAIT

CHECK2:	PRINT "You are outside the temple again, near the rear entrance."
	PRINT "The door is open."
	GOTO DOOR

WAIT:	PRINT "You have made a fatal mistake. A native notices you"
	PRINT "and calls about fifty more tribesmen. They invite"
	PRINT "you to dinner...as the main course."
	GOTO DEAD

TRAP:	PRINT "As you open the door, two poisonous darts fly out and"
	PRINT "pierce your throat."
	GOTO DEAD

ENTER:	PRINT "You now find yourself inside the temple.  It is very dark"
	PRINT "here but you can make out that there are two passage ways,"
ENTER2:	PRINT "one to the north and one to the south."
	PRINT "	[1] Go north."
	PRINT "	[2] Go south."
	PRINT "	[3] Exit temple"
	OPS = 3 : CALL OPT
	IF OPT=2 THEN PRINT "You begin southward. ";
	ON OPT GOTO GUARD, SHALL, CHECK2

ENTRANCE:
	PRINT "You are inside the temple entrance again. There are two passage"
	PRINT "ways, ";
	GOTO ENTER2

GUARD:	IF NATIVE=1 THEN GOTO NHALL
	PRINT "A large native stands in your way, guarding the passage."
	PRINT "	[1] Go South"
	PRINT "	[2] Kick the native in the groin area"
	PRINT "	[3] Stay Put"
	IF KNIFE=1 THEN &
	PRINT "	[4] Pull your knife out and attack"
	OPS=4 : CALL OPT
	IF KNIFE=0 THEN ON OPT GOTO ENTRANCE, GROIN, GUARD
	IF KNIFE=1 THEN ON OPT GOTO ENTRANCE, GROIN, GUARD, MERCY

GROIN:	PRINT "The native is wearing groin protection and is enraged."
	PRINT "He punches you in the mouth, breaking many of your front"
	PRINT "teeth.  He then proceeds to give you a piledriver onto the"
	PRINT "rock floor.  As consciousness fades, he spears you with no"
	PRINT "remorse."
	GOTO DEAD

MERCY:	PRINT "Good work.  The native falls and bleeds to death behind you."
	NATIVE=1
NHALL:	PRINT "You travel north until you come to the end of the passage way."
NH2:	PRINT "You see before you, a room filled with candles, stone tablets,"
	PRINT "and idols.  ";
	IF DOLL=0 THEN PRINT "You see a voodoo doll  wearing  clothes  not  un-" : &
		PRINT "like your own." ELSE PRINT ""
	PRINT "	[1] Enter the room"
	PRINT "	[2] Check for traps"
	PRINT "	[3] Go south - back down the hallway"
	OPS = 3 : CALL OPT
	ON OPT GOTO PIT, AVOID, ENTRANCE

PIT:	PRINT "The floor suddenly drops from beneath you,"
	PRINT "and you fall into a pit.  You are instantly consumed by the"
	PRINT "thousands of snakes which inhabit it."
	GOTO DEAD

PIT2:	PRINT "As you attempt to open the trap door,";
	GOTO PIT

AVOID:	PRINT "Upon close observation, you notice that there is a trap door"
	PRINT "in the floor directly in front of you.  You carefully avoid"
	PRINT "this, and continue onward."
	PRINT "	[1] Go north - toward the idols"
	PRINT "	[2] Go south - out of the room"
	PRINT "	[3] Try to open trap door"
	OPS = 3 : CALL OPT
	ON OPT GOTO IDOL, NH2, PIT2

SHALL:	PRINT "At the end of the corridor, you come to very dark"
	PRINT "stone entrance.  It is suddenly very cold and eerie. Your"
	PRINT "better judgement dictates that you should not enter."
	PRINT "	[1] Enter cave"
	PRINT "	[2] Check for traps"
	PRINT "	[3] Go north - leaving the area"
	OPS = 3 : CALL OPT
	ON OPT GOTO BATS, NOTRAP, ENTRANCE

NOTRAP:	PRINT "There are no traps."
	PRINT "	[1] Enter cave"
	PRINT "	[2] Go north - leaving the area"
	OPS = 2 : CALL OPT
	ON OPT GOTO BATS, ENTRANCE

BATS:	PRINT "You enter the cave when suddenly thousands of vampire bats"
	PRINT "flutter around you.  You try to escape, but alas, it is of"
	PRINT "no use.  You fall to the ground stone dead."
	GOTO DEAD

IDOL:	IF DOLL=0 THEN &
	 PRINT "The voodoo doll starts to fall from the shelf.  You try to" : &
	 PRINT "catch it but you feel yourself falling backwards. You stum-" : &
	 PRINT "ble on the trap door." : PRINT : GOTO PIT

	PRINT "Upon reaching the idols, you find riches beyond your wildest"
	PRINT "dreams and live happily ever after."
	PRINT
	PRINT
	PRINT TAB(10) "** YOU WIN **"
	PRINT
PROMPT1:
!For running the game from a menu:
	PRINT TAB(-1,29);TAB(-1,32);
	PRINT " Press ENTER to acknowledge your victory               ";
	PRINT TAB(-1,33);
	INPUT LINE OPT
	IF OPT#0 THEN PRINT TAB(-1,2);TAB(-1,3); : goto PROMPT1
	?TAB(-1,28);
	END

OPT:	PRINT
	PRINT "Option: ";
	INPUT LINE OPT
	IF OPT < 1 OR OPT > OPS THEN PRINT TAB(10) "NO SUCH OPTION!" : GOTO OPT
	RETURN

DEAD:	PRINT
	PRINT TAB(10) "** YOU HAVE DIED **"
	PRINT
PROMPT2:
!For running the game from a menu:
	PRINT TAB(-1,29);TAB(-1,32);
	PRINT " Press ENTER to acknowledge your gruesome death        ";
	PRINT TAB(-1,33);
	INPUT LINE OPT
	IF OPT#0 THEN PRINT TAB(-1,2);TAB(-1,3); : goto PROMPT2
	?TAB(-1,28);
	END

CTRLC:	PRINT "? Aborted - (couldn't take the heat, huh?)"
	PRINT
	END