-- card: 14507 from stack: in
-- bmap block id: 40161
-- flags: 4000
-- background id: 8902
-- name: hallway button door
----- HyperTalk script -----
on opencard
  global doorhide
  if doorhide is "" then
    put "This is an open doorway." into field "info"
    show card field "doorhide"
  else
    put "Boy, aren't these closed doors fun?" into field "info"
    hide card field "doorhide"
  end if
  pass opencard
end opencard


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=161 top=302 right=323 bottom=192
-- 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: OK
----- HyperTalk script -----
on mouseUp
  global filter
  if filter is "yes" then
    beep
    exit mouseup
  end if
  global donteat
  get bkgnd field "do what"
  if the number of words in it > 1 then
    beep 2
    oneword
    exit mouseup
  end if
  global doorhide
  if it contains "knock" then
    put "No answer." into field "info"
    exit mouseup
  end if
  if doorhide is "closed" then
    if it contains "open" or it contains "push" or it contains "pull"then
    put "The door is sealed tightly." into field "info"
    exit mouseup
  end if
  if it contains "close" then
    put "The door is already closed." into field "info"
  end if
  if it contains "examine" or it contains "look" then
    put "For the benefit of those of you who haven't figured it "& "out yet, this is a closed door." into field "info"
    exit mouseup
  end if
  if it contains "hit" or it contains "kick" or it contains "punch" then
    ouch
    exit mouseup
  end if
  if it contains "get" or it contains "move" then
    put "You give up once you realize"& " that you are not strong enough to rip the door off its hinges." into field "info"
    exit mouseup
  end if
  if it contains "eat" or it contains "consume" then
    put donteat into field "info"
    exit mouseup
  end if
  if it contains "go" then
    put "That would work, except you're not sure how you're going"& " to go about walking through solid steel." into field "info"
    exit mouseup
  end if
end if
global doorhide
if doorhide is "" then
  if it contains "go" then
    go to card "locked room"
    exit mouseup
  end if
end if
if it is "" then
  put "Speak up.  I can't hear you." into field "info"
  exit mouseup
end if
idunno
end mouseUp

on cont
end cont



-- part 2 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=276 top=54 right=227 bottom=380
-- 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: doorhide


-- part contents for background part 2
----- text -----
What would you like to do with the door?

-- part contents for background part 7
----- text -----
Door