Gammon Forum

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Thursday, May 31, 2012, 4:48 PM -->
<!-- MuClient version 4.73 -->

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

<muclient>
<plugin
   name="CBDRedirect"
   author="NY"
   id="2a58766aa2f7611113dbbcbc"
   language="Lua"
   purpose="To redirect CDB"
   date_written="2012-05-31 16:48:13"
   requires="4.73"
   version="1.0"
   >

</plugin>


<!--  Triggers  -->

<triggers>

  <trigger
   enabled="y"
   match="CDB"
   omit_from_output="y"
   regexp="y"
   script="redirect"
   sequence="100"
  >
  </trigger>
  
  <trigger
   enabled="n"
   match="*"
   omit_from_output="y"
   script="redirect"
   name="multi_line_chat"
   sequence="10"
  >
  </trigger>
  
</triggers>

<!--  Script  -->


<script>
<![CDATA[
chat_world = "BoD cdb"
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
	
-- if ends with quote, end of multi-line chat
  if line:sub (-1) == '==============================================================================' then
    EnableTrigger ("multi_line_chat", false)  -- no more lines to go
  else
    EnableTrigger ("multi_line_chat", true)  -- capture subsequent lines
  end -- if	

  end -- world found

end -- function redirect 

]]>
</script>




</muclient>

  if line:sub (-1) == '==============================================================================' then

line = "=============================================================================="
print (line:sub(-1))

  if line == '==============================================================================' then

<?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="Redirects chat messages to another world"
date_written="2007-06-30 10:45:35"
requires="4.08"
version="2.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="^(\(.+\): )?[A-Za-z +]+ (CHATS|GOSSIPS|GRATZS|WIZS|QUESTCHATS|INFOS|IMCCHATS|AUCTIONS|WIZINFOS|CLANTALKS) '"
regexp="y"
script="chat_redirect"
omit_from_output="y"
sequence="100"
>
</trigger>

<trigger
enabled="y"
match="^[(CHAT|GOSSIP|GRATZ|WIZ|QUESTCHAT|INFO|IMCCHAT|AUCTION|WIZINFO|CLANTALK)] "
regexp="y"
script="chat_redirect"
omit_from_output="y"
sequence="100"
>
</trigger>

<trigger
enabled="y"
match="^You (CHAT|GOSSIP|GRATZ|WIZ|QUESTCHAT|INFO|IMCCHAT|AUCTION|WIZINFO|CLANTALK) '"
regexp="y"
script="chat_redirect"
omit_from_output="y"
sequence="100"
>
</trigger>

<trigger
enabled="n"
match="*"
omit_from_output="y"
script="chat_redirect"
name="multi_line_chat"
sequence="10"
>
</trigger>

<trigger
enabled="n"
match="*"
omit_from_output="y"
script="chat_redirect"
name="prompt"
sequence="10"
>
</trigger>

</triggers>

<!-- Script -->


<script>
<![CDATA[
chat_world = "Chat"
who_world = "Who List"

require "getworld" -- handles finding the world, and sending the line

-- chat redirector
function chat_redirect (name, line, wildcards, styles)

send_to_world (chat_world, styles)

-- if ends with quote, end of multi-line chat
if line:sub (-1) == "'" then
EnableTrigger ("multi_line_chat", false) -- no more lines to go
else
EnableTrigger ("multi_line_chat", true) -- capture subsequent lines
end -- if

end -- function chat_redirect

]]>
</script>
</muclient>