home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Nave / Graviton.swf / scripts / DefineSprite_105 / frame_2 / DoAction.as
Encoding:
Text File  |  2005-08-05  |  559 b   |  30 lines
  1. oldx = _X;
  2. oldy = _Y;
  3. xdif = _X - getProperty("../ufo1", _X);
  4. ydif = _Y - getProperty("../ufo1", _Y);
  5. if("0" < xdif * xdif)
  6. {
  7.    _X = getProperty("../ufo1", _X) + xdif * speed;
  8. }
  9. else
  10. {
  11.    _X = getProperty("../ufo1", _X);
  12. }
  13. if("0" < ydif * ydif)
  14. {
  15.    _Y = getProperty("../ufo1", _Y) + ydif * speed;
  16. }
  17. else
  18. {
  19.    _Y = getProperty("../ufo1", _Y);
  20. }
  21. set("/:movx",oldx - _X);
  22. set("/:movy",oldy - _Y);
  23. tellTarget("/ufo1")
  24. {
  25.    _X = _X + eval("/:movx");
  26.    _Y = _Y + eval("/:movy");
  27. }
  28. _X = _X + eval("/:movx");
  29. _Y = _Y + eval("/:movy");
  30.