EquipmentManager/EquipmentManager.xml

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Thursday, December 29, 2016, 11:46 PM -->
<!-- MuClient version 0.00 -->
<muclient>
<plugin
  name="EquipmentManager"
  author="Icecool"
  id="8dc4696d8daf6cd9c88b0125"
  language="Lua"
  purpose="Autowear Equipment on level"
  date_written="2019-01-24 00:00:00"
  save_state="y"
  requires="0.00"
  version="2.10"
>
<description trim="y">
<![CDATA[
Scripted designed to automatically wear equipment on level. Along with automatic equipment wearing, can manually wear using the 'eqcheck (level)' alias.

V1.00 (original)
  * Trigger based level check 

V1.50 (rewrite)
  * Renamed plugin to be 'EquipmentManager' from 'AutoEquip'
  * OnPluginBroadcast GMCP check for level
  * Plugin uses 'save_state' now as before it was not enabled.
  * Eqadmin & Eqcheck are the two commands.
  * Helpfile automatically displays on enabling the plugin.
  * dnote() was created for debugging messages.

v2.00
  * Create table to store the equipment ObjIDs and Levels from the invdata of bag.
    --[[ This should reduce the lag on pulling inventory out of bag and wearing it as we are no longer
       relying on invdata every level ]]--
  * 'EqSync' command to look into Bag and creates/overwrites the table that stores the equipment information

v2.10
  * Added 'InvCleanUp' command to check InvData, create a temporary InvList, and put away the manged EQ.
  * Added Portal Inventory (portalsync, portalbag)
  * Added Portal Inventory Clean Up

WISH LIST:
  * Performance tweaks
    --[[ Create TemporaryInvData table that InvData is fed into, then parse against InventoryData and PortalInventory or EqInventory tables and create 'CleanUp' table
         This will prevent parsing partial tables each InvData line. ]]--

]]>
</description>
</plugin>
<!--  Aliases -->
<aliases>
  <alias enabled="y" sequence="100" ignore_case="y" regexp="y" keep_evaluating="n"
    match="^\s*(?:eqadmin|eqadmi|eqadm)\s+(?<Args>.+)?$"
    script="COMMAND_EQAdmin"></alias>
  <alias enabled="y" sequence="100" ignore_case="y" regexp="y" keep_evaluating="n"
    match="^\s*(?:eqadmin|eqadmi|eqadm(?<Args>))$"
    script="COMMAND_EQAdmin"></alias>
  <alias enabled="y" sequence="100" ignore_case="y" regexp="y" keep_evaluating="n"
	match="^eqcheck (?<level>\d+)$"
    script="COMMAND_CheckEquipment"></alias>
</aliases>
<!--  Triggers -->
<triggers>
  <!--  Triggers for gagging InvData start  -->
  <trigger name="InvDataStart" group="GroupInvDataStart" enabled="n" regexp="y" omit_from_output="y" sequence="100"
    match="^\{invdata(\s\d+)?\}$"></trigger>
  <!--  Triggers for Processing InvData Line  -->
  <trigger name="processInvData" group="GroupEqSync" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_AddInventoryItem"
    match="^(?<objid>\d+),\w+,.*,(?<objlevel>\d+),(?<objtype>\d+),\d+,(?<objwear>.*),.*$" ></trigger>
  <trigger name="InvCleanUpInvData" group="GroupInventoryCleanup" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_AddInvListItem"
    match="^(?<objid>\d+),\w+,.*,(?<objlevel>\d+),(?<objtype>\d+),\d+,(?<objwear>.*),.*$" ></trigger>
  <trigger name="InvPortalSetupInvData" group="GroupPortalInventorySetup" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_AddPortalInvItem"
    match="^(?<objid>\d+),\w+,.*,(?<objlevel>\d+),(?<objtype>\d+),\d+,(?<objwear>.*),.*$" ></trigger>
  <trigger name="InvDataPortCleanData" group="GroupPortalCleanUp" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_AddInvPortalListItem"
    match="^(?<objid>\d+),\w+,.*,(?<objlevel>\d+),(?<objtype>\d+),\d+,(?<objwear>.*),.*$" ></trigger>
  <!--  Triggers for InvData end  -->
  <trigger name="InvDataEnd" group="GroupEqSync" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_EndInvData"
    match="^\{\/invdata\}$"></trigger>
  <trigger name="InvDataInvCleanUpEnd" group="GroupInventoryCleanup" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_EndInvData"
    match="^\{\/invdata\}$"></trigger>
  <trigger name="InvDataPortalSetupEnd" group="GroupPortalInventorySetup" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_EndInvData"
    match="^\{\/invdata\}$"></trigger>
  <trigger name="InvDataPortCleanEnd" group="GroupPortalCleanUp" enabled="n" regexp="y" omit_from_output="y" sequence="100" script="TRIGGER_EndInvData"
    match="^\{\/invdata\}$"></trigger>
