home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ultra Mac Games 1 & 2
/
UltraMacGames1.iso
/
Adventure
/
SpaceEscape
/
SpaceEscape
/
background_2669.txt
< prev
next >
Wrap
Text File
|
1988-07-31
|
21KB
|
921 lines
-- background: 2669 from stack: in
-- bmap block id: 43140
-- flags: 0000
-- background id: 0
-- name: reg. bkgnd
----- HyperTalk script -----
on closecard
global room
put name of this card into room
visual effect dissolve very fast
end closecard
on cont
end cont
on opencard
global inventory
put inventory into field "inventory"
end opencard
-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=9 top=57 right=251 bottom=148
-- 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: info
----- HyperTalk script -----
on mouseup
if the name of this card is "card ""e&"cell2""e and field "info" contains "obviously" then
go to card "cell3"
exit mouseup
end if
send "cont" to this card
end mouseup
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=272 right=292 bottom=200
-- 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: west
----- HyperTalk script -----
on mouseUp
global filter
if filter is "yes" then
beep
exit mouseup
end if
global notthatway
global position
get the name of this card
put it into temp
get last word of temp
put it into temp
put "" into first char of temp
put "" into last char of temp
if temp is "cell1" then
global times
add 1 to times
end if
if temp is "hallway" then
put "Sorry, but that is not specific enough. Click on the door"& " you wish to open and open it from the object screen." into field "info"
exit mouseup
end if
if temp is "open cell" then
go to card "hallway"
exit mouseup
end if
if temp is "guards" then
go to card "engine"
exit mouseup
end if
if temp is "empty room" then
go to card "closet"
exit mouseup
end if
if temp is "hall2" then
go to card "empty room"
exit mouseup
end if
if temp is "hall3" then
go to card "hall2"
exit mouseup
end if
if temp is "rec room" or temp is "rec room2" then
go to card "hall3"
exit mouseup
end if
if temp is "id door" then
go to card "rec room"
exit mouseup
end if
if temp is "foyer" then
put "The heavy door is locked." into field "info"
exit mouseup
end if
if temp is "guard post" then
go to card "lounge"
exit mouseup
end if
if temp is "computer room" then
go to card "foyer"
exit mouseup
end if
if temp is "navigator's room" then
go to card "officer's mess"
exit mouseup
end if
if temp is "living room" then
go card "bedroom2"
exit mouseup
end if
put notthatway into field "info"
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=199 top=257 right=273 bottom=218
-- 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: north
----- HyperTalk script -----
on mouseUp
global filter
if filter is "yes" then
beep
exit mouseup
end if
global notthatway
get last word of the name of this card
put it into temp
put "" into first char of temp
put "" into last char of temp
if temp is "cell1" then
put "The door is closed." into field "info"
global times
add 1 to times
exit mouseup
end if
if temp is "cell3" then
go to card "hallway"
exit mouseup
end if
if temp is "hallway" then
if visible of card field "doorhide" is false then
put "The door is closed." into field "info"
exit mouseup
end if
if visible of card field "doorhide" is true then
global grate
if grate is "" then
go to card "locked room"
exit mouseup
else
go to card "unlocked room"
exit mouseup
end if
end if
end if
if temp is "unlocked room" then
go to card "guards"
exit mouseup
end if
if temp is "guards" then
go to card "empty room"
exit mouseup
end if
if temp is "empty room" then
go to card "bunker"
exit mouseup
end if
if temp is "hall3" then
go to card "cafeteria"
exit mouseup
end if
if temp is "foyer" then
go to card "lounge"
exit mouseup
end if
if temp is "officer's mess" then
go to card "foyer"
exit mouseup
end if
if temp is "guard post" then
global posthide
if posthide is "yes" then go to card "secretary"
else put "The guard will not let you past." into field "info"
exit mouseup
end if
if temp is "computer room" then
go to card "guard post"
exit mouseup
end if
if temp is "navigator's room" then
go to card "computer room"
exit mouseup
end if
if temp is "sec2" then
if the visible of card field "secdoorhide" is true then
go card "guard post 2"
else
put "The door is locked." into field "info"
end if
exit mouseup
end if
if temp is "secretary" then
put "The door is locked." into field "info"
exit mouseup
end if
if temp is "guard post 2" then
put "The guard snarls viciously." into field "info"
exit mouseup
end if
if temp is "guard post 3" then
go card "bedroom"
exit mouseup
end if
put notthatway into field "info"
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=293 top=255 right=280 bottom=338
-- 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: save
----- HyperTalk script -----
on mouseUp
global temp2
put "" into temp2
set the cursor to 4
global roomz
put the name of this card into roomz
put "Games you have saved:" into field "info"
repeat with x=1 to 5
put the name of card x of bkgnd "save" into temp
put "" into first word of temp
get offset (quote,temp)
put "" into char it of temp
get offset (quote,temp)
put "" into char it of temp
put return&x&") "&temp after last word of temp2
end repeat
put return& temp2 after last line of field "info"
set the cursor to 0
ask "Save as which number?"
if it is "" then exit mouseup
if it >5 or it <1 then
beep
answer "Please use a number between 1 and 5." with "OK"
exit mouseup
end if
global numb
put it into numb
ask "What would you like to name the game?"
if it is "" then exit mouseup
global nomb
put it into nomb
get the number of characters of it
if it > 7 then
beep
answer "Please use no more than 7 characters." with "OK"
exit mouseup
end if
answer "Replace previous game "&numb&" with this one?" with "Yes" or "No"
if it is "No" then exit mouseup
set the cursor to 4
set lockscreen to true
go to card numb of bkgnd "save"
transfer
set the name of card numb of bkgnd "save" to nomb
set the cursor to 0
if roomz is "card ""e&"guards""e then
global gtimes
subtract 1 from gtimes
end if
go roomz
set lockscreen to false
answer "Save complete!" with"OK"
end mouseUp
on transfer
global position
put position into field "a"
global doorhide
put doorhide into field "b"
global cardhide
put cardhide into field "c"
global times
put times into field "d"
global filter
put filter into field "e"
global halldoor
put halldoor into field "f"
global keyhide
put keyhide into field "g"
global inventory
put inventory into field "h"
global trayhide
put trayhide into field "i"
global doorhide
put doorhide into field "j"
global alarm
put alarm into field "k"
global grate
put grate into field "l"
global gtimes
put gtimes into field "m"
global suithide
put suithide into field "n"
global gunhide
put gunhide into field "o"
global droolhide
put droolhide into field "p"
global room
put room into field "q"
global wear
put wear into field "r"
global boozhide
put boozhide into field "s"
global cuphide
put cuphide into field "t"
global posthide
put posthide into field "u"
global action
put action into field "v"
global gdoors
put gdoors into field "w"
global booz
put booz into field "x"
global coffee
put coffee into field "y"
global boozer
put boozer into field "z"
global roomz
put roomz into field "aa"
global deadsec
put deadsec into field "ab"
global secdoorhide
put secdoorhide into field "ac"
global posth2hide
put post2hide into field "ad"
global ctimes
put ctimes into field "ae"
end transfer
-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=392 top=260 right=285 bottom=416
-- 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: bucks
----- HyperTalk script -----
on mouseUp
push card
if the name of this card is "card ""e&"cell1""e then
global times
subtract 1 from times
end if
if the name of this card is "card ""e&"guards""e then
global gtimes
subtract 1 from gtimes
end if
if the name of this card is "card ""e&"bedroom""e then
global ctimes
subtract 1 from ctimes
end if
global buckaroos
put "yes" into buckaroos
go card "bucks"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=391 top=297 right=324 bottom=416
-- 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: help
----- HyperTalk script -----
on mouseUp
push card
if the name of this card is "card ""e&"cell1""e then
global times
subtract 1 from times
end if
if the name of this card is "card ""e&"guards""e then
global gtimes
subtract 1 from gtimes
end if
if the name of this card is "card ""e&"bedroom""e then
global ctimes
subtract 1 from ctimes
end if
go to card "help1"
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=282 right=309 bottom=354
-- 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: restore
----- HyperTalk script -----
on mouseUp
global temp2
put "" into temp2
set the cursor to 4
put "Games you have saved:" into field "info"
repeat with x=1 to 5
put the name of card x of bkgnd "save" into temp
put "" into first word of temp
get offset (quote,temp)
put "" into char it of temp
get offset (quote,temp)
put "" into char it of temp
put return&x&") "&temp after last word of temp2
end repeat
put return& temp2 after last line of field "info"
set the cursor to 0
ask "Restore which number?"
if it is "" then exit mouseup
if it >5 or it <1 then
beep
answer "Please use a number between 1 and 5." with "OK"
exit mouseup
end if
global numb
put it into numb
answer "Restore present game to game "&numb&" ?" with "No" or "Yes"
if it is "No" then exit mouseup
set the cursor to 4
set lockscreen to true
go to card numb of bkgnd "save"
xtransfer
set the cursor to 0
global roomz
if roomz is "card ""e&"guards""e then
global gtimes
subtract 1 from gtimes
end if
set lockscreen to false
answer "Restore complete!" with"OK"
end mouseUp
on xtransfer
global position
put field "a" into position
global doorhide
put field "b" into doorhide
global cardhide
put field "c" into cardhide
global times
put field "d" into times
global filter
put field "e" into filter
global halldoor
put field "f" into halldoor
global keyhide
put field "g" into keyhide
global inventory
put field "h" into inventory
global trayhide
put field "i" into trayhide
global doorhide
put field "j" into doorhide
global alarm
put field "k" into alarm
global grate
put field "l" into grate
global gtimes
put field "m" into gtimes
global suithide
put field "n" into suithide
global gunhide
put field "o" into gunhide
global droolhide
put field "p" into droolhide
global room
put field "q" into room
global wear
put field "r" into wear
global boozhide
put field "s" into boozhide
global cuphide
put field "t" into cuphide
global posthide
put field "u" into posthide
global action
put field "v" into action
global gdoors
put field "w" into gdoors
global booz
put field "x" into booz
global coffee
put field "y" into coffee
global boozer
put field "z" into boozer
global deadsec
put field "ab" into deadsec
global secdoorhide
put field "ac" into secdoorhide
global post2hide
put field "ad" into post2hide
global ctimes
put field "ae" into ctimes
put field "aa" into roomz
go roomz
end xtransfer
-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=297 right=325 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: home
----- HyperTalk script -----
on mouseUp
answer "Save game before quitting?" with "Yes" or "No" or "Cancel"
if it is "Cancel" then exit mouseup
if it is "Yes" then send "mouseup" to bkgnd button "save"
go home
end mouseUp
-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=9 top=28 right=51 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: room name
-- part 20 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=10 top=281 right=337 bottom=148
-- 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: inventory
-- part 21 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=160 top=315 right=337 bottom=258
-- 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: Examine Item
----- HyperTalk script -----
on mouseUp
ask "Which item would you like to examine?" with first line of field "inventory"
if it is "" then exit mouseup
if field "inventory" contains it then
if it is "cup" then
global coffee
if coffee is "yes" then go card "cup of coffee"
else go card "cup"
exit mouseup
end if
global objectname
put it into objectname
go to card it
else
beep
answer "You can't use it if you don't have it."
end if
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=272 right=292 bottom=235
-- 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: east
----- HyperTalk script -----
on mouseUp
global filter
if filter is "yes" then
beep
exit mouseup
end if
global notthatway
global position
get the name of this card
put it into temp
get last word of temp
put it into temp
put "" into first char of temp
put "" into last char of temp
if temp is "cell1" then
global times
add 1 to times
end if
if temp is "hallway" then
put "Sorry, but that is not specific enough. Click on the door"& " you wish to open and open it from the object screen." into field "info"
exit mouseup
end if
if temp is "engine" then
go to card "guards"
exit mouseup
end if
if temp is "empty room" then
go to card "hall2"
exit mouseup
end if
if temp is"closet" then
go to card "empty room"
exit mouseup
end if
if temp is "hall2" then
go to card "hall3"
exit mouseup
end if
if temp is "hall3" then
go to card "rec room"
exit mouseup
end if
if temp is "rec room" or temp is "rec room2" then
go to card "id door"
exit mouseup
end if
if temp is "id door" then
put "The guard asks you for identification." into field "info"
exit mouseup
end if
if temp is "foyer" then
go to card "computer room"
exit mouseup
end if
if temp is "officer's mess" then
go to card "navigator's room"
exit mouseup
end if
if temp is "lounge" then
go to card "guard post"
exit mouseup
end if
if temp is "bedroom" then
put "That door is locked." into field "info"
exit mouseup
end if
if temp is "bedroom2" then
go card "living room"
exit mouseup
end if
put notthatway into field "info"
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=199 top=291 right=310 bottom=218
-- 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: south
----- HyperTalk script -----
on mouseUp
global filter
if filter is "yes" then
beep
exit mouseup
end if
global notthatway
get the name of this card
put it into temp
get last word of temp
put it into temp
put "" into first char of temp
put "" into last char of temp
if temp is "cell1" then
global times
add 1 to times
end if
if temp is "hallway" then
go to card "cell3"
exit mouseup
end if
if temp is "locked room" or temp is "unlocked room" then
global position
put "hallway" into position
go to card "hallway"
exit mouseup
end if
if temp is "guards" then
go to card "unlocked room"
exit mouseup
end if
if temp is "empty room" then
go to card "guards"
exit mouseup
end if
if temp is "bunker" then
go to card "empty room"
exit mouseup
end if
if temp is "cafeteria" then
go to card "hall3"
exit mouseup
end if
if temp is "foyer" then
go to card "officer's mess"
exit mouseup
end if
if temp is "lounge" then
go to card "foyer"
exit mouseup
end if
if temp is "guard post" then
go to card "computer room"
exit mouseup
end if
if temp is "computer room" then
go to card "navigator's room"
exit mouseup
end if
if temp is "sec2" or temp is "secretary" then
go to card "guard post"
exit mouseup
end if
if temp is "guard post 2" or temp is "guard post 3" then
go card "sec2"
exit mouseup
end if
if temp is "bedroom" or temp is "bedroom2" then
go card "guard post 3"
exit mouseup
end if
put notthatway into field "info"
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=258 right=289 bottom=468
-- 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:
----- HyperTalk script -----
on mouseUp
answer "Zap (erase) all saved games?" with "Yes" or "Heck no"
if it is "Heck no" then exit mouseup
set the cursor to 4
put the name of this card into roomz
set lockscreen to true
repeat with x=1 to 5
go to card x of bkgnd "save"
ztransfer
set the name of card x of bkgnd "save" to "empty "&x
end repeat
if roomz is "card ""e&"guards""e then
global gtimes
subtract 1 from gtimes
end if
go roomz
set lockscreen to false
answer "Zap complete!" with"OK"
set the cursor to 0
end mouseUp
on ztransfer
put "" into field "a"
put "" into field "b"
put "" into field "c"
put "" into field "d"
put "" into field "e"
put "" into field "f"
put "" into field "g"
put "" into field "h"
put "" into field "i"
put "" into field "j"
put "" into field "k"
put "" into field "l"
put "" into field "m"
put "" into field "n"
put "" into field "o"
put "" into field "p"
put "" into field "q"
put "" into field "r"
put "" into field "s"
put "" into field "t"
put "" into field "u"
put "" into field "v"
put "" into field "w"
put "" into field "x"
put "" into field "y"
put "" into field "z"
put "" into field "aa"
put "" into field "ab"
put "" into field "ac"
put "" into field "ad"
put "" into field "ae"
end ztransfer
-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=292 top=310 right=334 bottom=357
-- 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: reset
----- HyperTalk script -----
on mouseUp
answer "Restart this game?" with "Yes" or "No"
if it is "no" then exit mouseup
else
reset
go card "cell1"
end if
end mouseUp