;
; (c) Blue Lady <noname@virtual.dyc.edu>, 10/11/99
; All Rights Reserved.  No part of this document can be copied in
; whole or in part without the expressed permission of the author
; in writing.
;

ON OUTCHAT {

; *******************************************************
; ********************* INFO A ROOM *********************
; *******************************************************

   {

      "*****" LOGMSG

      "Room number: " ROOMID ITOA & LOGMSG

      "Door numbers: " doorstring =
      0 i =
      {
         doorstring i DOORIDX ITOA & " - " & i DOORIDX SPOTDEST ITOA & ", " & doorstring =
         i ++
      } { i NBRDOORS < } while
	
      doorstring LOGMSG

      "Spot numbers: " spotstring =
      0 i =
      {
         spotstring i SPOTIDX ITOA & ", " & spotstring =
         i ++
      } { i NBRSPOTS < } WHILE
      spotstring LOGMSG

      "" CHATSTR =

   } CHATSTR "roominfo" == IF

; *******************************************************
; ********************* INFO A SPOT *********************
; *******************************************************

   {

      "*****" LOGMSG

      "In spot: " spotstring =
      0 i =
      {
         i SPOTIDX target =
         { spotstring target ITOA & " - " & target SPOTDEST ITOA & spotstring = } target INSPOT IF
         i ++
      } { i NBRSPOTS < } WHILE
      spotstring LOGMSG

      "" CHATSTR =

   } CHATSTR "spotinfo" == IF

}