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

Initial code commit.

master
atom0s 8 years ago
parent
dcd47d8850
commit
c70f83f988
3 changed files with 477 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
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 21
      bkutils.lua
  2. 319
      synplicity.lua
  3. 137
      tablesave.lua

21
bkutils.lua
Unescape View File

@ -0,0 +1,21 @@
C_LINEBREAK = string.char(0x07);
C_RESET = string.char(0x1E,0x01);
C_GREEN = string.char(0x1E,0x02);
C_BLUE = string.char(0x1E,0x03);
C_PURPLE = string.char(0x1E,0x05);
C_AQUA = string.char(0x1E,0x06);
C_PEACH = string.char(0x1E,0x07);
C_WHITE = string.char(0x1E,0x1A);
C_GRAY = string.char(0x1E,0x1B);
C_LILAC = string.char(0x1E,0x3A);
C_BLUEWHITE = string.char(0x1E,0x3C);
C_INVISIBLUE = string.char(0x1E,0x62);
C_RED = string.char(0x1E,0x69);
C_YELLOW = string.char(0x1E,0x6E);
C_ROYALBLUE = string.char(0x1E,0x71);
C_INVIS = string.char(0x1E,0x86);
C_GREENWHITE = string.char(0x1E,0x96);
C_SAGEGREEN = string.char(0x1E,0xA0);
C_ATOPEN = string.char(0xFF,0xEF,0x27);
C_ATCLOSE = string.char(0xFF,0xEF,0x28);
C_PROMPT = string.char(0x7F,0x31,0x01);

319
synplicity.lua
Unescape View File

