(local {: deflevel : say : itile : controlstate} (require :game.defs))
(local {: ev} (require :game.entity))
(local tile (require :game.tiles))
(local {: walkable : neutable : debris : sittable} tile.flag-to-bit)
(local level (deflevel "game/map6.json"))
(local vm level.vm)

(vm:word :linkloop ; e -- e
  (vm:until :link-arg :dup :entity-itile (itile :termon) :=))

(vm:word :keypad1 0x1234 :keypad)
(vm:word :keypad2 0x2345 :keypad)
(vm:word :keypad3 0x3456 :keypad)
(vm:word :keypad4 0x4567 :keypad)

level