honeylisp/game/level4.fnl

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

(vm:word :term-dual-link
  :lit :term-exit :entity-itile (itile :termon) := (vm:if [:lit :term-exit] [:lit :term-scan]))

(vm:var :gord-sat vm.false)
(vm:word :tutorial-chair ; ev --
  ev.touch := (vm:when
    :get-responder :get :handle-special-move :drop
    (vm:if-and [[:gord-sat :get :not] [:gord-sitting :get]]
      [vm.true :gord-sat :set
       (say :gord "PHEW, IT FEELS GOOD TO" "REST MY LEG FOR A BIT.")
       (say :gord "IF YOU NEED ME TO DO SOMETHING" "FROM MY CHAIR, YOU CAN PRESS" "THE Z KEY.")])))

level