home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ultra Mac Games 1 & 2
/
UltraMacGames1.iso
/
Adventure
/
SpaceEscape
/
SpaceEscape
/
card_17126.txt
< prev
next >
Wrap
Text File
|
1988-07-31
|
3KB
|
115 lines
-- card: 17126 from stack: in
-- bmap block id: 21247
-- flags: 4000
-- background id: 8902
-- name: uniform
----- HyperTalk script -----
on opencard
put "This Droolish uniform gives off a foul stench." into field "info"
pass opencard
end opencard
-- part 2 (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
if it contains "examine" or it contains "look" then
send "opencard" to this card
exit mouseUp
end if
if it contains "eat" or it contains "consume" then
put "As much as you would like to swallow the revoltingly odorous"& "uniform, you decide against it." into field "info"
exit mouseup
end if
if it is "" then
put "Speak up. I can't hear you." into field "info"
exit mouseup
end if
if it contains "get" or it contains "take" then
global inventory
if inventory contains "uniform" then
put "You already have it." into field "info"
exit mouseup
else
put "Pinching your nose, you pick the uniform off the floor.≈∏" into field "info"
global inventory
put "Uniform" & return after last char of inventory
global filter
put "yes" into filter
global action
put "get" into action
global suithide
put "yes" into suithide
exit mouseup
end if
end if
if it contains "drop" then
global inventory
if inventory contains "Key" then
put "You should save the key in case it should come in handy"& " later on." into field "info"
exit mouseup
else put "You can't drop what you don't have." into field "info"
exit mouseup
end if
if it is "wear"or it is "put" then
global wear
if wear is "yes" then
put "You are already wearing the clothes." into field "info"
exit mouseup
else
put "You slip on the filthy clothes, and place the helmet on your"& " head.≈∏" into field "info"
global inventory
get offset ("Uniform",inventory)
put "" into char it to 8 +it of inventory
global suithide
put "yes" into suithide
global wear
put "yes" into wear
exit mouseup
end if
end if
if it is "remove" then
put "The uniform sticks to your body, and you cannot pull it off."& into field "info"
exit mouseup
end if
idunno
end mouseUp
on cont
global filter
put "" into filter
go to card "closet"
end cont
-- part contents for background part 2
----- text -----
What would you like to do with the uniform?
-- part contents for background part 7
----- text -----
Uniform