home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ultra Mac Games 1 & 2
/
UltraMacGames1.iso
/
Adventure
/
SpaceEscape
/
SpaceEscape
/
card_12107.txt
< prev
next >
Wrap
Text File
|
1988-07-31
|
6KB
|
253 lines
-- card: 12107 from stack: in
-- bmap block id: 9656
-- flags: 4000
-- background id: 6153
-- name: Death
----- HyperTalk script -----
on opencard
hide card field "info"
show card field "blobhide"
play "harpsichord" tempo 120 a3s b3s a3s b3s c4s b3s c4s b3s a3e b3e
play "harpsichord" tempo 120 c4e e4e a4e b4e c5e e5e e5e e5e e5q
play "harpsichord" tempo 120 a3s b3s a3s b3s c4s b3s c4s b3s a3e b3e
play "harpsichord" tempo 120 c4e e4e a4e b4e c5e e5e e5e e5e a5q
repeat while the sound is not "done"
end repeat
hide card field "blobhide"
end opencard
on closecard
hide card field "info"
show card field "blobhide"
visual effect dissolve very fast
end closecard
-- part 2 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=2 top=93 right=241 bottom=507
-- 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:
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=273 right=321 bottom=169
-- 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
show card field "info"
global temp2
put "" into temp2
set the cursor to 4
put "Games you have saved:" into card 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 card field "info"
set the cursor to 0
ask "Restore which number?"
if it is "" then
exit mouseup
hide card field "info"
end if
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
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 5 (field)
-- low flags: 80
-- high flags: 2001
-- rect: left=2 top=93 right=242 bottom=506
-- 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
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=326 top=277 right=320 bottom=402
-- 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
reset
go card 1
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=219 top=271 right=323 bottom=274
-- 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: Go Home
----- HyperTalk script -----
on mouseUp
go home
end mouseUp
-- part 7 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=63 top=271 right=329 bottom=399
-- 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: blobhide
-- part contents for card part 2
----- text -----
So, you couldn't take it, huh? Well, you sure have done it this time. You've croaked. Kicked the bucket. Bought the farm.
You're dead now, and you can't do anything about it.
"But wait," you say. "This is only a game."
Good point. So you're going to get another chance.
-- part contents for card part 5
----- text -----
Games you have saved:
1) 1
2) trice
3) tricey
4) empty 4
5) empty 5
-- part contents for background part 1
----- text -----
****************
Compacting this stack. Please wait.
****************