2020-02-02 23:33:07 +00:00
|
|
|
( L E V E L 0 0 0 0 1 )
|
|
|
|
|
2020-02-02 23:29:49 +00:00
|
|
|
: intro
|
|
|
|
30 sleep
|
|
|
|
1 quaking !
|
|
|
|
30 sleep
|
|
|
|
jaye say" Woah!!..."
|
|
|
|
hide-footer
|
|
|
|
10 sleep
|
|
|
|
0 quaking !
|
|
|
|
jaye say" That was an earthquake!"
|
|
|
|
;
|
|
|
|
|
2020-02-02 23:30:00 +00:00
|
|
|
objects: O
|
2020-02-02 23:29:49 +00:00
|
|
|
|
|
|
|
12 9 door d1
|
|
|
|
d1 12 8 switch s1
|
|
|
|
0 15 8 computer c1
|
|
|
|
|
|
|
|
7 6 door d2
|
|
|
|
d2 6 6 switch s2
|
2020-02-02 23:30:00 +00:00
|
|
|
0 1 4 computer c2
|
|
|
|
|
|
|
|
d1 :noname
|
|
|
|
dup EVTOUCH = isjaye? and d1 DOOR-CLOSED entity>tile? and if
|
|
|
|
jaye say" It won't open!"
|
|
|
|
then chainev ;
|
2020-02-02 23:29:49 +00:00
|
|
|
|
|
|
|
c1 :noname
|
|
|
|
dup EVTOUCH = isjaye? and if
|
|
|
|
player.state HASNEUT f@ not if
|
|
|
|
jaye say" Maybe Neut can help."
|
|
|
|
neut say" NEUT v0.71.4rc12\ONLINE"
|
|
|
|
neut say" PRESS SPACE TO TAKE CONTROL"
|
|
|
|
c1 entity>pos pneut entity.pos!
|
|
|
|
1 player.state HASNEUT f!
|
|
|
|
else
|
|
|
|
jaye say" Neut is running now.\I can hit the space bar\to control them."
|
|
|
|
then
|
|
|
|
then chainev ;
|
2020-02-02 23:30:00 +00:00
|
|
|
c2 :noname
|
|
|
|
dup EVTOUCH = isjaye? and if
|
|
|
|
c2 COMP-OFF entity>tile? if
|
|
|
|
jaye say" Looks like there's still\power to this terminal."
|
|
|
|
then
|
|
|
|
jaye say" If I turn a terminal on,\Neut can use it to\travel through the network."
|
|
|
|
then chainev ;
|
2020-02-02 23:29:49 +00:00
|
|
|
|
2020-02-02 23:33:07 +00:00
|
|
|
:noname
|
2020-02-02 23:30:00 +00:00
|
|
|
reset-level O
|
2020-02-02 23:33:07 +00:00
|
|
|
|
|
|
|
s" lev00001.map" load-map
|
2020-02-02 23:29:49 +00:00
|
|
|
( ' intro sched )
|
|
|
|
|
2020-02-02 23:33:07 +00:00
|
|
|
; ' onload redefine
|