60 lines
1.3 KiB
Plaintext
60 lines
1.3 KiB
Plaintext
|
( 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
|