property pActive, pUpdateFrame, pLastFrm, pTimer

on prepare me, tdata 
  if (tdata.count = 0) then
    tdata = [#runtimedata:"0"]
  end if
  me.updateRuntimeData(tdata.getAt(#runtimedata))
  return TRUE
end

on updateStuffdata me, tValue 
  return TRUE
end

on updateRuntimeData me, tValue 
  if (tValue = "1") then
    pUpdateFrame = 0
    pActive = 1
    pTimer = the milliSeconds
    pLastFrm = 0
  else
    pUpdateFrame = 0
    pActive = 0
    pLastFrm = 0
    if me.count(#pSprList) > 3 then
      i = 1
      repeat while i <= 4
        tMemName = me.getPropRef(#pSprList, i).member.name
        tMemName = tMemName.getProp(#char, 1, (length(tMemName) - 1)) & 0
        tmember = member(getmemnum(tMemName))
        me.getPropRef(#pSprList, i).castNum = tmember.number
        me.getPropRef(#pSprList, i).width = tmember.width
        me.getPropRef(#pSprList, i).height = tmember.height
        i = (1 + i)
      end repeat
    end if
  end if
end

on update me 
  if pActive then
    pUpdateFrame = not pUpdateFrame
    if pUpdateFrame then
      pLastFrm = ((pLastFrm + 1) mod 6)
      i = 1
      repeat while i <= 4
        tMemName = me.getPropRef(#pSprList, i).member.name
        tMemName = tMemName.getProp(#char, 1, (length(tMemName) - 1)) & pLastFrm
        tmember = member(getmemnum(tMemName))
        me.getPropRef(#pSprList, i).castNum = tmember.number
        me.getPropRef(#pSprList, i).width = tmember.width
        me.getPropRef(#pSprList, i).height = tmember.height
        i = (1 + i)
      end repeat
      if (the milliSeconds - pTimer) > 20000 then
        getConnection(#info).send("SETSTUFFDATA", [#string:me.getID(), #string:"0"])
      end if
    end if
  end if
end