37 lines
600 B
Plaintext
Executable file
37 lines
600 B
Plaintext
Executable file
( L E V 0 0 0 0 4 )
|
|
|
|
objects: O
|
|
|
|
15 6 door d1
|
|
11 6 door d2
|
|
10 4 door d3
|
|
end.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
|
|
|
|
:noname
|
|
reset-level O
|
|
|
|
s" lev00004.map" load-map
|
|
18 4 tile>world Jaye entity.pos!
|
|
19 5 tile>world Neut entity.pos!
|
|
with-gord
|
|
|
|
; ' onload redefine
|