<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>

<plugin
   name="Quest_Tracker"
   author="Barkinmad"
   id="567409338ac6761832559240"
   language="Lua"
   save_state="y"
   date_written="2016-09-21 11:25:45"
   requires="4.98"
   version="1.0"
   >
</plugin>

<aliases>
  <alias
   match="quest report"
   enabled="y"
   sequence="100"
   send_to="12"
   script="quest_reporter"
  >
  </alias>
</aliases>

<script>

<![CDATA[

function OnPluginBroadcast (msg, id, name, text)
	if (id == '3e7dedbe37e44942dd46d264') then
		if (text == "char.stats" or text == "char.maxstats" or text == "char.vitals" or text == "char.worth" or text == "char.status") then
			res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char") --- We just want the gmcp.char section.
			luastmt = "gmcpdata = " .. gmcparg
			assert (loadstring (luastmt or "")) ()
		end
	end
	
	if (text == "comm.quest") then

		res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264", "gmcpval", "comm")
		luastmt = "gmcpdata = " .. gmcparg
		assert (loadstring (luastmt or "")) ()
		local action = gmcpval("quest.action")
			if (action == "comp") then
				last_quest_base = tonumber (gmcpval("quest.qp"))
				if tonumber (gmcpval("quest.tierqp")) == nil then last_quest_tier = tonumber (0)
					else last_quest_tier = tonumber (gmcpval("quest.tierqp"))
				end
				if tonumber (gmcpval("quest.pracs")) == nil then last_quest_practices = tonumber (0)
					else last_quest_practices = tonumber (gmcpval("quest.pracs"))
				end
				if tonumber (gmcpval("quest.trains")) == nil then last_quest_trains = tonumber (0)
					else last_quest_trains = tonumber (gmcpval("quest.trains"))
				end
				if tonumber (gmcpval("quest.tp")) == nil then last_quest_tp = tonumber (0)
					else last_quest_tp = tonumber (gmcpval("quest.tp"))
				end
				last_quest_mccp = tonumber (gmcpval("quest.mccp"))
				if tonumber (gmcpval("quest.lucky")) == nil then last_quest_lucky = tonumber (0)
					else last_quest_lucky = tonumber (gmcpval("quest.lucky"))
				end
				if tonumber (gmcpval("quest.double")) == nil then last_quest_double = tonumber (0)
					else last_quest_double = tonumber (gmcpval("quest.double"))
				end
				last_quest_total = tonumber (gmcpval("quest.totqp"))
				last_quest_gold = tonumber (gmcpval("quest.gold"))
				ColourNote ("yellow", "red", "QUEST TRACKER")
				ColourNote ("yellow", "red", "TOTAL QP : " .. last_quest_total)
				ColourNote ("green", "", "base qp : " .. last_quest_base)
				ColourNote ("green", "", "tier bonus : " .. last_quest_tier)
				ColourNote ("green", "", "practices : " .. last_quest_practices)
				ColourNote ("green", "", "trains : " .. last_quest_trains)
				ColourNote ("green", "", "tp : " .. last_quest_tp)
				ColourNote ("green", "", "MCCP : " .. last_quest_mccp)
				ColourNote ("green", "", "lucky : " .. last_quest_lucky)
				ColourNote ("green", "", "double : " .. last_quest_double)
				ColourNote ("green", "", "gold : " .. last_quest_gold)
				qp_quest_base = qp_quest_base + last_quest_base
			end
	end
	
end -- function onpluginbroadcast

require "gmcphelper" -- this line is necessary for us to be able to use the gmcpval helper function defined in gmcphelper.lua

function quest_reporter ()
	Note ("QP base total : " .. qp_quest_base)
end -- function quest reporter

function OnPluginInstall ()
  
OnPluginEnable ()  -- do initialization stuff
  
end -- OnPluginInstall

function OnPluginEnable ()
	qp_quest_base = GetVariable ("qp_quest_base")
	if qp_quest_base == nil then
		SetVariable ("qp_quest_base", tonumber(0))
	end
	qp_quest_base = GetVariable ("qp_quest_base")
end -- OnPluginEnable

function OnPluginSaveState ()
  SetVariable ("qp_quest_base", qp_quest_base)
end -- OnPluginSaveState

]]>

</script>

</muclient>