Stats/Vitals

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Thursday, January 19, 2012, 12:08 AM -->
<!-- MuClient version 4.80 -->

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

<muclient>
<plugin
   name="StatReporter"
   author="Holliday"
   id="75d65a6a2747fe57f2ac2c46"
   language="Lua"
   purpose="Report stats from max."
   save_state="y"
   date_written="2012-01-19 00:06:14"
   requires="4.80"
   version="1.0"
   >
<description trim="y">
<![CDATA[
repstat [channel]
]]>
</description>

</plugin>


<!--  Get our standard constants -->

<include name="constants.lua"/>

<!--  Aliases  -->

<aliases>
<alias
   match="repstat *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
        res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char") --- We just want the gmcp.char section.
          luastmt = "gmcpdata = " .. gmcparg --- Convert the serialized string back into a lua table.
          assert (loadstring (luastmt or "")) ()

    require "gmcphelper"
    local str = gmcpval("stats.str")
    local maxstr = gmcpval("maxstats.maxstr")
    local dex = gmcpval("stats.dex")
    local maxdex = gmcpval("maxstats.maxdex")
    local wis = gmcpval("stats.wis")
    local maxwis = gmcpval("maxstats.maxwis")
    local con = gmcpval("stats.con")
    local maxcon = gmcpval("maxstats.maxcon")
    local luck = gmcpval("stats.luck")
    local maxluck = gmcpval("maxstats.maxluck")
    local int = gmcpval("stats.int")
    local maxint = gmcpval("maxstats.maxint")
    local maxhp = gmcpval("maxstats.maxhp")
    local maxmana = gmcpval("maxstats.maxmana")
    local hr = gmcpval("stats.hr")
    local dr = gmcpval("stats.dr")
    local a = "@B"
    local b = "@Y"
    local c = "@w"

    SendNoEcho ("%1 " ..
    a .. "[" .. b .. "Str" .. a .. ": " .. b .. str .. a .."/" .. b .. maxstr .. a .. "] " ..
    a .. "[" .. b .. "Dex" .. a .. ": " .. b .. dex .. a .."/" .. b .. maxdex .. a .. "] " ..
    a .. "[" .. b .. "Con" .. a .. ": " .. b .. con .. a .."/" .. b .. maxcon .. a .. "] " ..
    a .. "[" .. b .. "Int" .. a .. ": " .. b .. int .. a .."/" .. b .. maxint .. a .. "] " ..
    a .. "[" .. b .. "Wis" .. a .. ": " .. b .. wis .. a .."/" .. b .. maxwis .. a .. "] " ..
    a .. "[" .. b .. "Luck" .. a .. ": " .. b .. luck .. a .."/" .. b .. maxluck .. a .. "] " ..
    a .. "HR: " .. b .. hr .. " " ..
    a .. "DR: " .. b .. dr .. " " ..
    a .. "HP: " .. b .. maxhp .. " " ..
    a .. "Mana: " .. b .. maxmana .. " " ..
    a .. "[" .. b .. "Totals" .. a .. ": " .. b .. (dex + str + wis + con + int + luck) .. a .."/" .. b .. (maxdex + maxstr + maxwis + maxcon + maxint + maxluck) .. a .. "] " ..
    "")
</send>
  </alias>
  <alias
   match="frommax *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
	  	 	res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char") --- We just want the gmcp.char section.
         	luastmt = "gmcpdata = " .. gmcparg --- Convert the serialized string back into a lua table.
         	assert (loadstring (luastmt or "")) ()

  	require "gmcphelper"
    local lvl = gmcpval("status.level")
    local tier = gmcpval("base.tier")
    local str = gmcpval("stats.str")
    local maxstr = gmcpval("maxstats.maxstr")
    local dex = gmcpval("stats.dex")
    local maxdex = gmcpval("maxstats.maxdex")
    local wis = gmcpval("stats.wis")
    local maxwis = gmcpval("maxstats.maxwis")
    local con = gmcpval("stats.con")
    local maxcon = gmcpval("maxstats.maxcon")
    local luck = gmcpval("stats.luck")
    local maxluck = gmcpval("maxstats.maxluck")
    local int = gmcpval("stats.int")
    local maxint = gmcpval("maxstats.maxint")
    local hr = gmcpval("stats.hr")
    local dr = gmcpval("stats.dr")
    local a = "@B"
    local b = "@Y"
    local c = "@w"
    local maxstats = calcMaxStats(lvl, tier)

    local difstr = maxstats - maxstr
    local difdex = maxstats - maxdex
    local difwis = maxstats - maxwis
    local difcon = maxstats - maxcon
    local difluck = maxstats - maxluck
    local difint = maxstats - maxint



    SendNoEcho ("%1 " ..
    a .. "[" .. b .. "Stats from Max " .. maxstats .. a .. "] " ..
    a .. "[" .. b .. "Str" .. a .. ": " .. b .. difstr .. a .. "] " ..
    a .. "[" .. b .. "Dex" .. a .. ": " .. b .. difdex .. a .. "] " ..
    a .. "[" .. b .. "Con" .. a .. ": " .. b .. difcon .. a .. "] " ..
    a .. "[" .. b .. "Int" .. a .. ": " .. b .. difint .. a .. "] " ..
    a .. "[" .. b .. "Wis" .. a .. ": " .. b .. difwis .. a .. "] " ..
    a .. "[" .. b .. "Luck" .. a .. ": " .. b .. difluck .. a .. "] " ..
    "")
