!*************************** 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 observ
ation, 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
