( L E V E L 0 0 0 0 2 )

objects: O

11 9 door d1
13 8 door d2
15 7 door d3
13 3 door d4
9 4 door d5
7 5 door d6
8 10 door d7
4 9 door d8
2 6 door d9
4 2 door d10

lev00003.jor 7 0 exitdoor dx
' dx 6 0 scanner sx

defer c10 ' c10 5 1 computer cx
' cx 5 4 computer _c10 ' _c10 ' c10 redefine
defer c8 ' c8 11 4 computer c9
' c9 16 1 computer _c8 ' _c8 ' c8 redefine
defer c6 ' c6 16 10 computer c7
' c7 14 6 computer _c6 ' _c6 ' c6 redefine
defer c3 ' c3 10 6 computer c5
defer c2 ' c2 5 6 computer c4
' c5 1 9 computer _c3 ' _c3 ' c3 redefine
' c4 1 2 computer _c2 ' _c2 ' c2 redefine
' c2 9 11 computer c1

' d7 0 4 scanner sc1
' d3 10 0 scanner sc2
' d1 11 0 scanner sc3
' d5 12 0 scanner sc4
' d2 13 7 scanner sc5
' d4 17 9 scanner sc6

' c3 13 6 switch s1
' d6 14 0 switch s2
' d8 15 0 switch s3
' d9 16 0 switch s4
' d10 2 0 switch s5

c2 :noname
  dup EVTOUCH = isneut? and c4 computer-on? not and if
    neut say" DESTINATION TERMINAL\IS DISCONNECTED"
    neut say" PLEASE CONTACT YOUR\SYSTEM ADMINISTRATOR"
    neut say" THIS INCIDENT HAS\BEEN REPORTED"
  then chain-listener ;

:noname
  reset-level O

  s" lev00002.map" load-map
  11 11 tile>world pjaye entity.pos!
  10 12 tile>world pneut entity.pos!

; ' onload redefine