home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Acao / BugTime.swf / scripts / DefineSprite_115 / frame_14 / DoAction.as
Encoding:
Text File  |  2005-10-04  |  1.1 KB  |  31 lines
  1. if(Number(ready) == 1)
  2. {
  3.    set("/:shots",Number(eval("/:shots")) + 1);
  4.    set("/:shooting",1);
  5.    shotname = Number(shotname) + 1;
  6.    if(Number(shotname) >= 5999 or Number(shotname) < 5000)
  7.    {
  8.       shotname = 5000;
  9.    }
  10.    duplicateMovieClip("../gunshot","shot" add shotname,16384 + shotname);
  11.    set("../shot" add shotname add ":xpos",gunx);
  12.    set("../shot" add shotname add ":ypos",guny);
  13.    if(Number(abs_mouse_x) >= Number(abs_mouse_y))
  14.    {
  15.       set("../shot" add shotname add ":xmov",eval("..:shotspeed") * xsign);
  16.       set("../shot" add shotname add ":ymov",eval("..:shotspeed") * (abs_mouse_y / abs_mouse_x) * ysign);
  17.    }
  18.    else
  19.    {
  20.       set("../shot" add shotname add ":ymov",eval("..:shotspeed") * ysign);
  21.       set("../shot" add shotname add ":xmov",eval("..:shotspeed") * (abs_mouse_x / abs_mouse_y) * xsign);
  22.    }
  23.    setProperty("../shot" add shotname, _rotation, angle);
  24.    setProperty("../shot" add shotname, _X, gunx);
  25.    setProperty("../shot" add shotname, _Y, guny);
  26.    tellTarget("player")
  27.    {
  28.       play();
  29.    }
  30. }
  31.