home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / DesktopInvaders.swf / scripts / frame_9 / DoAction_3.as < prev    next >
Encoding:
Text File  |  2006-06-13  |  1.6 KB  |  62 lines
  1. count = "1";
  2. while(totwep >= count)
  3. {
  4.    y = eval("wepy" add count);
  5.    if("0" < y)
  6.    {
  7.       x = eval("wepx" add count);
  8.       y += "2";
  9.       if(y == "41" and life == "0" and x >= shipx and shipx + "4" >= x)
  10.       {
  11.          life = "220";
  12.          nowep = "30";
  13.       }
  14.       if(y < "43")
  15.       {
  16.          call("wepdown");
  17.       }
  18.       else
  19.       {
  20.          set(x add "am" add (y - "2"),"0");
  21.          removeMovieClip("wep" add count);
  22.          duplicateMovieClip("/wepexp","wep" add count,"153" + count + 16384);
  23.          setProperty("wep" add count, _X, x * "4" + wepoffx);
  24.          setProperty("wep" add count, _Y, y * "4" + wepoffy);
  25.          setProperty("wep" add count, _alpha, "100");
  26.          alienfire -= "1";
  27.          set("wepy" add count,"0");
  28.       }
  29.    }
  30.    count += "1";
  31. }
  32. if(nowep == "0")
  33. {
  34.    if(eval("wepy" add curwep) == "0")
  35.    {
  36.       d = "1" + int(random("40"));
  37.       if("0" < eval("alienp" add d))
  38.       {
  39.          x = eval("alienx" add d) + "1";
  40.          y = int(eval("alieny" add d) / "2") * "2" - "1";
  41.          set("wepx" add curwep,x);
  42.          set("wepy" add curwep,y);
  43.          set(x add "am" add y,"53" + curwep);
  44.          removeMovieClip("wep" add curwep);
  45.          duplicateMovieClip("/wep","wep" add curwep,"153" + curwep + 16384);
  46.          alienfire += "1";
  47.          setProperty("wep" add curwep, _X, x * "4" + wepoffx);
  48.          setProperty("wep" add curwep, _Y, y * "4" + "4" + wepoffy);
  49.          setProperty("wep" add curwep, _alpha, "100");
  50.          curwep += "1";
  51.          if(totwep < curwep)
  52.          {
  53.             curwep = "1";
  54.          }
  55.       }
  56.    }
  57. }
  58. else
  59. {
  60.    nowep -= "1";
  61. }
  62.