home *** CD-ROM | disk | FTP | other *** search
- property whichSprite, startMember, rollOverMember, mouseDownMember, currentOverMember, whereToGo, offsetFrame, TransitionStyle, transitionSpeed, playDoneTest
- global gReturnFromExit, gMovieList
-
- on beginSprite me
- set currentOverMember to rollOverMember
- set startMember to the member of sprite whichSprite
- case TransitionStyle of
- #none:
- set TransitionStyle to 0
- #Wipe_Up:
- set TransitionStyle to 4
- #Wipe_Down:
- set TransitionStyle to 3
- #Wipe_Left:
- set TransitionStyle to 2
- #Wipe_Right:
- set TransitionStyle to 1
- end case
- end
-
- on mouseWithin me
- set the member of sprite whichSprite to currentOverMember
- end
-
- on mouseLeave me
- set the member of sprite whichSprite to startMember
- end
-
- on mouseDown me
- puppetSound(3, "tic")
- set currentOverMember to mouseDownMember
- set the member of sprite whichSprite to mouseDownMember
- end
-
- on mouseUp me
- goTheRightPlace()
- end
-
- on mouseUpOutSide me
- set currentOverMember to rollOverMember
- end
-
- on goTheRightPlace me
- wait(10)
- if TransitionStyle <> 0 then
- puppetTransition(TransitionStyle, transitionSpeed, 1)
- end if
- if not voidp(gMovieList) then
- if playDoneTest = 1 then
- set gReturnFromExit to 1
- play done
- end if
- end if
- case whereToGo of
- #loop:
- if (marker(0) + offsetFrame) > 1 then
- go(marker(0) + offsetFrame)
- end if
- #next:
- go(marker(1) + offsetFrame)
- #previous:
- go(marker(-1) + offsetFrame)
- otherwise:
- go(marker(whereToGo) + offsetFrame)
- end case
- end
-
- on getPropertyDescriptionList
- set propertyDescriptionList to [#whichSprite: [#comment: "Which sprite:", #format: #integer, #default: 32], #whereToGo: [#comment: "Where to go:", #format: #marker, #default: "#Next"], #offsetFrame: [#comment: "Offset from marker:", #format: #integer, #default: 0], #rollOverMember: [#comment: "rollOver member:", #format: #bitmap, #default: EMPTY], #mouseDownMember: [#comment: "mouseDown member:", #format: #bitmap, #default: EMPTY], #TransitionStyle: [#comment: "Transition Type:", #format: #symbol, #range: [#none, #Wipe_Up, #Wipe_Down, #Wipe_Left, #Wipe_Right], #default: "None"], #transitionSpeed: [#comment: "Speed:", #format: #integer, #default: 1], #playDoneTest: [#comment: "Test for Play Done?:", #format: #boolean, #default: 0]]
- return propertyDescriptionList
- end
-
- on getBehaviorDescription
- return EMPTY
- end
-