@ -0,0 +1,319 @@
--[[
* 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 = 'bluekirby0';
_addon.name = 'synplicity';
_addon.version = '3.0.0';
require 'common'
require 'tablesave'
require 'bkutils'
local __debug = false;
local __savefile = "recipes.list"
-- tempstore layout: crystal,mats{1-8},results{1-4}
-- synthstore layout: index,tempstore{}
local synthstore = {};
local tempstore = {};
local temptier = 0;
local synthphase = 0;
local temp_index = 0;
-- invslots layout: slotid,qty
local invslots = {}
function debug_print(str)
if(__debug) then
print(C_AQUA .. "[DEBUG] " .. C_RESET .. str);
end
end;
function synth_print(str)
print(C_RED .. "[SYNTH] " .. C_RESET .. str);
end;
function debug_show_packet(packet)
if(__debug) then
local f = AshitaCore:GetFontManager():Get( '__debug1' );
local temp = " 0 1 2 3 4 5 6 7 8 9 A B C D E F\n";
local idx = 0;
for char in packet:gmatch('.') do
temp = temp .. string.format("%02X ",char:byte());
if (idx == 15) then
temp = temp .. '\n';
idx = 0;
else
idx = idx + 1;
end
end
f:SetText(temp);
end
end;
function item_name(id)
local res = AshitaCore:GetResourceManager();
if(__debug) then
return C_ATOPEN .. res:GetItemById(tonumber(id)).Name[0] .. C_ATCLOSE .. "(" .. C_BLUE .. id .. C_RESET .. ")";
else
return C_ATOPEN .. res:GetItemById(tonumber(id)).Name[0] .. C_ATCLOSE;
end
end;
function item_id(name)
return AshitaCore:GetResourceManager():GetItemByName(name).Id;
end;
function find_item_by_id(itemid)
local slot = -1;
local inv = AshitaCore:GetDataManager():GetInventory();
for idx=0,inv:GetContainerMax(0) do
local res = inv:GetItem(0,idx);
if(res == nil) then
break;
end
if(res.Id == itemid) then
slot = res.Index;
if(invslots[res.Index] == nil) then
invslots[res.Index] = 1;
else
invslots[res.Index] = invslots[res.Index] + 1;
end
if(inv:GetItem(0,idx).Count < invslots[res.Index]) then
slot = -1;
else
break;
end
end
end
return slot;
end;
ashita.register_event('load', function()
-- Create our font object..
if(__debug) then
local f = AshitaCore:GetFontManager():Create( '__debug1' );
f:SetBold( true );
f:SetFontFamily("Consolas");
f:SetFontHeight(14);
f:SetPositionX( 32 );
f:SetPositionY( 32 );
f:SetText( '' );
f:SetVisibility( true );
end
synthstore = table.load(__savefile);
end );
ashita.register_event('unload', function()
if(__debug) then
AshitaCore:GetFontManager():Delete( '__debug1' );
end
table.save(synthstore,__savefile);
end );
ashita.register_event('outgoing_packet', function(id, size, packet)
-- Capture outgoing synthesis packets
if (id == 0x96 and synthphase == 0) then
debug_show_packet(packet);
-- Store the list of ingredients
local newpacket = packet:totable();
temp_index = newpacket[0x04+1] + bit.lshift(newpacket[0x05+1],8);
local crystal = newpacket[0x06+1] + bit.lshift(newpacket[0x07+1],8);
local slot = newpacket[0x08+1];
local count = newpacket[0x09+1];
local mats = {0,0,0,0,0,0,0,0};
local slots = {};
if(crystal >= 4238) then
crystal = crystal - 142;
end
tempstore["crystal"] = crystal;
debug_print("Crystal: " .. item_name(crystal) .. " # of ingredients: " .. count);
local offset = 0x0A+1;
local slotoffset = 0x1A+1;
for idx=1,count do
mats[idx] = newpacket[offset] + bit.lshift(newpacket[offset+1],8);
slots[idx] = newpacket[slotoffset];
offset = offset + 2;
slotoffset = slotoffset + 1;
end
tempstore["mats"] = mats;
if(__debug) then
for idx=1,count do
debug_print("Material ID: " .. item_name(mats[idx]));
debug_print("Inventory Slot ID: " .. slots[idx]);
end
end
synthphase = 1;
end
return false;
end );
ashita.register_event('incoming_packet', function(id, size, packet)
-- if we are receiving a synth result packet
if (id == 0x6F and synthphase == 2) then
local newpacket = packet:totable();
local resultItem = newpacket[0x08+1] + bit.lshift(newpacket[0x09+1],8);
debug_print("Result Item: " .. item_name(resultItem));
tempstore["result"] = {0,0,0,0};
tempstore["result"][temptier] = resultItem;
if(synthstore[temp_index] == nil) then
synthstore[temp_index] = tempstore;
elseif(synthstore[temp_index]["result"][temptier] == nil) then
synthstore[temp_index]["result"][temptier] = tempstore["result"][temptier];
end
tempstore = {};
temp_index = 0;
synthphase = 0;
elseif(id == 0x30 and synthphase == 1) then
local newpacket = packet:totable();
local result = newpacket[0x0C+1];
if (result == 1) then
synth_print("Synthesis failed");
tempstore = {};
temp_index = 0;
synthphase = 0;
return false;
elseif(result == 0) then
result = result + 1;
end
synth_print("Result is tier " .. result);
temptier = result;
synthphase = 2;
end
return false;
end );
ashita.register_event('command', function(cmd, nType)
-- Ensure we should handle this command..
local args = cmd:args();
if (args[1] ~= '/syn') then
return false;
end
-- Ensure we have enough arguments..
if (#args < 2) then
return true;
end
if (args[2] == 'show') then
local index = 0;
local filter = "";
if(#args > 2) then
filter = table.concat(args, " ", 3,#args);
end
for k,val in pairs(synthstore) do
local concat = C_BLUE .. "Index: " .. C_RESET .. k .. C_BLUE .. " Crystal: " .. C_RESET .. item_name(val["crystal"]) .. C_LINEBREAK .. " Materials: ";
for i,v in ipairs(val["mats"]) do
if(v ~= 0) then
concat = concat .. " " .. item_name(v);
end
end
concat = concat .. C_LINEBREAK .. C_BLUE .. " Results:" .. C_RESET
for i,v in ipairs(val["result"]) do
if(v ~= 0) then
concat = concat .. C_YELLOW .. " Tier: " .. C_RESET .. i .. C_PURPLE .. " Item: " .. C_RESET .. item_name(v);
end
end
if(string.find(concat,filter)) then
synth_print(concat);
end
end
return true;
elseif (args[2] == 'do') then
if (args[3] == nil) then
return true;
end
local synth;
for k,v in pairs(synthstore) do
if(k == tonumber(args[3])) then
synth = synthstore[k];
break;
end
end
local domat = synth["mats"];
local count = 0;
for idx=1,8 do
if(domat[idx] == nil) then
domat[idx] = 0;
else
count = idx;
end
end
local matinv = {};
invslots = {};
for idx=1,8 do
if(domat[idx] == 0) then
matinv[idx] = 0;
else
local slot = find_item_by_id(domat[idx]);
if(slot ~= -1) then
matinv[idx] = slot;
else
synth_print("Missing item for synth: " .. item_name(domat[idx]));
return true;
end
end
if(__debug and (domat[idx] ~= 0)) then
debug_print("To Pack: " .. item_name(domat[idx]) .. " " .. matinv[idx]);
end
end
invslots = {};
local crystalinv = find_item_by_id(synth["crystal"]);
if(crystalinv == -1) then
synth_print("Missing crystal for synth: " .. item_name(synth["crystal"]));
return true;
end
-- Build and send crafting packet
local craft = struct.pack("bbbbhhbbhhhhhhhhbbbbbbbbbb", 0x96, 0x12, 0x00, 0x00, tonumber(args[3]),
synth["crystal"], crystalinv,count,domat[1],domat[2],domat[3],domat[4],domat[5],domat[6],domat[7],domat[8],
matinv[1],matinv[2],matinv[3],matinv[4],matinv[5],matinv[6],matinv[7],matinv[8],0x00,0x00):totable();
AddOutgoingPacket(0x96, craft);
return true;
end
return false;
end );

137
tablesave.lua
Unescape View File

@ -0,0 +1,137 @@
--[[
Save Table to File
Load Table from File
v 1.0
Lua 5.2 compatible
Only Saves Tables, Numbers and Strings
Insides Table References are saved
Does not save Userdata, Metatables, Functions and indices of these
----------------------------------------------------
table.save( table , filename )
on failure: returns an error msg
----------------------------------------------------
table.load( filename or stringtable )
Loads a table that has been saved via the table.save function
on success: returns a previously saved table
on failure: returns as second argument an error msg
----------------------------------------------------
Licensed under the same terms as Lua itself.
Original version from: http://lua-users.org/wiki/SaveTableToFile
]]--
do
-- declare local variables
--// exportstring( string )
--// returns a "Lua" portable version of the string
local function exportstring( s )
return string.format("%q", s)
end
--// The Save Function
function table.save( tbl,filename )
local charS,charE = " ","\n"
local file,err = io.open( filename, "wb" )
if err then return err end
-- initiate variables for save procedure
local tables,lookup = { tbl },{ [tbl] = 1 }
file:write( "return {"..charE )
for idx,t in ipairs( tables ) do
file:write( "-- Table: {"..idx.."}"..charE )
file:write( "{"..charE )
local thandled = {}
for i,v in ipairs( t ) do
thandled[i] = true
local stype = type( v )
-- only handle value
if stype == "table" then
if not lookup[v] then
table.insert( tables, v )
lookup[v] = #tables
end
file:write( charS.."{"..lookup[v].."},"..charE )
elseif stype == "string" then
file:write( charS..exportstring( v )..","..charE )
elseif stype == "number" then
file:write( charS..tostring( v )..","..charE )
end
end
for i,v in pairs( t ) do
-- escape handled values
if (not thandled[i]) then
local str = ""
local stype = type( i )
-- handle index
if stype == "table" then
if not lookup[i] then
table.insert( tables,i )
lookup[i] = #tables
end
str = charS.."[{"..lookup[i].."}]="
elseif stype == "string" then
str = charS.."["..exportstring( i ).."]="
elseif stype == "number" then
str = charS.."["..tostring( i ).."]="
end
if str ~= "" then
stype = type( v )
-- handle value
if stype == "table" then
if not lookup[v] then
table.insert( tables,v )
lookup[v] = #tables
end
file:write( str.."{"..lookup[v].."},"..charE )
elseif stype == "string" then
file:write( str..exportstring( v )..","..charE )
elseif stype == "number" then
file:write( str..tostring( v )..","..charE )
end
end
end
end
file:write( "},"..charE )
end
file:write( "}" )
file:close()
end
--// The Load Function
function table.load( sfile )
local ftables,err = loadfile( sfile )
if err then return {},err
elseif ftables == nil then return {} end
local tables = ftables()
for idx = 1,#tables do
local tolinki = {}
for i,v in pairs( tables[idx] ) do
if type( v ) == "table" then
tables[idx][i] = tables[v[1]]
end
if type( i ) == "table" and tables[i[1]] then
table.insert( tolinki,{ i,tables[i[1]] } )
end
end
-- link indices
for _,v in ipairs( tolinki ) do
tables[idx][v[2]],tables[idx][v[1]] = tables[idx][v[1]],nil
end
end
return tables[1]
end
-- close do
end
-- ChillCode
Write Preview
Loading…
Cancel
Save