home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2001 September / PCpro_2001_09.ISO / autodemo / intro.swf / scripts / DefineSprite_379 / frame_1 / DoAction_2.as next >
Encoding:
Text File  |  2001-04-18  |  358 b   |  11 lines
  1. dragX = getProperty(action, _X);
  2. dragY = getProperty(action, _Y);
  3. squareX = getProperty(name, _X);
  4. squareY = getProperty(name, _Y);
  5. difX = dragX - squareX;
  6. difY = dragY - squareY;
  7. xStp = difX / Number(speed);
  8. yStp = difY / Number(speed);
  9. setProperty(name, _X, Number(squareX) + Number(xStp));
  10. setProperty(name, _Y, Number(squareY) + Number(yStp));
  11.