if not allegiancerecon then
   allegiancerecon = {}
end

function allegiancerecon_allyconvert(arg)
    allegiancerecon_allylist = string.gsub(arg, ", ", "|")
    SetVariable ("Allegiancerecon_orgallies", allegiancerecon_allylist)
end

function allegiancerecon_enemyconvert(arg)
    allegiancerecon_enemylist = string.gsub(arg, ", ", "|")
    SetVariable ("Allegiancerecon_orgenemies", allegiancerecon_enemylist)
end


     custom_colour="4"
   enabled="y"
   expand_variables="y"
   group="allegiancerecon2"
   keep_evaluating="y"
   match="\\b(?:@!Allegiancerecon_orgallies)\\b"
   regexp="y"
   repeat="y"
   sequence="100"
  >
  


     custom_colour="7"
   enabled="y"
   expand_variables="y"
   group="allegiancerecon2"
   keep_evaluating="y"
   match="\\b(?:@!Allegiancerecon_orgenemies)\\b"
   regexp="y"
   repeat="y"
   sequence="100"
  >
  


  
  



     enabled="y"
   group="allegiancerecon"
   lines_to_match="2"
   match="^Enemies of (.*?)\\:\\n(.*?)\\n$"
   multi_line="y"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  allegiancerecon_enemyconvert("%2")
  
     enabled="y"
   group="allegiancerecon"
   lines_to_match="2"
   match="^The following are ACTIVE citizens (.*?)\\:\\n(.*?).$"
   multi_line="y"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  allegiancerecon_allyconvert("%2")
  

gear = gear or {
items = php:Table(),
empties = php:Table(),
decaying = php:Table()
}

function gear:safeChars(s)
s = s:gsub(" ","_")
s = s:gsub("","")
return s
end

function gear:init()
for k,v in pairs(GetVariableList()) do
if k:match("bsd_gear_+") then
k = k:sub(10)
self.items = tonumber(v)
end
end
display:message("GEAR: Initialized.")
end

-- Item quantity methods
function gear:add(type,name,amt,time,num)
name = gear:safeChars(name)
amt = tonumber(amt) or 1
local count
if name == "empty" then
gear:addEmpty(type,num)
Debug("Empty Added")
else
count = self.items or 0
count = count + amt
self.items = count
SetVariable("bsd_gear_"..name,count)
end
if time and tonumber(time) < tonumber(GetVariable("bsd_config_decaywarn")) then
gear:addDecay(type,num,time)
end
end

function gear:sub(name,amt)
name = gear:safeChars(name)
amt = tonumber(amt) or 1
local count = self.items or 0
count = count - amt
if count < 0 then count = nil end
self.items = count
SetVariable("bsd_gear_"..name,count)
end

function gear:set(type,name,amt,time,num)
amt = tonumber(amt)
name = gear:safeChars(name)
if name == "empty" then
gear:addEmpty(type,num)
Debug("Empty Added")
else
self.items = amt
SetVariable("bsd_gear_"..name,amt)
end
if time and tonumber(time) < tonumber(GetVariable("bsd_config_decaywarn")) then
gear:addDecay(type,num,time)
end
end

function gear:del(name)
name = gear:safeChars(name)
self.items = nil
end

function gear:reset(name)
if mygear and mygear then
for k,v in mygear:pairs() do
for _,val in pairs(v) do
val = gear:safeChars(val)
self.items = nil
DeleteVariable("bsd_gear_"..val)
end
end
display:message("GEAR: "..display:titleCase(name).." Reset.")
elseif name == "all" then
self.items = php:Table()
self.decaying = php:Table()
self.empties = php:Table()
for k,v in pairs(GetVariableList()) do
if string.find(k, "bsd_gear_") then DeleteVariable(k) end
end
display:message("GEAR: All Reset.")
elseif string.match("items decaying empties",name) then
for k,v in self:pairs() do
DeleteVariable("bsd_gear_"..k)
end
self = php:Table()
display:message("GEAR: "..display:titleCase(name).." Reset.")
end
end

function gear:has(name)
name = name:gsub(" ","_")
return self.items
end

function gear:addDecay(type,num,tl)
if not self.decaying then self.decaying = php:Table() end
self.decaying = tl
end

function gear:addEmpty(type,num)
if not self.empties then self.empties = php:Table() end
self.empties = true
end

function gear:printItem(name)
local count = gear:has(name) or 0

if count > 50 then color = "mediumspringgreen"
elseif count <= 50 and count > 0 then color = "goldenrod"
else color = "crimson"
end
local pname = display:titleCase(name)
local stg = ""

Tell(" ")
ColourTell(color,"",string.format("%-20s",pname))
ColourTell(color,"",string.format("%4s",count))
Tell(" ")
end

-- display method
function gear:display()
if not mygear then
Note("mygear not specificed")
return
end
if not mygearorder then
Note("mygearorder not specified")
return
end

local tmpitems = {}
for k,v in self.items:pairs() do
tmpitems = v
end

local printlists = {}
local rows = 0

-- process columns
for sk,sv in mygear:pairs() do
printlists = {}
local i = 1
for k,v in sv:pairs() do
printlists = "&&"..k
i = i + 1
for _,val in pairs(v) do
printlists = val
i = i + 1
tmpitems = nil
end
end
if i > rows then rows = i end
end

local cRow = 1
while cRow < rows do
for _,goK in pairs(mygearorder) do
if printlists then
local itm = printlists
if itm:match("^\\&\\&") then ColourTell("gold","",string.format("%-30s",display:titleCase(itm:sub(3))))
else gear:printItem(itm)
end
else
Tell(string.format("%-30s",""))
end
end
Note("")
cRow = cRow + 1
end
--Misc
if #tmpitems > 0 then
ColourNote("gold","","Misc")
for k,v in pairs(tmpitems) do
gear:printItem(k)
Note()
end
end
for k,v in self.empties:pairs() do
ColourNote("mediumorchid","","You currently have " .. v:count() .. " empty "..k..".")
end
end

Ally 1
Roark Libertas is now one of your allies.