All pastes #2126931 Raw Edit

Unnamed

public text v1 · immutable
#2126931 ·published 2012-03-11 18:52 UTC
rendered paste body
<?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="PrivChat_Redirector"
	author="Nick Gammon" 
	id="abcd1234abcd1234abcd5678" 
	language="Lua" 
	purpose="Redirects chat messages to another world" 
	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="^\[ MAGUS \].*$" 
	omit_from_output="y" 
	regexp="y" 
	script="redirect" 
	sequence="100" 
	>  
</trigger>  

<trigger
	 enabled="y"
	 match="^\[party\].*$" 
	omit_from_output="y" 
	regexp="y" 
	script="redirect" 
	sequence="100" 
	>  
</trigger>  


</triggers> 

<!-- Script --> 
<script> <![CDATA[
chat_world = "privchat"
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>