home *** CD-ROM | disk | FTP | other *** search
/ Corrections in America -…uction (Student Resource) / Allen.iso / pc / content / mpage.dxr / 00019_JumpModulePage.ls < prev    next >
Encoding:
Text File  |  2005-12-16  |  985 b   |  40 lines
  1. property pSpriteWithPage
  2. global gMovieProperties, gModuleProperties
  3.  
  4. on getPropertyDescriptionList me
  5.   return [#pSpriteWithPage: [#comment: "Integer of sprite where editable text member with number of page to jump to", #format: #integer, #default: the currentSpriteNum - 1]]
  6. end
  7.  
  8. on new me, jSprite
  9.   me.pSpriteWithPage = jSprite
  10.   return me
  11. end
  12.  
  13. on mouseWithin me
  14.   sprite(the currentSpriteNum).cursor = 280
  15.   SwitchButtonState("over")
  16. end
  17.  
  18. on mouseLeave me
  19.   sprite(the currentSpriteNum).cursor = 0
  20.   SwitchButtonState("up")
  21. end
  22.  
  23. on mouseDown me
  24.   cPage = integer(sprite(pSpriteWithPage).member.text)
  25.   if voidp(cPage) then
  26.     return 
  27.   end if
  28.   if (cPage < 1) or (cPage > gModuleProperties.pNumPages) or (cPage = gModuleProperties.pCurrentPage) then
  29.     return 
  30.   end if
  31.   gModuleProperties.UpdatePagesList()
  32.   gModuleProperties.pCurrentPage = cPage
  33.   gMovieProperties.pIsPageSetupDone = 0
  34.   if the frame mod 2 then
  35.     go(the frame + 1)
  36.   else
  37.     go(the frame - 1)
  38.   end if
  39. end
  40.