home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / oddech / space / spacecraft.exe / scripts / DefineSprite_237 / frame_3 / DoAction.as
Encoding:
Text File  |  2002-10-22  |  826 b   |  39 lines
  1. _X = _X + xStep;
  2. _Y = _Y + yStep;
  3. name = _name;
  4. bombdrop += random("50");
  5. set("/id:name",name);
  6. if(name eq "alien")
  7. {
  8.    stop();
  9. }
  10. if(bombdrop >= firenow)
  11. {
  12.    tellTarget("../dropsound")
  13.    {
  14.       gotoAndStop(2);
  15.    }
  16.    tellTarget("..")
  17.    {
  18.       x += "1";
  19.       name = eval("/id:name");
  20.       dropnum = "drop" add x;
  21.       duplicateMovieClip("/drop",dropnum,"16384" + x);
  22.       setProperty(dropnum, _X, getProperty(name, _X));
  23.       setProperty(dropnum, _Y, getProperty(name, _Y));
  24.    }
  25.    bombdrop = "0";
  26. }
  27. shipX = getProperty("/schiff", _X);
  28. shipY = getProperty("/schiff", _Y);
  29. selfX = _X;
  30. selfY = _Y;
  31. if(selfX - "40" < shipX and shipX < selfX + "40" and selfY - "40" < shipY and shipY < selfY + "40")
  32. {
  33.    tellTarget("../shield")
  34.    {
  35.       nextFrame();
  36.    }
  37.    gotoAndStop(10);
  38. }
  39.