diff options
Diffstat (limited to 'Data/BuiltIn/Libraries/addons/addons/organizer/items.lua')
| -rw-r--r-- | Data/BuiltIn/Libraries/addons/addons/organizer/items.lua | 469 |
1 files changed, 0 insertions, 469 deletions
diff --git a/Data/BuiltIn/Libraries/addons/addons/organizer/items.lua b/Data/BuiltIn/Libraries/addons/addons/organizer/items.lua deleted file mode 100644 index 20d9160..0000000 --- a/Data/BuiltIn/Libraries/addons/addons/organizer/items.lua +++ /dev/null @@ -1,469 +0,0 @@ ---Copyright (c) 2015, Byrthnoth and Rooks ---All rights reserved. - ---Redistribution and use in source and binary forms, with or without ---modification, are permitted provided that the following conditions are met: - --- * Redistributions of source code must retain the above copyright --- notice, this list of conditions and the following disclaimer. --- * Redistributions in binary form must reproduce the above copyright --- notice, this list of conditions and the following disclaimer in the --- documentation and/or other materials provided with the distribution. --- * Neither the name of <addon name> nor the --- names of its contributors may be used to endorse or promote products --- derived from this software without specific prior written permission. - ---THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ---ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ---WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE ---DISCLAIMED. IN NO EVENT SHALL <your name> BE LIABLE FOR ANY ---DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ---(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; ---LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ---ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ---(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ---SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -local Items = {} -local items = {} -local bags = {} -local item_tab = {} - -do - local names = {'Nomad Moogle'} -- don't add Pilgrim Moogle to this list, organizer currently does not work in Odyssey. - local moogles = {} - local poked = false - local block_menu = false - - clear_moogles = function() - moogles = {} - poked = false - end - - local poke_moogle = function(npc) - local p = packets.new('outgoing', 0x1a, { - ["Target"] = npc.id, - ["Target Index"] = npc.index, - }) - poked = true - block_menu = true - packets.inject(p) - repeat - coroutine.sleep(0.4) - until not block_menu - end - - nomad_moogle = function() - if #moogles == 0 then - for _,name in ipairs(names) do - local npcs = windower.ffxi.get_mob_list(name) - for index in pairs(npcs) do - table.insert(moogles,index) - end - end - end - - local player = windower.ffxi.get_mob_by_target('me') - for _, moo_index in ipairs(moogles) do - local moo = windower.ffxi.get_mob_by_index(moo_index) - if moo and (moo.x - player.x)^2 + (moo.y - player.y)^2 < 36 then - if not poked then - poke_moogle(moo) - end - return moo.name - end - end - return false - end - - windower.register_event('incoming chunk',function(id) - if id == 0x02E and block_menu then - block_menu = false - return true - end - end) -end - -windower.register_event('zone change',function() - clear_moogles() -end) - -local function validate_bag(bag_table) - if type(bag_table) == 'table' and windower.ffxi.get_bag_info(bag_table.id) then - if bag_table.access == 'Everywhere' then - return true - elseif bag_table.access == 'Mog House' then - if windower.ffxi.get_info().mog_house then - return true - elseif nomad_moogle() and bag_table.english ~= 'Storage' then -- Storage is not available at Nomad Moogles - return true - end - end - end - return false -end - -local function validate_id(id) - return (id and id ~= 0 and id ~= 0xFFFF) -- Not empty or gil -end - -local function wardrobecheck(bag_id,id) - return _static.wardrobe_ids[bag_id]==nil or ( res.items[id] and (res.items[id].type == 4 or res.items[id].type == 5) ) -end - -function Items.new(loc_items,bool) - loc_items = loc_items or windower.ffxi.get_items() - new_instance = setmetatable({}, {__index = function (t, k) if rawget(t,k) then return rawget(t,k) else return rawget(items,k) end end}) - for bag_id,bag_table in pairs(res.bags) do - org_debug("items", "Items.new::bag_id: "..bag_id) - bag_name = bag_table.english:lower():gsub(' ', '') - org_debug("items", "Items.new::bag_name: "..bag_name) - if (bool or validate_bag(bag_table)) and (loc_items[bag_id] or loc_items[bag_name]) then - org_debug("items", "Items.new: new_instance for ID#"..bag_id) - local cur_inv = new_instance:new(bag_id) - for inventory_index,item_table in pairs(loc_items[bag_id] or loc_items[bag_name]) do - if type(item_table) == 'table' and validate_id(item_table.id) then - org_debug("items", "Items.new: inventory_index="..inventory_index.." item_table.id="..item_table.id.." ("..res.items[item_table.id].english..")") - cur_inv:new(item_table.id,item_table.count,item_table.extdata,item_table.augments,item_table.status,inventory_index) - end - end - end - end - return new_instance -end - -function items:new(key) - org_debug("items", "New items instance with key "..key) - local new_instance = setmetatable({_parent = self,_info={n=0,bag_id=key}}, {__index = function (t, k) if rawget(t,k) then return rawget(t,k) else return rawget(bags,k) end end}) - self[key] = new_instance - return new_instance -end - -function items:find(item) - for bag_name,bag_id in pairs(settings.bag_priority) do - real_bag_id = s_to_bag(bag_name) - org_debug("find", "Searching "..bag_name.." for "..res.items[item.id].english..".") - if self[real_bag_id] and self[real_bag_id]:contains(item) then - org_debug("find", "Found "..res.items[item.id].english.." in "..bag_name..".") - return real_bag_id, self[real_bag_id]:contains(item) - else - org_debug("find", "Didn't find "..res.items[item.id].english.." in "..bag_name..".") - end - end - org_debug("find", "Didn't find "..res.items[item.id].english.." in any bags.") - return false -end - -function items:route(start_bag,start_ind,end_bag,count) - count = count or self[start_bag][start_ind].count - local success = true - local initial_ind = start_ind - local inventory_max = windower.ffxi.get_bag_info(0).max - if start_bag ~= 0 and self[0]._info.n < inventory_max then - start_ind = self[start_bag][start_ind]:move(0,0x52,count) - elseif start_bag ~= 0 and self[0]._info.n >= inventory_max then - success = false - org_warning('Cannot move more than '..inventory_max..' items into inventory') - end - - local destination_enabled = windower.ffxi.get_bag_info(end_bag).enabled - local destination_max = windower.ffxi.get_bag_info(end_bag).max - - if not destination_enabled then - success = false - org_warning('Cannot move to '..tostring(end_bag)..' because it is disabled') - elseif start_ind and end_bag ~= 0 and self[end_bag]._info.n < destination_max then - self[0][start_ind]:transfer(end_bag,count) - elseif not start_ind then - success = false - org_warning('Initial movement of the route failed. ('..tostring(start_bag)..' '..tostring(initial_ind)..' '..tostring(start_ind)..' '..tostring(end_bag)..')') - elseif self[end_bag]._info.n >= destination_max then - success = false - org_warning('Cannot move more than '..destination_max..' items into that inventory ('..end_bag..')') - end - return success -end - -function items:it() - local i = 0 - local bag_priority_list = {} - for i,v in pairs(settings.bag_priority) do - bag_priority_list[v] = i - end - return function () - while i < #bag_priority_list do - i = i + 1 - local id = s_to_bag(bag_priority_list[i]) - if not id then - org_error('The bag name ("'..tostring(bag_priority_list[i])..'") with priority '..tostring(i)..' in the ../addons/organizer/data/settings.xml file is not valid.\nValid options are '..tostring(res.bags)) - end - if self[id] and validate_bag(res.bags[id]) then - return id, self[id] - end - end - end - -end - -function bags:new(id,count,ext,augments,status,index) - local max_size = windower.ffxi.get_bag_info(self._info.bag_id).max - if self._info.n >= max_size then org_warning('Attempting to add another item to a full bag') return end - if index and table.with(self,'index',index) then org_warning('Cannot assign the same index twice') return end - self._info.n = self._info.n + 1 - index = index or self:first_empty() - status = status or 0 - augments = augments or ext and id and extdata.decode({id=id,extdata=ext}).augments - if augments then augments = table.filter(augments,-functions.equals('none')) end - self[index] = setmetatable({_parent=self,id=id,count=count,extdata=ext,index=index,status=status, - name=res.items[id][_global.language]:lower(),log_name=res.items[id][_global.language_log]:lower(),augments=augments}, - {__index = function (t, k) - if not t or not k then print('table index is nil error',t,k) end - if rawget(t,k) then - return rawget(t,k) - else - return rawget(item_tab,k) - end - end}) - return index -end - -function bags:it() - local max = windower.ffxi.get_bag_info(self._info.bag_id).max - local i = 0 - return function () - while i < max do - i = i + 1 - if self[i] then return i, self[i] end - end - end -end - -function bags:first_empty() - local max = windower.ffxi.get_bag_info(self._info.bag_id).max - for i=1,max do - if not self[i] then return i end - end -end - -function bags:remove(index) - if not rawget(self,index) then org_warning('Attempting to remove an index that does not exist') return end - self._info.n = self._info.n - 1 - rawset(self,index,nil) -end - -function bags:find_all_instances(item,bool,first) - local instances = L{} - for i,v in self:it() do - org_debug("find_all", "find_all_instances: slot="..i.." v="..res.items[v.id].english.." item="..res.items[item.id].english.." ") - if (bool or not v:annihilated()) and v.id == item.id then -- and v.count >= item.count then - if not item.augments or table.length(item.augments) == 0 or v.augments and extdata.compare_augments(item.augments,v.augments) then - -- May have to do a higher level comparison here for extdata. - -- If someone exports an enchanted item when the timer is - -- counting down then this function will return false for it. - instances:append(i) - if first then - return instances - end - end - end - end - if instances.n ~= 0 then - return instances - else - return false - end -end - -function bags:contains(item,bool) - bool = bool or false -- Default to only looking at unannihilated items - org_debug("contains", "contains: searching for "..res.items[item.id].english.." in "..self._info.bag_id) - local instances = self:find_all_instances(item,bool,true) - if instances then - return instances:it()() - end - return false -end - -function bags:find_unfinished_stack(item,bool) - local tab = self:find_all_instances(item,bool,false) - if tab then - for i in tab:it() do - if res.items[self[i].id] and res.items[self[i].id].stack > self[i].count then - return i - end - end - end - return false -end - -function item_tab:transfer(dest_bag,count) - -- Transfer an item to a specific bag. - if not dest_bag then org_warning('Destination bag is invalid.') return false end - count = count or self.count - local parent = self._parent - local targ_inv = parent._parent[dest_bag] - - local parent_bag_id = parent._info.bag_id - local target_bag_id = targ_inv._info.bag_id - - if not (target_bag_id == 0 or parent_bag_id == 0) then - org_warning('Cannot move between two bags that are not inventory bags.') - else - while parent[self.index] and targ_inv:find_unfinished_stack(parent[self.index]) do - org_debug("stacks", "Moving ("..res.items[self.id].english..') from '..res.bags[parent_bag_id].en..' to '..res.bags[target_bag_id].en..'') - local rv = parent[self.index]:move(dest_bag,targ_inv:find_unfinished_stack(parent[self.index]),count) - if not rv then - org_debug("stacks", "FAILED moving ("..res.items[self.id].english..') from '..res.bags[parent_bag_id].en..' to '..res.bags[target_bag_id].en..'') - break - end - end - if parent[self.index] then - parent[self.index]:move(dest_bag) - end - return true - end - return false -end - -function item_tab:move(dest_bag,dest_slot,count) - if not dest_bag then org_warning('Destination bag is invalid.') return false end - count = count or self.count - local parent = self._parent - local targ_inv = parent._parent[dest_bag] - dest_slot = dest_slot or 0x52 - - local parent_bag_id = parent._info.bag_id - local parent_bag_name = res.bags[parent_bag_id].en:lower() - - local target_bag_id = targ_inv._info.bag_id - - org_debug("move", "move(): Item: "..res.items[self.id].english) - org_debug("move", "move(): Parent bag: "..parent_bag_id) - org_debug("move", "move(): Target bag: "..target_bag_id) - - -- issues with bazaared items makes me think we shouldn't screw with status'd items at all - if(self.status > 0) then - if(self.status == 5) then - org_verbose('Skipping item: ('..res.items[self.id].english..') because it is currently equipped.') - return false - elseif(self.status == 19) then - org_verbose('Skipping item: ('..res.items[self.id].english..') because it is an equipped linkshell.') - return false - elseif(self.status == 25) then - org_verbose('Skipping item: ('..res.items[self.id].english..') because it is in your bazaar.') - return false - end - end - - -- check the 'retain' lists - if((parent_bag_id == 0) and _retain[self.id]) then - org_verbose('Skipping item: ('..res.items[self.id].english..') because it is set to be retained ('.._retain[self.id]..')') - return false - end - - if((parent_bag_id == 0) and settings.retain and settings.retain.items) then - local cat = res.items[self.id].category - if(cat ~= 'Weapon' and cat ~= 'Armor') then - org_verbose('Skipping item: ('..res.items[self.id].english..') because non-equipment is set be retained') - return false - end - end - - -- respect the ignore list - if(_ignore_list[parent_bag_name] and _ignore_list[parent_bag_name][res.items[self.id].english]) then - org_verbose('Skipping item: ('..res.items[self.id].english..') because it is on the ignore list') - return false - end - - -- Make sure the source can be pulled from - if not _valid_pull[parent_bag_id] then - org_verbose('Skipping item: ('..res.items[self.id].english..') - can not be pulled from '..res.bags[parent_bag_id].en..') ') - return false - end - - -- Make sure the target can be pushed to - if not _valid_dump[target_bag_id] then - org_verbose('Skipping item: ('..res.items[self.id].english..') - can not be pushed to '..res.bags[target_bag_id].en..') ') - return false - end - - if not self:annihilated() and - (not dest_slot or not targ_inv[dest_slot] or (targ_inv[dest_slot] and res.items[targ_inv[dest_slot].id].stack < targ_inv[dest_slot].count + count)) and - (targ_inv._info.bag_id == 0 or parent._info.bag_id == 0) and - wardrobecheck(targ_inv._info.bag_id,self.id) and - self:free() then - windower.packets.inject_outgoing(0x29,string.char(0x29,6,0,0)..'I':pack(count)..string.char(parent._info.bag_id,dest_bag,self.index,dest_slot)) - org_verbose('Moving item! ('..res.items[self.id].english..') from '..res.bags[parent._info.bag_id].en..' '..parent._info.n..' to '..res.bags[dest_bag].en..' '..targ_inv._info.n..')') - local new_index = targ_inv:new(self.id, count, self.extdata, self.augments) - --print(parent._info.bag_id,dest_bag,self.index,new_index) - parent:remove(self.index) - return new_index - elseif not dest_slot then - org_warning('Cannot move the item ('..res.items[self.id].english..'). Target inventory is full ('..res.bags[dest_bag].en..')') - elseif targ_inv[dest_slot] and res.items[targ_inv[dest_slot].id].stack < targ_inv[dest_slot].count + count then - org_warning('Cannot move the item ('..res.items[self.id].english..'). Target inventory slot would be overly full ('..(targ_inv[dest_slot].count + count)..' items in '..res.bags[dest_bag].en..')') - elseif (targ_inv._info.bag_id ~= 0 and parent._info.bag_id ~= 0) then - org_warning('Cannot move the item ('..res.items[self.id].english..'). Attempting to move from a non-inventory to a non-inventory bag ('..res.bags[parent._info.bag_id].en..' '..res.bags[dest_bag].en..')') - elseif self:annihilated() then - org_warning('Cannot move the item ('..res.items[self.id].english..'). It has already been moved.') - elseif not wardrobecheck(targ_inv._info.bag_id,self.id) then - org_warning('Cannot move the item ('..res.items[self.id].english..') to the wardrobe. Wardrobe cannot hold an item of its type ('..tostring(res.items[self.id].type)..').') - elseif not self:free() then - org_warning('Cannot free the item ('..res.items[self.id].english..'). It has an unaddressable item status ('..tostring(self.status)..').') - end - return false -end - -function item_tab:put_away(usable_bags) - org_debug("move", "Putting away "..res.items[self.id].english) - local current_items = self._parent._parent - usable_bags = usable_bags or _static.usable_bags - local bag_free - for _,v in ipairs(usable_bags) do - local bag_max = windower.ffxi.get_bag_info(v).max - if current_items[v]._info.n < bag_max and wardrobecheck(v,self.id) then - bag_free = v - break - end - end - if bag_free then - self:transfer(bag_free,self.count) - end -end - -function item_tab:free() - if self.status == 5 then - local eq = windower.ffxi.get_items().equipment - for _,v in pairs(res.slots) do - local ind_name = v.english:lower():gsub(' ','_') - local bag_name = ind_name..'_bag' - local ind, bag = eq[ind_name],eq[bag_name] - if self.index == ind and self._parent._info.bag_id == bag then - windower.packets.inject_outgoing(0x50,string.char(0x50,0x04,0,0,self._parent._info.bag_id,v.id,0,0)) - break - end - end - elseif self.status ~= 0 then - return false - end - return true -end - -function item_tab:annihilate(count) - count = count or rawget(item_tab,'count') - local a_count = (rawget(item_tab,'a_count') or 0) + count - if a_count >count then - org_warning('Moving more of an item ('..item_tab.id..' : '..a_count..') than possible ('..count..'.') - end - rawset(self,'a_count',a_count) -end - -function item_tab:annihilated() - return ( (rawget(self,'a_count') or 0) >= rawget(self,'count') ) -end - -function item_tab:available_amount() - return ( rawget(self,'count') - (rawget(self,'a_count') or 0) ) -end - -return Items |