home *** CD-ROM | disk | FTP | other *** search
- PCount = "1";
- while("5" >= PCount)
- {
- ThisCar = "/" add eval("p" add PCount);
- call("DraftFromFront");
- PCount += "1";
- }
- PCount = "5";
- while("1" < PCount)
- {
- ThisCar = "/" add eval("p" add PCount);
- call("AddDraftSpeed1");
- PCount -= "1";
- }
- PCount = "1";
- while(PCount < "5")
- {
- ThisCar = "/" add eval("p" add PCount);
- call("AddDraftSpeed2");
- PCount += "1";
- }
- set("/car1/:TotalDraft",eval("/car1/:FrontDraft") + eval("/car1/:RearDraft"));
- set("/car2/:TotalDraft",eval("/car2/:FrontDraft") + eval("/car2/:RearDraft"));
- set("/car3/:TotalDraft",eval("/car3/:FrontDraft") + eval("/car3/:RearDraft"));
- set("/car4/:TotalDraft",eval("/car4/:FrontDraft") + eval("/car4/:RearDraft"));
- set("/car5/:TotalDraft",eval("/car5/:FrontDraft") + eval("/car5/:RearDraft"));
-