------------------------------------------------------------------
------------ Inventory script by Joni And Friends ----------------
------------------------------------------------------------------
------------------------------------------------------------------


function initArray(m)
     local array = {}
         for i = 1, m do
             array[i]=0
       end
     return array
end

c="\169"

inv_wpn=initArray(32)
inv_wpn_many=initArray(32)
inv_item=initArray(32)
inv_item_many=initArray(32)

max_inv=20 ----- maximum item on inventory

function inv_reset(id)
inv_wpn[id]={}
inv_wpn_many[id]={}
inv_item[id]={}
inv_item_many[id]={}
     for g=1,max_inv do
         inv_wpn[id][g]=0
         inv_wpn_many[id][g]=0
         inv_item[id][g]=0
         inv_item_many[id][g]=0
    end
end

moreitem={
       {name="food",
            effect=function(id)
            parse("sethealth "..id.." "..player(id,"health")+10)
end};
}

function wpn_refresh(id)
z={}
b={}
         for g=1,max_inv do
           if inv_wpn_many[id][g]>0 then
              z[g]=inv_wpn[id][g]
              b[g]=inv_wpn_many[id][g]
              inv_wpn[id][g]=0
              inv_wpn_many[id][g]=0
              set_wpn_inv(id,z[g],b[g])
          end
     end
end

function item_refresh(id)
z={}
b={}
        for g=1,max_inv do
           if inv_item_many[id][g]>0 then
              z[g]=inv_item[id][g]
              b[g]=inv_item_many[id][g]
              inv_item[id][g]=0
              inv_item_many[id][g]=0
              set_item_inv(id,z[g],b[g])
         end
     end
end

function InvMenu(id,page)
for g=1,max_inv do
         if inv_wpn_many[id][g]<1 then
            inv_wpn[id][g]=0
    end
         if inv_item_many[id][g]<1 then
            inv_item[id][g]=0
    end
end
item_refresh(id)
wpn_refresh(id)
local page=page or 1
local pages=math.ceil(max_inv/7)
      if page<1 then
         page=pages
   end
      if page>pages then
         page=1
   end
local m='Inventory | Page '..page
      for i=7*page-6, 7*page do
          if inv_wpn[id][i] and inv_wpn[id][i]>0 then
               m=m..','..itemtype(inv_wpn[id][i],'name')..'|'..inv_wpn_many[id][i]..' item(s)'
          elseif inv_item[id][i] and inv_item[id][i]>0  then
               m=m..','..moreitem[inv_item[id][i]].name..'|'..inv_item_many[id][i]..' item(s)'
          else
               m=m..','
        end
   end
          if page == pages then 
               m = m ..',First page|Page 1' 
          else 
               m = m ..',Next|Page '..(page+1)..'' 
      end
          if page == 1 then 
               m = m ..',Last page|Page '..pages..'' 
          else 
               m = m ..',Previous|Page '..(page-1)..'' 
     end
  menu(id, m)
end

function set_wpn_inv(id,a,b)
         for g=1,max_inv do
            if inv_wpn[id][g]<1 and inv_item[id][g]<1 then
               inv_wpn[id][g]=a
               inv_wpn_many[id][g]=b
           return 1
        end
            if inv_wpn[id][g]==a then
              inv_wpn_many[id][g]=inv_wpn_many[id][g]+b
           return 1
        end
     end
end

function set_item_inv(id,a,b)
         for g=1,max_inv do
            if inv_item[id][g]<1 and inv_wpn[id][g]<1 then
               inv_item[id][g]=a
               inv_item_many[id][g]=b
           return 1
        end
            if inv_item[id][g]==a then
              inv_item_many[id][g]=inv_item_many[id][g]+b
           return 1
        end
     end
end

addhook("join","_join")
function _join(id)
         inv_reset(id)
         user.load(id)
end
addhook("leave", "_leave")
function _leave(id)
  user.leave(id)
end
addhook("menu", "_menu")
function _menu(id, title, button)
     if title:sub(1,17)=="Inventory | Page " then
        local page=tonumber(title:sub(18))
          if button==8 then
        InvMenu(id,page+1,code)
    end
          if button==9 then
        InvMenu(id,page-1,code)
    end
          if button==0 then
     return 1
    end
           if button<=7 then
               if inv_wpn[id][(page-1)*7+ button]>0 then
                parse("equip "..id.." "..inv_wpn[id][(page-1)*7+ button])
           inv_wpn_many[id][(page-1)*7+ button]=inv_wpn_many[id][(page-1)*7+ button]-1
               msg2(id,"[Server] "..c.."000555000You has taking "..itemtype(inv_wpn[id][(page-1)*7+ button],'name'))
           elseif inv_item[id][(page-1)*7+ button]>0 then
                moreitem[inv_item[id][(page-1)*7+ button]].effect(id)
           inv_item_many[id][(page-1)*7+ button]=inv_item_many[id][(page-1)*7+ button]-1
               msg2(id,"[Server] "..c.."000555000You has taking "..moreitem[inv_item[id][(page-1)*7+ button]].name)
            end
        end
    end
end

