home *** CD-ROM | disk | FTP | other *** search
/ 200 Game / 200GAME2.iso / FLASHGAME / FOOTBALL.EXE / scripts / frame_2 / DoAction.as
Encoding:
Text File  |  2000-08-17  |  1.7 KB  |  82 lines
  1. t += "0.1";
  2. xx = eval("Ball:_scale");
  3. zaman += "1";
  4. tikx = getProperty("tik", _X);
  5. tiky = getProperty("tik", _Y);
  6. if("5" < zaman)
  7. {
  8.    zaman = "0";
  9.    oldtiky = getProperty("tik", _Y);
  10.    oldtikx = getProperty("tik", _X);
  11.    saydir = "0";
  12. }
  13. if(Dragging)
  14. {
  15.    oldx = x;
  16.    oldy = y;
  17.    x = getProperty("Ball", _X);
  18.    y = getProperty("Ball", _Y);
  19.    vx = (x - oldx) * "10";
  20.    vy = (y - oldy) * "10";
  21. }
  22. else
  23. {
  24.    vy += g / "10";
  25.    x += vx / "10";
  26.    y += vy / "10";
  27.    if(y < BallRadius)
  28.    {
  29.       y = BallRadius;
  30.       vx *= elastic;
  31.       vy = - vy * elastic;
  32.    }
  33.    if("300" - BallRadius < y)
  34.    {
  35.       y = "300" - BallRadius;
  36.       vx *= elastic;
  37.       vy = - vy * elastic;
  38.       count = "0";
  39.    }
  40.    if(x < BallRadius)
  41.    {
  42.       x = BallRadius;
  43.       vx = - vx * elastic;
  44.       vy *= elastic;
  45.       count = "0";
  46.    }
  47.    if("400" - BallRadius < x)
  48.    {
  49.       x = "400" - BallRadius;
  50.       vx = - vx * elastic;
  51.       vy *= elastic;
  52.    }
  53.    if(tiky - BallRadius < y and y < tiky + BallRadius and x < tikx + getProperty("tik", _width) / "2" and tikx - getProperty("tik", _width) / "2" < x)
  54.    {
  55.       y = tiky - BallRadius;
  56.       vx = vx * elastic + (tikx - oldtikx) * "2";
  57.       vy = - vy * elastic + (tiky - oldtiky) * "3";
  58.       saydir = "1";
  59.       tellTarget("tik")
  60.       {
  61.          play();
  62.       }
  63.       if(int(vy) == int(oldvy) or int(oldvx) == int(vx))
  64.       {
  65.          count = "0";
  66.       }
  67.       oldvy = vy;
  68.       oldvx = vx;
  69.    }
  70.    if(saydir == "1")
  71.    {
  72.       count += "1";
  73.       saydir = "0";
  74.       if(best < count)
  75.       {
  76.          best = count;
  77.       }
  78.    }
  79.    setProperty("Ball", _X, x);
  80.    setProperty("Ball", _Y, y);
  81. }
  82.