</triggers>
<!--  Get our standard constants -->
<include name="constants.lua"/>
<!--  Script  -->
<script> <![CDATA[ --[[ Universal Basic Functions ]]--
require 'serialize'
dofile (GetInfo(60) .. "aardwolf_colors.lua")
GMCPPluginID = "3e7dedbe37e44942dd46d264"
Prepend = "@GEqCheck: @w"
-- Function to print colors using Aard Color Scheme
function cnote(str)
	AnsiNote(stylesToANSI(ColoursToStyles(str)))
end
-- Function to check if Debug is active and then print message
function dnote(str)
  if EqCheck.Debug then
    cnote("@R[DEBUG]: @w"..str.."@w")
  end
end
-- Function to return GMCP value
function checkGMCPValue(key)
  local result, value = CallPlugin(GMCPPluginID,"gmcpval", key)
  if result ~= 0 then
    dnote( ("%s: checkGMCPValue for %s did not return any data."):format(Prepend, key)
	return false
  end
  return value
end
-- Return true if tonumber() is not nil
function isNumber(num)
  if tonumber(num) ~= nil then
    return true
  else
    return false
  end
end
]]> </script>
<script> <![CDATA[ --[[ EqCheck functions ]]--
EqCheck = { Debug=false, Level=0 }
function EqCheck.IsPlaying()
  if not IsConnected() then return false end
  if not checkGMCPValue("char.status.state") then return false end
  local state = tonumber(checkGMCPValue("char.status.state"))
  if not state then 
    return false
  elseif state >= 3 then
    return true
  else
    return false
  end
end
function EqCheck.ProcessLevel()
  dnote(("%s EqCheck.ProcessLevel() has been called."):format(Prepend))
  if InventoryManager.CreateTempItemList(EqCheck.Player:EffectiveLevel()) then
    InventoryManager.WearItemList()
  end
end
function EqCheck.Remove()
  dnote(("%s EqCheck.Remove() called, removing all dual wear slots now."):format(Prepend))
  SendNoEcho( "remove lear" )
  SendNoEcho( "remove rear" )
  SendNoEcho( "remove neck1" )
  SendNoEcho( "remove neck2" )
  SendNoEcho( "remove lwrist" )
  SendNoEcho( "remove rwrist" )
  SendNoEcho( "remove lfinger" )
  SendNoEcho( "remove rfinger" )
end
]]> </script>
<script> <![CDATA[ --[[ Character Object
  Character Traits include: Name, LastLevel, Level, TierLevel, EffectiveLevel 
]]--
Character = { }
Player_MT = { __index = Character }
function Character.New()
  if not (checkGMCPValue("char.base.name") or checkGMCPValue("char.status.level") or checkGMCPValue("char.status.level")) then
    dnote(("%s: Character.New() failed to create character object. Missing GMCP data was detected."):format(Prepend))
    return nil
  end
  local player = {
  Name = checkGMCPValue("char.base.name"),
  LastLevel = checkGMCPValue("char.status.level"),
  CurrentLevel = checkGMCPValue("char.status.level")
  }
  setmetatable( player, Player_MT )
  dnote(("%s Character.New() returns: %s, %d, %d"):format(Prepend, player.Name, player.LastLevel, player.CurrentLevel))
  return player
end
function Character:Level()
  if not checkGMCPValue("char.status.level") then
    dnote(("%s: Character:Level() did not return any GMCP data. Attempting to call the GMCP data."):format(Prepend))
    Send_GMCP_Packet("request char")
  end
  dnote(("%s Character:Level() returns: %d"):format(Prepend, tonumber(checkGMCPValue("char.status.level"))))
  return tonumber(checkGMCPValue("char.status.level"))
end
function Character:TierLevel()
  if not checkGMCPValue("char.base.tier") then
    dnote(("%s: Character:TierLevel() did not return any GMCP data. Attempting to call the GMCP data."):format(Prepend))
    Send_GMCP_Packet("request char")
  end
  dnote(("%s Character:TierLevel() returns: %d"):format(Prepend, (tonumber(checkGMCPValue("char.base.tier"))*10)))
  return (tonumber(checkGMCPValue("char.base.tier"))*10)
end
function Character:EffectiveLevel()
  if not checkGMCPValue("char")  then
    dnote(("%s: Character:EffectiveLevel() did not return any GMCP data. Attempting to call the GMCP data."):format(Prepend))
    Send_GMCP_Packet("request char")  
  end
  dnote(("%s Character:EffectiveLevel() returns: %d"):format(Prepend, (self:Level()+self:TierLevel())))
  return (self:Level() + self:TierLevel())
end
]]> </script>
<script> <![CDATA[ --[[ EqCheck loading & saving to MUSH variables ]]--
EqCheckSetup = { }
function EqCheckSetup.SaveEqCheckSettings()
  dnote(("%s EqCheckSetup.SaveEqCheckSettings() was called."):format(Prepend))
  SetVariable("EqCheckSettings", serialize.save_simple(EqCheckSettings))
end
function EqCheckSetup.LoadEqCheckSettings()
  dnote(("%s EqCheckSetup.LoadEqCheckSettings() was called."):format(Prepend))
  local settings = GetVariable("EqCheckSettings")
  if settings and settings ~= "" then
    assert(loadstring("EqCheckSettings = "..settings))()
    -- Prevent isses with nil arguments from early adapters for PortalBag --
    if not EqCheckSettings.PortalBag then 
      EqCheckSettings.PortalBag=0 
    end
  else
    EqCheckSetup.InitializeEqCheckSettings()
  end
end
function EqCheckSetup.InitializeEqCheckSettings()
  dnote(("%s EqCheckSetup.InitializeEqCheckSettings() was called."):format(Prepend))
  EqCheckSettings = { 
    Enabled=true, 
    Bag=0,
    PortalBag=0	
  }
end
InvSetup = { }
function InvSetup.SaveInventory()
  dnote(("%s InvSetup.SaveInventory() was called."):format(Prepend))
  SetVariable("EqInventory", serialize.save_simple(EqInventory))
end
function InvSetup.LoadInventory()
  dnote(("%s InvSetup.LoadInventory() was called."):format(Prepend))
  local settings = GetVariable("EqInventory")
  if settings and settings ~= "" then
    assert(loadstring("EqInventory = "..settings))()
  else
    dnote(("%s MUSH Variable for 'EqInventory' could not be loaded. Creating an empty EqInventory table."):format(Prepend))
    EqInventory = { }
  end
end
PortalSetup = { }
function PortalSetup.SavePortalInventory()
  dnote(("%s PortalSetup.SavePortalInventory() was called."):format(Prepend))
  SetVariable("PortalInventory", serialize.save_simple(PortalInventory))
end
function PortalSetup.LoadPortalInventory()
  dnote(("%s PortalSetup.LoadPortalInventory() was called."):format(Prepend))
  local settings = GetVariable("PortalInventory")
  if settings and settings ~= "" then
    assert(loadstring("PortalInventory = "..settings))()
  else
    dnote(("%s MUSH Variable for 'PortalInventory' could not be loaded. Creating an empty PortalInventory table."):format(Prepend))
    PortalInventory = { }
  end
end
]]> </script>
<script> <![CDATA[ --[[ MUSH calls:
  OnPluginBroadcast():
  OnPluginEnable()
  OnPluginInstall()
]]--
function OnPluginBroadcast (msg, id, name, text)
  if not (id == GMCPPluginID) then return end
  if id == GMCPPluginID and text == "char.status" and EqCheck.IsPlaying() then
    if not EqCheck.Player then EqCheck.Player = Character.New() end
	EqCheck.Player.LastLevel = EqCheck.Player.CurrentLevel
    EqCheck.Player.CurrentLevel = EqCheck.Player:Level()
	if EqCheck.Player.LastLevel ~= EqCheck.Player.CurrentLevel then
      dnote(Prepend.."EqCheck.Player.LastLevel and EqCheck.Player.CurrentLevel are different, EqCheck.ProcessLevel() called!")
      EqCheck.ProcessLevel()
    end
  end
end
function OnPluginInstall()
    OnPluginEnable()
end
function OnPluginEnable()
  EqCheckSetup.InitializeEqCheckSettings()
  EqCheckSetup.LoadEqCheckSettings()
  InvSetup.LoadInventory()
  PortalSetup.LoadPortalInventory()
  EQADMIN_Help()
end
]]> </script>
<script> <![CDATA[ --[[ EQAdmin Commands ]]--
EQADMIN_Commands = { 
  EQADMIN_Debug       = { "debug", "debu", "deb" },
  EQADMIN_Enable      = { "enabled", "enable", "enabl", "enab", "ena", "en", "e" },
  EQADMIN_EqSync      = { "eqsync", "eqsyn", "eqsy" },
  EQADMIN_Help        = { "help", "hel", "he", "h" },
  EQADMIN_InvClean    = { "invclean", "invclea", "invcle", "invcl", "invc" },
  EQADMIN_PortalClean = { "portalclean", "portalclea", "portalcle", "portalcl", "portalc" },
  EQADMIN_PortalSync  = { "portalsync", "portalsyn", "portalsy" },
  EQADMIN_Set         = { "set", "se" },
  EQADMIN_Status      = { "status", "statu", "stat", "sta", "st" }
  }
EQADMIN_SET_Commands = {
  EQADMIN_SET_Bag       = { "bag", "ba", "b" },
  EQADMIN_SET_PortalBag = { "portalbag", "portalba", "portalb" }
  }
function COMMAND_CheckEquipment( name, line, args )
  if not (args.level or isNumber(args.level)) then
    cnote(("%s EqCheck command requires a level argument."):format(Prepend))
	dnote(("%s EqCheck command did not have an argument or argument was not a number."):format(Prepend))
    return 
  end
  dnote(("%s EqCheck used %d as level to call InventoryManager.CreateTempItemList."):format(Prepend,args.level))
  if InventoryManager.CreateTempItemList(tonumber(args.level)) then
    InventoryManager.WearItemList()
  end
end
function COMMAND_EQAdmin(name, lines, wildcards)
  local args, command = {}, nil
  --split args, set first to "command", default to 'help'
  for word in string.gmatch(wildcards.Args, "%w+") do 
    table.insert(args, word) 
    dnote( ("%s COMMAND_EQAdmin argument added to 'args' table: %s"):format(Prepend,word) )
  end
  command = args[1]
  if command then table.remove(args,1) else command = "help" end 
  --parse command
  command = string.lower(command)
  for func, list in pairs(EQADMIN_Commands) do
    for _, item in ipairs(list) do
      if command == item then
        dnote( ("%s COMMAND_EQAdmin passing function [%s] and sending the following argument on [%s]"):format(Prepend, func, args[1]) )
        return _G[func](args)
      end
    end
  end 
  EQADMIN_UnrecognizedCommand()
end
--[[ EQAdmin main command functions ]]--
function EQADMIN_UnrecognizedCommand()
  cnote(Prepend.."Unrecognized command.  Try '@Gqadmin help@w' for help.")
  Note()
end
function EQADMIN_Debug()
  EqCheck.Debug = not EqCheck.Debug
  cnote( Prepend.."EqCheck Debug mode is now "..(EqCheck.Debug and "@GOn@w" or "@ROff@w") )
  cnote( Prepend.."This setting is not saved and must be toggled each time script is enabled." )
  Note()
end
function EQADMIN_Enable()
  EqCheckSettings.Enabled = not EqCheckSettings.Enabled
  cnote( Prepend.."EqCheck is now "..(EqCheckSettings.Enabled and "@GOn@w" or "@ROff@w") )
  EqCheckSetup.SaveEqCheckSettings()
end
function EQADMIN_EqSync()
  dnote(("%s EQADMIN_EqSync has been called. Starting the process of creating the EqInventory table."):format(Prepend))
  EnableTriggerGroup("GroupInvDataStart", true)
  EnableTriggerGroup("GroupEqSync", true)
  EqInventory = { }
  SendNoEcho(("invdata %d ansi"):format(EqCheckSettings.Bag))
end
function EQADMIN_Help()
  cnote("@GEquipment Manager@w")
  cnote("@WUsage:@w")
  cnote("@G  eqadmin help                             @w:@W    This menu@w")
  cnote("@G  eqadmin enabled                          @w:@W    Toggles ON/OFF the automatic equipment checking@w")
  cnote("@G  eqadmin status                           @w:@W    Display the current settings EquipmentManager@w")
  cnote("@G  eqcheck <level>                          @w:@W    Manually auto-wear equipment for level inputted@w")
  Note()
  cnote("@WInventory Cleanup Commands:@w")
  cnote("@G  eqadmin invclean                         @w:@W    Puts any items that exist in Equipment Inventory into defined bag@w")
  cnote("@G  eqadmin portalclean                      @w:@W    Puts any portals that exist in Portal Inventory into defined bag@w")
  Note()
  cnote("@WSet Commands:@w")
  cnote("@G  eqadmin set bag <Bag ID#>                @w:@W    Sets the BAG ID# EqCheck will check in@w")
  cnote("@G  eqadmin set portalbag <Bag ID#>          @w:@W    Sets the Portal BAG ID# for Portal Inventory@w")
  Note()
  cnote("@WSetup Commands:@w")
  cnote("@G  eqadmin eqsync                           @w:@W    Builds the Equipment Inventory@w" )
  cnote("@G  eqadmin portalsync                       @w:@W    Builds the Portal Inventory@w")
  Note()
end
function EQADMIN_InvClean()
  dnote(("%s EQADMIN_InvClean has been called. Starting the process of putting away equipment."):format(Prepend))
  EnableTriggerGroup("GroupInvDataStart", true)
  EnableTriggerGroup("GroupInventoryCleanup", true)
  InvList = { }
  SendNoEcho("invdata ansi")
end
function EQADMIN_PortalClean()
  dnote(("%s EQADMIN_PortalClean has been called. Starting the process of putting away equipment."):format(Prepend))
  EnableTriggerGroup("GroupInvDataStart", true)
  EnableTriggerGroup("GroupPortalCleanUp", true)
  PortalList = { }
  SendNoEcho("invdata ansi")
end
function EQADMIN_PortalSync()
  dnote(("%s EQADMIN_PortalSync has been called. Starting the process of creating the PortalInventory table."):format(Prepend))
  EnableTriggerGroup("GroupInvDataStart", true)
  EnableTriggerGroup("GroupPortalInventorySetup", true)
  PortalInventory = { }
  SendNoEcho(("invdata %d ansi"):format(EqCheckSettings.PortalBag))
end
function EQADMIN_Set(arguments)
  if not arguments[1] then 
    dnote( ("%s EQAdmin_Set(arguments) returned without any arguments."):format(Prepend) )
    return 
  end
  dnote( ("%s EQAdmin_Set(arguments) called." ):format(Prepend) )
  --parse command
  local command = string.lower(arguments[1])
  for func, list in pairs(EQADMIN_SET_Commands) do
    for _, item in ipairs(list) do
      if command == item then
        dnote(("%s EQADMIN_Set called %s function with the argument of %s"):format(Prepend,func,arguments[2]))
        return _G[func](arguments[2])
      end
    end
  end 
  EQADMIN_UnrecognizedCommand()
end
function EQADMIN_Status()
  cnote(("%s EqCheck is %s"):format(Prepend, (EqCheckSettings.Enabled and "@Gon@w" or "@Roff@w")))
  cnote(("%s EqCheck is using Bag ID#@G%d@w to check for new equipment."):format(Prepend, EqCheckSettings.Bag))
  cnote(("%s Portal Inventory is using Bag ID#@G%d@w for portals."):format(Prepend,EqCheckSettings.PortalBag))
  Note()
end
--[[ EQAdmin Set command Functions ]]--
function EQADMIN_SET_Bag(args)
  if (not args) or (tonumber(args) == nil) then
    cnote(Prepend.."@CSyntax is: @weqadmin set bag @R<bag id#>@w"  )
    return
  end
  dnote(("%s EQADMIN_SET_Bag is setting EqCheckSettings.Bag to %d"):format(Prepend, tonumber(args)))
  EqCheckSettings.Bag = tonumber(args)
  cnote(("%s EqCheck will now look for equipment from Bag ID#@G%d@w."):format(Prepend, EqCheckSettings.Bag))
  EqCheckSetup.SaveEqCheckSettings()
end
function EQADMIN_SET_PortalBag(args)
  if (not args) or (tonumber(args) == nil) then
    cnote(Prepend.."@CSyntax is: @weqadmin set portalbag @R<bag id#>@w"  )
    return
  end
  dnote(("%s EQADMIN_SET_PortalBag is setting EqCheckSettings.PortalBag to %d"):format(Prepend, tonumber(args)))
  EqCheckSettings.PortalBag = tonumber(args)
  cnote(("%s Portal Management will now place portals in Bag ID#@G%d@w."):format(Prepend, EqCheckSettings.PortalBag))
  EqCheckSetup.SaveEqCheckSettings()
end
]]> </script>
<script> <![CDATA[ --[[ Trigger Functions ]]--
function TRIGGER_AddInventoryItem( name, line, args )
  if not (args.objid or args.objlevel) then 
    cnote(("%s Error adding item to EqInventory table."):format(Prepend))
    dnote(("%s TRIGGER_AddInventoryItem did not provide an argument for either objid or objlevel"):format(Prepend))
    return 
  end
  local obj_id, obj_level = tostring(args.objid), tonumber(args.objlevel)
  EqInventory[obj_id] = obj_level
  dnote(("%s AddInventoryItem( %s, %d ) called. Added %s with value of %d to EqInventory table."):format(Prepend, obj_id, obj_level, obj_id, obj_level))
  cnote(("%s Item(%s) with a level of %d was added."):format(Prepend, obj_id, obj_level))
end
function TRIGGER_AddInvListItem( name, line, args )
  if not (args.objid) then 
    dnote(("%s TRIGGER_CreateInventoryListItem() did not have an args.objid argument."):format(Prepend))
	return
  end
  if not temporaryEquipmentList then temporaryEquipmentList = {} end
  table.insert(temporaryEquipmentList, 1, tostring(args.objid))
end
function TRIGGER_AddPortalInvItem( name, line, args )
  if not (args.objid) then 
    cnote(("%s Error adding item to PortalInventory table."):format(Prepend))
    dnote(("%s TRIGGER_AddPortalItem did not provide an argument for objid"):format(Prepend))
    return 
  end
  table.insert(PortalInventory, 1, tostring(args.objid))
  dnote(("%s TRIGGER_AddPortalItem(%s) called. Added %s to PortalInventory table."):format(Prepend, tostring(args.objid), tostring(args.objid)))
  cnote(("%s Portal(%s) was added Portal Inventory."):format(Prepend, tostring(args.objid)))
end
function TRIGGER_AddInvPortalListItem( name, line, args )
  if not (args.objid) then 
    dnote(("%s TRIGGER_CreateInventoryPortalListItem() did not have an args.objid argument."):format(Prepend))
	return
  end
  if not temporaryPortalList then temporaryPortalList = {} end
  table.insert( temporaryPortalList, 1, tostring(args.objid) )
end
function TRIGGER_EndInvData( name, line, args )
  if name == "InvDataEnd" then
    EnableTriggerGroup("GroupInvDataStart", false)
    EnableTriggerGroup("GroupEqSync", false)
    cnote(("%s EqSync is complete!"):format(Prepend))
    InvSetup.SaveInventory()
  elseif name == "InvDataInvCleanUpEnd" then
    EnableTriggerGroup("GroupInvDataStart", false)
    EnableTriggerGroup("GroupInventoryCleanup", false)
    dnote(("%s Now creating a temporary 'inventory' table to then process against EqInventory table."):format(Prepend))
    InventoryManager.ProcessEquipmentCleanUpList()
  elseif name == "InvDataPortalSetupEnd" then
    EnableTriggerGroup("GroupInvDataStart", false)
    EnableTriggerGroup("GroupPortalInventorySetup", false)
    cnote(("%s PortalSync is complete!"):format(Prepend))
    PortalSetup.SavePortalInventory()
  elseif name == "InvDataPortCleanEnd" then
    EnableTriggerGroup("GroupInvDataStart", false)
    EnableTriggerGroup("GroupPortalCleanUp", false)
    dnote(("%s Now creating a temporary 'inventory' table to then process against PortalInventory table."):format(Prepend))
    InventoryManager.ProcessPortalCleanUpList()
  end
end
]]> </script>
<script> <![CDATA[ --[[ Inventory Manager Functions ]]--
InventoryManager = { }
local TempInventory, InvList = { }, { }
function InventoryManager.CreateTempItemList(objlevel)
  if not objlevel then return false end
  local obj_level = tonumber(objlevel)
  for obj, list in pairs(EqInventory) do
    if EqInventory[obj] == objlevel then
      table.insert(TempInventory, 1, obj)
      dnote(("%s InventoryManager.RetrieveItemList(%d) added Object ID#%s to TempInventory table."):format(Prepend,obj_level,obj))
	end
  end
  if #TempInventory>0 then
    dnote(("%s InventoryManager.CreateTempItemList created the TempInventory table with a size of %d"):format(Prepend, #TempInventory))
    return true 
  else
    dnote(("%s InventoryManager.CreateTempItemList did not create the TempInventory table."):format(Prepend))
    return false 
  end
end
function InventoryManager.WearItemList()
  dnote(("%s InventoryManager.WearItemList() is now wearing items from TempInventory table."):format(Prepend))
  if #TempInventory > 0 then EqCheck.Remove() end
  for obj, list in pairs(TempInventory) do
    SendNoEcho(("take %s %d"):format(TempInventory[obj], EqCheckSettings.Bag))
    SendNoEcho(("wear %s"):format(TempInventory[obj]))
  end
  if #TempInventory > 0 then SendNoEcho("wear all") end
  TempInventory = { }
end
function InventoryManager.ProcessEquipmentCleanUpList()
  for invdata, value in pairs(EqInventory) do
    for portal, objid in pairs(temporaryEquipmentList) do
      if objid == invdata then
        dnote(("%s @wInventoryManager.ProcessEquipmentCleanUpList added equipment(@R%s@w) to InvList for cleanup.@w"):format(Prepend, objid))
        table.insert(InvList, 1, objid)
		break
	  end
    end
  end
  InventoryManager.InventoryCleanUp()
end
function InventoryManager.InventoryCleanUp()
  if #InvList == 0 then
    dnote(("%s InventoryManager.InventoryCleanUp is reporting InvList as emtpy."):format(Prepend))
    return
  end
  dnote(("%s InventoryManager.InventoryCleanUp() is now putting items from InvList table into bag id#%d."):format(Prepend, EqCheckSettings.Bag))
  cnote(("%s Putting the managed equipment into bag id#@R%d@w."):format(Prepend,EqCheckSettings.Bag))
  for obj, list in pairs(InvList) do
    SendNoEcho(("put %s %d"):format(InvList[obj], EqCheckSettings.Bag))
  end
  InvList = { }
end
function InventoryManager.ProcessPortalCleanUpList()
  for invdata, value in pairs(PortalInventory) do
    for portal, objid in pairs(temporaryPortalList) do
      if objid == value then
        dnote(("%s @wInventoryManager.ProcessPortalCleanUpList added portal(@R%s@w) to PortalList for cleanup.@w"):format(Prepend, objid))
        table.insert(PortalList, 1, objid)
		break
	  end
    end
  end
  InventoryManager.PortalCleanUp()
end
function InventoryManager.PortalCleanUp()
  if #PortalList == 0 then
    dnote(("%s InventoryManager.PortalCleanUp() is reporting PortalList as emtpy."):format(Prepend))
    return
  end
  dnote(("%s InventoryManager.PortalCleanUp() is now putting portals from PortalList table into bag id#%d."):format(Prepend, EqCheckSettings.PortalBag))
  cnote(("%s Putting the managed portals into bag id#@R%d@w."):format(Prepend,EqCheckSettings.PortalBag))
  for obj, list in pairs(PortalList) do
    SendNoEcho(("put %s %d"):format(PortalList[obj], EqCheckSettings.PortalBag))
  end
  InvList = { }
  
end
]]> </script>
</muclient>