Addons
/
lotomatic
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

Initial code commit.

master
atom0s 8 years ago
parent
45e1d456b2
commit
9fcac8e6ea
2 changed files with 421 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 284
      lotomatic.lua
  2. 137
      profiles.lua

284
lotomatic.lua
Unescape View File

@ -0,0 +1,284 @@ @@ -0,0 +1,284 @@
--[[
* Ashita - Copyright (c) 2014 - 2016 atom0s [atom0s@live.com]
*
* This work is licensed under the Creative Commons Attribution-NonCommercial-NoDerivatives 4.0 International License.
* To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-nd/4.0/ or send a letter to
* Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.
*
* By using Ashita, you agree to the above license and its terms.
*
* Attribution - You must give appropriate credit, provide a link to the license and indicate if changes were
* made. You must do so in any reasonable manner, but not in any way that suggests the licensor
* endorses you or your use.
*
* Non-Commercial - You may not use the material (Ashita) for commercial purposes.
*
* No-Derivatives - If you remix, transform, or build upon the material (Ashita), you may not distribute the
* modified material. You are, however, allowed to submit the modified works back to the original
* Ashita project in attempt to have it added to the original project.
*
* You may not apply legal terms or technological measures that legally restrict others
* from doing anything the license permits.
*
* No warranties are given.
]]--
_addon.author = 'atom0s';
_addon.name = 'lotomatic';
_addon.version = '3.0.0';
require 'common'
require 'profiles'
---------------------------------------------------------------------------------------------------
-- desc: Main Lotomatic table.
---------------------------------------------------------------------------------------------------
local Lotomatic =
{
-- Main enabled flag..
enabled = false,
-- Debug mode..
debug_mode = false,
-- Force-modes..
loot_all = false,
pass_all = false,
-- Auto sorting..
auto_sort = true,
last_sort = os.clock(),
-- Default rules..
rules = { loot = { }, pass = { } }
};
---------------------------------------------------------------------------------------------------
-- func: bool_to_string
-- desc: Converts a boolean to an enabled/disabled string.
---------------------------------------------------------------------------------------------------
local function bool_to_string(b)
if (b == true or b == 1 or b == 'true') then
return 'Enabled';
else
return 'Disabled';
end
end
---------------------------------------------------------------------------------------------------
-- func: load
-- desc: First called when our addon is loaded.
---------------------------------------------------------------------------------------------------
ashita.register_event('load', function()
end );
---------------------------------------------------------------------------------------------------
-- func: Command
-- desc: Called when our addon receives a command.
---------------------------------------------------------------------------------------------------
ashita.register_event('command', function(cmd, nType)
-- Ensure we should handle this command..
local args = cmd:args();
if (#args <= 1 or args[1] ~= '/lotomatic') then
return false;
end
-- User wants to enable or disable Lotomatic..
if (#args >= 2 and args[2] == 'on' or args[2] == 'off') then
if (args[2] == 'on') then
Lotomatic.enabled = true;
else
Lotomatic.enabled = false;
end
print(string.format('[Lotomatic] Lotomatic is now: %s', bool_to_string(Lotomatic.enabled)));
end
-- User wants to turn on or off loot-all mode..
if (#args >= 2 and args[2] == 'lootall') then
if (#args >= 3) then
Lotomatic.loot_all = (args[3] == 'true' or args[3] == '1');
else
Lotomatic.loot_all = not Lotomatic.loot_all;
end
-- Disable passall mode..
if (Lotomatic.loot_all == true) then
Lotomatic.pass_all = false;
end
print(string.format('[Lotomatic] Loot-all is now: %s', bool_to_string(Lotomatic.loot_all)));
return true;
end
-- User wants to turn on or off pass-all mode..
if (#args >= 2 and args[2] == 'passall') then
if (#args >= 3) then
Lotomatic.pass_all = (args[3] == 'true' or args[3] == '1');
else
Lotomatic.pass_all = not Lotomatic.pass_all;
end
-- Disable loot_all mode..
if (Lotomatic.pass_all == true) then
Lotomatic.loot_all = false;
end
print(string.format('[Lotomatic] Pass-all is now: %s', bool_to_string(Lotomatic.pass_all)));
return true;
end
-- User wants to turn on or off auto-sorting..
if (#args >= 2 and args[2] == 'sort') then
if (#args >= 3) then
Lotomatic.auto_sort = (args[3] == 'true' or args[3] == '1');
else
Lotomatic.auto_sort = not Lotomatic.auto_sort;
end
print(string.format('[Lotomatic] Auto-sorting is now: %s', bool_to_string(Lotomatic.auto_sort)));
return true;
end
-- User wants to loot all items currently in the pool..
if (#args >= 2 and args[2] == 'loot') then
for x = 0, 9 do
local lootItem = struct.pack("bbbbbbb", 0x41, 0x04, 0x00, 0x00, x, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x41, lootItem);
end
return true;
end
-- User wants to pass all items currently in the pool..
if (#args >= 2 and args[2] == 'pass') then
for x = 0, 9 do
local passItem = struct.pack("bbbbbbb", 0x42, 0x04, 0x00, 0x00, x, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x42, passItem);
end
return true;
end
-- User wants to load a profile..
if (#args >= 3 and args[2] == 'profile') then
if (args[3] == nil or #args[3] == 0) then
print('[Lotomatic] Invalid profile name given.');
return true;
end
-- Ensure the profile exists..
if (not ashita.file.file_exists(_addon.path .. '\\profiles\\' .. args[3] .. '.xml')) then
print('[Lotomatic] Invalid profile name given. File not found!');
return true;
end
-- Attempt to load the profile..
local ret, rules = load_profile(_addon.path .. '\\profiles\\' .. args[3] .. '.xml');
if (ret == true) then
print(string.format('[Lotomatic] Loaded profile: \'%s\'!', args[3]));
else
print(string.format('[Lotomatic] Failed to load profile: \'%s\'!', args[3]));
end
Lotomatic.rules = rules;
return true;
end
-- User wants to enable or disable debug mode..
if (#args >= 2 and args[2] == 'debug' or args[2] == 'verbose') then
Lotomatic.debug_mode = not Lotomatic.debug_mode;
print(string.format('[Lotomatic] Debug mode is now: %s', bool_to_string(Lotomatic.debug_mode)));
return true;
end
return true;
end );
---------------------------------------------------------------------------------------------------
-- func: incoming_packet
-- desc: Called when our addon receives an incoming packet.
---------------------------------------------------------------------------------------------------
ashita.register_event('incoming_packet', function(id, size, packet)
-- Do nothing if we are not enabled..
if (Lotomatic.enabled == false) then
return false;
end
-----------------------------------------------------------------------------------------------
-- Handles incoming treasure pool packets.
-- 0x10 = item id
-- 0x14 = item slot
-----------------------------------------------------------------------------------------------
if (id == 0x00D2) then
local itemId = struct.unpack('h', packet, 0x10 + 1);
local itemSlot = struct.unpack('b', packet, 0x14 + 1);
-- Debug mode print-out..
if (Lotomatic.debug_mode == true) then
print(string.format('[Lotomatic] Incoming treasure packet, slot: %02d -- item: %d', itemSlot, itemId));
end
-- Do we want to auto-loot everything..
if (Lotomatic.loot_all == true) then
local lootItem = struct.pack("bbbbbbb", 0x41, 0x04, 0x00, 0x00, itemSlot, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x41, lootItem);
return false;
end
-- Do we want to auto-pass everything..
if (Lotomatic.pass_all == true) then
local passItem = struct.pack("bbbbbbb", 0x42, 0x04, 0x00, 0x00, itemSlot, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x42, passItem);
return false;
end
-- Attempt to find a rule for this item..
for k, v in pairs(Lotomatic.rules.loot) do
if (v == itemId) then
local lootItem = struct.pack("bbbbbbb", 0x41, 0x04, 0x00, 0x00, itemSlot, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x41, lootItem);
if (Lotomatic.debug_mode == true) then
print(string.format('[Lotomatic] Attempted to loot item: %d', itemId));
end
return false;
end
end
for k, v in pairs(Lotomatic.rules.pass) do
if (v == itemId) then
local passItem = struct.pack("bbbbbbb", 0x42, 0x04, 0x00, 0x00, itemSlot, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x42, passItem);
if (Lotomatic.debug_mode == true) then
print(string.format('[Lotomatic] Attempted to pass item: %d', itemId));
end
return false;
end
end
-- Debug print if no rule was found..
if (Lotomatic.debug_mode == true) then
print(string.format('[Lotomatic] No rule found for slot: %02d -- item: %d', itemSlot, itemId));
end
return false;
end
-----------------------------------------------------------------------------------------------
-- Handles sending the auto-sort packet on desired packets..
-- Note: This is DSP friendly. It is only sent every 5 seconds, and only if one of the below
-- packets were obtained. This can almost never trigger if you are doing nothing. :)
--
-- 29 = Inventory finish downloading / update.
-- 30 = Inventory modified.
-- 31 = Inventory assigned.
-- 32 = Inventroy update.
-----------------------------------------------------------------------------------------------
if ((Lotomatic.auto_sort == true) and id == 29 or id == 30 or id == 31 or id == 32) then
if (Lotomatic.last_sort <= (os.clock() - 8)) then
-- Send the auto-sort packet..
local autosort = struct.pack("bbbbbbb", 0x3A, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00):totable();
AddOutgoingPacket(0x3A, autosort);
-- Store the current time..
Lotomatic.last_sort = os.clock();
-- Debug mode print-out..
if (Lotomatic.debug_mode == true) then
print('[Lotomatic] Sent auto-sort packet.');
end
end
end
return false;
end );

137
profiles.lua
Unescape View File

@ -0,0 +1,137 @@ @@ -0,0 +1,137 @@
--[[
*
* Copyright (c) 2011-2014 - Ashita Development Team
*
* Ashita is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* Ashita is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with Ashita. If not, see <http://www.gnu.org/licenses/>.
*
]]--
require 'common'
---------------------------------------------------------------------------------------------------
-- func: split_items
-- desc: Splits a comma separated list of items into a table.
---------------------------------------------------------------------------------------------------
function split_items(ids)
local t = { };
for token in ids:gmatch('[%d]+') do
table.insert(t, token);
end
return t;
end
---------------------------------------------------------------------------------------------------
-- func: skip_entry
-- desc: Skips a line based on known patterns.
---------------------------------------------------------------------------------------------------
function skip_entry(line)
if (#line == 0 or line:find('<%?xml') ~= nil) then
return true;
end
if (line:contains('<Lotomatic>') or line:contains('</Lotomatic>')) then
return true;
end
if (line:startswith('<!--') and line:endswith('-->')) then
return true;
end
if (not line:startswith('<itementry ') and line:endswith('-->')) then
return true;
end
return false;
end
---------------------------------------------------------------------------------------------------
-- func: is_comment
-- desc: Determines if we are currently in an XML comment.
---------------------------------------------------------------------------------------------------
function is_comment(line, incomment)
-- Find the first comment starter..
local start = line:find('<!%-%-');
if (start == nil) then
if (incomment == true) then
-- If we are in a comment, try to find and ender..
if (line:find('%-%->') ~= nil) then
return false;
end
-- we are still in a comment..
return true;
end
return false;
end
-- Find the last occurrence of a comment starting..
while (true) do
local n = line:find('<!%-%-', start + 1);
if (n ~= nil) then
start = n;
else
break;
end
end
-- Next see if we have a comment end after this start..
if (line:find('%-%->', start) ~= nil) then
return false;
end
return true;
end
---------------------------------------------------------------------------------------------------
-- func: load_profile
-- desc: Loads a Lotomatic profile.
---------------------------------------------------------------------------------------------------
function load_profile(path)
local rules = { loot = { }, pass = { } };
-- Attemp to load the profile..
local f = io.open(path, 'r');
if (f == nil) then
return false, rules;
end
-- Attempt to parse the profile line by line..
local line = f:read();
local incomment = false;
while (line ~= nil) do
-- Cleanup the line..
line = line:trim():gsub('\t', '');
-- Determine if this should be skipped..
local skip = skip_entry(line);
incomment = is_comment(line, incomment);
if (not skip and not incomment) then
-- Attempt to parse the ids and rules..
local itemIds = line:match('id="([%d+,]+)"');
local itemRule = line:match('rule="(%a+)"');
-- Split the ids and add to our loaded rules..
if (itemIds ~= nil and itemRule ~= nil) then
for k, v in pairs(split_items(itemIds)) do
if (itemRule == 'loot') then
table.insert(rules.loot, tonumber(v:trim()));
else
table.insert(rules.pass, tonumber(v:trim()));
end
end
end
end
-- Read the next line..
line = f:read();
end
-- Cleanup and return..
f:close();
return true, rules;
end
Write Preview
Loading…
Cancel
Save