home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / CHIP Turkiye Mart 1999.iso / araclar / Win98 / HTML-Tool / DWESD.EXE / data.z / frames.dcr / Standard_122_Navigate.ls < prev    next >
Encoding:
Text File  |  1998-04-02  |  2.3 KB  |  76 lines

  1. property whichSprite, startMember, rollOverMember, mouseDownMember, currentOverMember, whereToGo, offsetFrame, TransitionStyle, transitionSpeed, playDoneTest
  2. global gReturnFromExit, gMovieList
  3.  
  4. on beginSprite me
  5.   set currentOverMember to rollOverMember
  6.   set startMember to the member of sprite whichSprite
  7.   case TransitionStyle of
  8.     #none:
  9.       set TransitionStyle to 0
  10.     #Wipe_Up:
  11.       set TransitionStyle to 4
  12.     #Wipe_Down:
  13.       set TransitionStyle to 3
  14.     #Wipe_Left:
  15.       set TransitionStyle to 2
  16.     #Wipe_Right:
  17.       set TransitionStyle to 1
  18.   end case
  19. end
  20.  
  21. on mouseWithin me
  22.   set the member of sprite whichSprite to currentOverMember
  23. end
  24.  
  25. on mouseLeave me
  26.   set the member of sprite whichSprite to startMember
  27. end
  28.  
  29. on mouseDown me
  30.   puppetSound(3, "tic")
  31.   set currentOverMember to mouseDownMember
  32.   set the member of sprite whichSprite to mouseDownMember
  33. end
  34.  
  35. on mouseUp me
  36.   goTheRightPlace()
  37. end
  38.  
  39. on mouseUpOutSide me
  40.   set currentOverMember to rollOverMember
  41. end
  42.  
  43. on goTheRightPlace me
  44.   wait(10)
  45.   if TransitionStyle <> 0 then
  46.     puppetTransition(TransitionStyle, transitionSpeed, 1)
  47.   end if
  48.   if not voidp(gMovieList) then
  49.     if playDoneTest = 1 then
  50.       set gReturnFromExit to 1
  51.       play done
  52.     end if
  53.   end if
  54.   case whereToGo of
  55.     #loop:
  56.       if (marker(0) + offsetFrame) > 1 then
  57.         go(marker(0) + offsetFrame)
  58.       end if
  59.     #next:
  60.       go(marker(1) + offsetFrame)
  61.     #previous:
  62.       go(marker(-1) + offsetFrame)
  63.     otherwise:
  64.       go(marker(whereToGo) + offsetFrame)
  65.   end case
  66. end
  67.  
  68. on getPropertyDescriptionList
  69.   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]]
  70.   return propertyDescriptionList
  71. end
  72.  
  73. on getBehaviorDescription
  74.   return EMPTY
  75. end
  76.