25 lines
419 B
Plaintext
Executable file
25 lines
419 B
Plaintext
Executable file
( P E T E )
|
|
|
|
8 8 E ' {car} defentity car
|
|
|
|
var cartimer
|
|
car :tick 60 cartimer triggered if
|
|
:| car entity.dir @ E = if W else E then car entity.dir !
|
|
car try-move-entity |; JOB send
|
|
then
|
|
:touch pete say" What an old rustbucket.
|
|
Hasn't driven in years."
|
|
;entity
|
|
|
|
:noname
|
|
:|
|
|
player yield
|
|
car yield
|
|
0 |;
|
|
' entities redefine
|
|
|
|
cartimer now!
|
|
s" pete.map" load-map
|
|
; ' onload redefine
|
|
|