home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d03xx / d0300.lha / TACL / JungleSource / JungleVocab < prev    next >
Text File  |  1989-12-25  |  4KB  |  166 lines
  1. *
  2. * Sample T.A.C.L. Adventure Game source code ⌐ 1989 by Kevin Kelm
  3. * 33 points possible in this file!
  4. VOCAB
  5.  
  6. ACTION WAIT
  7.  GO THISROOM
  8. ENDACT
  9.  
  10. ACTION CLIMB, CLIMB WALLS, CLIMB UP, CLIMB UP WALLS, CLIMB WALL, CLIMB UP WALL
  11.  IF PLAYER IN Shifting_Room THEN
  12.   IF WallState > 2 THEN
  13.    IF WallState < 5 THEN
  14.     T Wedging yourself between the walls, you manage to climb ten feet!
  15.     ADD Height 1
  16.     GO THISROOM
  17.     SCORE 5          * x2 = 10 points!
  18.    ELSE
  19.     T You don't need to anymore!
  20.    ENDIF
  21.   ELSE
  22.    T You can't reach them!
  23.   ENDIF
  24.  ELSE
  25.   T I do not understand.
  26.  ENDIF
  27. ENDACT
  28.  
  29. ACTION READ WALLS, READ WRITING, READ WALL, READ SLAB, LOOK WALL, LOOK WALLS
  30.  IF PLAYER IN Sacred_Chamber THEN
  31.   IF ReadCount = 0 THEN
  32.    T You walk to the northwest corner and start to read the walls, which are
  33.    T each divided into two slabs for a total of eight in the room.
  34.    T
  35.    T You gaze fixedly at the first slab.  Of the characters you can pick
  36.    T out, you translate:
  37.    T     ~iThis wall is Mayan,
  38.    T     that wall is Your-an.~n
  39.  
  40.   ELSIF ReadCount = 1 THEN
  41.    T The second slab reads:
  42.    T     ~iT.A.C.L. is great,
  43.    T     T.A.C.L. is good,
  44.    T     Be the first in ~bYOUR ~n~i neighborhood!~n
  45.    T              ~r -- BURMA SHAVE ~n
  46.  
  47.   ELSIF ReadCount = 2 THEN
  48.    T Peering at the third slab, you decipher:
  49.    T     ~iStay away from Alpha Centauri
  50.    T     restaurants-- they're only two stars. ~n
  51.  
  52.   ELSIF ReadCount = 3 THEN
  53.    T The fourth slab reads:
  54.    T     ~iThere once was a man from Nantucket...~n
  55.    T The rest of this slab is unreadable.
  56.  
  57.   ELSIF ReadCount = 4 THEN
  58.    T The fifth one says:
  59.    T     ~iChico was here.~n
  60.    T Say! There's a draft coming from around this slab!
  61.  
  62.   ELSIF ReadCount = 5 THEN
  63.    T The sixth slab says:
  64.    T     ~iPizzaro is an <EXPLETIVE DELETED>!!!~n
  65.  
  66.   ELSIF ReadCount = 6 THEN
  67.    T On the seventh slab you find:
  68.    T     ~iAbandon ye all gold who enter these walls!~n
  69.  
  70.   ELSIF ReadCount = 7 THEN
  71.    T The eighth and final slab reads:
  72.    T     ~iSome reading room, eh? ~n
  73.   ENDIF
  74.  
  75.   IF FirstRound = 1 THEN
  76.    SCORE 1                      *    x8 = 8 points total!
  77.   ENDIF
  78.  
  79.   ADD ReadCount 1
  80.   IF ReadCount = 8 THEN
  81.    EQU ReadCount 0
  82.    EQU FirstRound 0
  83.   ENDIF
  84.  ENDIF
  85. ENDACT
  86.  
  87. ACTION PUSH WALL, PUSH SLAB, OPEN WALL, OPEN SLAB
  88.  IF PLAYER IN Sacred_Chamber THEN
  89.   IF ReadCount = 5 THEN
  90.    IF SlabPushed = 0 THEN
  91.     T You lean hard on the wall and it rotates aside to reveal a passage
  92.     T to the south!
  93.     DIRECTIONS Sacred_Chamber N S
  94.     LINK Sacred_Chamber S Hall_of_the_Priests
  95.     EQU SlabPushed 1
  96.     SCORE 5
  97.     IF PLAYER HAS Idol THEN
  98.      IMAGE Sacred_Chamber Sacred4
  99.      SHOW Sacred4
  100.     ELSE
  101.      IMAGE Sacred_Chamber Sacred3
  102.      SHOW Sacred3
  103.     ENDIF
  104.    ELSE
  105.     T Now that it's open, the slab won't budge.
  106.    ENDIF
  107.   ELSE
  108.    T Nothing happens.
  109.   ENDIF
  110.  ELSIF InCaverns = 1 THEN
  111.   T Nothing happens.
  112.  ELSE
  113.   T I don't ~isee ~nany walls here, do you?
  114.  ENDIF
  115. ENDACT
  116.  
  117. ACTION YES, YUP, SURE, YAH, YEAH, YEP
  118.  T Talking to yourself?
  119. ENDACT
  120.  
  121. ACTION NO, NOPE, NO WAY, JUST SAY NO
  122.  T You can talk to yourself, just as long as you don't answer yourself.
  123. ENDACT
  124.  
  125. ACTION DIG, DIG ROCKS
  126.  IF PLAYER IN Break_Down_Rocks THEN
  127.   T You try to pry loose some of the sharp rocks in your way, and in so
  128.   T doing, you bring the tunnel down on yourself.
  129.   CALL BuyTheFarm
  130.  
  131.  ELSIF PLAYER IN Rubble_Crawl THEN
  132.   T You scoop some of the wedged rocks out of the crawlway, but make little
  133.   T progress.
  134.  
  135.  ELSIF PLAYER IN Cobble_Crawl THEN
  136.   IF Cobble_Crawl NOT Dug THEN
  137.    T You remove some of the stones wedged together at the north end of the
  138.    T burrow.  You begin to feel a warm draft and dig frantically.  Finally,
  139.    T a beam of daylight stabs through the darkness!  After a bit more
  140.    T digging, you finally make a hole large enough to fit through.  Blue sky
  141.    T awaits you through that hole!
  142.    DIRECTIONS Cobble_Crawl SE N
  143.    LINK Cobble_Crawl N Ledge
  144.    SET Cobble_Crawl Dug
  145.    IMAGE Cobble_Crawl Rock_Crawl_2
  146.    SHOW Rock_Crawl_2
  147.    SCORE 10
  148.   ENDIF
  149.  ELSE
  150.   T In a fit of good judgement, you decide not to.
  151.  ENDIF
  152. ENDACT
  153.  
  154. ACTION DIE, END, EXIT
  155.  T If you insist!
  156.  CALL BuyTheFarm
  157. ENDACT
  158.  
  159. ACTION YELL, SHOUT, SCREAM, SHRIEK, BELLOW, WAIL, CRY
  160.  T AAAAAAAAAAAAAAAAAAAAAAAARRRRRGGGGGGGGGHHHHHHHHHH!!!
  161.  T
  162.  T Feel better?
  163. ENDACT
  164.  
  165. ENDVOCAB
  166.