home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ultra Mac Games 1 & 2
/
UltraMacGames1.iso
/
Adventure
/
SpaceEscape
/
SpaceEscape
/
card_14507.txt
< prev
next >
Wrap
Text File
|
1988-07-31
|
3KB
|
119 lines
-- card: 14507 from stack: in
-- bmap block id: 40161
-- flags: 4000
-- background id: 8902
-- name: hallway button door
----- HyperTalk script -----
on opencard
global doorhide
if doorhide is "" then
put "This is an open doorway." into field "info"
show card field "doorhide"
else
put "Boy, aren't these closed doors fun?" into field "info"
hide card field "doorhide"
end if
pass opencard
end opencard
-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=161 top=302 right=323 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
global filter
if filter is "yes" then
beep
exit mouseup
end if
global donteat
get bkgnd field "do what"
if the number of words in it > 1 then
beep 2
oneword
exit mouseup
end if
global doorhide
if it contains "knock" then
put "No answer." into field "info"
exit mouseup
end if
if doorhide is "closed" then
if it contains "open" or it contains "push" or it contains "pull"then
put "The door is sealed tightly." into field "info"
exit mouseup
end if
if it contains "close" then
put "The door is already closed." into field "info"
end if
if it contains "examine" or it contains "look" then
put "For the benefit of those of you who haven't figured it "& "out yet, this is a closed door." into field "info"
exit mouseup
end if
if it contains "hit" or it contains "kick" or it contains "punch" then
ouch
exit mouseup
end if
if it contains "get" or it contains "move" then
put "You give up once you realize"& " that you are not strong enough to rip the door off its hinges." into field "info"
exit mouseup
end if
if it contains "eat" or it contains "consume" then
put donteat into field "info"
exit mouseup
end if
if it contains "go" then
put "That would work, except you're not sure how you're going"& " to go about walking through solid steel." into field "info"
exit mouseup
end if
end if
global doorhide
if doorhide is "" then
if it contains "go" then
go to card "locked room"
exit mouseup
end if
end if
if it is "" then
put "Speak up. I can't hear you." into field "info"
exit mouseup
end if
idunno
end mouseUp
on cont
end cont
-- part 2 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=276 top=54 right=227 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: doorhide
-- part contents for background part 2
----- text -----
What would you like to do with the door?
-- part contents for background part 7
----- text -----
Door