home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / SpaceEscape / SpaceEscape / card_12107.txt < prev    next >
Text File  |  1988-07-31  |  6KB  |  253 lines
  1. -- card: 12107 from stack: in
  2. -- bmap block id: 9656
  3. -- flags: 4000
  4. -- background id: 6153
  5. -- name: Death
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide card field "info"
  9.   show card field "blobhide"
  10.   play "harpsichord" tempo 120 a3s b3s a3s b3s c4s b3s c4s b3s a3e b3e
  11.   play "harpsichord" tempo 120 c4e e4e a4e b4e c5e e5e e5e e5e e5q
  12.   play "harpsichord" tempo 120 a3s b3s a3s b3s c4s b3s c4s b3s a3e b3e
  13.   play "harpsichord" tempo 120 c4e e4e a4e b4e c5e e5e e5e e5e a5q
  14.   repeat while the sound is not "done"
  15.   end repeat
  16.   hide card field "blobhide"
  17. end opencard
  18.  
  19. on closecard
  20.   hide card field "info"
  21.   show card field "blobhide"
  22.   visual effect dissolve very fast
  23. end closecard
  24.  
  25.  
  26. -- part 2 (field)
  27. -- low flags: 01
  28. -- high flags: 2000
  29. -- rect: left=2 top=93 right=241 bottom=507
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 3
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: 
  38.  
  39.  
  40. -- part 4 (button)
  41. -- low flags: 00
  42. -- high flags: 0000
  43. -- rect: left=95 top=273 right=321 bottom=169
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: restore
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   show card field "info"
  55.   global temp2
  56.   put "" into temp2
  57.   set the cursor to 4
  58.   put "Games you have saved:" into card field "info"
  59.   repeat with x=1 to 5
  60.     put the name of card x of bkgnd "save" into temp
  61.     put "" into first word of temp
  62.     get offset (quote,temp)
  63.     put "" into char it of temp
  64.     get offset (quote,temp)
  65.     put "" into char it of temp
  66.     put return&x&") "&temp after last word of temp2
  67.   end repeat
  68.   put return& temp2 after last line of card field "info"
  69.   set the cursor to 0
  70.   ask "Restore which number?"
  71.   if it is "" then
  72.     exit mouseup
  73.     hide card field "info"
  74.   end if
  75.   if it  >5 or it <1 then
  76.     beep
  77.     answer "Please use a number between 1 and 5." with "OK"
  78.     exit mouseup
  79.   end if
  80.   global numb
  81.   put it into numb
  82.   answer "Restore present game to game "&numb&" ?" with "No" or "Yes"
  83.   if it is "No" then exit mouseup
  84.   set the cursor to 4
  85.   set lockscreen to true
  86.   go to card numb of bkgnd "save"
  87.   xtransfer
  88.   set the cursor to 0
  89.   set lockscreen to false
  90.   answer "Restore complete!" with"OK"
  91. end mouseUp
  92.  
  93. on xtransfer
  94.   global position
  95.   put field "a" into position
  96.   global doorhide
  97.   put field "b" into doorhide
  98.   global cardhide
  99.   put field "c" into cardhide
  100.   global times
  101.   put field "d" into times
  102.   global filter
  103.   put field "e" into filter
  104.   global halldoor
  105.   put field "f" into halldoor
  106.   global keyhide
  107.   put field "g" into keyhide
  108.   global inventory
  109.   put field "h" into inventory
  110.   global trayhide
  111.   put field "i" into trayhide
  112.   global doorhide
  113.   put field "j" into doorhide
  114.   global alarm
  115.   put field "k" into alarm
  116.   global grate
  117.   put field "l" into grate
  118.   global gtimes
  119.   put field "m" into gtimes
  120.   global suithide
  121.   put field "n" into suithide
  122.   global gunhide
  123.   put field "o" into gunhide
  124.   global droolhide
  125.   put field "p" into droolhide
  126.   global room
  127.   put field "q" into room
  128.   global wear
  129.   put field "r" into wear
  130.   global boozhide
  131.   put field "s" into boozhide
  132.   global cuphide
  133.   put field "t" into cuphide
  134.   global posthide
  135.   put field "u" into posthide
  136.   global action
  137.   put field "v" into action
  138.   global gdoors
  139.   put field "w" into gdoors
  140.   global booz
  141.   put field "x" into booz
  142.   global coffee
  143.   put field "y" into coffee
  144.   global boozer
  145.   put field "z" into boozer
  146.   global deadsec
  147.   put field "ab" into deadsec
  148.   global secdoorhide
  149.   put field "ac" into secdoorhide
  150.   global post2hide
  151.   put field "ad" into post2hide
  152.   global ctimes
  153.   put field "ae" into ctimes
  154.   put field "aa" into roomz
  155.   go roomz
  156. end xtransfer
  157.  
  158.  
  159.  
  160.  
  161. -- part 5 (field)
  162. -- low flags: 80
  163. -- high flags: 2001
  164. -- rect: left=2 top=93 right=242 bottom=506
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 3
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: info
  173.  
  174.  
  175. -- part 8 (button)
  176. -- low flags: 00
  177. -- high flags: 0000
  178. -- rect: left=326 top=277 right=320 bottom=402
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: 
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   reset
  190.   go card 1
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 6 (button)
  196. -- low flags: 00
  197. -- high flags: 8000
  198. -- rect: left=219 top=271 right=323 bottom=274
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 21700 / 21700
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Go Home
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   go home
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 7 (field)
  215. -- low flags: 01
  216. -- high flags: 0001
  217. -- rect: left=63 top=271 right=329 bottom=399
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 3
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: blobhide
  226.  
  227.  
  228. -- part contents for card part 2
  229. ----- text -----
  230.      So, you couldn't take it, huh?  Well, you sure have done it this time.  You've croaked.  Kicked the bucket.  Bought the farm.
  231.  
  232.      You're dead now, and you can't do anything about it.
  233.  
  234.      "But wait," you say.  "This is only a game." 
  235.  
  236.      Good point.  So you're going to get another chance.
  237.  
  238.  
  239. -- part contents for card part 5
  240. ----- text -----
  241. Games you have saved:
  242.  
  243. 1)  1
  244. 2)  trice
  245. 3)  tricey
  246. 4)  empty 4
  247. 5)  empty 5
  248.  
  249. -- part contents for background part 1
  250. ----- text -----
  251. ****************
  252. Compacting this stack.  Please wait.
  253. ****************