neuttower/lev00002.jor

60 lines
1.3 KiB
Plaintext
Raw Normal View History

( 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
end.jor 7 0 exitdoor dx
' dx 6 0 scanner sx
: unconnected :| 0 |; ;
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