From ddfffea399e58bcf9d743a3c11849fcf5273a601 Mon Sep 17 00:00:00 2001
From: icecool <mark.a.jessen@gmail.com>
Date: Sun, 27 Jan 2019 19:45:54 -0600
Subject: [PATCH] EquipmentManager v2.10

Original commit to repo!
---
 EquipmentManager.xml | 548 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 548 insertions(+)
 create mode 100644 EquipmentManager.xml

diff --git a/EquipmentManager.xml b/EquipmentManager.xml
new file mode 100644
index 0000000..1bab5eb
--- /dev/null
+++ b/EquipmentManager.xml
@@ -0,0 +1,548 @@
+<?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 Portal Inventory Clean Up  -->
+  <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)
+  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
+  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()
+  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()
+  dnote(("%s Character:Level() returns: %d"):format(Prepend, tonumber(checkGMCPValue("char.status.level"))))
+  return tonumber(checkGMCPValue("char.status.level"))
+end
+function Character:TierLevel()
+  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()
+  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
+  local objid = tostring(args.objid)
+  if EqInventory[objid] then
+    table.insert(InvList, 1, objid)
+    dnote(("%s TRIGGER_CreateInventoryListItem added Object ID#%s to InvList table."):format(Prepend,objid))
+  end
+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
+  local obj_id = tostring(args.objid)
+  table.insert(PortalInventory, 1, obj_id)
+  dnote(("%s TRIGGER_AddPortalItem(%s) called. Added %s to PortalInventory table."):format(Prepend, obj_id, obj_id))
+  cnote(("%s Portal(%s) was added Portal Inventory."):format(Prepend, obj_id))
+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
+  local objid = tostring(args.objid)
+  for obj, list in pairs(PortalInventory) do
+    if PortalInventory[obj] == objid then
+      table.insert(PortalList, 1, objid)
+      dnote(("%s TRIGGER_CreateInventoryPortalListItem added Object ID#%s to PortalList table."):format(Prepend,objid))
+	  return
+	end
+  end
+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)
+    InventoryManager.InventoryCleanUp()
+  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)
+    InventoryManager.PortalCleanUp()
+  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.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
+    print(("put %s %d"):format(InvList[obj], EqCheckSettings.Bag))
+  end
+  InvList = { }
+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>
\ No newline at end of file