honeylisp/game/level5.fnl

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

(vm:var :doortimer 0)
(vm:word :start-doortimer 0x100 :doortimer :set)
(vm:word :doortimer-tick
  :doortimer :get (vm:when
    :doortimer :get 1 :- :dup :doortimer :set
    :not (vm:when
      :lit :timedswitch ev.deact :entity>do)))

(vm:word :do-timedswitch
  ; only gord is physically able to touch it
  :dup ev.touch := (vm:when :start-doortimer :drop ev.act) :switch)

level