AdaptedGroupMonitor/adapted_group_monitor_gmcp.xml

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<muclient>
<plugin
   name="Adapted_Aardwolf_Group_Monitor"
   author="Koopa-Fiendish"
   id="f178e68512c685b3be1e9e07"
   language="Lua"
   purpose="Adapted Aardwolf Group Monitor"
   date_written="2010-12-13 15:35:02"
   requires="4.73"
   version="2.3"
   save_state="y"
>

<description trim="y">

Aardwolf Group Monitor

Gives a persistent compressed display of the status of your group members using
details captured through GMCP.

</description>

</plugin>

<aliases>

<alias
   match="resetaard"
   enabled="y"
   sequence="100"
   ignore_case="y"
   script="reset_aard"
></alias>

-- show the group window
<alias
   match="ktgroupon"
   enabled="y"
   sequence="100"
   omit_from_output="y"
   script="ShowIt"
></alias>

-- hide the group window
<alias
   match="ktgroupoff"
   enabled="y"
   sequence="100"
   omit_from_output="y"
   script="HideIt"
></alias>
</aliases>

<triggers>
<trigger
   enabled="y"
   match="^(\w+) has invited you to join group: (.*)\.$"
   script="group_invite"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#0000FF"
></trigger>

<trigger
   enabled="y"
   match="^(\w+) has cancelled your invitation to join group: (.*)\.$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>

<trigger
   enabled="y"
   match="^You have declined the group invitation from (\w+)\.$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>

<trigger
   enabled="y"
   match="^You have no invitation outstanding from (\w+)\.$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>

<trigger
   enabled="y"
   match="^Your group invite from (\w+) is cancelled because the group has been disbanded\.$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>

<trigger
   enabled="y"
   match="^Your group invitation from (\w+) is cancelled because (\w+) has left that group\.$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>

<trigger
   enabled="y"
   match="^You have removed yourself from group: .*$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>

<trigger
   enabled="y"
   match="^Your group invitation from (\w+) is cancelled because (\w+) has left the game\.$"
   script="group_cancel"
   regexp="y"
   sequence="100"
   custom_colour="17"
   other_text_colour="#FFFFFF"
   other_back_colour="#FF0000"
></trigger>
</triggers>

