home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / SpaceEscape / SpaceEscape / card_14507.txt < prev    next >
Text File  |  1988-07-31  |  3KB  |  119 lines
  1. -- card: 14507 from stack: in
  2. -- bmap block id: 40161
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: hallway button door
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global doorhide
  9.   if doorhide is "" then
  10.     put "This is an open doorway." into field "info"
  11.     show card field "doorhide"
  12.   else
  13.     put "Boy, aren't these closed doors fun?" into field "info"
  14.     hide card field "doorhide"
  15.   end if
  16.   pass opencard
  17. end opencard
  18.  
  19.  
  20. -- part 1 (button)
  21. -- low flags: 00
  22. -- high flags: A003
  23. -- rect: left=161 top=302 right=323 bottom=192
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: OK
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   global filter
  35.   if filter is "yes" then
  36.     beep
  37.     exit mouseup
  38.   end if
  39.   global donteat
  40.   get bkgnd field "do what"
  41.   if the number of words in it > 1 then
  42.     beep 2
  43.     oneword
  44.     exit mouseup
  45.   end if
  46.   global doorhide
  47.   if it contains "knock" then
  48.     put "No answer." into field "info"
  49.     exit mouseup
  50.   end if
  51.   if doorhide is "closed" then
  52.     if it contains "open" or it contains "push" or it contains "pull"then
  53.     put "The door is sealed tightly." into field "info"
  54.     exit mouseup
  55.   end if
  56.   if it contains "close" then
  57.     put "The door is already closed." into field "info"
  58.   end if
  59.   if it contains "examine" or it contains "look" then
  60.     put "For the benefit of those of you who haven't figured it "& "out yet, this is a closed door." into field "info"
  61.     exit mouseup
  62.   end if
  63.   if it contains "hit" or it contains "kick" or it contains "punch" then
  64.     ouch
  65.     exit mouseup
  66.   end if
  67.   if it contains "get" or it contains "move" then
  68.     put "You give up once you realize"& " that you are not strong enough to rip the door off its hinges." into field "info"
  69.     exit mouseup
  70.   end if
  71.   if it contains "eat" or it contains "consume" then
  72.     put donteat into field "info"
  73.     exit mouseup
  74.   end if
  75.   if it contains "go" then
  76.     put "That would work, except you're not sure how you're going"& " to go about walking through solid steel." into field "info"
  77.     exit mouseup
  78.   end if
  79. end if
  80. global doorhide
  81. if doorhide is "" then
  82.   if it contains "go" then
  83.     go to card "locked room"
  84.     exit mouseup
  85.   end if
  86. end if
  87. if it is "" then
  88.   put "Speak up.  I can't hear you." into field "info"
  89.   exit mouseup
  90. end if
  91. idunno
  92. end mouseUp
  93.  
  94. on cont
  95. end cont
  96.  
  97.  
  98.  
  99. -- part 2 (field)
  100. -- low flags: 01
  101. -- high flags: 0001
  102. -- rect: left=276 top=54 right=227 bottom=380
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 3
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: doorhide
  111.  
  112.  
  113. -- part contents for background part 2
  114. ----- text -----
  115. What would you like to do with the door?
  116.  
  117. -- part contents for background part 7
  118. ----- text -----
  119. Door