property pSprite, pCount, pFrameCount, pRandom

on define me, tSprite 
  pSprite = tSprite
  me.reset()
  return TRUE
end

on reset me 
  pRandom = (random(90) + 18)
  pSprite.member = getmemnum("twinkle_0")
  pFrameCount = 1
  pCount = 0
end

on update me 
  tFrameList = [0, 1, 2, 3, 4, 5, 6, 7]
  pCount = (pCount + 1)
  if (1 = pCount > 0 and pCount <= 15) then
    if (pCount mod 2) then
      tImage = getmemnum("twinkle_" & tFrameList.getAt(pFrameCount))
      pSprite.member = tImage
      pFrameCount = (pFrameCount + 1)
    end if
  else
    if (1 = (pCount = 18)) then
      pSprite.member = getmemnum("twinkle_0")
    else
      if (1 = (pCount = pRandom)) then
        me.reset()
      end if
    end if
  end if
end