BTLua.lua

--- BTLua
if not BTLua then
  BTLua={}
end
BTLua.BTree = {}
function BTLua.BTree:new(...)
  local _o = {}
  _o.name=""
  _o.tree=nil
  _o.object=nil
  _o.laststatus=nil
  _o.Runningnode=nil
  _o.initialized=false
  _o.ticknum=0
  setmetatable(_o, self)
  self.__index = self
  _o:init(...)
  return _o
end
--------------- UTILS -------------------
local function inheritsFrom( baseClass )
  local new_class = {}
  local class_mt = { __index = new_class }

  if baseClass then
    setmetatable( new_class, { __index = baseClass } )
  end

  return new_class
end
--
local function shuffle(t)
  -- see: http://en.wikipedia.org/wiki/Fisher-Yates_shuffle
  local n = #t

  while n >= 2 do
    -- n is now the last pertinent index
    local k = math.random(n) -- 1 <= k <= n
    -- Quick swap
    t[n], t[k] = t[k], t[n]
    n = n - 1
  end

  return t
end
local cocreate = coroutine.create
local coyield = coroutine.yield
local coresume = coroutine.resume
local codead = function(co) return co == nil or coroutine.status(co) == "dead" end
--------------- NODE --------------------
BTLua.node = {}
function BTLua.node:new(...)
 local _o = {}
 setmetatable(_o, self)
 self.__index = self
 _o:init(...)
 return _o
end
--------------- SEQUENCE ----------------
BTLua.Sequence = inheritsFrom(BTLua.node)
function BTLua.Sequence:init(...)
  self.s = ""
  self.n = -1
  self.c = {}
  local arg = { ... }
  for i,v in ipairs(arg) do
    table.insert(self.c,v)
  end
end
function BTLua.Sequence:run(pbehavtree)
  --debugprint("BTLua.Sequence:run")
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  -- children loop
  for i=1,#self.c do
    _child = self.c[i]
    --debugprint("BTLua.Sequence:run "..i)
    -- if I was Running then I'll launch only childs Running or  not yet launched
    if self.s == "Running" and self.n == _ticknum-1 and _child.s~="Running" and _child.n == _ticknum-1 then
      _s = _child.s
    else
      _s = _child:run(pbehavtree)
    end
    -- stop execution on first false or running (sequence loops children on true return)
    if _s==false or _s=="Running" then
      --debugprint("BTLua.Sequence ends2")
      --debugprint(_s)
      self.n,self.s = _ticknum, _s
      --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
      return _s
    end
  end
  --debugprint("BTLua.Sequence ends")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- SELECTOR ----------------
BTLua.Selector = inheritsFrom(BTLua.node)
function BTLua.Selector:init(...)
  self.s = ""
  self.n = -1
  self.c = {}
  local arg = { ... }
  for i,v in ipairs(arg) do
    table.insert(self.c,v)
  end
end
function BTLua.Selector:run(pbehavtree)
  --debugprint("BTLua.Selector:run")
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  -- children loop
  for i=1,#self.c do
    --debugprint("BTLua.Selector "..i)
    _child = self.c[i]
    -- if I was Running then I'll launch only childs Running or  not yet launched
    if self.s == "Running" and self.n == _ticknum-1 and _child.s~="Running" and _child.n== _ticknum-1 then
      _s = _child.s
    else
       _s = _child:run(pbehavtree)
    end
    -- stop execution on first true or running (selector loops children on false return)
    if _s==true or _s=="Running" then
      --debugprint("BTLua.Selector ends2")
      --debugprint(_s)
       self.n,self.s = _ticknum, _s
       --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
       return _s
    end
  end
  --debugprint("BTLua.Selector ends")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- RANDOMSELECTOR ----------------
BTLua.RandomSelector = inheritsFrom(BTLua.node)
function BTLua.RandomSelector:init(...)
  self.s = ""
  self.n = -1
  self.c = {}
  local arg = { ... }
  for i,v in ipairs(arg) do
    table.insert(self.c,v)
  end
end
function BTLua.RandomSelector:run(pbehavtree)
  --debugprint("BTLua.RandomSelector:run")
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  -- on new run shuffle children
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    shuffle(self.c)
  end
  -- children loop
  for i=1,#self.c do
    _child = self.c[i]
    if self.s == "Running" and self.n == _ticknum-1 and _child.s~="Running" and _child.n== _ticknum-1 then
      _s = _child.s
    else
      _s = _child:run(pbehavtree)
    end
    -- stop execution on first false or running (sequence loops children on true return)
    if _s==true or _s=="Running" then
     self.n,self.s = _ticknum, _s
     --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
     return _s
   end
 end
 self.n,self.s = _ticknum, _s
 --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
 return _s
