home *** CD-ROM | disk | FTP | other *** search
/ PCMania 14 / Pcmania_Ep2_14_CD-ART_Futura_2000.iso / Datos / AnimE.dir / 00038.ls < prev    next >
Encoding:
Text File  |  2000-11-15  |  582 b   |  27 lines
  1. on mouseDown me
  2.   spr = me.spriteNum
  3.   texto = member(the member of sprite (spr - 1)).name
  4.   repeat while the mouseDown
  5.     X = member(texto).scrollTop
  6.     if X <= 0 then
  7.       next repeat
  8.     end if
  9.     member(texto).scrollTop = X - 16
  10.     updateStage()
  11.   end repeat
  12. end
  13.  
  14. on mouseEnter me
  15.   spr = me.spriteNum
  16.   nom = member(the member of sprite spr).name
  17.   set the member of sprite spr to nom && "on"
  18.   updateStage()
  19. end
  20.  
  21. on mouseLeave me
  22.   spr = me.spriteNum
  23.   nom = word 1 of the name of member the member of sprite spr
  24.   set the member of sprite spr to nom
  25.   updateStage()
  26. end
  27.