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
|
|
|
|
2023-04-15 22:46:06 +00:00
|
|
|
;; Send a quick message to everyone in the game as the server:
|
|
|
|
(define (shout message)
|
2023-04-15 22:46:56 +00:00
|
|
|
"Send a quick message to everyone in the game as the server."
|
2023-04-15 22:46:06 +00:00
|
|
|
(message-everyone "SERVER" message output-queue))
|