Chat Redirector

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Saturday, June 30, 2007, 10:48  -->
<!-- MuClient version 4.13 -->

<!-- Plugin "Chat_Redirector" generated by Plugin Wizard -->

<!--
Edit plugin and change "chat_world" variable to be the name of the
world you want chats to go to.
-->

<muclient>
<plugin
   name="Chat_Redirector"
   author="Nick Gammon"
   id="cb84a526b476f69f403517da"
   language="Lua"
   purpose="Redirect Chats"
   date_written="2007-06-30 10:45:35"
   requires="4.08"
   version="1.0"
   >
<description trim="y">
<![CDATA[
Redirects chats to the specified world.

Add or modify "chat" triggers to capture different sorts of message.

Change the variable "chat_world" to be the name of the world chats are to go to.
]]>
</description>

</plugin>

<!--  Triggers  -->

<triggers>

  <trigger
   enabled="y"
   match="^<OOC> .*$"
   omit_from_output="y"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>

  <trigger
   enabled="y"
   match="^OOC> .*$"
   omit_from_output="y"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>

  <trigger
   enabled="y"
   match="^From afar, .*$"
   omit_from_output="y"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>

  <trigger
   enabled="y"
   match="^\<(Mount|Rider|Bun|Oven|Tattoo|TrustMgr)\> (.*$)"
   omit_from_output="n"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>

  <trigger
   enabled="y"
   match="^(Mount|Rider|Bun|Oven|Tattoo|TrustMgr)\> (.*$)"
   omit_from_output="n"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>

  <trigger enabled="y" match="^You (page|page-pose), (.*?)$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^In a page-pose to (.*?)$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^([a-zA-Z0-9\-\s]+) pages, (.*?)$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^Somewhere on the muck\, (.*?)connected\.$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^(?:A note has been added to|The status of) your request.*$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^\[(Zephyr|Promethean|Page)\] (.*?)$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^\<give\> (.*$)" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>
  <trigger enabled="y" match="^\w* gives (.*?) to (.*?)\.$" omit_from_output="n" ignore_case="y" regexp="y" script="redirect" sequence="100"></trigger>

  <trigger
   enabled="y"
   match="^\[(Public|Theme|Zephyr Inc|Judge|Lfg|Auction|Badges|Rp|Pickup|Game|Newbie|Bile|Update|Science|Market|TG|Party|Links|Naughty|Radio|Sports|Tick|Writing|SYSTEM)\] (.*?)$"
   omit_from_output="y"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>

</triggers>

<!--  Script  -->


<script>
<![CDATA[
chat_world = "Chats"
local first_time = true

function redirect (name, line, wildcards, styles)

  -- try to find "chat" world
  local w = GetWorld (chat_world)  -- get "chat" world

  -- if not found, try to open it
  if first_time and not w then
    local filename = GetInfo (67) .. chat_world .. ".mcl"
    Open (filename)
    w = GetWorld (chat_world)  -- try again
    if not w then
      ColourNote ("white", "red", "Can't open chat world file: " .. filename)
      first_time = false  -- don't repeatedly show failure message
    end -- can't find world
  end -- can't find world first time around

  if w then  -- if present
    for _, v in ipairs (styles) do
      w:ColourTell (RGBColourToName (v.textcolour),
                    RGBColourToName (v.backcolour),
                    v.text)
    end -- for each style run
    w:Note ("")  -- wrap up line

  end -- world found

end -- function redirect

]]>
</script>


</muclient>