2021-06-22 02:40:46 +00:00
|
|
|
(local {: deflevel : say : itile} (require :neuttower.defs))
|
|
|
|
|
(local {: ev} (require :neuttower.entity))
|
2021-06-26 01:55:15 +00:00
|
|
|
(local level (deflevel 4 :level4))
|
2021-06-22 02:40:46 +00:00
|
|
|
(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
|
|
|
|
|
:transparent-entity-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
|
