home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Corrida / 5Miles2Go.swf / scripts / frame_330 / DoAction.as
Encoding:
Text File  |  2001-07-07  |  5.3 KB  |  91 lines
  1. CarCount = "1";
  2. while(CarCount < "5")
  3. {
  4.    TheCar = "/car" add CarCount;
  5.    CarInFront = eval(TheCar add "/:FrontLink");
  6.    CarInFront1 = eval(TheCar add "/:FrontLink1");
  7.    CarBehind = eval(TheCar add "/:RearLink");
  8.    CarBehind1 = eval(TheCar add "/:RearLink1");
  9.    if(- eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft") < "0")
  10.    {
  11.       if(CarInFront ne "0")
  12.       {
  13.          if(getProperty(CarInFront, _X) + getProperty(CarInFront, _width) / "2" < getProperty(TheCar, _X) - getProperty(TheCar, _width) / "2" - "5" or getProperty(TheCar, _Y) + getProperty(TheCar, _height) / "2" + "2" < getProperty(CarInFront, _Y) - getProperty(CarInFront, _height) / "2" or getProperty(CarInFront, _Y) + getProperty(CarInFront, _height) / "2" < getProperty(TheCar, _Y) - getProperty(TheCar, _height) / "2" - "2")
  14.          {
  15.             if(CarInFront1 ne "0")
  16.             {
  17.                if(getProperty(CarInFront1, _X) + getProperty(CarInFront1, _width) / "2" < getProperty(TheCar, _X) - getProperty(TheCar, _width) / "2" - "5" or getProperty(TheCar, _Y) + getProperty(TheCar, _height) / "2" + "2" < getProperty(CarInFront1, _Y) - getProperty(CarInFront1, _height) / "2" or getProperty(CarInFront1, _Y) + getProperty(CarInFront1, _height) / "2" < getProperty(TheCar, _Y) - getProperty(TheCar, _height) / "2" - "2")
  18.                {
  19.                   setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  20.                }
  21.             }
  22.             else
  23.             {
  24.                setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  25.             }
  26.          }
  27.       }
  28.       else if(CarInFront1 ne "0")
  29.       {
  30.          if(getProperty(CarInFront1, _X) + getProperty(CarInFront1, _width) / "2" < getProperty(TheCar, _X) - getProperty(TheCar, _width) / "2" - "5" or getProperty(TheCar, _Y) + getProperty(TheCar, _height) / "2" + "2" < getProperty(CarInFront1, _Y) - getProperty(CarInFront1, _height) / "2" or getProperty(CarInFront1, _Y) + getProperty(CarInFront1, _height) / "2" < getProperty(TheCar, _Y) - getProperty(TheCar, _height) / "2" - "2")
  31.          {
  32.             setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  33.          }
  34.       }
  35.       else
  36.       {
  37.          setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  38.       }
  39.    }
  40.    else if("0" < - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"))
  41.    {
  42.       if(CarInBehind ne "0")
  43.       {
  44.          if(getProperty(TheCar, _X) + getProperty(TheCar, _width) / "2" + "5" < getProperty(CarBehind, _X) - getProperty(CarBehind, _width) / "2" or getProperty(TheCar, _Y) + getProperty(TheCar, _height) / "2" + "2" < getProperty(CarBehind, _Y) - getProperty(CarBehind, _height) / "2" or getProperty(CarBehind, _Y) + getProperty(CarBehind, _height) / "2" < getProperty(TheCar, _Y) - getProperty(TheCar, _height) / "2" - "2")
  45.          {
  46.             if(CarInBehind1 ne "0")
  47.             {
  48.                if(getProperty(TheCar, _X) + getProperty(TheCar, _width) / "2" + "5" < getProperty(CarBehind1, _X) - getProperty(CarBehind1, _width) / "2" or getProperty(TheCar, _Y) + getProperty(TheCar, _height) / "2" + "2" < getProperty(CarBehind1, _Y) - getProperty(CarBehind1, _height) / "2" or getProperty(CarBehind1, _Y) + getProperty(CarBehind1, _height) / "2" < getProperty(TheCar, _Y) - getProperty(TheCar, _height) / "2" - "2")
  49.                {
  50.                   setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  51.                }
  52.             }
  53.             else
  54.             {
  55.                setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  56.             }
  57.          }
  58.       }
  59.       else if(CarInBehind1 ne "0")
  60.       {
  61.          if(getProperty(TheCar, _X) + getProperty(TheCar, _width) / "2" + "5" < getProperty(CarBehind1, _X) - getProperty(CarBehind1, _width) / "2" or getProperty(TheCar, _Y) + getProperty(TheCar, _height) / "2" + "2" < getProperty(CarBehind1, _Y) - getProperty(CarBehind1, _height) / "2" or getProperty(CarBehind1, _Y) + getProperty(CarBehind1, _height) / "2" < getProperty(TheCar, _Y) - getProperty(TheCar, _height) / "2" - "2")
  62.          {
  63.             setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  64.          }
  65.       }
  66.       else
  67.       {
  68.          setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  69.       }
  70.    }
  71.    else
  72.    {
  73.       setProperty(TheCar, _X, getProperty(TheCar, _X) - eval(TheCar add "/:TotalDraft") + eval("/car5/:TotalDraft"));
  74.    }
  75.    CarCount += "1";
  76. }
  77. PCount2 = "1";
  78. while(PCount2 < "5")
  79. {
  80.    if(getProperty(eval("p" add (PCount2 + "1")), _X) < getProperty(eval("p" add PCount2), _X))
  81.    {
  82.       Temp = eval("p" add PCount2);
  83.       set("p" add PCount2,eval("p" add (PCount2 + "1")));
  84.       set("p" add (PCount2 + "1"),Temp);
  85.       TempDriverName = eval("Place" add PCount2);
  86.       set("Place" add PCount2,eval("Place" add (PCount2 + "1")));
  87.       set("Place" add (PCount2 + "1"),TempDriverName);
  88.    }
  89.    PCount2 += "1";
  90. }
  91.