home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / SpaceEscape / SpaceEscape / background_2669.txt < prev    next >
Text File  |  1988-07-31  |  21KB  |  921 lines
  1. -- background: 2669 from stack: in
  2. -- bmap block id: 43140
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: reg. bkgnd
  6. ----- HyperTalk script -----
  7. on closecard
  8.   global room
  9.   put name of this card into room
  10.   visual effect dissolve very fast
  11. end closecard
  12.  
  13. on cont
  14. end cont
  15.  
  16. on opencard
  17.   global inventory
  18.   put inventory into field "inventory"
  19. end opencard
  20.  
  21.  
  22. -- part 6 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=9 top=57 right=251 bottom=148
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: info
  34. ----- HyperTalk script -----
  35. on mouseup
  36.   if the name of this card is "card ""e&"cell2""e and field "info" contains "obviously" then
  37.     go to card "cell3"
  38.     exit mouseup
  39.   end if
  40.   send "cont" to this card
  41. end mouseup
  42.  
  43.  
  44. -- part 8 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=182 top=272 right=292 bottom=200
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: west
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   global filter
  59.   if filter is "yes" then
  60.     beep
  61.     exit mouseup
  62.   end if
  63.   global notthatway
  64.   global position
  65.   get the name of this card
  66.   put it into temp
  67.   get last word of temp
  68.   put it into temp
  69.   put "" into first char of temp
  70.   put "" into last char of temp
  71.   if temp is "cell1" then
  72.     global times
  73.     add 1 to times
  74.   end if
  75.   if temp is "hallway" then
  76.     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"
  77.     exit mouseup
  78.   end if
  79.   if temp is "open cell" then
  80.     go to card "hallway"
  81.     exit mouseup
  82.   end if
  83.   if temp is "guards" then
  84.     go to card "engine"
  85.     exit mouseup
  86.   end if
  87.   if temp is "empty room" then
  88.     go to card "closet"
  89.     exit mouseup
  90.   end if
  91.   if temp is "hall2" then
  92.     go to card "empty room"
  93.     exit mouseup
  94.   end if
  95.   if temp is "hall3" then
  96.     go to card "hall2"
  97.     exit mouseup
  98.   end if
  99.   if temp is "rec room" or temp is "rec room2" then
  100.     go to card "hall3"
  101.     exit mouseup
  102.   end if
  103.   if temp is "id door" then
  104.     go to card "rec room"
  105.     exit mouseup
  106.   end if
  107.   if temp is "foyer" then
  108.     put "The heavy door is locked." into field "info"
  109.     exit mouseup
  110.   end if
  111.   if temp is "guard post" then
  112.     go to card "lounge"
  113.     exit mouseup
  114.   end if
  115.   if temp is "computer room" then
  116.     go to card "foyer"
  117.     exit mouseup
  118.   end if
  119.   if temp is "navigator's room" then
  120.     go to card "officer's mess"
  121.     exit mouseup
  122.   end if
  123.   if temp is "living room" then
  124.     go card "bedroom2"
  125.     exit mouseup
  126.   end if
  127.   put notthatway into field "info"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 9 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=199 top=257 right=273 bottom=218
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: north
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   global filter
  147.   if filter is "yes" then
  148.     beep
  149.     exit mouseup
  150.   end if
  151.   global notthatway
  152.   get last word of the name of this card
  153.   put it into temp
  154.   put "" into first char of temp
  155.   put "" into last char of temp
  156.   if temp is "cell1" then
  157.     put "The door is closed." into field "info"
  158.     global times
  159.     add 1 to times
  160.     exit mouseup
  161.   end if
  162.   if temp is "cell3" then
  163.     go to card "hallway"
  164.     exit mouseup
  165.   end if
  166.   if temp is "hallway" then
  167.     if visible of card field "doorhide" is false then
  168.       put "The door is closed." into field "info"
  169.       exit mouseup
  170.     end if
  171.     if visible of card field "doorhide" is true then
  172.       global grate
  173.       if grate is "" then
  174.         go to card "locked room"
  175.         exit mouseup
  176.       else
  177.         go to card "unlocked room"
  178.         exit mouseup
  179.       end if
  180.     end if
  181.   end if
  182.   if temp is "unlocked room" then
  183.     go to card "guards"
  184.     exit mouseup
  185.   end if
  186.   if temp is "guards" then
  187.     go to card "empty room"
  188.     exit mouseup
  189.   end if
  190.   if temp is "empty room" then
  191.     go to card "bunker"
  192.     exit mouseup
  193.   end if
  194.   if temp is "hall3" then
  195.     go to card "cafeteria"
  196.     exit mouseup
  197.   end if
  198.   if temp is "foyer" then
  199.     go to card "lounge"
  200.     exit mouseup
  201.   end if
  202.   if temp is "officer's mess" then
  203.     go to card "foyer"
  204.     exit mouseup
  205.   end if
  206.   if temp is "guard post" then
  207.     global posthide
  208.     if posthide is "yes" then go to card "secretary"
  209.     else put "The guard will not let you past." into field "info"
  210.     exit mouseup
  211.   end if
  212.   if temp is "computer room" then
  213.     go to card "guard post"
  214.     exit mouseup
  215.   end if
  216.   if temp is "navigator's room" then
  217.     go to card "computer room"
  218.     exit mouseup
  219.   end if
  220.   if temp is "sec2" then
  221.     if the visible of card field "secdoorhide" is true then
  222.       go card "guard post 2"
  223.     else
  224.       put "The door is locked." into field "info"
  225.     end if
  226.     exit mouseup
  227.   end if
  228.   if temp is "secretary" then
  229.     put "The door is locked." into field "info"
  230.     exit mouseup
  231.   end if
  232.   if temp is "guard post 2" then
  233.     put "The guard snarls viciously." into field "info"
  234.     exit mouseup
  235.   end if
  236.   if temp is "guard post 3" then
  237.     go card "bedroom"
  238.     exit mouseup
  239.   end if
  240.   put notthatway into field "info"
  241. end mouseUp
  242.  
  243.  
  244.  
  245.  
  246. -- part 12 (button)
  247. -- low flags: 00
  248. -- high flags: 0000
  249. -- rect: left=293 top=255 right=280 bottom=338
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: save
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   global temp2
  261.   put "" into temp2
  262.   set the cursor to 4
  263.   global roomz
  264.   put the name of this card into roomz
  265.   put "Games you have saved:" into field "info"
  266.   repeat with x=1 to 5
  267.     put the name of card x of bkgnd "save" into temp
  268.     put "" into first word of temp
  269.     get offset (quote,temp)
  270.     put "" into char it of temp
  271.     get offset (quote,temp)
  272.     put "" into char it of temp
  273.     put return&x&") "&temp after last word of temp2
  274.   end repeat
  275.   put return& temp2 after last line of field "info"
  276.   set the cursor to 0
  277.   ask "Save as which number?"
  278.   if it is "" then exit mouseup
  279.   if it  >5 or it <1 then
  280.     beep
  281.     answer "Please use a number between 1 and 5." with "OK"
  282.     exit mouseup
  283.   end if
  284.   global numb
  285.   put it into numb
  286.   ask "What would you like to name the game?"
  287.   if it is "" then exit mouseup
  288.   global nomb
  289.   put it into nomb
  290.   get the number of characters of it
  291.   if it > 7 then
  292.     beep
  293.     answer "Please use no more than 7 characters." with "OK"
  294.     exit mouseup
  295.   end if
  296.   answer "Replace previous game "&numb&" with this one?" with "Yes" or "No"
  297.   if it is "No" then exit mouseup
  298.   set the cursor to 4
  299.   set lockscreen to true
  300.   go to card numb of bkgnd "save"
  301.   transfer
  302.   set the name of card numb of bkgnd "save" to nomb
  303.   set the cursor to 0
  304.   if roomz is "card ""e&"guards""e then
  305.     global gtimes
  306.     subtract 1 from gtimes
  307.   end if
  308.   go roomz
  309.   set lockscreen to false
  310.   answer "Save complete!" with"OK"
  311. end mouseUp
  312.  
  313. on transfer
  314.   global position
  315.   put position into field "a"
  316.   global doorhide
  317.   put doorhide into field "b"
  318.   global cardhide
  319.   put cardhide into field "c"
  320.   global times
  321.   put times into field "d"
  322.   global filter
  323.   put filter into field "e"
  324.   global halldoor
  325.   put halldoor into field "f"
  326.   global keyhide
  327.   put keyhide into field "g"
  328.   global inventory
  329.   put inventory into field "h"
  330.   global trayhide
  331.   put trayhide into field "i"
  332.   global doorhide
  333.   put doorhide into field "j"
  334.   global alarm
  335.   put alarm into field "k"
  336.   global grate
  337.   put grate into field "l"
  338.   global gtimes
  339.   put gtimes into field "m"
  340.   global suithide
  341.   put suithide into field "n"
  342.   global gunhide
  343.   put gunhide into field "o"
  344.   global droolhide
  345.   put droolhide into field "p"
  346.   global room
  347.   put room into field "q"
  348.   global wear
  349.   put wear into field "r"
  350.   global boozhide
  351.   put boozhide into field "s"
  352.   global cuphide
  353.   put cuphide into field "t"
  354.   global posthide
  355.   put posthide into field "u"
  356.   global action
  357.   put action into field "v"
  358.   global gdoors
  359.   put gdoors into field "w"
  360.   global booz
  361.   put booz into field "x"
  362.   global coffee
  363.   put coffee into field "y"
  364.   global boozer
  365.   put boozer into field "z"
  366.   global roomz
  367.   put roomz into field "aa"
  368.   global deadsec
  369.   put deadsec into field "ab"
  370.   global secdoorhide
  371.   put secdoorhide into field "ac"
  372.   global posth2hide
  373.   put post2hide into field "ad"
  374.   global ctimes
  375.   put ctimes into field "ae"
  376. end transfer
  377.  
  378.  
  379.  
  380. -- part 13 (button)
  381. -- low flags: 00
  382. -- high flags: 0000
  383. -- rect: left=392 top=260 right=285 bottom=416
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: bucks
  392. ----- HyperTalk script -----
  393. on mouseUp
  394.   push card
  395.   if the name of this card is "card ""e&"cell1""e then
  396.     global times
  397.     subtract 1 from times
  398.   end if
  399.   if the name of this card is "card ""e&"guards""e then
  400.     global gtimes
  401.     subtract 1 from gtimes
  402.   end if
  403.   if the name of this card is "card ""e&"bedroom""e then
  404.     global ctimes
  405.     subtract 1 from ctimes
  406.   end if
  407.   global buckaroos
  408.   put "yes" into buckaroos
  409.   go card "bucks"
  410. end mouseUp
  411.  
  412.  
  413.  
  414. -- part 14 (button)
  415. -- low flags: 00
  416. -- high flags: 0000
  417. -- rect: left=391 top=297 right=324 bottom=416
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 1
  421. -- font id: 0
  422. -- text size: 12
  423. -- style flags: 0
  424. -- line height: 16
  425. -- part name: help
  426. ----- HyperTalk script -----
  427. on mouseUp
  428.   push card
  429.   if the name of this card is "card ""e&"cell1""e then
  430.     global times
  431.     subtract 1 from times
  432.   end if
  433.   if the name of this card is "card ""e&"guards""e then
  434.     global gtimes
  435.     subtract 1 from gtimes
  436.   end if
  437.   if the name of this card is "card ""e&"bedroom""e then
  438.     global ctimes
  439.     subtract 1 from ctimes
  440.   end if
  441.   go to card "help1"
  442. end mouseUp
  443.  
  444.  
  445.  
  446. -- part 15 (button)
  447. -- low flags: 00
  448. -- high flags: 0000
  449. -- rect: left=294 top=282 right=309 bottom=354
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 0 / 0
  452. -- text alignment: 1
  453. -- font id: 0
  454. -- text size: 12
  455. -- style flags: 0
  456. -- line height: 16
  457. -- part name: restore
  458. ----- HyperTalk script -----
  459. on mouseUp
  460.   global temp2
  461.   put "" into temp2
  462.   set the cursor to 4
  463.   put "Games you have saved:" into field "info"
  464.   repeat with x=1 to 5
  465.     put the name of card x of bkgnd "save" into temp
  466.     put "" into first word of temp
  467.     get offset (quote,temp)
  468.     put "" into char it of temp
  469.     get offset (quote,temp)
  470.     put "" into char it of temp
  471.     put return&x&") "&temp after last word of temp2
  472.   end repeat
  473.   put return& temp2 after last line of field "info"
  474.   set the cursor to 0
  475.   ask "Restore which number?"
  476.   if it is "" then exit mouseup
  477.   if it  >5 or it <1 then
  478.     beep
  479.     answer "Please use a number between 1 and 5." with "OK"
  480.     exit mouseup
  481.   end if
  482.   global numb
  483.   put it into numb
  484.   answer "Restore present game to game "&numb&" ?" with "No" or "Yes"
  485.   if it is "No" then exit mouseup
  486.   set the cursor to 4
  487.   set lockscreen to true
  488.   go to card numb of bkgnd "save"
  489.   xtransfer
  490.   set the cursor to 0
  491.   global roomz
  492.   if roomz is "card ""e&"guards""e then
  493.     global gtimes
  494.     subtract 1 from gtimes
  495.   end if
  496.   set lockscreen to false
  497.   answer "Restore complete!" with"OK"
  498. end mouseUp
  499.  
  500. on xtransfer
  501.   global position
  502.   put field "a" into position
  503.   global doorhide
  504.   put field "b" into doorhide
  505.   global cardhide
  506.   put field "c" into cardhide
  507.   global times
  508.   put field "d" into times
  509.   global filter
  510.   put field "e" into filter
  511.   global halldoor
  512.   put field "f" into halldoor
  513.   global keyhide
  514.   put field "g" into keyhide
  515.   global inventory
  516.   put field "h" into inventory
  517.   global trayhide
  518.   put field "i" into trayhide
  519.   global doorhide
  520.   put field "j" into doorhide
  521.   global alarm
  522.   put field "k" into alarm
  523.   global grate
  524.   put field "l" into grate
  525.   global gtimes
  526.   put field "m" into gtimes
  527.   global suithide
  528.   put field "n" into suithide
  529.   global gunhide
  530.   put field "o" into gunhide
  531.   global droolhide
  532.   put field "p" into droolhide
  533.   global room
  534.   put field "q" into room
  535.   global wear
  536.   put field "r" into wear
  537.   global boozhide
  538.   put field "s" into boozhide
  539.   global cuphide
  540.   put field "t" into cuphide
  541.   global posthide
  542.   put field "u" into posthide
  543.   global action
  544.   put field "v" into action
  545.   global gdoors
  546.   put field "w" into gdoors
  547.   global booz
  548.   put field "x" into booz
  549.   global coffee
  550.   put field "y" into coffee
  551.   global boozer
  552.   put field "z" into boozer
  553.   global deadsec
  554.   put field "ab" into deadsec
  555.   global secdoorhide
  556.   put field "ac" into secdoorhide
  557.   global post2hide
  558.   put field "ad" into post2hide
  559.   global ctimes
  560.   put field "ae" into ctimes
  561.   put field "aa" into roomz
  562.   go roomz
  563. end xtransfer
  564.  
  565.  
  566.  
  567.  
  568. -- part 16 (button)
  569. -- low flags: 00
  570. -- high flags: 0000
  571. -- rect: left=436 top=297 right=325 bottom=469
  572. -- title width / last selected line: 0
  573. -- icon id / first selected line: 21700 / 21700
  574. -- text alignment: 1
  575. -- font id: 0
  576. -- text size: 12
  577. -- style flags: 0
  578. -- line height: 16
  579. -- part name: home
  580. ----- HyperTalk script -----
  581. on mouseUp
  582.   answer "Save game before quitting?" with "Yes" or "No" or "Cancel"
  583.   if it is "Cancel" then exit mouseup
  584.   if it is "Yes" then send "mouseup" to bkgnd button "save"
  585.   go home
  586. end mouseUp
  587.  
  588.  
  589.  
  590. -- part 18 (field)
  591. -- low flags: 01
  592. -- high flags: 0000
  593. -- rect: left=9 top=28 right=51 bottom=148
  594. -- title width / last selected line: 0
  595. -- icon id / first selected line: 0 / 0
  596. -- text alignment: 1
  597. -- font id: 3
  598. -- text size: 14
  599. -- style flags: 256
  600. -- line height: 18
  601. -- part name: room name
  602.  
  603.  
  604. -- part 20 (field)
  605. -- low flags: 01
  606. -- high flags: 0007
  607. -- rect: left=10 top=281 right=337 bottom=148
  608. -- title width / last selected line: 0
  609. -- icon id / first selected line: 0 / 0
  610. -- text alignment: 0
  611. -- font id: 3
  612. -- text size: 12
  613. -- style flags: 0
  614. -- line height: 16
  615. -- part name: inventory
  616.  
  617.  
  618. -- part 21 (button)
  619. -- low flags: 00
  620. -- high flags: 8000
  621. -- rect: left=160 top=315 right=337 bottom=258
  622. -- title width / last selected line: 0
  623. -- icon id / first selected line: 0 / 0
  624. -- text alignment: 1
  625. -- font id: 0
  626. -- text size: 12
  627. -- style flags: 0
  628. -- line height: 16
  629. -- part name: Examine Item
  630. ----- HyperTalk script -----
  631. on mouseUp
  632.   ask "Which item would you like to examine?" with first line of field "inventory"
  633.   if it is "" then exit mouseup
  634.   if field "inventory" contains it then
  635.     if it is "cup" then
  636.       global coffee
  637.       if coffee is "yes" then go card "cup of coffee"
  638.       else go card "cup"
  639.       exit mouseup
  640.     end if
  641.     global objectname
  642.     put it into objectname
  643.     go to card it
  644.   else
  645.     beep
  646.     answer "You can't use it if you don't have it."
  647.   end if
  648. end mouseUp
  649.  
  650.  
  651.  
  652. -- part 22 (button)
  653. -- low flags: 00
  654. -- high flags: 0000
  655. -- rect: left=217 top=272 right=292 bottom=235
  656. -- title width / last selected line: 0
  657. -- icon id / first selected line: 0 / 0
  658. -- text alignment: 1
  659. -- font id: 0
  660. -- text size: 12
  661. -- style flags: 0
  662. -- line height: 16
  663. -- part name: east
  664. ----- HyperTalk script -----
  665. on mouseUp
  666.   global filter
  667.   if filter is "yes" then
  668.     beep
  669.     exit mouseup
  670.   end if
  671.   global notthatway
  672.   global position
  673.   get the name of this card
  674.   put it into temp
  675.   get last word of temp
  676.   put it into temp
  677.   put "" into first char of temp
  678.   put "" into last char of temp
  679.   if temp is "cell1" then
  680.     global times
  681.     add 1 to times
  682.   end if
  683.   if temp is "hallway" then
  684.     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"
  685.     exit mouseup
  686.   end if
  687.   if temp is "engine" then
  688.     go to card "guards"
  689.     exit mouseup
  690.   end if
  691.   if temp is "empty room" then
  692.     go to card "hall2"
  693.     exit mouseup
  694.   end if
  695.   if temp is"closet" then
  696.     go to card "empty room"
  697.     exit mouseup
  698.   end if
  699.   if temp is "hall2" then
  700.     go to card "hall3"
  701.     exit mouseup
  702.   end if
  703.   if temp is "hall3" then
  704.     go to card "rec room"
  705.     exit mouseup
  706.   end if
  707.   if temp is "rec room" or temp is "rec room2" then
  708.     go to card "id door"
  709.     exit mouseup
  710.   end if
  711.   if temp is "id door" then
  712.     put "The guard asks you for identification." into field "info"
  713.     exit mouseup
  714.   end if
  715.   if temp is "foyer" then
  716.     go to card "computer room"
  717.     exit mouseup
  718.   end if
  719.   if temp is "officer's mess" then
  720.     go to card "navigator's room"
  721.     exit mouseup
  722.   end if
  723.   if temp is "lounge" then
  724.     go to card "guard post"
  725.     exit mouseup
  726.   end if
  727.   if temp is "bedroom" then
  728.     put "That door is locked." into field "info"
  729.     exit mouseup
  730.   end if
  731.   if temp is "bedroom2" then
  732.     go card "living room"
  733.     exit mouseup
  734.   end if
  735.   put notthatway into field "info"
  736. end mouseUp
  737.  
  738.  
  739.  
  740. -- part 23 (button)
  741. -- low flags: 00
  742. -- high flags: 0000
  743. -- rect: left=199 top=291 right=310 bottom=218
  744. -- title width / last selected line: 0
  745. -- icon id / first selected line: 0 / 0
  746. -- text alignment: 1
  747. -- font id: 0
  748. -- text size: 12
  749. -- style flags: 0
  750. -- line height: 16
  751. -- part name: south
  752. ----- HyperTalk script -----
  753. on mouseUp
  754.   global filter
  755.   if filter is "yes" then
  756.     beep
  757.     exit mouseup
  758.   end if
  759.   global notthatway
  760.   get the name of this card
  761.   put it into temp
  762.   get last word of temp
  763.   put it into temp
  764.   put "" into first char of temp
  765.   put "" into last char of temp
  766.   if temp is "cell1" then
  767.     global times
  768.     add 1 to times
  769.   end if
  770.   if temp is "hallway" then
  771.     go to card "cell3"
  772.     exit mouseup
  773.   end if
  774.   if temp is "locked room" or temp is "unlocked room" then
  775.     global position
  776.     put "hallway" into position
  777.     go to card "hallway"
  778.     exit mouseup
  779.   end if
  780.   if temp is "guards" then
  781.     go to card "unlocked room"
  782.     exit mouseup
  783.   end if
  784.   if temp is "empty room" then
  785.     go to card "guards"
  786.     exit mouseup
  787.   end if
  788.   if temp is "bunker" then
  789.     go to card "empty room"
  790.     exit mouseup
  791.   end if
  792.   if temp is "cafeteria" then
  793.     go to card "hall3"
  794.     exit mouseup
  795.   end if
  796.   if temp is "foyer" then
  797.     go to card "officer's mess"
  798.     exit mouseup
  799.   end if
  800.   if temp is "lounge" then
  801.     go to card "foyer"
  802.     exit mouseup
  803.   end if
  804.   if temp is "guard post" then
  805.     go to card "computer room"
  806.     exit mouseup
  807.   end if
  808.   if temp is "computer room" then
  809.     go to card "navigator's room"
  810.     exit mouseup
  811.   end if
  812.   if temp is "sec2" or temp is "secretary" then
  813.     go to card "guard post"
  814.     exit mouseup
  815.   end if
  816.   if temp is "guard post 2" or temp is "guard post 3" then
  817.     go card "sec2"
  818.     exit mouseup
  819.   end if
  820.   if temp is "bedroom" or temp is "bedroom2" then
  821.     go card "guard post 3"
  822.     exit mouseup
  823.   end if
  824.   put notthatway into field "info"
  825. end mouseUp
  826.  
  827.  
  828.  
  829. -- part 26 (button)
  830. -- low flags: 00
  831. -- high flags: 0000
  832. -- rect: left=436 top=258 right=289 bottom=468
  833. -- title width / last selected line: 0
  834. -- icon id / first selected line: 0 / 0
  835. -- text alignment: 1
  836. -- font id: 0
  837. -- text size: 12
  838. -- style flags: 0
  839. -- line height: 16
  840. -- part name: 
  841. ----- HyperTalk script -----
  842. on mouseUp
  843.   answer "Zap (erase) all saved games?" with "Yes" or "Heck no"
  844.   if it is "Heck no" then exit mouseup
  845.   set the cursor to 4
  846.   put the name of this card into roomz
  847.   set lockscreen to true
  848.   repeat with x=1 to 5
  849.     go to card x of bkgnd "save"
  850.     ztransfer
  851.     set the name of card x of bkgnd "save" to "empty "&x
  852.   end repeat
  853.   if roomz is "card ""e&"guards""e then
  854.     global gtimes
  855.     subtract 1 from gtimes
  856.   end if
  857.   go roomz
  858.   set lockscreen to false
  859.   answer "Zap complete!" with"OK"
  860.   set the cursor to 0
  861. end mouseUp
  862.  
  863. on ztransfer
  864.   put "" into field "a"
  865.   put "" into field "b"
  866.   put "" into field "c"
  867.   put "" into field "d"
  868.   put "" into field "e"
  869.   put "" into field "f"
  870.   put "" into field "g"
  871.   put "" into field "h"
  872.   put "" into field "i"
  873.   put "" into field "j"
  874.   put "" into field "k"
  875.   put "" into field "l"
  876.   put "" into field "m"
  877.   put "" into field "n"
  878.   put "" into field "o"
  879.   put "" into field "p"
  880.   put "" into field "q"
  881.   put "" into field "r"
  882.   put "" into field "s"
  883.   put "" into field "t"
  884.   put "" into field "u"
  885.   put "" into field "v"
  886.   put "" into field "w"
  887.   put "" into field "x"
  888.   put "" into field "y"
  889.   put "" into field "z"
  890.   put "" into field "aa"
  891.   put "" into field "ab"
  892.   put "" into field "ac"
  893.   put "" into field "ad"
  894.   put "" into field "ae"
  895. end ztransfer
  896.  
  897.  
  898.  
  899. -- part 27 (button)
  900. -- low flags: 00
  901. -- high flags: 0000
  902. -- rect: left=292 top=310 right=334 bottom=357
  903. -- title width / last selected line: 0
  904. -- icon id / first selected line: 0 / 0
  905. -- text alignment: 1
  906. -- font id: 0
  907. -- text size: 12
  908. -- style flags: 0
  909. -- line height: 16
  910. -- part name: reset
  911. ----- HyperTalk script -----
  912. on mouseUp
  913.   answer "Restart this game?" with "Yes" or "No"
  914.   if it is "no" then exit mouseup
  915.   else
  916.     reset
  917.     go card "cell1"
  918.   end if
  919. end mouseUp
  920.  
  921.