9 lines
400 B
Scheme
9 lines
400 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)))
|
|
|
|
;; Send a quick message to everyone in the game as the server:
|
|
(define (shout message)
|
|
(message-everyone "SERVER" message output-queue))
|