commit
ddfffea399
@ -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>
|
||||
Loading…
Reference in new issue