home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / SpaceEscape / SpaceEscape / card_10654.txt < prev    next >
Text File  |  1988-07-31  |  3KB  |  108 lines
  1. -- card: 10654 from stack: in
  2. -- bmap block id: 8391
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: tray of food
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This food is looking back at you.  It looks hungry." into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: A003
  16. -- rect: left=161 top=302 right=323 bottom=192
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: OK
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   global filter
  28.   if filter is "yes" then
  29.     beep
  30.     exit mouseup
  31.   end if
  32.   get field "do what"
  33.   if the number of words in it > 1 then
  34.     beep 2
  35.     oneword
  36.     exit mouseup
  37.   end if
  38.   global trayhide
  39.   if it contains "get" or it contains "take" then
  40.     global inventory
  41.     if inventory contains "tray of food" then
  42.       put "You already have it." into field "info"
  43.       exit mouseup
  44.     else
  45.       play "boing" tempo 200 c#1h..
  46.       put "The food growls at you, but you dodge its"& " sharp teeth and take it with you.≈∏"into field "info"
  47.       global inventory
  48.       put "Tray of food"& return after last char of inventory
  49.       global action
  50.       put "get" into action
  51.       global filter
  52.       put "yes" into filter
  53.       exit mouseup
  54.     end if
  55.   end if
  56.   if it contains "eat" or it contains "consume" then
  57.     put  "You snatch the food off the tray.  You take a"& "bite of the struggling, squirming delicacy.  To make a long "& "story short, you die.≈∏"into field "info"
  58.     global filter
  59.     put "yes" into filter
  60.     global action
  61.     put "eat" into action
  62.     exit mouseup
  63.   end if
  64.   if it contains "examine" or it contains "look" then
  65.     send "opencard" to card "bunk"
  66.     exit mouseup
  67.   end if
  68.   if it contains "hit" or it contains "punch" or it contains "kick" then
  69.     play "boing"
  70.     put "The food is stunned for a moment, and then growls viciously." into field "info"
  71.     exit mouseup
  72.   end if
  73.   if it is "" then
  74.     put "Speak up.  I can't hear you." into field "info"
  75.     exit mouseup
  76.   end if
  77.   if it contains "drop" then
  78.     put "You should save the tray in case it comes in handy later on."& "  Besides, the food happens to have its teeth firmly attached "& " to your leg at the moment." into field "info"
  79.     exit mouseup
  80.   end if
  81.   idunno
  82. end mouseUp
  83.  
  84. on cont
  85.   global filter
  86.   global action
  87.   if filter is "yes" and action is "eat" then
  88.     go to card "death"
  89.     put "" into filter
  90.   end if
  91.   if filter is "yes" and action is "get" then
  92.     global trayhide
  93.     put "yes" into trayhide
  94.     global filter
  95.     put "" into filter
  96.     go to card "cell3"
  97.   end if
  98. end cont
  99.  
  100.  
  101.  
  102. -- part contents for background part 2
  103. ----- text -----
  104. What would you like to do with the Tray of food?
  105.  
  106. -- part contents for background part 7
  107. ----- text -----
  108. Tray