neuttower/lev00004.jor

( L E V 0 0 0 0 4 )

objects: O

15 6 door d1
11 6 door d2
10 4 door d3
lev00005.jor 0 4 exitdoor dx

15 11 defrexx Rexx

defer c1-targ
' c1-targ 6 11 computer c1
' c1 1 2 computer c2
' c1 7 2 computer c3

' d2 12 6 scanner s1
' d3 7 1 scanner s2
' dx 0 3 scanner sx

' c2 13 9 switch b1
' d2 10 3 switch b2
' d1 7 6 switch b3
' c3 13 8 switch b4

:noname c2 computer-on? if c2 else c3 then ; ' c1-targ redefine

var first-gord-sit

:noname O

  :| first-gord-sit @ not if
       1 first-gord-sit !
       gord say" Phew, it feels good to\rest my leg for a bit."
       gord say" If you need me to do something\from my chair, you can press\the Z key."
     then
  |; ' on-gord-sit redefine

  s" lev00004.map" load-map
  18 4 tile>world Jaye entity.pos!
  19 5 tile>world Neut entity.pos!
  with-gord

; ' onload redefine