Upload files to ''

More user friendly version for envenom. Great work by Trachx
6 years ago · 1004944cc3
parent ad4557705e
commit 1004944cc3
1 changed files with 248 additions and 0 deletions
--- a/Watchmen_Envenomer.xml
+++ b/Watchmen_Envenomer.xml
@ -0,0 +1,248 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE muclient>
+<!-- Saved on Thursday, May 01, 2008, 9:38 AM -->
+<!-- MuClient version 4.23 -->
+
+<!-- Plugin "Command_Throttler" generated by Plugin Wizard -->
+
+<muclient>
+<plugin
+   name="Watchmen_Envenomer"
+   author="Trachx"
+   id="40b23d22e11ea1ffafa98f09"
+   language="Lua"
+   purpose="Manage received weapons and return them when envenomed"
+   date_written="2008-05-01 09:34:22"
+   requires="4.18"
+   version="1.01"
+   >
+
+</plugin>
+
+<triggers>
+  <trigger enabled="y" regexp="y" sequence="90" keep_evaluating="y" omit_from_output="n" name="Envenom"
+   script="TRIGGER_Envenom"
+   match="^You coat (?<item>.*) with deadly poison\.$"
+  ></trigger>
+
+  <trigger enabled="y" regexp="y" sequence="90" keep_evaluating="y" omit_from_output="n" name="Giver"
+   script="TRIGGER_Giver"
+   match="^You receive (?<item>.*) from (?<giver>.*)\.$"
+  ></trigger>
+
+  <trigger enabled="y" regexp="y" sequence="90" keep_evaluating="y" omit_from_output="y" name="InvMon"
+   script="TRIGGER_InvMon"
+   match="^\{invmon\}(?<Action>\d+),(?<ID>\d+),(?<Container>-?\d+),(?<Wear>-?\d+)$"
+  ></trigger>
+
+  <trigger enabled="y" regexp="y" sequence="91" keep_evaluating="y" omit_from_output="y" name="InvDataItem"
+  	script="TRIGGER_InvItem"
+   match="^\{invitem\}(?<ID>\d+),(?<Flags>[^,]+)?,(?<Name>.+),(?<Level>\d+),(?<Type>\d+),(?<Unique>[01]),(?<Wear>-?\d+),(?<Expire>-?\d+)$"
+  ></trigger>
+  
+</triggers>
+
+
+<!--  Aliases  -->
+
+<aliases>
+  <alias
+   match="env clear"
+   enabled="y"
+   send_to="12"
+   sequence="100"
+  >
+  <send>
+	ColourNote ("lime", "", "Deleted " .. #queue .. " outstanding item(s) from the queue.")
+	queue = {}  -- queue is now empty
+  </send>
+  </alias>
+
+  <alias
+   match="env show"
+   enabled="y"
+   send_to="12"
+   sequence="100"
+  >
+  <send>
+  	if #queue == 0 then
+	  ColourNote ("red", "", "Pending envenom queue is empty")
+	  return
+	end -- if
+
+	ColourNote ("lime", "", "Envenom queue:")
+	for k, v in ipairs (queue) do		
+	  ColourNote ("yellow", "", v.name .. ", " .. v.id .. ", " .. v.giver) 
+	end -- for
+	ColourNote ("lime", "", #queue .. " outstanding item(s) in the envenom queue.")
+  </send>
+  </alias>
+
+  <alias
+   match="env del"
+   enabled="y"
+   send_to="12"
+   sequence="100"
+  >
+  <send>
+  	if #queue == 0 then
+	  ColourNote ("red", "", "Pending envenom queue is empty")
+	  return
+	end -- if
+
+	item = table.remove(queue, 1)
+
+	ColourNote ("lime", "", "Removed item ID: " .. item.id .. " from " .. item.giver)
+  </send>
+  </alias>
+
+  <alias
+   match="env give"
+   enabled="y"
+   send_to="12"
+   sequence="100"
+  >
+  <send>
+  	if #queue == 0 then
+	  ColourNote ("red", "", "Pending envenom queue is empty")
+	  return
+	end -- if
+
+	item = queue[1]
+
+	state = 16
+	Send ("envenom " .. item.id)
+  </send>
+  </alias>
+</aliases>
+
+<!--  Script  -->
+
+
+<script>
+<![CDATA[
+
+require "getlines"
+require "gmcphelper"
+
+queue = {}
+state = 0
+item_id = 0
+item_name = ""
+
+
+function TRIGGER_Envenom(name, line, wildcards, styles) -- {{{
+	state = 17
+end -- }}}
+
+function TRIGGER_Giver(name, line, wildcards, styles) -- {{{
+	if state == 2 then 
+		state = 2
+		item = {}
+		flags = utils.split(wildcards.giver, " ")
+
+		item.id	    = item_id
+		item.name   = item_name
+		item.giver  = flags[#flags]
+		
+		
+		table.insert (queue, item)
+
+		Note("received weapon " .. item_id)
+		Note("received weapon " .. wildcards.item .. " giver: " .. wildcards.giver)
+
+
+	else
+		state = 0
+	end
+end -- }}}
+
+
+function TRIGGER_InvMon(name, line, wildcards, styles) -- {{{
+	if state == 1 then 
+		state = 2
+	else
+		state = 0
+	end
+end -- }}}
+
+
+function TRIGGER_InvItem(name, line, wildcards, styles) -- {{{
+
+	if state == 17 then
+		if next (queue) == nil then
+			Note("Item was envenomed outside the queue")
+			state = 0
+			return
+		end
+
+		item = queue[1]
+		if item.id == wildcards.ID then
+			Send("give " .. item.id .. " " .. item.giver)
+			table.remove(queue, 1)
+			state = 0
+		else
+			Note("Item was envenomed outside the queue")
+			state = 0
+		end
+		return
+	end
+
+	state = 0
+
+	if tonumber(wildcards.Type) == 5 then 
+		state = 1
+		item_id = wildcards.ID
+		item_name = wildcards.Name
+	end
+
+end -- }}}
+
+function OnPluginInstall()
+	InstallMessage()
+
+	end
+
+function InstallMessage()
+	ColourNote("green", "", "-----------------|Envenomer|-----------------")
+
+	ColourNote("lime", "",
+ "| 	Envenomer Installed!- type 'env help' 		 |")
+
+	ColourNote("green", "", "-----------------|Envenomer|-----------------")
+end
+
+function OnHelp()
+
+      Note("")
+ColourNote("lime", "", "---------------------|Envenomer Help|-----------------------")
+  ColourNote("lime", "", "env help     : ", "white", "", "Brings you here.")
+  ColourNote("lime", "", "env show     : ", "white", "", "Display outstanding envenoms.")
+  ColourNote("lime", "", "env give     : ", "white", "", "Envenoms and return to giver.")
+  ColourNote("lime", "", "env del      : ", "white", "", "Deletes first item")
+  ColourNote("lime", "", "env clear    : ", "white", "", "Clears envenom list")
+ColourNote("red", "", "Note         : ", "white", "", "invmon must be on for it to work")
+
+ColourNote("lime", "", "---------------------|Envenomer Help|-----------------------")
+Note("")
+
+end
+
+
+]]>
+</script>
+
+
+<!--  Plugin help  -->
+
+<aliases>
+  <alias
+   script="OnHelp"
+   match="env help"
+   enabled="y"
+  >
+  </alias>
+</aliases>
+</muclient>
+
+