Put the following scripts in the spot numbers indicated:

In spot 1

;
; (c) Blue Lady <noname@virtual.dyc.edu>, 1999
; All Rights Reserved.  No part of this document can be copied in
; part or in whole without the expressed permission of the author
; in writing.
;
ON ENTER {
   CurRec GLOBAL
   Direct GLOBAL
;
   0 CurRec =
}
;
ON SELECT {
   NAKED
   CurRec GLOBAL
   Direct GLOBAL
;
   0 CurRec =
}
;
ON INCHAT {
   CurRec GLOBAL
   Direct GLOBAL
;
   {
      0 CurRec =
      "f" Direct =
      1 i =
      {
         300 i * 3 SETALARM
         i ++
      } { i 32 < } WHILE
      300 i * 1 SETALARM
   } CHATSTR ";backup" == WHOCHAT WHOME == AND IF
}
;
ON ALARM {
   116 GOTOROOM
}


In Spot 2

;
; (c) Blue Lady <noname@virtual.dyc.edu>, 1999
; All Rights Reserved.  No part of this document can be copied in
; part or in whole without the expressed permission of the author
; in writing.
;
ON SELECT {
   CurRec GLOBAL
   Direct GLOBAL
;
   "b" Direct =
   10 3 SETALARM
}


In Spot 3

;
; (c) Blue Lady <noname@virtual.dyc.edu>, 1999
; All Rights Reserved.  No part of this document can be copied in
; part or in whole without the expressed permission of the author
; in writing.
;
ON ALARM {
;
   CurRec GLOBAL
   Direct GLOBAL
;
   [
      [ -1299863329 -1299863335 -1299863339 -1299863346 -1299863353 -1299863362 ]
      [ -1299886874 -1299886795 -1300039332 -1299886982 -1299887011 -1299887110 ]
      [ -1296594591 -1296594597 -1296594603 ]
      [ -1298419568 -1298419575 -1298419582 -1298419589 -1298419595 -1298419605 ]
      [ -1297709579 -1297709574 -1297709577 -1297709571 -1297709572 -1297709573 -1297709575 -1297709576 -1297709578 ]
      [ -1293307869 -1293307870 -1293307871 -1293307872 -1293307873 -1293307874 -1293307875 -1293307876 -1293307877 ]
      [ -1296592961 -1296593090 -1296593143 -1296593286 -1296593505 -1296593605 -1296593742 -1296593814 -1296593834 ]
      [ -1296595797 -1296595798 -1296595796 -1296595799 -1296595800 -1296595801 -1296595802 -1296595803 -1296595804 ]
   ] TheArray =
;
   { CurRec ++ }{ CurRec -- } "f" Direct == IFELSE
;
   TheArray LENGTH NoArray =
   { 1 CurRec  =  } CurRec NoArray >  IF
   { NoArray CurRec =  } CurRec 1 <  IF
;
   TheArray CurRec 1 - GET SETPROPS
}
;
ON SELECT {
   CurRec GLOBAL
   Direct GLOBAL
;
   "f" Direct =
   10 3 SETALARM
}