超酷鼠标特效~~~~~[原创] [全屏欣赏] 1)总体程序如图所示: 隐形电影夹子的实体名字为:start();moviestart电影夹子的实体名字为:star;control电影夹子的实体名字为:control。 现在我们先打开隐形电影夹子,发现里面什么也没有。 它在图层Layer1的第1帧(即程序一开始)被调用,主要起鼠标跟随的作用。 打开moviestar电影夹子如图所示: 即为一颗红色的星星绕白色的圆周一圈。 最后打开control电影夹子: 第1帧的Actions为: Comment: 复制夹子的总数 Set Variable: "i" = 36 Comment: 一圈内的夹子数 Set Variable: "n" = 12 Comment: 跟随快慢的系数 Set Variable: "r" = 3 Set Variable: "counter" = 1 Loop While (counter <= i) Duplicate Movie Clip ("/star", "star" & counter, counter) Set Property ("/star" & counter, Rotation) = 360-(360 / n) * counter Set Property ("/star" & counter, Alpha) = 100-(100 / i) * counter Set Variable: "counter" = counter + 1 End Loop Set Property ("/star", Visibility) = False Set Variable: "x" = GetProperty ("/star0", _x ) Set Variable: "y" = GetProperty ("/star0", _y ) 大体意思为:连续复制电影夹子moviestar,总数为36个,并设定每个相应的旋转角度和透明度;设定实体名字为star的电影夹子不可见;设定“X”、“Y”为隐形电影夹子的“X”、“Y”坐标值。 第2帧的Actions为: Set Variable: "counter" = 1 Loop While (counter <= i) Set Property ("/star" & counter, X Position) = GetProperty ("/star" & counter, _x ) + (GetProperty ( "/star" &(counter-1) , _x ) - GetProperty ("/star" & counter, _x )) / r Set Property ("/star" & counter, Y Position) = GetProperty ("/star" & counter, _y ) + (GetProperty ( "/star" &(counter-1) , _y ) - GetProperty ("/star" & counter, _y )) / r Set Variable: "counter" = counter + 1 End Loop 大体意思为:设定刚复制的36个电影夹子的“X”和“Y”坐标。 第3帧的Actions为: Go to and Play (2) 即与第2帧形成循环。 |
Word教程网 | Excel教程网 | Dreamweaver教程网 | Fireworks教程网 | PPT教程网 | FLASH教程网 | PS教程网 |
HTML教程网 | DIV CSS教程网 | FLASH AS教程网 | ACCESS教程网 | SQL SERVER教程网 | C语言教程网 | JAVASCRIPT教程网 |
ASP教程网 | ASP.NET教程网 | CorelDraw教程网 |