スプライトのアニメーション

---

property SpriteNum,pFirstMemberNum,pLastMemberNum,pStartTime,pTimes

on beginSprite me
  set pStartTime to the ticks
end

on exitFrame me
  if pStartTime + pTimes < the ticks then
    if the memberNum of sprite SpriteNum <> pLastMemberNum then
      set the memberNum of sprite SpriteNum to (the memberNum of sprite SpriteNum) + 1
    else
      set the memberNum of sprite SpriteNum to pFirstMemberNum
    end if
    set pStartTime to the ticks
  end if
end

on getPropertyDescriptionList
  set propList = [:]
  addProp propList, #pFirstMemberNum,[#comment:"最初のメンバーは?:",#format:#integer,#default:""]
  addProp propList, #pLastMemberNum,[#comment:"最後のメンバーは?:",#format:#integer,#default:""]
  addProp propList, #pTimes,[#comment:"時間設定は?:",#format:#integer,#default:60]
  
  return propList
end

---