.net 1998 October/dotnet_50.iso/pc/media/moteur.dxr/00034_essai2.ls

Text File | 2000-10-02 | 279 b | 16 lines

on mouseEnter
  repeat with i = 1 to 5
    sprite(the currentSpriteNum + 10).blend = i * 20
    updateStage()
  end repeat
end

on mouseLeave
  cc = 5
  repeat while cc > -1
    sprite(the currentSpriteNum + 10).blend = cc * 20
    cc = cc - 1
    updateStage()
  end repeat
end