</send>
	</alias>
	<alias
   		match="maxcost *"
   		enabled="y"
   		send_to="12"
   		sequence="100"
  	>
	  	<send>
	  	 	res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char") --- We just want the gmcp.char section.
         	luastmt = "gmcpdata = " .. gmcparg --- Convert the serialized string back into a lua table.
         	assert (loadstring (luastmt or "")) ()

	  		require "gmcphelper"
   	 		local currentlevel = gmcpval("status.level")
    		local currenttier = gmcpval("base.tier")
    		local statsTotal = calcMaxStats(currentlevel, currenttier)
    		local maxstr = gmcpval("maxstats.maxstr")
    		local maxdex = gmcpval("maxstats.maxdex")
    		local maxwis = gmcpval("maxstats.maxwis")
    		local maxcon = gmcpval("maxstats.maxcon")
    		local maxluck = gmcpval("maxstats.maxluck")
    		local maxint = gmcpval("maxstats.maxint")
    		local a = "@B"
    		local b = "@Y"
        local c = "@w"
   			local strCost = 0
   			local dexCost = 0
   			local wisCost = 0
   			local intCost = 0
   			local conCost = 0
   			local luckCost = 0
   			strCost = calcMaxCost(statsTotal, maxstr)
   			dexCost = calcMaxCost(statsTotal, maxdex)
   			wisCost = calcMaxCost(statsTotal, maxwis)
   			intCost = calcMaxCost(statsTotal, maxint)
   			conCost = calcMaxCost(statsTotal, maxcon)
   			luckCost = calcMaxCost(statsTotal, maxluck)

    		SendNoEcho ("%1 " ..
    			a .. "[" .. b .. "Training cost for max " .. statsTotal .. a .. "] " ..
    			a .. "[" .. b .. "Str" .. a .. ": " .. b .. strCost .. a .. "] " ..
    			a .. "[" .. b .. "Dex" .. a .. ": " .. b .. dexCost .. a .. "] " ..
    			a .. "[" .. b .. "Con" .. a .. ": " .. b .. conCost .. a .. "] " ..
    			a .. "[" .. b .. "Int" .. a .. ": " .. b .. intCost .. a .. "] " ..
    			a .. "[" .. b .. "Wis" .. a .. ": " .. b .. wisCost .. a .. "] " ..
    			a .. "[" .. b .. "Luck" .. a .. ": " .. b .. luckCost .. a .. "] " ..
    			"")
		</send>
	</alias>
	<alias
   		match="vitalcost * *"
   		enabled="y"
   		send_to="12"
   		sequence="100"
  	>
	  	<send>
	  	 	res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char") --- We just want the gmcp.char section.
         	luastmt = "gmcpdata = " .. gmcparg --- Convert the serialized string back into a lua table.
         	assert (loadstring (luastmt or "")) ()

	  		require "gmcphelper"
    		local curHP = gmcpval("maxstats.maxhp")
    		local curMana = gmcpval("maxstats.maxmana")
    		local curMoves = gmcpval("maxstats.maxmoves")
    		local maxHMM = %2
    		local a = "@B"
        local b = "@Y"
        local c = "@w"
        if (maxHMM > 81625) then
          maxHMM = 81625
        end

        HPCost = maxVital(maxHMM, curHP)
   			MovesCost = maxVital(maxHMM, curMoves)
   			ManaCost = maxVital(maxHMM, curMana)

    		SendNoEcho ("%1 " ..
    			a .. "[" .. b .. "Training cost for ".. c .. maxHMM .. b .. " vitals " .. a .. "] " ..
    			a .. "[" .. b .. "HP" .. a .. ": " .. b .. HPCost .. a .. "] " ..
    			a .. "[" .. b .. "Mana" .. a .. ": " .. b .. MovesCost .. a .. "] " ..
    			a .. "[" .. b .. "Moves" .. a .. ": " .. b .. ManaCost .. a .. "] " ..
    			"")
		</send>
	</alias>
