home *** CD-ROM | disk | FTP | other *** search
/ PCMania 14 / Pcmania_Ep2_14_CD-ART_Futura_2000.iso / Datos / Anim.dir / 00008.ls < prev    next >
Encoding:
Text File  |  2000-11-15  |  1.3 KB  |  41 lines
  1. on mouseEnter me
  2.   spr = me.spriteNum
  3.   nom = member(the member of sprite spr).name
  4.   set the member of sprite spr to nom && "on"
  5.   updateStage()
  6. end
  7.  
  8. on mouseLeave me
  9.   spr = me.spriteNum
  10.   nom = word 1 of the name of member the member of sprite spr
  11.   set the member of sprite spr to nom
  12.   updateStage()
  13. end
  14.  
  15. on mouseDown
  16.   if member(the member of sprite 70).name contains "video" then
  17.   else
  18.     puppetSound("diapo")
  19.   end if
  20.   foto = word 1 of the name of member the member of sprite 70
  21.   FotoOVideo = word 2 of the name of member the member of sprite 70
  22.   numero = value(word 3 of the name of member the member of sprite 70)
  23.   actual = the memberNum of sprite 70
  24.   if word 1 of the name of member (actual + 1) = foto then
  25.     set the ink of sprite 70 to 32
  26.     repeat while the blend of sprite 70 > 0
  27.       set the locH of sprite 36 to the locH of sprite 36 - 5
  28.       set the blend of sprite 70 to the blend of sprite 70 - 10
  29.       updateStage()
  30.     end repeat
  31.     set the member of sprite 70 to foto && FotoOVideo && numero + 1
  32.     repeat while the blend of sprite 70 < 100
  33.       set the locH of sprite 36 to the locH of sprite 36 + 5
  34.       set the blend of sprite 70 to the blend of sprite 70 + 10
  35.       updateStage()
  36.     end repeat
  37.     set the ink of sprite 70 to 0
  38.     updateStage()
  39.   end if
  40. end
  41.