home *** CD-ROM | disk | FTP | other *** search
/ PCMania 14 / Pcmania_Ep2_14_CD-ART_Futura_2000.iso / Datos / Chris.dir / 00008.ls < prev    next >
Encoding:
Text File  |  2000-11-15  |  1.2 KB  |  40 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 40).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 40
  21.   numero = value(word 2 of the name of member the member of sprite 40)
  22.   actual = the memberNum of sprite 40
  23.   if word 1 of the name of member (actual - 1) = foto then
  24.     set the ink of sprite 40 to 32
  25.     repeat while the blend of sprite 40 > 0
  26.       set the locH of sprite 36 to the locH of sprite 36 + 5
  27.       set the blend of sprite 40 to the blend of sprite 40 - 10
  28.       updateStage()
  29.     end repeat
  30.     set the member of sprite 40 to foto && numero - 1
  31.     repeat while the blend of sprite 40 < 100
  32.       set the locH of sprite 36 to the locH of sprite 36 - 5
  33.       set the blend of sprite 40 to the blend of sprite 40 + 10
  34.       updateStage()
  35.     end repeat
  36.     set the ink of sprite 40 to 0
  37.     updateStage()
  38.   end if
  39. end
  40.