</aliases>

<!--  Script  -->

<script>

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 --- Convert the serialized string back into a lua table.

         assert (loadstring (luastmt or "")) ()
      end
   end
end -- onpluginbroadcast

function calcMaxStats (level, tier)
	local level = tonumber(level)
	local tier = tonumber(tier)
	local maxpossible = nil
   	if (level &lt;= 70 ) then
   		maxpossible = (level + 25) + (tier * 2)
   	elseif ((level &gt; 70) and (level &lt;= 155)) then
   		maxpossible = 95 + ((level - 70) * 2) + (tier * 2)
   	elseif ((level &gt; 155) and (level &lt;= 200)) then
		maxpossible = 265 + ((level - 155) * 3) + (tier * 2)
   	elseif (level == 201) then
   		maxpossible = 395
   	end
   	return maxpossible
end -- calcMaxStats

function calcMaxCost (maxpossible, current)
	local maxcost = 0
	local currentcount = tonumber(current)
	local possible = tonumber(maxpossible)
	local cost = 0
	if (possible == currentcount) then
		return maxcost
	end
   	while (currentcount &lt; possible) do
   		if ((currentcount &lt;= 70 ) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 1
   		end
   		if ((currentcount &gt;= 71) and (currentcount &lt;= 90)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 2
   		end
   		if ((currentcount &gt;= 91) and (currentcount &lt;= 130) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 3
   		end
   		if ((currentcount &gt;= 131) and (currentcount &lt;= 170) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 4
   		end
   		if ((currentcount &gt;= 171) and (currentcount &lt;= 200) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 6
   		end
   		if ((currentcount &gt;= 201) and (currentcount &lt;= 224) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 9
   		end
   		if ((currentcount &gt;= 225) and (currentcount &lt;= 250) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 11
   		end
   		if ((currentcount &gt;= 251) and (currentcount &lt;= 275) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 15
   		end
   		if ((currentcount &gt;= 276) and (currentcount &lt;= 290) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 17
   		end
   		if ((currentcount &gt;= 291) and (currentcount &lt;= 300) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 20
   		end
   		if ((currentcount &gt;= 301) and (currentcount &lt;= 325) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 25
   		end
   		if ((currentcount &gt;= 326) and (currentcount &lt;= 350) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 35
   		end
   		if ((currentcount &gt;= 351) and (currentcount &lt;= 375) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 50
   		end
   		if ((currentcount &gt;= 376) and (currentcount &lt;= 400) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 1
   			maxcost = maxcost + 60
   		end
	end
   	return maxcost
end -- calcMaxCost


function maxVital (maxpossible, current)
	local maxcost = 0
	local currentcount = tonumber(current)
	local possible = tonumber(maxpossible)
	local cost = 0
	if (possible == currentcount) then
		return maxcost
	end
   	while (currentcount &lt; possible) do
   		if ((currentcount &lt;= 10000 ) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 2
   		end
   		if ((currentcount &gt;= 10001) and (currentcount &lt;= 14000)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 3
   		end
   		if ((currentcount &gt;= 14001) and (currentcount &lt;= 18000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 4
   		end
   		if ((currentcount &gt;= 18001) and (currentcount &lt;= 22000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 5
   		end
   		if ((currentcount &gt;= 22001) and (currentcount &lt;= 26000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 6
   		end
   		if ((currentcount &gt;= 26001) and (currentcount &lt;= 30000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 7
   		end
   		if ((currentcount &gt;= 30001) and (currentcount &lt;= 40000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 10
   		end
   		if ((currentcount &gt;= 40001) and (currentcount &lt;= 50000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 15
   		end
   		if ((currentcount &gt;= 50001) and (currentcount &lt;= 75000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 20
   		end
   		if ((currentcount &gt;= 75001) and (currentcount &lt;= 80000) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 25
   		end
   		if ((currentcount &gt;= 80001) and (currentcount &lt;= 99999) and (currentcount &lt;= possible)) then
   			currentcount = currentcount + 10
   			maxcost = maxcost + 30
		end
	end
   	return maxcost
end -- maxVital
</script>
</muclient>