summaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
authorHaru <haru@dotalux.com>2014-05-21 16:58:33 +0200
committerHaru <haru@dotalux.com>2014-05-31 03:00:53 +0200
commit09e774ed47bae57c70497294d8261e4917c57896 (patch)
tree52499617491625b506edf58290e6952b0b75ae0a /tools
parent5f0677d6557689e1d6dc9ab5da65a9e407e31b97 (diff)
downloadhercules-09e774ed47bae57c70497294d8261e4917c57896.tar.gz
hercules-09e774ed47bae57c70497294d8261e4917c57896.tar.bz2
hercules-09e774ed47bae57c70497294d8261e4917c57896.tar.xz
hercules-09e774ed47bae57c70497294d8261e4917c57896.zip
Added Dastgir's item_*.txt -> item_db.conf converter
- To be used in a follow-up commit. Signed-off-by: Haru <haru@dotalux.com>
Diffstat (limited to 'tools')
-rw-r--r--tools/item_merge.lua624
1 files changed, 624 insertions, 0 deletions
diff --git a/tools/item_merge.lua b/tools/item_merge.lua
new file mode 100644
index 000000000..eb9c3bf15
--- /dev/null
+++ b/tools/item_merge.lua
@@ -0,0 +1,624 @@
+-- Copyright (c) Hercules Dev Team, licensed under GNU GPL.
+-- See the LICENSE file
+-- Base Author: Dastgir @ http://hercules.ws
+--
+-- This script requires lua 5.1 to run.
+
+getmetatable('').__call = string.sub
+require('math')
+
+--Bit Operators
+local tab = { -- tab[i][j] = xor(i-1, j-1)
+ {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, },
+ {1, 0, 3, 2, 5, 4, 7, 6, 9, 8, 11, 10, 13, 12, 15, 14, },
+ {2, 3, 0, 1, 6, 7, 4, 5, 10, 11, 8, 9, 14, 15, 12, 13, },
+ {3, 2, 1, 0, 7, 6, 5, 4, 11, 10, 9, 8, 15, 14, 13, 12, },
+ {4, 5, 6, 7, 0, 1, 2, 3, 12, 13, 14, 15, 8, 9, 10, 11, },
+ {5, 4, 7, 6, 1, 0, 3, 2, 13, 12, 15, 14, 9, 8, 11, 10, },
+ {6, 7, 4, 5, 2, 3, 0, 1, 14, 15, 12, 13, 10, 11, 8, 9, },
+ {7, 6, 5, 4, 3, 2, 1, 0, 15, 14, 13, 12, 11, 10, 9, 8, },
+ {8, 9, 10, 11, 12, 13, 14, 15, 0, 1, 2, 3, 4, 5, 6, 7, },
+ {9, 8, 11, 10, 13, 12, 15, 14, 1, 0, 3, 2, 5, 4, 7, 6, },
+ {10, 11, 8, 9, 14, 15, 12, 13, 2, 3, 0, 1, 6, 7, 4, 5, },
+ {11, 10, 9, 8, 15, 14, 13, 12, 3, 2, 1, 0, 7, 6, 5, 4, },
+ {12, 13, 14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 0, 1, 2, 3, },
+ {13, 12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 0, 3, 2, },
+ {14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 0, 1, },
+ {15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, },
+}
+function bxor (a,b)
+ local res, c = 0, 1
+ while a > 0 and b > 0 do
+ local a2, b2 = math.mod(a, 16), math.mod(b, 16)
+ res = res + tab[a2+1][b2+1]*c
+ a = (a-a2)/16
+ b = (b-b2)/16
+ c = c*16
+ end
+ res = res + a*c + b*c
+ return res
+end
+local ff = 2^32 - 1
+function bnot (a) return (ff - a) end
+function band (a,b) return ((a+b) - bxor(a,b))/2 end
+function bor (a,b) return (ff - band(ff - a, ff - b)) end
+
+print("-----------------------------------------------------------------")
+print("----------------- item_*.txt to ItemDB.conf --------------------")
+print("------------------- By Dastgir[Hercules] ------------------------")
+print("-----------------------------------------------------------------")
+if (
+ arg[1]==nil
+ or arg[2]==nil
+ or arg[3]==nil
+ or arg[4]==nil
+ or arg[5]==nil
+ or arg[6]==nil
+ or arg[7]==nil
+ or arg[8]==nil
+ --or arg[9]==nil
+ ) then --If any argument is missing, error
+ print("Invalid Command:")
+ print('Usage: item_merge.lua'
+ ..' {item_db.conf}'
+ ..' {item_trade.txt}'
+ ..' {item_buyingstore.txt}'
+ ..' {item_delay.txt}'
+ ..' {item_nouse.txt}'
+ ..' {item_stack.txt}'
+ ..' {item_avail.txt}'
+ ..' {output.conf}'
+ --..' {sql_update_file.sql}'
+ )
+ os.exit()
+end
+
+function replace_char(pos, str, r)
+ return str:sub(1, pos-1) .. r .. str:sub(pos+1)
+end
+function ltrim(trb)
+ return (trb:gsub("^%s*", ""))
+end
+
+function file_exists(name)
+ local f=io.open(name,"r")
+ if f~=nil then io.close(f) return true else return false end
+end
+
+function d_t_s_quotes(s) --Double Quotes to Single Quotes and Comment Replacer
+ s = s:gsub('\\\\',"\\")
+ --Replace Lua Comments to C Style
+ s = s:gsub('%-%-%[%[', '/%*')
+ s = s:gsub("%-%-%]%]", '%*/')
+ local newline = ParseCSVLine(s,"\n")
+ if (#newline==0) then
+ newline[1] = s
+ end
+ for i=1,#newline do
+ if(string.sub(ltrim(newline[i]),1,2)=="--") then
+ newline[i] = newline[i]:gsub("%-%-", '//', 1)
+ end
+ end
+ s = MergeCSVLine(newline)
+ return s
+end
+
+function st_fill_zero(s) --Fill remaining zero in Job Field of item_db
+ zeros = ""
+ if (s:len()>=8) then
+ return s
+ else
+ for i=1,(8-s:len()) do
+ zeros = zeros.."0"
+ end
+ zeros = zeros..""..s
+ end
+ --print(s:len(),zeros)
+ return zeros
+end
+
+function newline(s,a) --Add Newline to Scripts Field
+ if ((#(ParseCSVLine(s,"\n"))) > 1) then
+ if(a==1) then
+ return "\n"
+ else
+ return "\n\t"
+ end
+ else
+ return ""
+ end
+end
+
+function MergeCSVLine(linetbl)
+ local merged_tbl = ""
+ for j=1,#linetbl do
+ if (j==#linetbl) then
+ merged_tbl = merged_tbl..linetbl[j]
+ else
+ merged_tbl = merged_tbl..linetbl[j].."\n"
+ end
+ end
+ return merged_tbl
+end
+
+function ParseCSVLine (line,sep) --Parse CSV for itemdb_*.txt fields
+ local res = {}
+ local pos = 1
+ sep = sep or ','
+ while true do
+ local c = string.sub(line,pos,pos)
+ if (c == "") then break end
+ if (c == '"') then
+ local txt = ""
+ repeat
+ local startp,endp = string.find(line,'^%b""',pos)
+ txt = txt..string.sub(line,startp+1,endp-1)
+ pos = endp + 1
+ c = string.sub(line,pos,pos)
+ if (c == '"') then txt = txt..'"' end
+ until (c ~= '"')
+ table.insert(res,txt)
+ assert(c == sep or c == "")
+ pos = pos + 1
+ else
+ local startp,endp = string.find(line,sep,pos)
+ if (startp) then
+ table.insert(res,string.sub(line,pos,startp-1))
+ pos = endp + 1
+ else
+ table.insert(res,string.sub(line,pos))
+ break
+ end
+ end
+ end
+ return res
+end
+
+function deepcopy(orig) --Copy one table to other
+ local orig_type = type(orig)
+ local copy
+ if orig_type == 'table' then
+ copy = {}
+ for orig_key, orig_value in next, orig, nil do
+ copy[deepcopy(orig_key)] = deepcopy(orig_value)
+ end
+ setmetatable(copy, deepcopy(getmetatable(orig)))
+ else -- number, string, boolean, etc
+ copy = orig
+ end
+ return copy
+end
+
+function parse_line(line2,typl) --1=trade
+ line_number = line_number+1
+ csv = ParseCSVLine(line2,",")
+ csv1 = ParseCSVLine(csv[1],"\t")
+ csv2 = ParseCSVLine(csv[1]," ")
+ csv4 = tonumber(csv1[1])
+ if (csv4==nil) then
+ csv4 = csv2[1]
+ if (csv4 == nil) then
+ csv4 = csv[1]
+ end
+ end
+ k=tonumber(csv4)
+ if (typl==3) then
+ if (item_db2[k] ~= nil) then
+ item_db2[k].BuyingStore = true
+ --sql_update = sql_update.."UPDATE `item_db` SET `buyingstore` = 1 WHERE `id`="..csv4..";\n"
+ end
+ return
+ end
+ if (#csv<1) then
+ return
+ end
+ k=tonumber(csv4)
+ if (item_db2[k]~=nil) then
+ if(typl>1 and typl~=3 and typl~=4 and typl~=7) then
+ m=3
+ else
+ m=2
+ end
+ csv1 = ParseCSVLine(csv[m],"\t")
+ csv2 = ParseCSVLine(csv[m]," ")
+ csv3 = tonumber(csv1[1])
+ if (csv3==nil) then
+ csv3 = csv2[1]
+ if (csv3 == nil) then
+ csv3 = csv[m]
+ end
+ end
+ if (csv3==nil) then
+ print("Invalid format on "..arg[m]..", line:"..line_number..", Skipping.")
+ return
+ end
+ if (typl==2 and #csv==3) then
+ item_db2[k].trade_flag = tonumber(csv[2])
+ item_db2[k].trade_override = tonumber(csv3)
+ --sql_update = sql_update.."UPDATE `item_db` SET `trade_flag` = "..tonumber(csv[2]).." AND `trade_group` = "..tonumber(csv3).." WHERE `id`="..k..";\n"
+ --No 3, since its parsed differently.
+ elseif (typl==4 and #csv>=2) then
+ if (tonumber(csv3)~=nil) then
+ item_db2[k].Delay = tonumber(csv3)
+ --sql_update = sql_update.."UPDATE `item_db` SET `delay` = "..tonumber(csv3).." WHERE `id`="..k..";\n"
+ end
+ elseif (typl==5 and #csv==3) then
+ item_db2[k].nouse_flag = tonumber(csv[2])
+ item_db2[k].nouse_override = tonumber(csv3)
+ --sql_update = sql_update.."UPDATE `item_db` SET `nouse_flag` = "..tonumber(csv[2]).." and `nouse_group` = "..tonumber(csv3).." WHERE `id`="..k..";\n"
+ elseif (typl==6 and #csv==3) then
+ item_db2[k].Stack1 = tonumber(csv[2])
+ item_db2[k].Stack2 = tonumber(csv3)
+ --sql_update = sql_update.."UPDATE `item_db` SET `stack_amount` = "..tonumber(csv[2]).." and `stack_flag` = "..tonumber(csv3).." WHERE `id`="..k..";\n"
+ elseif (typl==7 and #csv==2) then
+ item_db2[k].Sprite = tonumber(csv3)
+ --sql_update = sql_update.."UPDATE `item_db` SET `avail` = "..tonumber(csv3).." WHERE `id`="..k..";\n"
+ else
+ print("Invalid format on "..arg[typl]..", line:"..line_number..", Skipping.")
+ --[[
+ --Debug Lines
+ print("Invalid CSV",#csv,typl)
+ for mo=1,#csv do
+ print("csv["..mo.."]",csv[mo])
+ end
+ os.exit()
+ --]]
+ end
+ t_l = 0
+ else
+ t_l = t_l+1
+ end
+
+ return
+end
+
+function check_val(field) --Check if field null
+ if (field == nil) then
+ return("")
+ end
+ return(field)
+end
+
+function check_val_bool(field) --Checks boolean value
+ if (field == false or field == "false") then
+ return "false"
+ elseif (field == true or field == "true") then
+ return "true"
+ end
+ return ""
+end
+
+function check_val_two(field) --Check [a, b] types of field
+ local field1,field2
+ field1 = ""
+ field2 = ""
+ if (field~=nil) then
+ if (#field==2) then
+ if (field[1][1] ~= nil and field[2] ~= nil) then
+ field1 = field[1][1]
+ field2 = field[2]
+ elseif (field[1][1] ~= nil and field[2] == nil) then
+ field1 = field[1][1]
+ else
+ field2 = field[2]
+ end
+ elseif(#field==1) then
+ field1 = field[1]
+ end
+ end
+ return field1, field2
+end
+
+
+function item_db_write(s) --Write into item_db
+ for i=1,1000000 do
+ if (t_l_l == 10000) then
+ break
+ end
+ if (s[i]==nil) then
+ t_l_l = t_l_l+1
+ else
+ t_l_l = 0
+
+ s[i].Atk = check_val(s[i].Atk)
+ s[i].Matk = check_val(s[i].Matk)
+ s[i].EquipLv = check_val(s[i].EquipLv)
+
+ if ((s[i].Atk == "" or s[i].Atk == 0) and (s[i].Matk == "" or s[i].Matk == 0)) then --Both Nil
+ s[i].at = ""
+ elseif (s[i].Atk ~= "" and (s[i].Matk == "" or s[i].Matk == 0)) then
+ s[i].at = s[i].Atk
+
+ elseif ((s[i].Atk == "" or s[i].Atk == 0) and s[i].Matk ~= "") then
+ s[i].at = "0:"..s[i].Matk
+ else
+ s[i].at = s[i].Atk..":"..s[i].Matk
+ end
+
+ s[i].Refine = check_val_bool(s[i].Refine)
+ s[i].BindOnEquip = check_val_bool(s[i].BindOnEquip)
+ s[i].BuyingStore = check_val_bool(s[i].BuyingStore)
+ s[i].Script = check_val(s[i].Script)
+ s[i].OnEquipScript = check_val(s[i].OnEquipScript)
+ s[i].OnUnequipScript = check_val(s[i].OnUnequipScript)
+ s[i].ELv1, s[i].ELv2 = check_val_two(s[i].EquipLv)
+ s[i].EquipMin = s[i].EquipLv[1] --Equip Min
+ s[i].EquipMax = s[i].EquipLv[2] --Equip Max
+ s[i].Script = d_t_s_quotes(s[i].Script)
+ s[i].OnEquipScript = d_t_s_quotes(s[i].OnEquipScript)
+ s[i].OnUnequipScript = d_t_s_quotes(s[i].OnUnequipScript)
+ file3:write("{\n")
+ --four Must fields to write.
+ file3:write("\tId: "..(s[i].Id).."\n")
+ file3:write("\tAegisName: \""..(s[i].AegisName).."\"\n")
+ file3:write("\tName: \""..(s[i].Name).."\"\n")
+ file3:write("\tType: "..(s[i].Type).."\n")
+ if (check_val(s[i].Buy)~="") then
+ file3:write("\tBuy: "..(s[i].Buy).."\n")
+ end
+ if (check_val(s[i].Sell)~="") then
+ file3:write("\tSell: "..(s[i].Sell).."\n")
+ end
+ if (check_val(s[i].Weight)~="") then
+ file3:write("\tWeight: "..(s[i].Weight).."\n")
+ end
+ if (s[i].Atk~="") then
+ file3:write("\tAtk: "..(s[i].Atk).."\n")
+ end
+ if (s[i].Matk~="") then
+ file3:write("\tMatk: "..(s[i].Matk).."\n")
+ end
+ if (check_val(s[i].Def)~="") then
+ file3:write("\tDef: "..(s[i].Def).."\n")
+ end
+ if (check_val(s[i].Range)~="") then
+ file3:write("\tRange: "..(s[i].Range).."\n")
+ end
+ if (check_val(s[i].Slots)~="") then
+ file3:write("\tSlots: "..(s[i].Slots).."\n")
+ end
+ if (check_val(s[i].Job)~="") then
+ file3:write("\tJob: 0x"..st_fill_zero(string.upper(string.format("%x",s[i].Job))).."\n") --Convert to Hex,Make it to UpperCase, Fill with zero's
+ end
+ if (check_val(s[i].Upper)~="") then
+ file3:write("\tUpper: "..(s[i].Upper).."\n")
+ end
+ if (check_val(s[i].Gender)~="") then
+ file3:write("\tGender: "..(s[i].Gender).."\n")
+ end
+ if (check_val(s[i].Loc)~="") then
+ file3:write("\tLoc: "..(s[i].Loc).."\n")
+ end
+ if (check_val(s[i].WeaponLv)~="") then
+ file3:write("\tWeaponLv: "..(s[i].WeaponLv).."\n")
+ end
+ if (s[i].ELv1~="" and s[i].ELv2~="" ) then --Both Not Empty
+ file3:write("\tEquipLv: ["..(s[i].ELv1)..", "..(s[i].ELv2).."]\n")
+ else
+ if(s[i].ELv1~="") then --First not empty
+ file3:write("\tEquipLv: "..(s[i].ELv1).."\n")
+ end
+ end
+ if (check_val(s[i].Refine)~="") then
+ file3:write("\tRefine: "..(s[i].Refine).."\n")
+ end
+ if (check_val(s[i].View)~="") then
+ file3:write("\tView: "..(s[i].View).."\n")
+ end
+ if (s[i].BindOnEquip~="") then
+ file3:write("\tBindOnEquip: "..(s[i].BindOnEquip).."\n")
+ end
+ if (s[i].BuyingStore~="") then
+ file3:write("\tBuyingStore: true\n")
+ end
+ if (check_val(s[i].Delay) ~= "") then
+ file3:write("\tDelay: "..(s[i].Delay).."\n")
+ end
+ if (check_val(s[i].trade_flag)~="" and check_val(s[i].trade_override)~="" ) then
+ file3:write("\tTrade: {\n")
+ if (s[i].trade_override > 0 and s[i].trade_override < 100) then
+ file3:write("\t\toverride: ".. s[i].trade_override .."\n")
+ end
+ if (band(s[i].trade_flag,1)>0) then
+ file3:write("\t\tnodrop: true\n")
+ end
+ if (band(s[i].trade_flag,2)>0) then
+ file3:write("\t\tnotrade: true\n")
+ end
+ if (band(s[i].trade_flag,4)>0) then
+ file3:write("\t\tpartneroverride: true\n")
+ end
+ if (band(s[i].trade_flag,8)>0) then
+ file3:write("\t\tnoselltonpc: true\n")
+ end
+ if (band(s[i].trade_flag,16)>0) then
+ file3:write("\t\tnocart: true\n")
+ end
+ if (band(s[i].trade_flag,32)>0) then
+ file3:write("\t\tnostorage: true\n")
+ end
+ if (band(s[i].trade_flag,64)>0) then
+ file3:write("\t\tnogstorage: true\n")
+ end
+ if (band(s[i].trade_flag,128)>0) then
+ file3:write("\t\tnomail: true\n")
+ end
+ if (band(s[i].trade_flag,256)>0) then
+ file3:write("\t\tnoauction: true\n")
+ end
+ file3:write("\t}\n")
+ end
+ if (check_val(s[i].nouse_flag)~="" and check_val(s[i].nouse_override)~="" ) then
+ file3:write("\tNouse: {\n")
+ if (tonumber(s[i].nouse_override) > 0 and tonumber(s[i].nouse_override) < 100) then
+ file3:write("\t\toverride: ".. s[i].nouse_override .."\n")
+ end
+ if (band(s[i].nouse_flag,1)>0) then
+ file3:write("\t\tsitting: true\n")
+ end
+ file3:write("\t}\n")
+ end
+ if check_val((s[i].Stack1)~="" and check_val(s[i].Stack2)~="" ) then
+ file3:write("\tStack: ["..(s[i].Stack1)..", "..(s[i].Stack2).."]\n")
+ end
+ if (check_val(s[i].Sprite)~="" ) then
+ file3:write("\tSprite: "..(s[i].Sprite).."\n")
+ end
+ if (s[i].Script ~= "") then
+ file3:write("\tScript: <\""..newline(s[i].Script,1)..""..s[i].Script.."\">\n")
+ end
+ if (s[i].OnEquipScript ~= "") then
+ file3:write("\tOnEquipScript: <\""..newline(s[i].OnEquipScript,1)..""..s[i].OnEquipScript.."\">\n")
+ end
+ if (s[i].OnUnequipScript ~= "") then
+ file3:write("\tOnUnequipScript: <\""..newline(s[i].OnUnequipScript,1)..""..s[i].OnUnequipScript.."\">\n")
+ end
+ file3:write("},\n")
+ end
+ end
+end
+
+for i=1,7 do
+ if (file_exists(arg[i])==false) then
+ print("Error: ",arg[i]," Not Found")
+ os.exit()
+ end
+end
+
+file = assert(io.open(arg[1])) --Open ItemDB And Read its contents
+contents = file:read'*a'
+file:close()
+
+--Replacing Contents
+find = { '\\', '\'', '//', '/%*', '%*/', '<\"', '\">', 'Id([^:]?):([^\n]+)', 'AegisName([^:]?):([^\n]+)', 'Name([^:]?):([^\n]+)', 'Type([^:]?):([^\n]+)', 'Buy([^:]?):([^\n]+)', 'Sell([^:]?):([^\n]+)', 'Weight([^:]?):([^\n]+)', 'Atk([^:]?):([^\n]+)', 'Matk([^:]?):([^\n]+)', 'Def([^:]?):([^\n]+)', 'Range([^:]?):([^\n]+)', 'Slots([^:]?):([^\n]+)', 'Job([^:]?):([^\n]+)', 'Upper([^:]?):([^\n]+)', 'Gender([^:]?):([^\n]+)', 'Loc([^:]?):([^\n]+)', 'WeaponLv([^:]?):([^\n]+)', 'EquipLv([^:]?):([^\n]+)', 'Refine([^:]?):([^\n]+)', 'View([^:]?):([^\n]+)', 'BindOnEquip([^:]?):([^\n]+)', "BuyingStore([^:]?):([^\n]+)", "Delay([^:]?):([^\n]+)", "Stack([^:]?): %[([^,]+), ([^]]+)%]", "Sprite([^:]?):([^\n]+)", 'override([^:]?):([^\n]+)', 'nodrop([^:]?):([^\n]+)', 'notrade([^:]?):([^\n]+)', 'partneroverride([^:]?):([^\n]+)', 'noselltonpc([^:]?):([^\n]+)', 'nocart([^:]?):([^\n]+)', 'nostorage([^:]?):([^\n]+)', 'nogstorage([^:]?):([^\n]+)', 'nomail([^:]?):([^\n]+)', 'noauction([^:]?):([^\n]+)', 'sitting([^:]?):([^\n]+)', 'Script([^:]?):', 'OnEquipScript([^:]?):', 'OnUnequipScript([^:]?):', 'EquipLv([^=]?)= %[([^,]+), ([^]]+)%],', 'EquipLv([^=]?)= ([^,]+),', 'item_db: %(', '= ""', '= \n', ',,'}
+replace = {'\\\\', '\\\'', '--', '--[[', '--]]', '[==[', ']==],', 'Id%1=%2,', 'AegisName%1=%2,', 'Name%1=%2,', 'Type%1=%2,', 'Buy%1=%2,', 'Sell%1=%2,', 'Weight%1=%2,', 'Atk%1=%2,', 'Matk%1=%2,', 'Def%1=%2,', 'Range%1=%2,', 'Slots%1=%2,', 'Job%1=%2,', 'Upper%1=%2,', 'Gender%1=%2,', 'Loc%1=%2,', 'WeaponLv%1=%2,', 'EquipLv%1=%2,', 'Refine%1=%2,', 'View%1=%2,', 'BindOnEquip%1=%2,', "BuyingStore%1=%2,", "Delay%1=%2,", "Stack%1= {%2, %3},", "Sprite%1=%2,", 'override%1=%2,', 'nodrop%1=%2,', 'notrade%1=%2,', 'partneroverride%1=%2,', 'noselltonpc%1=%2,', 'nocart%1=%2,', 'nostorage%1=%2,', 'nogstorage%1=%2,', 'nomail%1=%2,', 'noauction%1=%2,', 'sitting%1=%2,', 'Script%1=', 'OnEquipScript%1=', 'OnUnequipScript%1=', 'EquipLv%1= {%2, %3},', 'EquipLv%1= {%2},', 'item_db = {', '= "",', '= "",\n', ',' }
+findk=0
+
+if #find==#replace then --Check if both table matches
+ start_time = os.time()
+ print("-- Putting ",arg[1]," Items into Memory")
+ --Replace Every Strings
+ contents = contents:gsub("Nouse: {([^}]+)}","Nouse= {%1},") --It needs to be done first.
+ contents = contents:gsub("Trade: {([^}]+)}","Trade= {%1},") --It needs to be done first.
+ for i=1,#find do
+ contents = contents:gsub(find[i],replace[i])
+ end
+
+ --Check for last ) in item_db (it auto breaks if found, can have many empty lines on end)
+ for i=1,1000000 do
+ if (string.sub(contents,-i,-i) == ")") then
+ findk = 1
+ contents = replace_char(contents:len()-i+1,contents,'}')
+ end
+ if (findk==1) then break end
+ end
+else
+ print('Error, Cannot Convert to Lua(Code:1['..#find..' '..#replace..'])')
+ os.exit()
+end
+item_db = {} --Initialize Empty item_db table
+a = assert(loadstring(contents)) --Load the string as lua code
+a() --Execute it so it gets loaded into item_db table
+e_time = os.difftime((os.time())-start_time) --Time Taken
+print("---- Total Items Found"," = ",#item_db,"(".. e_time .."s)")
+csv = {}
+t_l_l = 0
+item_db2 = {}
+
+for i=1,#item_db do
+ item_db2[item_db[i].Id] = deepcopy(item_db[i])
+end
+
+
+--Initializing Global Tables
+csv = {}
+csv1 = {}
+csv2 = {}
+csv3 = ""
+csv4 = 0
+--sql_update = ""
+k=0
+line = ""
+
+--file4 = io.open(arg[9],"w")
+for m=2,7 do --arg[2] to arg[7] = item_*.txt
+ line_number = 0
+ sp_file = assert(io.open(arg[m]))
+ local t_l =0
+ for line in sp_file:lines() do
+ if ( line ~= "" and line:sub(1,2)~="//") then --If Line is comment or empty, don't parse it
+ parse_line(line,m)
+ end
+ end
+ print(arg[m],"Done")
+ sp_file:close()
+ --os.exit()
+end
+--file4:write(sql_update)
+--file4:close()
+print("-- Writing Item_DB")
+file3 = io.open(arg[8],"w") --Open Output File
+file3:write('item_db: (\n'
+ ..'// Items Database\n'
+ ..'//\n'
+ ..'/******************************************************************************\n'
+ ..' ************* Entry structure ************************************************\n'
+ ..' ******************************************************************************\n'
+ ..'{\n'
+ ..' // =================== Mandatory fields ===============================\n'
+ ..' Id: ID (int)\n'
+ ..' AegisName: "Aegis_Name" (string)\n'
+ ..' Name: "Item Name" (string)\n'
+ ..' // =================== Optional fields ================================\n'
+ ..' Type: Item Type (int, defaults to 3 = etc item)\n'
+ ..' Buy: Buy Price (int, defaults to Sell * 2)\n'
+ ..' Sell: Sell Price (int, defaults to Buy / 2)\n'
+ ..' Weight: Item Weight (int, defaults to 0)\n'
+ ..' Atk: Attack (int, defaults to 0)\n'
+ ..' Matk: Magical Attack (int, defaults to 0, ignored in pre-re)\n'
+ ..' Def: Defense (int, defaults to 0)\n'
+ ..' Range: Attack Range (int, defaults to 0)\n'
+ ..' Slots: Slots (int, defaults to 0)\n'
+ ..' Job: Job mask (int, defaults to all jobs = 0xFFFFFFFF)\n'
+ ..' Upper: Upper mask (int, defaults to any = 0x3f)\n'
+ ..' Gender: Gender (int, defaults to both = 2)\n'
+ ..' Loc: Equip location (int, required value for equipment)\n'
+ ..' WeaponLv: Weapon Level (int, defaults to 0)\n'
+ ..' EquipLv: Equip required level (int, defaults to 0)\n'
+ ..' EquipLv: [min, max] (alternative syntax with min / max level)\n'
+ ..' Refine: Refineable (boolean, defaults to true)\n'
+ ..' View: View ID (int, defaults to 0)\n'
+ ..' BindOnEquip: true/false (boolean, defaults to false)\n'
+ ..' BuyingStore: true/false (boolean, defaults to false)\n'
+ ..' Delay: Delay to use item (int, defaults to 0)\n'
+ ..' Trade: { (defaults to no restrictions)\n'
+ ..' override: GroupID (int, defaults to 100)\n'
+ ..' nodrop: true/false (boolean, defaults to false)\n'
+ ..' notrade: true/false (boolean, defaults to false)\n'
+ ..' partneroverride: true/false (boolean, defaults to false)\n'
+ ..' noselltonpc: true/false (boolean, defaults to false)\n'
+ ..' nocart: true/false (boolean, defaults to false)\n'
+ ..' nostorage: true/false (boolean, defaults to false)\n'
+ ..' nogstorage: true/false (boolean, defaults to false)\n'
+ ..' nomail: true/false (boolean, defaults to false)\n'
+ ..' noauction: true/false (boolean, defaults to false)\n'
+ ..' }\n'
+ ..' Nouse: { (defaults to no restrictions)\n'
+ ..' override: GroupID (int, defaults to 100)\n'
+ ..' sitting: true/false (boolean, defaults to false)\n'
+ ..' }\n'
+ ..' Stack: [amount, type] (int, defaults to 0)\n'
+ ..' Sprite: SpriteID (int, defaults to 0)\n'
+ ..' Script: <"\n'
+ ..' Script\n'
+ ..' (it can be multi-line)\n'
+ ..' ">\n'
+ ..' OnEquipScript: <" OnEquip Script (can also be multi-line) ">\n'
+ ..' OnUnequipScript: <" OnUnequip Script (can also be multi-line) ">\n'
+ ..'},\n'
+ ..'******************************************************************************/\n')
+
+item_db_write(item_db2)
+file3:write('\n)\n')
+file3:close() --Close Output File
+os.exit()