-- when you are finished set this to 1 - make sure it is 0 for anything else
local done_here = 0
-- change to 1 to randomly scale any entity with this script attached - trees- bushes etc.
local scale_trees= 1
-- set to 1 to put all trees back to "normal" size (scale_trees must be 0 to do so)
local fix_trees = 0


-- use this to set smallest and largest tree size.
local min_tree = 25
local max_tree = 125

--- ********** NO NEED TO PROGRESS BEYOND THIS POINT - warranty void :)
function treescaler_init(e)
  have_entity = 0
  tree_array = {}
  t_count = 0
end

function treescaler_main(e)
     
  if have_entity == 0 and done_here == 0 then
    tcount=table.count(tree_array)
    -- do we have this tree already?
    have_entity=table.search(tcount,tree_array,e) -- pass tcount so we don't do it twice
    if have_entity==0 then
      tree_array[tcount+1] = e
      if fix_trees == 1 then
        Scale(e,100)
      end
      if scale_trees == 1 then
        Scale(e,math.random(min_tree,max_tree))
      end
      end -- if  
  end -- table populate  
end -- function

-- ***************************************
function table.count(tbl)
   local c=0
   for k in pairs(tbl) do c=c+1 end
   return c
end

-- ***************************************
function table.search(tbllen,tbl,tblval)
  local z = 1
  tblmatch = 0
  for z=1, tbllen, 1 do 
    if tbl[z]==tblval then
      tblmatch = 1
    end  
  end   
  return tblmatch
end