honeylisp/game/level4.fnl

10 lines
285 B
Plaintext
Raw Normal View History

2020-12-12 01:53:46 +00:00
(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]))
level