home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / DesktopInvaders.swf / scripts / frame_20 / DoAction.as
Encoding:
Text File  |  2006-06-13  |  829 b   |  31 lines
  1. if(she == "200")
  2. {
  3.    duplicateMovieClip("/shieldcov","shieldcov" add shieldlay,shieldlay + 16384);
  4.    setProperty("shieldcov" add shieldlay, _X, x * "4" + "4");
  5.    setProperty("shieldcov" add shieldlay, _Y, y * "4" + "4");
  6.    set(x add "dm" add y,shieldlay);
  7.    setProperty("shieldcov" add shieldlay, _alpha, shieldred);
  8.    set(x add "alp" add y,shieldred);
  9.    shieldlay += "1";
  10.    call("bulexp");
  11.    call("clearbullet");
  12. }
  13. else
  14. {
  15.    alp = eval(x add "alp" add y) + shieldred;
  16.    if(alp < "75")
  17.    {
  18.       setProperty("shieldcov" add she, _alpha, alp);
  19.       set(x add "alp" add y,alp);
  20.       call("bulexp");
  21.       call("clearbullet");
  22.    }
  23.    else
  24.    {
  25.       setProperty("shieldcov" add she, _alpha, "100");
  26.       set(x add "dm" add y,"0");
  27.       call("bulexp");
  28.       call("clearbullet");
  29.    }
  30. }
  31.