-- 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 "&quote&"cell2"&quote 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 "&quote&"guards"&quote 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 "&quote&"cell1"&quote then
    global times
    subtract 1 from times
  end if
  if the name of this card is "card "&quote&"guards"&quote then
    global gtimes
    subtract 1 from gtimes
  end if
  if the name of this card is "card "&quote&"bedroom"&quote 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 "&quote&"cell1"&quote then
    global times
    subtract 1 from times
  end if
  if the name of this card is "card "&quote&"guards"&quote then
    global gtimes
    subtract 1 from gtimes
  end if
  if the name of this card is "card "&quote&"bedroom"&quote 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 "&quote&"guards"&quote 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 "&quote&"guards"&quote 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