(local {: deflevel : with-footer : say : itile} (require :game.defs))
(local {: ev} (require :game.entity))
(local level (deflevel "game/map00001.json"))
(local vm level.vm)

(vm:word :exitscanner (with-footer
  (say :jaye "IT'S A CARD SCANNER." "IT SHOULD OPEN THIS DOOR.")
  (say :jaye "IT'S NOT READING MY CARD" "FOR SOME REASON." "QUAKE MUST'VE DAMAGED IT.")
  (say :jaye "NEUT MIGHT BE ABLE TO" "HACK IT...")))

(vm:word :firstdoor
  :dup ev.touch := :responder-itile (itile :doorclosed) := :& (vm:when
    (with-footer (say :jaye "IT WON'T OPEN!"))
  ) :door)

level