2020-11-27 04:46:36 +00:00
|
|
|
(local {: deflevel : with-footer : say : itile} (require :game.defs))
|
|
|
|
|
(local {: ev} (require :game.entity))
|
2020-11-27 04:33:14 +00:00
|
|
|
(local level (deflevel "game/map00001.json"))
|
2020-11-27 04:46:36 +00:00
|
|
|
(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)
|
2020-11-27 04:33:14 +00:00
|
|
|
|
|
|
|
|
level
|
