<?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 I D # > @w:@W Sets the BAG ID# EqCheck will check in@w")
cnote("@G eqadmin set portalbag <Bag I D # > @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 i d # > @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 i d # > @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>
