property pFrameAmount, pTotalAnimTime, pPhaseAmount, pSpriteData, pHostSpriteData, pRunAnimation, pAnimStartTime, pTimePerPhase, pCurrentPhase

on construct me 
  pTotalAnimTime = 700
  pPhaseAmount = 3
  pFrameAmount = 2
  pCurrentPhase = 1
  pCurrentFrame = random(pFrameAmount)
  pTimePerPhase = (pTotalAnimTime / pPhaseAmount)
  pSpriteData = []
  pRunAnimation = 0
  pHostSpriteData = [:]
end

on deconstruct me 
  removeUpdate(me.getID())
  repeat while pSpriteData <= undefined
    tSpriteData = getAt(undefined, undefined)
    releaseSprite(tSpriteData.getAt(#sprite).spriteNum)
  end repeat
  if pHostSpriteData.getAt(#sprite) <> void() then
    pHostSpriteData.getAt(#sprite).color = pHostSpriteData.getAt(#previousfcolor)
    pHostSpriteData.getAt(#sprite).ink = pHostSpriteData.getAt(#previousink)
  end if
  pSpriteData = []
  pHostSpriteData = [:]
end

on removeFromObjectManager me 
  if objectExists(me.getID()) then
    removeObject(me.getID())
  end if
end

on defineWithSprite me, tsprite, tSize 
  if ilk(tsprite) <> #sprite then
    return FALSE
  end if
  if voidp(tSize) then
    tSize = #large
  end if
  tWidth = tsprite.width
  tHeight = tsprite.height
  tloc = point((tsprite.locH + (tWidth / 2)), (tsprite.locV - (tHeight / 2)))
  tlocz = tsprite.locZ
  tRect = tsprite.rect
  pHostSpriteData.setAt(#sprite, tsprite)
  pHostSpriteData.setAt(#previousink, tsprite.ink)
  pHostSpriteData.setAt(#previousfcolor, color(#rgb, 0, 0, 0))
  tsprite.color = color(#rgb, 150, 150, 150)
  tsprite.ink = 41
  me.define(tloc, tlocz, tSize)
end

on define me, tloc, tlocz, tSize 
  if voidp(tloc) then
    return FALSE
  end if
  if ilk(tloc) <> #point then
    return FALSE
  end if
  if voidp(tlocz) then
    return FALSE
  end if
  if voidp(tSize) then
    tSize = #large
  end if
  pScreenStartLoc = tloc
  pAnimStartTime = the milliSeconds
  pRunAnimation = 1
  receiveUpdate(me.getID())
end

on update me 
  if not pRunAnimation then
    return FALSE
  end if
  tMoveTime = (the milliSeconds - pAnimStartTime)
  if tMoveTime > pTotalAnimTime then
    pRunAnimation = 0
    me.removeFromObjectManager()
    return FALSE
  end if
  tUpdatePhase = 0
  tCurrentPhase = (integer((tMoveTime / pTimePerPhase)) + 1)
  if tCurrentPhase <> pCurrentPhase then
    tUpdatePhase = 1
    pCurrentPhase = tCurrentPhase
  end if
  if tMoveTime > ((3 / 4) * pTotalAnimTime) then
    me.removeFromObjectManager()
  else
    if tMoveTime > ((2 / 4) * pTotalAnimTime) and pHostSpriteData.getAt(#sprite) <> void() then
      pHostSpriteData.getAt(#sprite).color = color(#rgb, 62, 51, 15)
    else
      if tMoveTime > ((1 / 4) * pTotalAnimTime) and pHostSpriteData.getAt(#sprite) <> void() then
        pHostSpriteData.getAt(#sprite).color = color(#rgb, 124, 102, 29)
      else
        pHostSpriteData.getAt(#sprite).color = color(#rgb, 247, 204, 59)
      end if
    end if
  end if
end