home *** CD-ROM | disk | FTP | other *** search
/ Pro-motion 2 / PM02-Disk1.iso / mac / Parts / Main.dir / Script_13_Sam.ls < prev    next >
Encoding:
Text File  |  2001-01-31  |  1.9 KB  |  113 lines
  1. property spriteNum, fldnum, myh, myv
  2. global mdown, yubi, mode, movienamelist, pagenum, activsam, activsp, activpage, filenamelist
  3.  
  4. on beginSprite me
  5.   fldnum = spriteNum - 30
  6.   pass()
  7. end
  8.  
  9. on mouseEnter me
  10.   if (fldnum + (activpage * 18)) > 111 then
  11.     exit
  12.   end if
  13.   if mode <> 0 then
  14.     exit
  15.   end if
  16.   cursor(yubi)
  17.   pass()
  18. end
  19.  
  20. on mouseLeave me
  21.   if (fldnum + (activpage * 18)) > 111 then
  22.     exit
  23.   end if
  24.   if mode <> 0 then
  25.     exit
  26.   end if
  27.   cursor(0)
  28.   pass()
  29. end
  30.  
  31. on mouseDown me
  32.   if (fldnum + (activpage * 18)) > 111 then
  33.     exit
  34.   end if
  35.   if mode <> 0 then
  36.     exit
  37.   end if
  38.   mdown = spriteNum
  39.   if (activsp - 30 + (activpage * 18)) > count(filenamelist) then
  40.     exit
  41.   end if
  42.   sendSprite(spriteNum, #getforcus)
  43.   pass()
  44. end
  45.  
  46. on mouseUp me
  47.   if (fldnum + (activpage * 18)) > 111 then
  48.     exit
  49.   end if
  50.   if mode <> 0 then
  51.     exit
  52.   end if
  53.   if mdown <> spriteNum then
  54.     exit
  55.   end if
  56.   if the doubleClick then
  57.     sendSprite(10, #action)
  58.   end if
  59.   mdown = 0
  60.   pass()
  61. end
  62.  
  63. on mouseUpOutSide me
  64.   if (fldnum + (activpage * 18)) > 111 then
  65.     exit
  66.   end if
  67.   if mode <> 0 then
  68.     exit
  69.   end if
  70.   if mdown <> spriteNum then
  71.     exit
  72.   end if
  73.   mdown = 0
  74.   pass()
  75. end
  76.  
  77. on exitFrame me
  78.   if activsp = spriteNum then
  79.     exit
  80.   end if
  81.   b = the blend of sprite spriteNum
  82.   if rollOver() = spriteNum then
  83.     if b < 100 then
  84.       b = b + 10
  85.     end if
  86.     if b > 100 then
  87.       b = 100
  88.     end if
  89.   else
  90.     if b > 50 then
  91.       b = b - 2
  92.     end if
  93.     if b < 50 then
  94.       b = 50
  95.     end if
  96.   end if
  97.   set the blend of sprite spriteNum to b
  98. end
  99.  
  100. on getforcus me
  101.   if (fldnum + (activpage * 18)) > 111 then
  102.     exit
  103.   end if
  104.   activsp = spriteNum
  105.   activsam = activsp - 30 + (activpage * 18)
  106.   set the blend of sprite spriteNum to 100
  107.   stopsammovie()
  108.   standbysammovie()
  109.   viewselectfile()
  110.   set the rect of sprite 30 to the rect of sprite activsp + rect(-2, -2, 2, 2)
  111.   sprite(30).visible = 1
  112. end
  113.