8 lines
348 B
Scheme
8 lines
348 B
Scheme
(define (create-two-way-path from-path-description to-path-description from-area to-area arealist)
|
|
(begin
|
|
(create-path from-path-description from-area to-area arealist)
|
|
(create-path to-path-description to-area from-area arealist)))
|
|
|
|
(define (shout message outputqueue)
|
|
(message-everyone "SERVER" message outputqueue))
|