Several people have asked about the replicator that we came up with at 
The Grove 
last week, so I thought I would share it.  I have two copies of the 
script for 
upper-case and lower-case "R" which could have probably been combined 
with a well 
placed DEF somewhere.  It is very rough, please help me refine it - but 
here it is 
if you want it.

What you won't see is the "repon.gif" file that is the graphic that shows 
when the 
replicator is turned "on" by seting the state to 0.  But the rest of the 
stuff is 
here.

------- Replicator 1.0

ON OUTCHAT {
 {
    "@80,117 Working" SAY
    ")FazeIn" SAY
    "$1" GREPSUB 90 160 ADDLOOSEPROP
    "" CHATSTR
     0 ME SETSPOTSTATELOCAL    
     60 ME SETALARM    
 } CHATSTR "Replicate (.*)$" GREPSTR IF
 {
    "@80,117 Working on replicating a <<"
    "$1" GREPSUB + ">>" + SAY
    ")FazeIn" SAY
    "$1" GREPSUB 90 160 ADDLOOSEPROP
    "" CHATSTR
     0 ME SETSPOTSTATELOCAL    
     60 ME SETALARM    
 } CHATSTR "replicate (.*)$" GREPSTR IF
}
ON ALARM {
     1 ME SETSPOTSTATELOCAL
}
ON ENTER {
     1 ME SETSPOTSTATELOCAL
}