property pActive, pSkipCounter, pMaxFrames

on define me, tdata 
  pSkipCounter = 0
  pActive = 1
  pMaxFrames = -1
  me.ancestor.define(tdata)
  me.setFrame(0)
  return TRUE
end

on setAnimation me, tstate 
  me.pActive = tstate
  if (tstate = 0) then
    me.setFrame(0)
  end if
end

on update me 
  if not pActive then
    return TRUE
  end if
  pSkipCounter = (pSkipCounter + 1)
  if pSkipCounter > 2 then
    pSkipCounter = 0
    me.animate()
  end if
end

on setFrame me, tValue 
  if (tValue = void()) then
    tValue = 0
  end if
  tsprite = me.getProp(#pSprList, 1)
  tName = tsprite.member.name
  tName = tName.getProp(#char, 1, (length(tName) - 1)) & tValue
  tsprite.member = member(getmemnum(tName))
  return TRUE
end

on animate me 
  tSpriteIndex = 1
  repeat while tSpriteIndex <= me.count(#pSprList)
    tsprite = me.getProp(#pSprList, tSpriteIndex)
    if tsprite.member.name contains me.pClass then
      if (pMaxFrames = -1) then
        pMaxFrames = []
      end if
      tName = tsprite.member.name
      tCurrentFrame = integer(tName.getProp(#char, length(tName)))
      tNamePrefix = tName.getProp(#char, 1, (length(tName) - 1))
      if pMaxFrames.count < tSpriteIndex then
        if getmemnum(tNamePrefix & (tCurrentFrame + 1)) then
          tFrame = (tCurrentFrame + 1)
        else
          pMaxFrames.setAt(tSpriteIndex, tCurrentFrame)
          tFrame = 0
          if tsprite.member.name contains "_a_" then
            tFrame = (random(3) - 1)
          end if
        end if
      else
        return TRUE
      end if
      tName = tName.getProp(#char, 1, (length(tName) - 1)) & tFrame
      tsprite.member = member(getmemnum(tName))
    end if
    tSpriteIndex = (1 + tSpriteIndex)
  end repeat
  return TRUE
end

on roomObjectAction me, tAction, tdata 
end

on select me 
  tFramework = getObject(#bb_gamesystem)
  if (tFramework = 0) then
    return FALSE
  end if
  return(tFramework.sendGameSystemEvent(#send_set_target, [me.pLocX, me.pLocY]))
end