2023-04-12 22:29:57 +00:00
|
|
|
(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)))
|
2023-04-13 01:26:36 +00:00
|
|
|
|
|
|
|
(define (shout message outputqueue)
|
|
|
|
(message-everyone "SERVER" message outputqueue))
|