ムービージャンプ

---

property SpriteNum,pTargetFrame,pTargetMovie,pWhichEvent

on GoTo me
  if pTargetFrame = "" then
    go to movie pTargetMovie
  else if pTargetMovie = "" then
    go to pTargetFrame
  else
    go to pTargetFrame of movie pTargetMovie
  end if
end

on exitFrame me
  if pWhichEvent = #exitFrame then GoTo(me)
end

on mouseDown me
  if pWhichEvent = #mouseDown then GoTo(me)
end

on mouseUp me
  if rollOver() <> SpriteNum then exit
  if pWhichEvent = #mouseUp then GoTo(me)
end

on getPropertyDescriptionList
  set propList to [:]
  addProp propList,#pTargetFrame,[#comment:"飛び先のフレーム名は:",#format:#string,#default:""]
  addProp propList,#pTargetMovie,[#comment:"飛び先のムービー名は:",#format:#string,#default:""]
  set myList to [#mouseUp,#mouseDown,#exitFrame]
  addProp propList,#pWhichEvent,[#comment:"どのイベントで:",#format:#symbol,#range:myList,#default:""]
  
  return propList
end

---