<script>
<![CDATA[
require "aard_register_z_on_create"

require "mw_theme_base"

require "gauge"
require "movewindow"
require "gmcphelper"
require "copytable"
require "serialize"

default_x = 868 + Theme.RESIZER_SIZE + 2
default_y = 336
default_height = 215
default_width = 269
height = tonumber (GetVariable ("height")) or default_height
width = tonumber (GetVariable ("width")) or default_width
show_self = tonumber (GetVariable ("show_self")) or 1
show_hp = tonumber (GetVariable ("show_hp")) or 1
show_mn = tonumber (GetVariable ("show_mn")) or 1
show_mv = tonumber (GetVariable ("show_mv")) or 1
hidden = tonumber (GetVariable ("hidden")) or 0
gauge_style = tonumber(GetVariable("flat_gauges")) or tonumber(GetVariable("gauge_style")) or 0
DeleteVariable("flat_gauges")
number_style = tonumber(GetVariable("number_style")) or 1
overlay_numbers = tonumber(GetVariable("overlay_numbers")) or 0
GAP = 2
font_size = 8
font_name = ""
group_members = {}
group_info = {}

local defaultColorVals = {Health={0x00ff00,0x004400}, Mana={0xff5500,0x442200}, Moves={0x00ffff,0x004444}, Align={0x0000ff,0x00ffff}}
colorVals = defaultColorVals
assert (loadstring (GetVariable ("colorVals") or "")) ()

thresh1active = tonumber (GetVariable("thresh1active")) or 0
thresh2active = tonumber (GetVariable("thresh2active")) or 0
thresh1percent = tonumber (GetVariable("thresh1percent")) or 40
thresh2percent = tonumber (GetVariable("thresh2percent")) or 20
thresh1color = tonumber (GetVariable("thresh1color")) or 0x00ffff
thresh2color = tonumber (GetVariable("thresh2color")) or 0x0000ff

local barIndex = {"Health", "Mana", "Moves", "Align"}

RESIZE_TAG_SIZE = 10
MIN_SIZE        = 100

-- Variables not saved.
startx      = ""
starty      = ""
posx        = ""
posy        = ""
hidden_members = {}

-- pull in telnet option handling
--dofile (GetPluginInfo (GetPluginID(), 20) .. "telnet_options.lua")

-- functions for handling Aardwolf color codes
--dofile (GetPluginInfo (GetPluginID(), 20) .. "aardwolf_colors.lua")

function reset_aard()
   font_name = default_font_name
   font_size = default_font_size
   WindowPosition(win, default_x, default_y, 0, 18)
   WindowResize(win, default_width, default_height, Theme.PRIMARY_BODY)
   Repaint() -- hack because WindowPosition doesn't immediately update coordinates
   SaveState()
   OnPluginInstall()
end

function SetUpHotspotsAndDraw(firstTime)
   -- don't use windowcreate after the first time, because it messes with hotspot handlers
   if (firstTime == true) then
      check (WindowCreate (win,
         windowinfo.window_left, windowinfo.window_top,   -- left, top (auto-positions)
         width,     -- width
         height,  -- height
         windowinfo.window_mode,       -- auto-position: middle right
         windowinfo.window_flags,  -- flags
         Theme.PRIMARY_BODY) )
      -- Add the drag handler so they can move the window around
      movewindow.add_drag_handler (win, 0, 0, 0, 0)

      if hidden == 0 then
         WindowShow (win, true)
      end
   else
      -- everything has already been made
      -- just move them back into place
      WindowResize(win, width, height, Theme.PRIMARY_BODY)
   end
   DisplayGroupPage()
end

string.lpad = function(str, len, char)
   if char == nil then char = ' ' end
   return string.rep(char, len - #str) .. str
end

string.rpad = function(str, len, char)
   if char == nil then char = ' ' end
   return str .. string.rep(char, len - #str)
end

function RemoveMembersFromGroupDisplay()
   group_members = {}
   if (full_group_data ~= nil) then
      for i,v in ipairs(full_group_data.members) do
         if not (hidden_members[v.name] or ((show_self == 0) and (char_data ~= nil) and (v.name == char_data.name))) then
            table.insert(group_members, v)
         end
      end
   end
end
function round(n)
   return n % 1 >= 0.5 and math.ceil(n) or math.floor(n)
end

-- put all current group members into the hidden_members list
function hideAllMembers()
   hidden_members = {}
   if full_group_data and full_group_data.members and char_data and char_data.name then
      for i,v in ipairs(full_group_data.members) do
         if v.name ~= char_data.name then
            hidden_members[v.name] = true
         end
      end
   end
   RemoveMembersFromGroupDisplay()
end

-- build and draw the group display
function DisplayGroupPage()
   WindowRectOp(win, 2, 2, 2,-2,-2, Theme.PRIMARY_BODY) -- blank

   if not group_built then
      if next(invitations) == nil then
         txt = "No Group To Display"
         txtlen = WindowTextWidth(win,font_id, txt)
         WindowText(win, font_id, txt, (width-txtlen)/2, title_height/4, 0, 0, Theme.BODY_TEXT, utf8)
         txt = "Group info will appear"
         txtlen = WindowTextWidth(win,font_id,txt)
         WindowText (win, font_id, txt, (width-txtlen)/2, height/2, 0, 0, Theme.BODY_TEXT, utf8)
         txt = "once you create or join one."
         txtlen = WindowTextWidth(win,font_id,txt)
         WindowText (win, font_id, txt, (width-txtlen)/2, height/2+line_height, 0, 0, Theme.BODY_TEXT, utf8)
      else
         local lines = {}
         txt = "Pending Group Invitations"
         txtlen = WindowTextWidth(win, font_id, txt)
         WindowText(win, font_id, txt, (width-txtlen)/2, title_height/4, 0, 0, Theme.BODY_TEXT, utf8)
         table.insert(lines, "[ Leader     : Group Name ]")
         table.insert(lines, "---------------------------")
         for k,v in pairs(invitations) do
            table.insert(lines, string.rpad(k,12).." : "..v)
         end
         for i,v in ipairs(lines) do
            WindowText(win, font_id, v, GAP*4, (title_height) + (i*line_height), 0, 0, Theme.BODY_TEXT, utf8)
         end
      end
   else
      y = title_height

      if #group_members > 0 then
         -- MAIN DISPLAY BODY
         local baseX = GAP
         local baseY = y+GAP
         column_width = WindowTextWidth(win, font_id, "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW")+GAP*4
         if overlay_numbers == 0 then
            column_width = column_width+WindowTextWidth(win, font_id, "WWWW")
         end
         num_columns = math.max(math.floor(width / column_width), 1)
         members_per_col = math.ceil((#group_members)/num_columns)
         labels_width = math.max(WindowTextWidth(win, font_id, "HP"), WindowTextWidth(win, font_id, "MN"), WindowTextWidth(win, font_id, "MV"))
         bar_width = column_width - GAP*4 - labels_width
         if overlay_numbers == 0 then
            bar_width = bar_width - WindowTextWidth(win, font_id, "88888/88888")
         end
		 
			-- x=248
			-- Theme.WindowTextFromStyles(win, font_id, {{text="Align",textcolour=0xFFFFFF}}, 248	, y, 0, 0)
			-- x=x-24
			-- Theme.WindowTextFromStyles(win, font_id, {{text="QT",textcolour=0xFFFFFF}}, x, y, 0, 0)
			-- x=x-40
			-- Theme.WindowTextFromStyles(win, font_id, {{text="mv",textcolour=0xFFFFFF}}, x, y, 0, 0)
			-- x=x-40
			-- Theme.WindowTextFromStyles(win, font_id, {{text="mn",textcolour=0xFFFFFF}}, x, y, 0, 0)
			-- x=x-40
			-- Theme.WindowTextFromStyles(win, font_id, {{text="hp",textcolour=0xFFFFFF}}, x, y, 0, 0)
			-- x=x-14
            -- Theme.WindowTextFromStyles(win, font_id, {{text="here",textcolour=0xFFFFFF}}, x, y, 0, 0)
			-- x=x-80
			-- Theme.WindowTextFromStyles(win, font_id, {{text="Name",textcolour=0xFFFFFF}}, x, y, 0, 0)

					 
		 table.sort(group_members, function(a,b) return a.name < b.name end)
		 herecount = 0
		 
		 for i,v in ipairs(group_members) do
            if (i ~= 1) and ((i-1) % members_per_col == 0) then
               baseY = title_height+GAP-1
               y = baseY
               baseX = baseX + column_width
               x = baseX
            else
               baseY = y + GAP-1
               y = baseY
               x = baseX
            end
           -- txt = "["..(("P" and v.info.status.poisoned == true) or "_")..
           --     (("B" and v.info.status.blind == true) or "_")..
           --     (("W" and v.info.status.webbed == true) or "_")..
           --     (("C" and v.info.status.cursed == true) or "_")..
           --     (("*" and v.info.status.attacked == true) or "_").."]"
           -- WindowText(win, font_id, txt, x, y, 0, 0, Theme.BODY_TEXT, utf8)
           -- x = x + math.max(WindowTextWidth(win, font_id, "[PBWC*]"), WindowTextWidth(win, font_id, "[_____]")) + GAP
            --txt = "["..string.lpad(v.info.lvl, 3, ' ').."]"
            --x = x + WindowText(win, font_id, txt, x, y, 0, 0, Theme.BODY_TEXT, utf8) + GAP
			txt = string.rpad(v.name, 12, ' ')
            zeroed_alignment = v.info.align+2500
            align_colour = ((zeroed_alignment<=1625 and colorVals.Align[1]) or ((zeroed_alignment>=3375 and colorVals.Align[2]) or Theme.BODY_TEXT))
            --x = x + WindowText(win, font_id, txt, x, y, 0, 0, name_colour, utf8) + GAP
            if tonumber(v.info.here) == 1 then 
				here = "##" 
				herecount = herecount + 1
			else 
				here = "  "
			end
			
			greythresh = 0
			whitethresh = 1
			redthresh = 30
			yellowthresh = 59
			dcyanthresh = 74
			
			
			hpPercent = round(100* (tonumber(v.info.hp) / tonumber(v.info.mhp)),0)
			if hpPercent <= greythresh then
			hpcolor = 0xaaaaaa
			elseif hpPercent <=whitethresh then
			hpcolor = 0xffffff	
			elseif hpPercent <=redthresh then
			hpcolor = 0x0000FF
			elseif hpPercent <=yellowthresh then
			hpcolor = 0x00FFFF
			elseif hpPercent <=dcyanthresh then
			hpcolor = 0x808000
			else
			hpcolor = 0x00FF00
			end
            mnPercent = round(100* (tonumber(v.info.mn) / tonumber(v.info.mmn)),0)
			if mnPercent <= greythresh then
			mncolor = 0xaaaaaa
			elseif mnPercent <=whitethresh then
			mncolor = 0xffffff
			elseif mnPercent <=redthresh then
			mncolor = 0x0000FF			
			elseif mnPercent <=yellowthresh then
			mncolor = 0x00FFFF
			elseif mnPercent <=dcyanthresh then
			mncolor = 0x808000
			else
			mncolor = 0x00FF00
			end
            mvPercent = round(100* (tonumber(v.info.mv) / tonumber(v.info.mmv)),0)
			if mvPercent <= greythresh then
			mvcolor = 0xaaaaaa
			elseif mvPercent <=whitethresh then
			mvcolor = 0xffffff
			elseif mvPercent <=redthresh then
			mvcolor = 0x0000FF			
			elseif mvPercent <=yellowthresh then
			mvcolor = 0x00FFFF
			elseif mvPercent <=dcyanthresh then
			mvcolor = 0x808000
			else
			mvcolor = 0x00FF00
			end
			--txt = v.name ..here.."["..hpPercent.."] ["..mnPercent.."] ["..mvPercent.."] "..v.info.qt
			if tonumber(v.info.qt) == 0 then
			qcolor = 0x0000FF
			elseif tonumber(v.info.qt) <= 5 then
			qcolor = 0x00FFFF
			else
			qcolor = 0xC0C0C0
			end

--Left Justified
            -- x=Theme.WindowTextFromStyles(win, font_id, {{text=v.name,textcolour=hpcolor}}, x, y, 0, 0)
            -- Theme.WindowTextFromStyles(win, font_id, {{text=here,textcolour=0xffffff}}, x, y, 0, 0)
			-- x=x+14
			-- Theme.WindowTextFromStyles(win, font_id, {{text="["..string.lpad(tostring(hpPercent),3,' ').."]",textcolour=hpcolor}}, x, y, 0, 0)
			-- x=x+40
			-- Theme.WindowTextFromStyles(win, font_id, {{text="["..string.lpad(tostring(mnPercent),3,' ').."]",textcolour=mncolor}}, x, y, 0, 0)
			-- x=x+40
			-- Theme.WindowTextFromStyles(win, font_id, {{text="["..string.lpad(tostring(mvPercent),3,' ').."]",textcolour=mvcolor}}, x, y, 0, 0)
			-- x=x+40
			-- Theme.WindowTextFromStyles(win, font_id, {{text=string.lpad(tostring(v.info.qt),2,' '),textcolour=qcolor}}, x, y, 0, 0)
			-- x=x+24
			-- Theme.WindowTextFromStyles(win, font_id, {{text="#",textcolour=align_colour}}, x, y, 0, 0)
--Right
			x=248
			Theme.WindowTextFromStyles(win, font_id, {{text="#",textcolour=align_colour}}, 248	, y, 0, 0)
			x=x-24
			Theme.WindowTextFromStyles(win, font_id, {{text=string.lpad(tostring(v.info.qt),2,' '),textcolour=qcolor}}, x, y, 0, 0)
			x=x-40
			Theme.WindowTextFromStyles(win, font_id, {{text="["..string.lpad(tostring(mvPercent),3,' ').."]",textcolour=mvcolor}}, x, y, 0, 0)
			x=x-40
			Theme.WindowTextFromStyles(win, font_id, {{text="["..string.lpad(tostring(mnPercent),3,' ').."]",textcolour=mncolor}}, x, y, 0, 0)
			x=x-40
			Theme.WindowTextFromStyles(win, font_id, {{text="["..string.lpad(tostring(hpPercent),3,' ').."]",textcolour=hpcolor}}, x, y, 0, 0)
			x=x-14
            Theme.WindowTextFromStyles(win, font_id, {{text=here,textcolour=0xffffff}}, x, y, 0, 0)
			x=x-80
			
			
            Theme.WindowTextFromStyles(win, font_id, {{text=v.name,textcolour=hpcolor}}, x, y, 0, 0)




            y = y + line_height + 1
			y = y + GAP - 2
         end
      else
         txt = "Your group is empty."
         txtlen = WindowTextWidth(win,font_id, txt)
         WindowText(win, font_id, txt, (width-txtlen)/2, (height+line_height)/2, 0, 0, Theme.BODY_TEXT, utf8)
      end
	     x= Theme.WindowTextFromStyles(win, font_id, {{text="Player Count [",textcolour=0xFFFFFF}}, 8,y,0,0)
		 Theme.WindowTextFromStyles(win, font_id, {{text=#group_members,textcolour=0x00FFFF}}, x,y,0,0)
		 x=x+16
		 Theme.WindowTextFromStyles(win, font_id, {{text="]  Here [",textcolour=0xFFFFFF}}, x,y,0,0)
		 x=x+72
		 Theme.WindowTextFromStyles(win, font_id, {{text=herecount,textcolour=0x00FFFF}}, x,y,0,0)
		 x=x+16
		 Theme.WindowTextFromStyles(win, font_id, {{text="]",textcolour=0xFFFFFF}}, x,y,0,0)

   end

   Theme.DrawBorder(win)
   Theme.Draw3DRect(win, -1, -1, WindowInfo(win, 3)-1, title_height, false)

   if group_built then
      styles = ColoursToStyles(full_group_data.groupname)
      local x = GAP
      local y = 2
      local statusBoundary = math.max(GAP, width-WindowTextWidth(win, font_id, full_group_data.status)-3*GAP)
      WindowRectOp(win, 2, statusBoundary+2*GAP - 2, y , -3, y+line_height, ((full_group_data.status=="Private" and 0x000088) or 0x008800))
      WindowText(win, font_id, full_group_data.status, statusBoundary+2*GAP, y, 0, 0, 0xffffff)
      x = x + WindowText(win, font_id, "Group: ", x, y, statusBoundary, 0, Theme.THREE_D_SURFACE_DETAIL, utf8)
      local group_width = WindowTextWidth(win, font_id, strip_colours_from_styles(styles))
      WindowRectOp(win, 2, x-3, y, x+group_width + GAP, y+line_height, Theme.PRIMARY_BODY)
      Theme.WindowTextFromStyles(win, font_id, styles, x, y, statusBoundary, 0)
      y = y + line_height
      local xpKillsBoundary = math.max(GAP,width-WindowTextWidth(win, font_id, "XP:"..full_group_data.exp.." K:"..full_group_data.kills)-3*GAP)
      WindowText(win, font_id, "XP:"..full_group_data.exp.." K:"..full_group_data.kills, xpKillsBoundary+2*GAP, y, 0,0, Theme.THREE_D_SURFACE_DETAIL, utf8)
      WindowText(win, font_id, "Leader: "..full_group_data.leader, GAP, y, xpKillsBoundary, 0, Theme.THREE_D_SURFACE_DETAIL, utf8)
   end

   Theme.AddResizeTag(win, 1, nil, nil, "MouseDown", "ResizeMoveCallback", "ResizeReleaseCallback")

   CallPlugin("abc1a0944ae4af7586ce88dc", "BufferedRepaint")
end -- Display_Group_Page

function validate_percent(input)
   if string.sub(input, -1) == "%" then
      input = string.sub(input, 1,-2)
   end
   local inputNum = tonumber(input)
   if not inputNum or inputNum < 1 or inputNum > 100 or inputNum % 1 ~= 0 then
      ColourNote("white","red","'"..input.."' is not a whole number between 1 and 100. Try again.")
      return false
   end
   return true
end

function right_click_menu ()
--   return false
   menustring =""
   local member_count = 0

   menustring ="!Change Font|-|Bring To Front|Send To Back|-|Reset Defaults"
   result = WindowMenu (win,
      WindowInfo (win, 14),  -- x position
      WindowInfo (win, 15),   -- y position
      menustring) -- content

   if result ~= "" then
      numResult = tonumber(result)
      if numResult == 1 then
         -- change font
         wanted_font = utils.fontpicker (font_name, font_size) --font dialog
         if wanted_font then
            font_name = wanted_font.name
            font_size = wanted_font.size
         end
      elseif numResult == 2 then
         -- bring to front
         CallPlugin("462b665ecb569efbf261422f","boostMe", win)
      elseif numResult == 3 then
         -- send to back
         CallPlugin("462b665ecb569efbf261422f","dropMe", win)
      elseif numResult == 4 then
         -- reset
         font_name        = default_font_name
         font_size        = default_font_size
         height           = default_height
         width            = default_width
         show_coords      = 0
      end -- if

      RemoveMembersFromGroupDisplay()
      -- save and reload
      SaveState()
      OnPluginInstall()
   end
end -- right_click_menu

invitations = {}

function group_invite(name, line, wildcards, styles)
   invitations[wildcards[1]]=wildcards[2]
   DisplayGroupPage()
end

function group_cancel(name, line, wildcards, styles)
   invitations[wildcards[1]] = nil
   DisplayGroupPage()
end

--=================================================================================
-- Called when plugin receives telnet data - main entry point for actually running
-- the plugin.
--=================================================================================
function OnPluginBroadcast (msg, id, name, text)
   -- Look for GMCP handler.
   if (id == '3e7dedbe37e44942dd46d264') then
      if (text == 'reload') then
         -- invalidate current data
         group_built = false
         self_built = false
         return
      end

      if (text=="char.base") then
         char_data = gmcp("char.base")
         self_built = true
         if group_built then
            RemoveMembersFromGroupDisplay()
            DisplayGroupPage()
         end
      end

      if (text == "group") then
         full_group_data = gmcp("group")
         if (full_group_data.groupname == "") then
            leaveGroup()
         else
            group_built = true
            if self_built then
               RemoveMembersFromGroupDisplay()
               DisplayGroupPage()
            else
               Send_GMCP_Packet("request char")
            end
         end
      end
   elseif (id == "462b665ecb569efbf261422f" and msg==996 and text == "re-register z") then
      CallPlugin("462b665ecb569efbf261422f", "registerMiniwindow", win)
   end
end

function ResizeMoveCallback()
   if GetPluginVariable("c293f9e7f04dde889f65cb90", "lock_down_miniwindows") == "1" then
      return
   end
   posx, posy = WindowInfo (win, 17), WindowInfo (win, 18)
   width = width + posx - startx
   startx = posx
   if (width < MIN_SIZE) then
      width = MIN_SIZE
      startx = windowinfo.window_left+width
   elseif (windowinfo.window_left+width > GetInfo(281)) then
      width = GetInfo(281)-windowinfo.window_left
      startx = GetInfo(281)
   end

   height = height + posy - starty
   starty = posy
   local min_lines = 1
   if show_hp == 1 then
      min_lines = min_lines + 1
   end
   if show_mn == 1 then
      min_lines = min_lines + 1
   end
   if show_mv == 1 then
      min_lines = min_lines + 1
   end
   if (height < title_height+(min_lines*line_height)+(2*GAP)+min_lines-1) then
      height = title_height+(min_lines*line_height)+(2*GAP)+min_lines-1
      starty = windowinfo.window_top+height
   elseif (windowinfo.window_top+height > GetInfo(280)) then
      height = GetInfo(280)-windowinfo.window_top
      starty = GetInfo(280)
   end
   if (utils.timer() - lastRefresh > 0.0333) then
      SetUpHotspotsAndDraw(false)
      lastRefresh = utils.timer()
   end
end

lastRefresh = 0

function ResizeReleaseCallback()
    SetUpHotspotsAndDraw(true)
end

function MouseDown(flags, hotspot_id)
   if (hotspot_id == win.."_resize") then
      startx, starty = WindowInfo (win, 17), WindowInfo (win, 18)
   end
end

function CancelMouseOver (flags, hotspotid)
end -- cancelmouseover

function CancelMouseDown(flags, hotspot_id)
end

function MouseUp(flags, hotspot_id, win)
   if bit.band (flags, miniwin.hotspot_got_rh_mouse) ~= 0 then
      right_click_menu()
   end
   return true
end

function LeftClickOnly(flags, hotspot_id, win)
   if bit.band (flags, miniwin.hotspot_got_rh_mouse) ~= 0 then
      return true
   end
   return false
end

function leaveGroup ()
   invitations = {}
   group_built = false
   full_group_data = nil
   SetUpHotspotsAndDraw(true)
end

function OnPluginConnect()
   Send_GMCP_Packet("rawcolor on")
   Send_GMCP_Packet("group on")
end

function OnPluginSaveState()
   -- save window current location for next time
   movewindow.save_state(win)

   SetVariable("enabled", tostring(GetPluginInfo(GetPluginID (), 17)))
   if WindowInfo(win, 3) and WindowInfo(win, 4) then
      width = WindowInfo(win, 3)
      height = WindowInfo(win, 4)
   end
   SetVariable("width", width)
   SetVariable("height", height)
   SetVariable("font_name", font_name)
   SetVariable("font_size", font_size)
   SetVariable("show_self", show_self)
   SetVariable("show_hp", show_hp)
   SetVariable("show_mn", show_mn)
   SetVariable("show_mv", show_mv)
   SetVariable("hidden", hidden)
   SetVariable("colorVals", serialize.save ("colorVals"))
   SetVariable("gauge_style", gauge_style)
   SetVariable("overlay_numbers", overlay_numbers)
   SetVariable("thresh1active", thresh1active)
   SetVariable("thresh2active", thresh2active)
   SetVariable("thresh1percent", thresh1percent)
   SetVariable("thresh2percent", thresh2percent)
   SetVariable("thresh1color", thresh1color)
   SetVariable("thresh2color", thresh2color)
end -- OnPluginSaveState

function OnPluginClose()
   OnPluginDisable()
   WindowDelete(win)
end

function HideIt()
   WindowShow( win, false )
   hidden = 1
   SaveState()
end

function ShowIt()
   WindowShow (win, true)
   hidden = 0
   SaveState()
end

function OnPluginDisable ()
   SaveState()
   WindowShow(win, false)
end --  OnPluginDisable

function OnPluginEnable ()
   if hidden == 0 then
      WindowShow (win, true)
   end
   if IsConnected() then
      OnPluginConnect()
   end
   SaveState()
end -- OnPluginEnable

win = GetPluginID()
function OnPluginListChanged ()
   dofile "lua/aard_requirements.lua"
end

function OnPluginInstall()

   local fonts = utils.getfontfamilies ()

   -- if Dina not there already, add it
   if not fonts.Dina then
      AddFont (GetInfo (66) .. "\\Dina.fon")
      fonts = utils.getfontfamilies ()
   end

   if fonts ["Dina"] then
      default_font_size = 8
      default_font_name = "Dina"
   elseif fonts["Courier New"] then
      default_font_size = 9
      default_font_name = "Courier New"
   else
      default_font_size = 9
      default_font_name = "Lucida Console"
   end

   font_id = "font"
   font_name = GetVariable("font_name") or default_font_name
   font_size = tonumber(GetVariable("font_size")) or default_font_size

   windowinfo = movewindow.install(win, miniwin.pos_center, miniwin.create_absolute_location, false, nil, {mouseup=MouseUp, mousedown=LeftClickOnly, dragmove=LeftClickOnly, dragrelease=LeftClickOnly},{x=default_x, y=default_y})
   WindowCreate(win, windowinfo.window_left, windowinfo.window_top, width, height, windowinfo.window_mode, windowinfo.window_flags, Theme.SECONDARY_BODY)
   WindowFont(win, font_id, font_name, font_size, false, false, false, false, 0) -- normal font

   --- Grab font size settings.
   line_height = WindowFontInfo (win, font_id, 1) -  WindowFontInfo (win, font_id, 4) + 2
   title_height = line_height*2+4

   if IsConnected() then
      OnPluginConnect()
      Send_GMCP_Packet("request group")
   end

   -- if disabled last time, stay disabled
   if GetVariable ("enabled") == "false" then
      ColourNote ("yellow", "", "Warning: Plugin " .. GetPluginName ().. " is currently disabled.")
      check (EnablePlugin(GetPluginID (), false))
      return
   end -- they didn't enable us last time

   -- Draw the initial group window
   SetUpHotspotsAndDraw(true)
end

function getmemoryusage()
  collectgarbage('collect')
  return collectgarbage('count')
end

]]>

</script>
</muclient>