home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_13_b_FullScreen.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  779 b   |  38 lines
  1. property pSpriteNum
  2. global gScreenLarge, gDrawStage, gRectStage, gChart
  3.  
  4. on beginSprite me
  5.   pSpriteNum = sprite(me.spriteNum)
  6. end
  7.  
  8. on mouseEnter me
  9.   pSpriteNum.cursor = 280
  10.   if gChart = "on" then
  11.     puppetSound(2, "s_mouseover")
  12.     if gScreenLarge = 0 then
  13.       pSpriteNum.member = "BigDown"
  14.     end if
  15.   end if
  16. end
  17.  
  18. on mouseLeave me
  19.   pSpriteNum.cursor = -1
  20.   if gScreenLarge = 0 then
  21.     pSpriteNum.member = "BigUp"
  22.   end if
  23. end
  24.  
  25. on mouseDown me
  26.   puppetSound(2, "s_mousedown")
  27.   if gScreenLarge = 0 then
  28.     (the stage).drawRect = (the desktopRectList)[1]
  29.     (the stage).rect = (the desktopRectList)[1]
  30.     gScreenLarge = 1
  31.   else
  32.     (the stage).drawRect = gDrawStage
  33.     (the stage).rect = gRectStage
  34.     pSpriteNum.member = "BigUp"
  35.     gScreenLarge = 0
  36.   end if
  37. end
  38.