home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / SpaceEscape / SpaceEscape / card_17126.txt < prev    next >
Text File  |  1988-07-31  |  3KB  |  115 lines

  1. -- card: 17126 from stack: in
  2. -- bmap block id: 21247
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: uniform
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This Droolish uniform gives off a foul stench." into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13. -- part 2 (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.   global donteat
  33.   get bkgnd field "do what"
  34.   if the number of words in it > 1 then
  35.     beep 2
  36.     oneword
  37.     exit mouseup
  38.   end if
  39.   if it contains "examine" or it contains "look" then
  40.     send "opencard" to this card
  41.     exit mouseUp
  42.   end if
  43.   if it contains "eat" or it contains "consume" then
  44.     put "As much as you would like to swallow the revoltingly odorous"& "uniform, you decide against it." into field "info"
  45.     exit mouseup
  46.   end if
  47.   if it is "" then
  48.     put "Speak up.  I can't hear you." into field "info"
  49.     exit mouseup
  50.   end if
  51.   if it contains "get" or it contains "take" then
  52.     global inventory
  53.     if inventory contains "uniform" then
  54.       put "You already have it." into field "info"
  55.       exit mouseup
  56.     else
  57.       put "Pinching your nose, you pick the uniform off the floor.≈∏" into field "info"
  58.       global inventory
  59.       put "Uniform" & return after last char of inventory
  60.       global filter
  61.       put "yes" into filter
  62.       global action
  63.       put "get" into action
  64.       global suithide
  65.       put "yes" into suithide
  66.       exit mouseup
  67.     end if
  68.   end if
  69.   if it contains "drop" then
  70.     global inventory
  71.     if inventory contains "Key" then
  72.       put "You should save the key in case it should come in handy"& " later on." into field "info"
  73.       exit mouseup
  74.     else put "You can't drop what you don't have." into field "info"
  75.     exit mouseup
  76.   end if
  77.   if it is "wear"or it is "put" then
  78.     global wear
  79.     if wear is "yes" then
  80.       put "You are already wearing the clothes." into field "info"
  81.       exit mouseup
  82.     else
  83.       put "You slip on the filthy clothes, and place the helmet on your"& " head.≈∏" into field "info"
  84.       global inventory
  85.       get offset ("Uniform",inventory)
  86.       put "" into char it  to 8 +it  of inventory
  87.       global suithide
  88.       put "yes" into suithide
  89.       global wear
  90.       put "yes" into wear
  91.       exit mouseup
  92.     end if
  93.   end if
  94.   if it is "remove" then
  95.     put "The uniform sticks to your body, and you cannot pull it off."& into field "info"
  96.     exit mouseup
  97.   end if
  98.   idunno
  99. end mouseUp
  100.  
  101. on cont
  102.   global filter
  103.   put "" into filter
  104.   go to card "closet"
  105. end cont
  106.  
  107.  
  108.  
  109. -- part contents for background part 2
  110. ----- text -----
  111. What would you like to do with the uniform?
  112.  
  113. -- part contents for background part 7
  114. ----- text -----
  115. Uniform