home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 October / dotnet_50.iso / pc / media / moteur.dxr / 00024_essai.ls < prev    next >
Encoding:
Text File  |  2000-10-02  |  585 b   |  33 lines
  1. on mouseEnter
  2.   repeat with i = 1 to 5
  3.     sprite(the currentSpriteNum + 10).blend = i * 20
  4.     updateStage()
  5.   end repeat
  6. end
  7.  
  8. on mouseLeave
  9.   cc = 5
  10.   repeat while cc > -1
  11.     sprite(the currentSpriteNum + 10).blend = cc * 20
  12.     cc = cc - 1
  13.     updateStage()
  14.   end repeat
  15. end
  16.  
  17. on mouseUp
  18.   global categO
  19.   repeat with i = 1 to 5
  20.     sprite(30).blend = i * 20
  21.     updateStage()
  22.   end repeat
  23.   put EMPTY into field "rubrique"
  24.   categO = the currentSpriteNum - 2
  25.   go(2)
  26.   cc = 5
  27.   repeat while cc > -1
  28.     sprite(30).blend = cc * 20
  29.     cc = cc - 1
  30.     updateStage()
  31.   end repeat
  32. end
  33.