end
--------------- FILTER ----------------
BTLua.Filter = inheritsFrom(BTLua.node)
function BTLua.Filter:init(pcondition,pchild,...)
  self.s = ""
  self.n = -1
  self.c = {pchild}
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
end
function BTLua.Filter:run(pbehavtree)
  --debugprint("BTLua.Filter:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    -- evaluate function
    if type(self.a) == "function" then
      if self.a2 then
        _s = self.a(pbehavtree.object,pbehavtree, unpack(self.a2))
      else
        _s = self.a(pbehavtree.object,pbehavtree)
      end
      -- if function returns false stop and don't call children
      if _s == false then
        self.n,self.s = _ticknum, _s
        --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
        return _s
      end
    end
  end
  -- children loop
  for i=1,#self.c do
    _child = self.c[i]
    _s = _child:run(pbehavtree)
    self.n,self.s = _ticknum, _s
    --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
    return _s
  end
  --debugprint("BTLua.Filter:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- DECORATOR ----------------
BTLua.Decorator = inheritsFrom(BTLua.node,...)
function BTLua.Decorator:init(pcondition,pchild,...)
  self.s = ""
  self.n = -1
  self.c = {pchild}
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
end
function BTLua.Decorator:run(pbehavtree)
  --debugprint("BTLua.Decorator:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    -- evaluate function
    if type(self.a) == "function" then
      if self.a2 then
        _s = self.a(pbehavtree.object,pbehavtree, unpack(self.a2))
      else
        _s = self.a(pbehavtree.object,pbehavtree)
      end
      -- if function returns false stop and don't call children
      if _s == false then
        self.n,self.s = _ticknum, _s
        --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
        return _s
      end
    end
  end
  -- children loop
  for i=1,#self.c do
    _child = self.c[i]
    _s = _child:run(pbehavtree)
    self.n,self.s = _ticknum, _s
    --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
    return _s
  end
  --debugprint("BTLua.Decorator:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- DECORATORCONTINUE ----------------
BTLua.DecoratorContinue = inheritsFrom(BTLua.node)
function BTLua.DecoratorContinue:init(pcondition,pchild,...)
  self.s = ""
  self.n = -1
  self.c = {pchild}
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
end
function BTLua.DecoratorContinue:run(pbehavtree)
  --debugprint("BTLua.DecoratorContinue:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    if type(self.a) == "function" then
      if self.a2 then
        _s = self.a(pbehavtree.object,pbehavtree, unpack(self.a2))
      else
        _s = self.a(pbehavtree.object,pbehavtree)
      end
      -- if function returns false stop, return TRUE, and don't call children
      if _s == false then
        _s = true
        self.n,self.s = _ticknum, _s
        --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
        return _s
      end
    end
  end
  -- children loop
  for i=1,#self.c do
    _child = self.c[i]
    _s = _child:run(pbehavtree)
    self.n,self.s = _ticknum, _s
    --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
    return _s
  end
  --debugprint("BTLua.DecoratorContinue:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- WAIT ----------------
BTLua.Wait = inheritsFrom(BTLua.node)
function BTLua.Wait:init(ptimeout,pcondition,pchild,...)
  self.s = ""
  self.n = -1
  self.c = {pchild}
  self.t = ptimeout
  if self.t == nil then
    self.t = 1
  end
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
  self.t1 = os.clock()
  self.s1 = false
end
function BTLua.Wait:run(pbehavtree)
  --debugprint("BTLua.Wait:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s,_child
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  -- on first run gets clock to check timeout
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    self.t1 = os.clock()
    if self.a then
      self.s1 = false
    else
      self.s1 = true
    end
  end
  -- on timeout return false
  if os.clock()-self.t1>self.t then
    _s = false
    self.n,self.s = _ticknum, _s
    --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
    return _s
  end
  -- if condition is false then try  it
  if self.s1==false then
    if type(self.a) == "function" then
      if self.a2 then
        _s = self.a(pbehavtree.object,pbehavtree, unpack(self.a2))
      else
        _s = self.a(pbehavtree.object,pbehavtree)
      end
      self.s1 = _s
    end
  end
  -- if condition is true launch children
  if self.s1==true then
    -- children loop
    for i=1,#self.c do
      _child = self.c[i]
      _s = _child:run(pbehavtree)
      self.n,self.s = _ticknum, _s
      --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
      return _s
    end
  end
  -- no return so... Running 
  _s = "Running"
  --debugprint("BTLua.Wait:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- WAITContinue ----------------
BTLua.WaitContinue = inheritsFrom(BTLua.node)
function BTLua.WaitContinue:init(ptimeout,pcondition,pchild,...)
  self.s = ""
  self.n = -1
  self.c = {pchild}
  self.t = ptimeout
  if self.t == nil then
    self.t = 1
  end
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
  self.t1 = os.clock()
  self.s1 = false
end
function BTLua.WaitContinue:run(pbehavtree)
  --debugprint("BTLua.WaitContinue:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  -- on first run gets clock to check timeout
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    self.t1 = os.clock()
    if self.a then
      self.s1 = false
    else
      self.s1 = true
    end
  end
  if os.clock()-self.t1>self.t then
    _s = true
    self.n,self.s = _ticknum, _s
    --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
    return _s
  end
  if self.s1==false then
    if type(self.a) == "function" then
      if self.a2 then
        _s = self.a(pbehavtree.object,pbehavtree, unpack(self.a2))
      else
        _s = self.a(pbehavtree.object,pbehavtree)
      end
      self.s1 = _s
    end
  end
  if self.s1==true then
    for i=1,#self.c do
      _child = self.c[i]
      _s = _child:run(pbehavtree)
      self.n,self.s = _ticknum, _s
      --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
      return _s
    end
  end
  _s = "Running"
  --debugprint("BTLua.WaitContinue:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- REPEATUNTIL ----------------
BTLua.RepeatUntil = inheritsFrom(BTLua.node)
function BTLua.RepeatUntil:init(ptimeout,pcondition,pchild,...)
  self.s = ""
  self.n = -1
  self.c = {pchild}
  self.t = ptimeout
  if self.t == nil then
    self.t = 1
  end
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
  self.t1 = os.clock()
  self.s1 = false
end
function BTLua.RepeatUntil:run(pbehavtree)
  --debugprint("BTLua.RepeatUntil:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s, _child
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  -- on first run gets clock to check timeout
  if self.s ~= "Running" or self.n ~= _ticknum-1 then
    self.t1 = os.clock()
    if self.a then
      self.s1 = false
    else
      self.s1 = true
    end
  end
  if os.clock()-self.t1>self.t then
    _s = false
    self.n,self.s = _ticknum, _s
    --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
    return _s
  end
  if self.s1==false then
    if type(self.a) == "function" then
      if self.a2 then
        _s = self.a(pbehavtree.object,pbehavtree, unpack(self.a2))
      else
        _s = self.a(pbehavtree.object,pbehavtree)
      end
      self.s1 = _s
      if _s == true then 
        self.n,self.s = _ticknum, _s
        --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
        return _s
      end
    end
  end
  if self.s1==false then
    for i=1,#self.c do
      _child = self.c[i]
      _s = _child:run(pbehavtree)
      self.n,self.s = _ticknum, _s
      --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
      return _s
    end
  end
  _s = "Running"
  --debugprint("BTLua.RepeatUntil:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- SLEEP --------------------
function BTLua.Sleep(ptimeout)
  return BTLua.WaitContinue:new(ptimeout,BTLua.ReturnFalse, nil)
end
--------------- CONDITION ----------------
BTLua.Condition = inheritsFrom(BTLua.node)
function BTLua.Condition:init(pcondition,...)
  self.s = ""
  self.n = -1
  self.a = pcondition
  if select("#",...)>0 then
    self.a2 = {...}
  end
end
function BTLua.Condition:run(pbehavtree)
  --debugprint("BTLua.Condition:run "..type(self.a))
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  if type(self.a) == "function" then
    if self.a2 then
      _s = self.a(pbehavtree.object,pbehavtree,unpack(self.a2))
    else
      _s = self.a(pbehavtree.object,pbehavtree)
    end
  end
  --debugprint("BTLua.Condition:run result ")
  --debugprint(_s)
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- ACTION ----------------
BTLua.Action = inheritsFrom(BTLua.node)
function BTLua.Action:init(paction,...)
  self.s = ""
  self.n = -1
  self.a = paction
  if select("#",...)>0 then
    self.a2 = {...}
  end
  self.r = nil
end
function BTLua.Action:run(pbehavtree)
  --debugprint("BTLua.Action:run")
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _s
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  if type(self.a) == "function" then
    if self.a2 then
      _s = self.a(pbehavtree.object,pbehavtree,unpack(self.a2))
    else
      _s = self.a(pbehavtree.object,pbehavtree)
    end
  end
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- ActionResume ----------------
BTLua.ActionResume = inheritsFrom(BTLua.node)
function BTLua.ActionResume:init(paction,...)
  self.s = ""
  self.n = -1
  self.a = paction
  if select("#",...)>0 then
    self.a2 = {...}
  end
  self.r = nil
end
function BTLua.ActionResume:run(pbehavtree)
  --debugprint("BTLua.ActionResume:run")
  --if pbehavtree.startNode then pbehavtree.startNode(pbehavtree,self) end
  local _status, _s
  local _ticknum = pbehavtree.ticknum
  local _object, _btree = pbehavtree.object, pbehavtree
  if type(self.a) == "function" then
    if self.s ~= "Running" or self.n ~= _ticknum-1 then
      if self.a2 then
        self.r = cocreate(self.a,unpack(self.a2))
      else
        self.r = cocreate(self.a)
      end
    end
    if codead(self.r) then
      self.r = cocreate(self.a)
    end
    _status,_s = coresume(self.r, pbehavtree.object,pbehavtree)
  end
  self.n,self.s = _ticknum, _s
  --if pbehavtree.endNode then pbehavtree.endNode(pbehavtree,self) end
  return _s
end
--------------- RETURNTRUE ---------------
function BTLua.ReturnTrue()
  return true
end
--------------- RETURNFALSE ---------------
function BTLua.ReturnFalse()
  return false
end
--------------- RETURNRUNNING ---------------
function BTLua.ReturnRunning()
  return "Running"
end
--------------- BEHAVTREE ----------------
function BTLua.BTree:init(pname,pobject,ptree,pfunctionTreeStart,pfunctionTreeEnd)
  --debugprint("BTLua.BTree:init")
  self.name=pname
  self.object=pobject
  self.tree={ptree}
  self.treeStart = pfunctionTreeStart
  self.treeEnd = pfunctionTreeEnd
  self.initialized = false
  self:initialize()
end

function BTLua.BTree:run()

  --debugprint("BTLua.BTree:run "..self.name)

  if (self.initialized==false) then
    self:initialize()
  end

  if self.treeStart then
    self.treeStart(self.object,self)
  end

  self.ticknum = self.ticknum + 1
  if self.ticknum > 30000 then
    for i=1,#self.tree do
      self:resetTicknumChildren(self.tree[i])
    end
    self.ticknum = 1
  end

  self.laststatus = nil
  local _s
  for i=1,#self.tree do
    --debugprint(i.."/"..#self.tree)
    _s = self.tree[i]:run(self)
  end
  self.laststatus = _s

  if self.treeEnd then
  self.treeEnd(self.object,self)
end

  --debugprint(_s)

  return self.laststatus
end

function BTLua.BTree:initialize()
  for i=1,#self.tree do
    self:initializeChildren(self.tree[i],nil)
  end
  self.initialized=true
end

function BTLua.BTree:initializeChildren(pnode,pparent)
  if pnode then
    pnode.p =pparent
    if type(pnode.a)=="string" then
      pnode.a = self:parseFunc(pnode.a)
    end
    if pnode.c then
      for i=1,#pnode.c do
        self:initializeChildren(pnode.c[i],pnode)
      end
    end
  end
end

function BTLua.BTree:resetTicknumChildren(pbehavtree,pnode)
  if pnode then
    local _ticknum = pbehavtree.ticknum
    pnode.ticknum =pnode.ticknum-_ticknum
    if pnode.c then
      for i=1,#pnode.c do
        self:resetTicknumChildren(pbehavtree,pnode.c[i])
      end
    end
  end
end

function BTLua.BTree:addNode(pparent,pnode)
  if pparent then
    table.insert(pparent.c,pnode)
  else
    table.insert(self.tree,pnode)
  end
  self.initialized = false
end

function BTLua.BTree:parseTable(pparent,pexternaltable,pattributes)
  if pparent == nil then
    self.name = pexternaltable.name or pexternaltable.title or self.name
    self.tree=nil
    self.laststatus=nil
    self.Runningnode=nil
    self.ticknum=0
    self.tree={}
  end
  if pexternaltable.nodes then
    if pexternaltable.nodes.children then
      for i = 1,#pexternaltable.nodes.children do
        self:parseNodeAndAdd(nil,pexternaltable.nodes.children[i],pattributes)
      end
    else
      for i = 1,#pexternaltable.nodes do
        self:parseNodeAndAdd(nil,pexternaltable.nodes[i],pattributes)
      end
    end
  end
  self.initialized=false
end

function BTLua.BTree:parseNodeAndAdd(pparent,pnode,pattributes)
  local _node = self:parseNode(pnode,pattributes)
  if _node then
    self:addNode(pparent,_node)
  end
  if pnode.children then
    for i = 1,#pnode.children do
      self:parseNodeAndAdd(_node,pnode.children[i],pattributes)
    end
  end
end

function BTLua.BTree:parseFunc(pfunc)
  local _function
  print(pfunc)
  local _object, _btree = self.object, self
  if string.sub(pfunc,1,1)=="#" then
    _function = _object[string.sub(pfunc,2,-1)]
  elseif string.sub(pfunc,1,1)=="@" then
    _function = _btree[string.sub(pfunc,2,-1)]
  elseif string.sub(pfunc,1,1)=="!" then
    _function = _G[string.sub(pfunc,2,-1)]
  elseif pfunc~=nil and pfunc~="" then
    _function = loadstring("return "..pfunc)()
  end
  print(_function)
  return _function
end

function BTLua.BTree:parseFuncs(pfunc)
  -- Compatibility: Lua-5.0
  local function split(str, delim, maxNb)
      -- Eliminate bad cases...
      if string.find(str, delim) == nil then
          return { str }
      end
      if maxNb == nil or maxNb < 1 then
          maxNb = 0    -- No limit
      end
      local result = {}
      local pat = "(.-)" .. delim .. "()"
      local nb = 0
      local lastPos
      for part, pos in string.gfind(str, pat) do
          nb = nb + 1
          result[nb] = part
          lastPos = pos
          if nb == maxNb then break end
      end
      -- Handle the last field
      if nb ~= maxNb then
          result[nb + 1] = string.sub(str, lastPos)
      end
      return result
  end
  if pfunc==nil or pfunc=="" then
    return {}
  end
  local _funcs = split(pfunc,"|")
  local _return ={}
  for i,v in ipairs(_funcs) do
    if v ~= "" then
      local _function
      local _strfunc = v
      if (string.sub(_strfunc,1,1)=="'" or string.sub(_strfunc,-1)=='"') and string.sub(_strfunc,1,1)==string.sub(_strfunc,-1) then
        -- string
        table.insert(_return,string.sub(_strfunc,2,-2))
      elseif tonumber(_strfunc)~=nil then
        -- number
        table.insert(_return,tonumber(_strfunc))
      else
        _function = self:parseFunc(_strfunc)
        table.insert(_return,_function)
      end
    end
  end
  return _return
end

function BTLua.BTree:parseNode(pnode,pattributes)
  local _node = nil
  local _type = string.upper(pnode.type)
  local _func = nil
  if pnode.func then
    _func =  self:parseFuncs(pnode.func)
  end
  if _type =="START" then
    return nil
  end
  if _type =="ACTION" then
    _node =  BTLua.Action:new(unpack(_func))
  end
  if _type =="ACTIONRESUME" then
    _node =  BTLua.Action:new(unpack(_func))
  end
  if _type =="CONDITION" then
    _node =  BTLua.Condition:new(unpack(_func))
  end
  if _type =="SELECTOR" then
    _node =  BTLua.Selector:new()
  end
  if _type =="RANDOMSELECTOR" then
    _node =  BTLua.RandomSelector:new()
  end
  if _type =="SEQUENCE" then
    _node =  BTLua.Sequence:new()
  end
  if _type =="FILTER" then
    _node =  BTLua.Filter:new(unpack(_func))
  end
  if _type =="DECORATOR" then
    _node =  BTLua.Decorator:new(unpack(_func))
  end
  if _type =="DECORATORCONTINUE" then
    _node =  BTLua.DecoratorContinue:new(unpack(_func))
  end
  if _type =="WAIT" then
    _node =  BTLua.Wait:new(_func[1],_func[2],nil,unpack(_func,3,table.maxn(_func)))
  end
  if _type =="WAITCONTINUE" then
    _node =  BTLua.WaitContinue:new(_func[1],_func[2],nil,unpack(_func,3,table.maxn(_func)))
  end
  if _type =="REPEATUNTIL" then
    _node =  BTLua.RepeatUntil:new(_func[1],_func[2],nil,unpack(_func,3,table.maxn(_func)))
  end
  if _type =="SLEEP" then
    _node =  BTLua.Sleep(unpack(_func))
  end
  if _node==nil then
    error("BTLua : node type '"..pnode.type.."' unrecognized!")
  end
  if pattributes then
    for i,v in ipairs(pattributes) do
      _node[v]=pnode[v]
    end
  end
  return _node
end

--debugprint=print