-- really lame chat room bot
-- by plop

Bot = "Chat_room"

function Main()
   frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   if(strsub(data, 1, 4) == "$To:") then
      local s,e,whoTo = strfind(data,"$To:%s+(%S+)")
      if whoTo == Bot then 
         data=strsub(data,1,strlen(data)-1) 
         local s,e,txt = strfind(data, "%$(%b<>.+)")
         if txt then
            SendPmToAll(Bot, txt.."|")
         end
      end
   end
end