addhook("serveraction","_serveraction")
function _serveraction(id,a)
      if a==3 then
          InvMenu(id,1)
     end
end
inv_np = {45,82} --added laser & super armor
addhook("walkover","_walkover")
function _walkover(id, od, a,ain)
          -- where the no inv item pickup array kicks in
     for i,v in pairs(inv_np) do
          if od == i then msg2(id,"cant pickup") return 1 end
     end
     if od>0 then
           parse("removeitem "..a)
             set_wpn_inv(id,od,1)
        return 1
     end
end


--
-- Load / Save Var & Func
--
if user == nil then user = {} end
user.save_dir = "sys/lua/data/"
user.ext = "inv"
user.delimiter = ","
-- will be saved here: sys/lua/data/116310.inv
-- Main
function user.save(id)
  usgn = player(id, "usgn")
  local file = io.open(user.save_dir..usgn..user.ext, "w")
  -- slot1 inv_wep
  -- slot2 inv_item
  local slot1 = implode(inv_wep[id])
  local slot2 = implode(inv_item[id])
  file:write(slot1..user.delimiter..slot2)
  file:close()
end
function user.load(id)
  usgn = player(id, "usgn")
  if user.exists(usgn) then
    local file = io.open(user.save_dir..usgn..user.ext, "r")
    local inv = file:read()
    if is_empty(inv) ~= true then
      local _inv = explode(user.delimiter, inv)
      if is_empty(_inv[1]) ~= true then inv_wep[id] = _inv[1] end
      if is_empty(_inv[2]) ~= true then inv_item[id] = _inv[2] end
    end
  else user.create(usgn) end
end
-- Self
function user.exists(usgn)
  local file = io.open(user.save_dir..usgn..user.ext)
  if file ~= nil then file:close() else return false end
  return true
end
function user.create(usgn)
  local file = io.open(user.save_dir..usgn..user.ext)
  file:write(user.delimiter)
  file:close()
end
function explode(div,str) if (div=='') then return false end local pos,arr = 0,{} for st,sp in function() return string.find(str,div,pos,true) end do table.insert(arr,string.sub(str,pos,st-1)) pos = sp + 1 end table.insert(arr,string.sub(str,pos)) return arr end
function implode(array) if array ~= nil then local final_text = "" for _,i in pairs(array) do if _ ~= #array then final_text = final_text .. tostring(i) .. "," else final_text = final_text .. tostring(i) end end return final_text else return "" end end
function is_empty(obj) if type(obj) == "string" then if obj == '' or obj == ' ' then return true else return false end elseif type(obj) == "table" then if #obj == 0 then return true else return false end end end

function totable(t,match)
	local cmd = {}
	if not match then match = "[^%s]+" end
	for word in string.gmatch(t, match) do
		table.insert(cmd, word)
	end 
	return cmd 
end

jaf={}
function jaf.save_data(id,usgn)
         if usgn~=nil and tonumber(usgn) and tonumber(usgn)>0 then
                  w_data=""
                  datac=""
                  local dir="sys/lua/"..usgn..".txt"
                  file = io.output(io.open(dir,"w+"))
                  for i=1,max_inv do
                      if inv_wpn[id][i] and inv_wpn[id][i]>0 then
                         w_data=w_data.."w"..inv_wpn[id][i].." "
                         datac=datac..inv_wpn_many[id][i].." "
                      elseif inv_item[id][i] and inv_item[id][i]>0 then
                         w_data=w_data.."i"..inv_item[id][i].." "
                         datac=datac..inv_item_many[id][i].." "
                      else
                         w_data=w_data.."0 "
                         datac=datac.."0 "
                      end
                  end
                  w_data=w_data.."\n"..datac
                  file:write(w_data)
                  file:close()
         end
end

function jaf.load_data(id,usgn)
         if usgn~=nil and tonumber(usgn) and tonumber(usgn)>0 then
                 usgn=tonumber(usgn)
                 local dir="sys/lua/%s.txt"
                 local file = io.open(dir:format(usgn, "r"))
                 if file then
                      line=file:read()
                      data=totable(line)
                      line2=file:read()
                      data2=totable(line2)
                      for i=1,max_inv do
                          if data[i] and string.lower(data[i]:sub(1,1))=="w" then
                             wpnn=tonumber(data[i]:sub(2))
                             if data2[i] and tonumber(data2[i]) then
                                wpnc=tonumber(data2[i])
                             else
                                wpnc=0
                             end
                             set_wpn_inv(id,wpnn,wpnc)
                          elseif data[i] and string.lower(data[i]:sub(1,1))=="i" then
                             itemn=tonumber(data[i]:sub(2))
                             if data2[i] and tonumber(data2[i]) then
                                itemc=tonumber(data2[i])
                             else
                                itemc=0
                             end
                             set_item_inv(id,itemn,itemc)
                         end
                      end
                      msg2(id,"\169000555000Your data has been loaded!")
                      file:close()
                 end
         end
end

addhook("leave","jaf.leave")
function jaf.leave(id)
           jaf.save_data(id,player(id,"usgn"))
end

addhook("join","_join")
function _join(id)
         inv_reset(id)
         jaf.load_data(id,player(id,"usgn"))
end