From a641ac944246a2dd525387e467520a7bd0d13567 Mon Sep 17 00:00:00 2001
From: icecool <mark.a.jessen@gmail.com>
Date: Thu, 31 Jan 2019 17:35:46 -0600
Subject: [PATCH] dtrack reports v1.00

initial upload
---
 MUSH_dtrack.xml | 232 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 232 insertions(+)
 create mode 100644 MUSH_dtrack.xml

diff --git a/MUSH_dtrack.xml b/MUSH_dtrack.xml
new file mode 100644
index 0000000..cf925f2
--- /dev/null
+++ b/MUSH_dtrack.xml
@@ -0,0 +1,232 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE muclient>
+<muclient>
+<plugin
+   name="DTrackReports" author="Icecool" 
+   id="05cd229ae24e869f9da3bf01"
+   purpose="Plugin used to report DTRACK data"
+   language="Lua" date_written="2019-01-31 00:00:00"
+   save_state="n" requires="0.00" version="1.00" > </plugin>
+<aliases>
+<alias regexp = "y" ignore_case="y" enabled="y" echo_alias="y" sequence="95" 
+   match="^^dre(port)?\s?(?<command>\w+)?\s?(?<channel>\w+)?$$"
+   script="ALIAS_report"></alias> 
+</aliases>
+<triggers>
+<trigger
+   enabled="n" regexp="y" omit_from_output="y" sequence="100" send_to="12" group="dtrack_swings" 
+   match="^(.*?)$"
+   script="TRIGGER_process_dtrack_line" ></trigger>
+<trigger
+   enabled="n" regexp="y" omit_from_output="y" sequence="100" send_to="12" group="dtrack_hits" 
+   match="^(.*?)$"
+   script="TRIGGER_process_hits_line" ></trigger>
+</triggers>
+<!--  Get our standard constants -->
+<include name="constants.lua"/>
+<!--  Script  -->
+<script>
+<![CDATA[
+--[[ External Resources ]]--
+dofile(GetInfo(60) .. "aardwolf_colors.lua") -- Used to support Aard Colors for the eprint() function
+-- Basic print function that supports aard, xterm, and ANSI color codes [idea from Durel's Inventory script]
+function cnote(string)
+  AnsiNote(stylesToANSI(ColoursToStyles(string)))
+end 
+function trim(s)
+  return (s:gsub("^%s*(.-)%s*$", "%1"))
+end
+function returnStringPosition( item, start, arg )
+  local position, _ = string.find(arg, item, start, true)
+  if position then
+    return position
+  else
+    return -1
+  end
+end
+
+--[[ Script Stuff ]]--
+dtrack = { channel="echo" }
+dtrack.regular = { start=false, prepend="[dTrack Swings]: " }
+dtrack.hits = { start=false, prepend="[dTrack Hits]: " }
+
+--[[ Tables that contain dtrack attacks/hits/etc ]]--
+dtrack_ignore = { 
+  "Rounds", 
+  "Swings", 
+  "Primary", 
+  "Secondary", 
+  "Hits", 
+  "Misses", 
+  "Damage", 
+  "Specials", 
+  "Specials Damage" 
+}
+dtrack_track = { 
+  ["Swings Per Round"]="swings", 
+  ["Hit Percentage"]="hitpercent", 
+  ["Damage Per Hit"]="dph", 
+  ["Average"]="trackedavg" 
+}
+dtrack_hits = { 
+  ["Hits"]=false,
+  ["Primary Attack"]=false, 
+  ["Second Attack"]=true, 
+  ["Third Attack"]=true, 
+  ["Fourth Attack"]=true, 
+  ["Fifth Attack"]=false,
+  ["Sixth Attack"]=false,
+  ["Dual Wield"]=true,
+  ["Second Dual"]=false,
+  ["Third Dual"]=false,
+  ["Haste Attacks"]=true,
+  ["Lightspeed"]=false,
+  ["Unarmed"]=false
+}
+--[[ dtrack swings ]]--
+function isIgnored(argument)
+  for index, value in pairs(dtrack_ignore) do
+    if value == argument then
+      return true
+    end
+  end
+  return false
+end
+function isTrackedLine(argument)
+ return ((argument == "Tracked Spell") or (argument == "Tracked Skill"))
+end
+function returnTracked(argument)
+  for index, value in pairs(dtrack_track) do
+    if index == argument then
+      return value
+    end
+  end
+  return -1
+end
+function returnSkill(argument)
+  return string.sub(argument, returnStringPosition("(", 1, argument)+1, returnStringPosition("):", 1, argument)-1)
+end
+function TRIGGER_process_dtrack_line(_, line, _, _)
+  local columnone = trim(string.sub(line, returnStringPosition(":", 1, line)-12, returnStringPosition(":", 1, line)-1))
+  local columntwo = trim(string.sub(line, returnStringPosition(":", 30, line)-20, returnStringPosition(":", 30, line)-1))
+  if (trim(line) == "") then
+    return
+  elseif (string.sub(line, 1, 1) == "-") then 
+    if not dtrack.regular.start then
+      dtrack.regular.start = true
+    elseif dtrack.regular.start then
+      EnableTriggerGroup("dtrack_swings", false)
+      reportSwings()
+    end
+  elseif (isTrackedLine(trim(string.sub(line,1,(1+12))))) then
+    dtrack.regular["sname"] = returnSkill(line)
+  elseif (isIgnored(columnone) and isIgnored(columntwo)) then
+    return -- Both columns are not being tracked, do nothing.
+  else
+    if (returnTracked(columnone) ~= -1) then
+      local value = tonumber(trim(string.sub(line, returnStringPosition("[", 1, line)+1, returnStringPosition("]", 1, line)-1)))
+      dtrack.regular[returnTracked(columnone)] = ("%0.2f"):format(value)
+    else
+    end
+    if (returnTracked(columntwo) ~= -1) then
+      local value = tonumber(trim(string.sub( line, returnStringPosition("[", 30, line)+1, returnStringPosition("]", 30, line)-1)))
+      dtrack.regular[returnTracked(columntwo)] = ("%0.2f"):format(value)
+    end  
+  end
+end
+--[[ dtrack hits ]]--
+function isHitsAttack(argument)
+  local calculate=returnStringPosition(":",1,argument)-(returnStringPosition(":",1,argument)-1)
+  local command = trim(string.sub( argument, calculate, returnStringPosition(":",1,argument)-1))
+  for index, value in pairs(dtrack_hits) do
+    if index == command then
+      return true, value, index
+    end
+  end
+  return false, false, index
+end
+function returnAttackNumbers(argument)
+  return returnHits(argument), returnInstincts(argument)
+end
+function returnHits(argument)
+  return tonumber(trim(string.sub(argument,returnStringPosition("[", 1, argument)+1,returnStringPosition("]", 1, argument)-1)))
+end
+function returnInstincts(argument)
+  return tonumber(trim(string.sub(argument,returnStringPosition("(Ins", 1, argument)+9,returnStringPosition(")", 1, argument)-1)))
+end
+function TRIGGER_process_hits_line(_, line, _, _)
+  if (string.sub(line, 1, 1) == "-") then 
+    if not dtrack.hits.start then
+      dtrack.hits.start = true
+    elseif dtrack.hits.start then
+      EnableTriggerGroup("dtrack_hits", false)
+      reportHits()
+    end
+  elseif (trim(line) == "") or (not isHitsAttack(line)) then
+    return -- Not a line we care about
+  else
+    local is_attack, has_instinct, skill = isHitsAttack(line)
+    if is_attack and not has_instinct then
+      dtrack.hits[skill], _ = returnAttackNumbers(line)
+    elseif is_attack and has_instinct then
+      dtrack.hits[skill], dtrack.hits["inst_"..skill] = returnAttackNumbers(line)
+    end
+  end
+end
+function returnPercent( instinct, total )
+  if (tonumber(instinct) or tonumber(total)) == nil then
+    print( "[ERROR]: Cannot caluclate a percentage on the items provided." )
+	  return 0
+  end
+  return (("%0.2f"):format(tonumber(instinct)/tonumber(total)*100))
+end
+function returnTotalInstinctHits()
+  return (dtrack.hits["inst_Second Attack"]+dtrack.hits["inst_Third Attack"]+dtrack.hits["inst_Fourth Attack"]+dtrack.hits["inst_Dual Wield"]+dtrack.hits["inst_Haste Attacks"])
+end
+--[[ create report ]]--
+function reportSwings()
+  local message = ("%s %s Swings/Round[%0.2f] Hits%%[%0.2f] DPH[%0.2f]"):format(
+    dtrack.channel,
+    dtrack.regular.prepend, 
+    dtrack.regular.swings, 
+    dtrack.regular.hitpercent, 
+    dtrack.regular.dph)
+  if dtrack.regular.sname then
+    message = ("%s %s(%0.2f)"):format(message, dtrack.regular.sname, dtrack.regular.trackedavg)
+  end
+  SendNoEcho( message )  
+end
+function reportHits()
+  local command = ("%s %s %s(%d) %s(%d/%d [%0.2f%%]) %s(%d/%d [%0.2f%%]) %s(%d/%d [%0.2f%%]) %s(%d/%d [%0.2f%%]) %s(%d) %s(%d) %s(%d/%d [%0.2f%%]) %s(%d) | Total Hits(%d/%d [%0.2f%%])"):format( dtrack.channel,
+  dtrack.hits.prepend, "Primary Attack", dtrack.hits["Primary Attack"], "Second Attack", dtrack.hits["Second Attack"], dtrack.hits["inst_Second Attack"], returnPercent(dtrack.hits["inst_Second Attack"], dtrack.hits["Hits"] ), "Third Attack", dtrack.hits["Third Attack"], dtrack.hits["inst_Third Attack"], returnPercent(dtrack.hits["inst_Third Attack"], dtrack.hits["Hits"] ), "Fourth Attack", dtrack.hits["Fourth Attack"], dtrack.hits["inst_Fourth Attack"], returnPercent(dtrack.hits["inst_Fourth Attack"], dtrack.hits["Hits"] ), "Dual Wield", dtrack.hits["Dual Wield"], dtrack.hits["inst_Dual Wield"], returnPercent(dtrack.hits["inst_Dual Wield"], dtrack.hits["Hits"] ), "Second Dual", dtrack.hits["Second Dual"], "Third Dual", dtrack.hits["Third Dual"], "Haste Attacks", dtrack.hits["Haste Attacks"], dtrack.hits["inst_Haste Attacks"], returnPercent(dtrack.hits["inst_Haste Attacks"], dtrack.hits["Hits"] ), "Lightspeed", dtrack.hits["Lightspeed"], dtrack.hits["Hits"], returnTotalInstinctHits(), returnPercent(returnTotalInstinctHits(), dtrack.hits["Hits"]) )
+  SendNoEcho( command )
+end
+--[[ ALIAS command ]]--
+function ALIAS_report(name, line, args)
+  if not (args.channel or args.command) then
+    cnote( "@CSyntax: @Gdreport @R<@wswings|hits@R> <@wchannel@R>@w" )
+	return
+  end
+  dtrack.channel = args.channel
+  if args.command:lower() == "swings" then
+    EnableTriggerGroup("dtrack_swings", true)
+    SendNoEcho( "dtrack" )
+  elseif args.command:lower() == "hits" then
+    EnableTriggerGroup("dtrack_hits", true)
+    SendNoEcho( "dtrack hits" )
+  else
+    cnote( "@CSyntax: @Gdreport @R<@wswings|hits@R> <@wchannel@R>@w" )
+	return
+  end
+end  
+--[[ MUSH Specific functions for saving/loading Plugin information ]]--
+-- Anytime a variable (designed to save over) is modified, call SaveState() function afterwards.
+function OnPluginSaveState ()
+end -- function OnPluginSaveState
+function OnPluginInstall  ()
+end -- function OnPluginInstall 
+
+]]>
+
+</script>
+</muclient>