Results 1 to 12 of 12

Thread: Load Multiple DDTMs

  1. #1
    Join Date
    Jul 2007
    Location
    Pluto... Maybe?
    Posts
    198
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Load Multiple DDTMs

    Im trying to load multiple ddtm's but keep failing heres what i want to do:

    SCAR Code:
    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: array[0..3] of TDTMPointDef;
      TempTDTM: TDTM;
      RoadColour, RockColour : Integer;
    begin
      case WalkNumber of
        1: begin
        RoadColour := FindVarrockRoadColor;
        RockColour := FindRockColor;
      dtmMainPoint.x := 1024;
      dtmMainPoint.y := 299;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1024;
      dtmSubPoints[0].y := 299;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1012;
      dtmSubPoints[1].y := 298;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RockColour; //rock
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1007;
      dtmSubPoints[2].y := 303;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RockColour; //rock
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1027;
      dtmSubPoints[3].y := 309;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;
    end;
    end;

    i want to load the one above and:

    SCAR Code:
    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: array[0..3] of TDTMPointDef;
      TempTDTM: TDTM;
      RoadColour : Integer;
    begin
      case WalkNumber of
        1: begin
        RoadColour := FindVarrockRoadColor;
      dtmMainPoint.x := 1114;
      dtmMainPoint.y := 328;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1114;
      dtmSubPoints[0].y := 328;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1123;
      dtmSubPoints[1].y := 293;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RoadColour;
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1134;
      dtmSubPoints[2].y := 360;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RoadColour;
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1082;
      dtmSubPoints[3].y := 330;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);

    end;
    end;
    end;

    but i keep getting errors.. i tried this:

    SCAR Code:
    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: array[0..3] of TDTMPointDef;
      TempTDTM: TDTM;
      RoadColour, RockColour : Integer;
    begin
      case WalkNumber of
        1: begin
        RoadColour := FindVarrockRoadColor;
        RockColour := FindRockColor;
      dtmMainPoint.x := 1024;
      dtmMainPoint.y := 299;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1024;
      dtmSubPoints[0].y := 299;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1012;
      dtmSubPoints[1].y := 298;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RockColour; //rock
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1007;
      dtmSubPoints[2].y := 303;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RockColour; //rock
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1027;
      dtmSubPoints[3].y := 309;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;
      2: begin
        dtmMainPoint.x := 1114;
      dtmMainPoint.y := 328;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1114;
      dtmSubPoints[0].y := 328;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1123;
      dtmSubPoints[1].y := 293;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RoadColour;
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1134;
      dtmSubPoints[2].y := 360;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RoadColour;
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1082;
      dtmSubPoints[3].y := 330;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);

    end;
    end;
    end;

    but that didnt work any pointers?

  2. #2
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Put
    SCAR Code:
    TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    After each case like 0 : After DDTM stuff

    Edit:

    To be exact:

    SCAR Code:
    {.include srl\srl.scar}
    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: array[0..3] of TDTMPointDef;
      TempTDTM: TDTM;
      RoadColour, RockColour : Integer;
    begin
      case WalkNumber of
        1: begin
        RoadColour := FindVarrockRoadColor;
        RockColour := FindRockColor;
      dtmMainPoint.x := 1024;
      dtmMainPoint.y := 299;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1024;
      dtmSubPoints[0].y := 299;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1012;
      dtmSubPoints[1].y := 298;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RockColour; //rock
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1007;
      dtmSubPoints[2].y := 303;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RockColour; //rock
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1027;
      dtmSubPoints[3].y := 309;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;
      2: begin
        dtmMainPoint.x := 1114;
      dtmMainPoint.y := 328;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1114;
      dtmSubPoints[0].y := 328;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1123;
      dtmSubPoints[1].y := 293;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RoadColour;
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1134;
      dtmSubPoints[2].y := 360;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RoadColour;
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1082;
      dtmSubPoints[3].y := 330;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);

    end;

    end;
    end;

    begin
    end.

    Sorry for bad standards.

    But, yeah, ^ that compiles.
    Last edited by Smarter Child; 08-29-2009 at 07:50 AM. Reason: example

  3. #3
    Join Date
    Jul 2007
    Location
    Pluto... Maybe?
    Posts
    198
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeh i tried that but it didnt work, but i just fixed it i just needed to load the other under the first end;

  4. #4
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    code from one of my current scripts:

    Code:
    function SetDDTMwalk(num:integer): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..4] of TDTMPointDef;
      TempTDTM: TDTM;
      gumbo:integer;
    begin
      gumbo:=findvarrockroadcolor;
      case num of
        0:
        begin
          dtmMainPoint.x := 718;
          dtmMainPoint.y := 363;
          dtmMainPoint.AreaSize := 0;
          dtmMainPoint.AreaShape := 0;
          dtmMainPoint.Color := 7501434;
          dtmMainPoint.Tolerance := 255;
    
          dtmSubPoints[0].x := 718;
          dtmSubPoints[0].y := 363;
          dtmSubPoints[0].AreaSize := 0;
          dtmSubPoints[0].AreaShape := 0;
          dtmSubPoints[0].Color := gumbo;
          dtmSubPoints[0].Tolerance := 25;
    
          dtmSubPoints[1].x := 739;
          dtmSubPoints[1].y := 361;
          dtmSubPoints[1].AreaSize := 0;
          dtmSubPoints[1].AreaShape := 0;
          dtmSubPoints[1].Color := gumbo;
          dtmSubPoints[1].Tolerance := 25;
    
          dtmSubPoints[2].x := 791;
          dtmSubPoints[2].y := 358;
          dtmSubPoints[2].AreaSize := 0;
          dtmSubPoints[2].AreaShape := 0;
          dtmSubPoints[2].Color := gumbo;
          dtmSubPoints[2].Tolerance := 0;
    
          dtmSubPoints[3].x := 833;
          dtmSubPoints[3].y := 359;
          dtmSubPoints[3].AreaSize := 0;
          dtmSubPoints[3].AreaShape := 0;
          dtmSubPoints[3].Color := gumbo;
          dtmSubPoints[3].Tolerance := 25;
    
          dtmSubPoints[4].x := 708;
          dtmSubPoints[4].y := 364;
          dtmSubPoints[4].AreaSize := 0;
          dtmSubPoints[4].AreaShape := 0;
          dtmSubPoints[4].Color := gumbo;
          dtmSubPoints[4].Tolerance := 25;
        end;
        1:
        begin
          dtmMainPoint.x := 761;
          dtmMainPoint.y := 393;
          dtmMainPoint.AreaSize := 0;
          dtmMainPoint.AreaShape := 0;
          dtmMainPoint.Color := 4157295;
          dtmMainPoint.Tolerance := 255;
    
          dtmSubPoints[0].x := 761;
          dtmSubPoints[0].y := 393;
          dtmSubPoints[0].AreaSize := 0;
          dtmSubPoints[0].AreaShape := 0;
          dtmSubPoints[0].Color := 4157295;
          dtmSubPoints[0].Tolerance := 255;
    
          dtmSubPoints[1].x := 735;
          dtmSubPoints[1].y := 265;
          dtmSubPoints[1].AreaSize := 0;
          dtmSubPoints[1].AreaShape := 0;
          dtmSubPoints[1].Color := gumbo;
          dtmSubPoints[1].Tolerance := 15;
    
          dtmSubPoints[2].x := 727;
          dtmSubPoints[2].y := 350;
          dtmSubPoints[2].AreaSize := 0;
          dtmSubPoints[2].AreaShape := 0;
          dtmSubPoints[2].Color := gumbo;
          dtmSubPoints[2].Tolerance := 15;
    
          dtmSubPoints[3].x := 813;
          dtmSubPoints[3].y := 325;
          dtmSubPoints[3].AreaSize := 0;
          dtmSubPoints[3].AreaShape := 0;
          dtmSubPoints[3].Color := gumbo;
          dtmSubPoints[3].Tolerance := 15;
    
          dtmSubPoints[4].x := 781;
          dtmSubPoints[4].y := 331;
          dtmSubPoints[4].AreaSize := 0;
          dtmSubPoints[4].AreaShape := 0;
          dtmSubPoints[4].Color := gumbo;
          dtmSubPoints[4].Tolerance := 15;
        end;
        2:
        begin
          dtmMainPoint.x := 780;
          dtmMainPoint.y := 389;
          dtmMainPoint.AreaSize := 0;
          dtmMainPoint.AreaShape := 0;
          dtmMainPoint.Color := 3568757;
          dtmMainPoint.Tolerance := 255;
    
          dtmSubPoints[0].x := 780;
          dtmSubPoints[0].y := 389;
          dtmSubPoints[0].AreaSize := 0;
          dtmSubPoints[0].AreaShape := 0;
          dtmSubPoints[0].Color := 3568757;
          dtmSubPoints[0].Tolerance := 255;
    
          dtmSubPoints[1].x := 742;
          dtmSubPoints[1].y := 295;
          dtmSubPoints[1].AreaSize := 0;
          dtmSubPoints[1].AreaShape := 0;
          dtmSubPoints[1].Color := gumbo;
          dtmSubPoints[1].Tolerance := 15;
    
          dtmSubPoints[2].x := 703;
          dtmSubPoints[2].y := 308;
          dtmSubPoints[2].AreaSize := 0;
          dtmSubPoints[2].AreaShape := 0;
          dtmSubPoints[2].Color := gumbo;
          dtmSubPoints[2].Tolerance := 15;
    
          dtmSubPoints[3].x := 775;
          dtmSubPoints[3].y := 258;
          dtmSubPoints[3].AreaSize := 0;
          dtmSubPoints[3].AreaShape := 0;
          dtmSubPoints[3].Color := gumbo;
          dtmSubPoints[3].Tolerance := 15;
    
          dtmSubPoints[4].x := 794;
          dtmSubPoints[4].y := 269;
          dtmSubPoints[4].AreaSize := 0;
          dtmSubPoints[4].AreaShape := 0;
          dtmSubPoints[4].Color := gumbo;
          dtmSubPoints[4].Tolerance := 15;
        end;
        3:
        begin
          dtmMainPoint.x := 836;
          dtmMainPoint.y := 304;
          dtmMainPoint.AreaSize := 0;
          dtmMainPoint.AreaShape := 0;
          dtmMainPoint.Color := gumbo;
          dtmMainPoint.Tolerance := 255;
    
          dtmSubPoints[0].x := 836;
          dtmSubPoints[0].y := 304;
          dtmSubPoints[0].AreaSize := 0;
          dtmSubPoints[0].AreaShape := 0;
          dtmSubPoints[0].Color := gumbo;
          dtmSubPoints[0].Tolerance := 255;
    
          dtmSubPoints[1].x := 771;
          dtmSubPoints[1].y := 256;
          dtmSubPoints[1].AreaSize := 0;
          dtmSubPoints[1].AreaShape := 0;
          dtmSubPoints[1].Color := gumbo;
          dtmSubPoints[1].Tolerance := 15;
    
          dtmSubPoints[2].x := 709;
          dtmSubPoints[2].y := 328;
          dtmSubPoints[2].AreaSize := 0;
          dtmSubPoints[2].AreaShape := 0;
          dtmSubPoints[2].Color := 7962498;
          dtmSubPoints[2].Tolerance := 15;
    
          dtmSubPoints[3].x := 749;
          dtmSubPoints[3].y := 275;
          dtmSubPoints[3].AreaSize := 0;
          dtmSubPoints[3].AreaShape := 0;
          dtmSubPoints[3].Color := gumbo;
          dtmSubPoints[3].Tolerance := 15;
    
          dtmSubPoints[4].x := 840;
          dtmSubPoints[4].y := 305;
          dtmSubPoints[4].AreaSize := 0;
          dtmSubPoints[4].AreaShape := 0;
          dtmSubPoints[4].Color := gumbo;
          dtmSubPoints[4].Tolerance := 15;
        end;
      end;
      number:=num;
      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;

  5. #5
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    You need to put a end; after each DDTM.

    SCAR Code:
    function LoadAllDTMWalks(WalkNumber: Integer): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: array[0..3] of TDTMPointDef;
      TempTDTM: TDTM;
      RoadColour, RockColour : Integer;
    begin
      case WalkNumber of
        1: begin
        RoadColour := FindVarrockRoadColor;
        RockColour := FindRockColor;
      dtmMainPoint.x := 1024;
      dtmMainPoint.y := 299;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1024;
      dtmSubPoints[0].y := 299;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1012;
      dtmSubPoints[1].y := 298;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RockColour; //rock
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1007;
      dtmSubPoints[2].y := 303;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RockColour; //rock
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1027;
      dtmSubPoints[3].y := 309;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;
      end;
      2: begin
        dtmMainPoint.x := 1114;
      dtmMainPoint.y := 328;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := RoadColour;
      dtmMainPoint.Tolerance := 5;

      dtmSubPoints[0].x := 1114;
      dtmSubPoints[0].y := 328;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := RoadColour;
      dtmSubPoints[0].Tolerance := 5;

      dtmSubPoints[1].x := 1123;
      dtmSubPoints[1].y := 293;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := RoadColour;
      dtmSubPoints[1].Tolerance := 5;

      dtmSubPoints[2].x := 1134;
      dtmSubPoints[2].y := 360;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := RoadColour;
      dtmSubPoints[2].Tolerance := 5;

      dtmSubPoints[3].x := 1082;
      dtmSubPoints[3].y := 330;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := RoadColour;
      dtmSubPoints[3].Tolerance := 5;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);

    end;
    end;
    end;

    This should work.

  6. #6
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    ninja-ed

  7. #7
    Join Date
    Jul 2007
    Location
    Pluto... Maybe?
    Posts
    198
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeh iv loaded them all now and they take up over 600 lines but just one more question.. how can i make it walk all my ddtms? heres the funtion i use to walk to them

    SCAR Code:
    function WalkToDdtm: Boolean;
    var
      WalktoDtm: integer;
    begin
      Walktodtm := LoadAllDTMWalks(1);
      if DTMRotated(Walktodtm, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 0, 0, True);
        WriteLn('DDTM Walking Found!');
        FFlag(5);
        Result := True;
          FreeDTM(Walktodtm);
          if not (Result) then
          begin
            Logout;
          end;
        end;
    end;

    Maybe
    SCAR Code:
    Walktodtm := LoadAllDTMWalks(1,2,3,4,5,6,7);
    ?

  8. #8
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    SCAR Code:
    for i := 1 to 7 do
    begin
      Walktodtm := LoadAllDTMWalks(i);
      if DTMRotated(Walktodtm, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 0, 0, True);
        WriteLn('DDTM(' + IntToStr(i) + ') Walking Found!');
        FFlag(5);
        Result := True;
          FreeDTM(Walktodtm);
          if not (Result) then
          begin
            Logout;
          end;
        end;
    end;

  9. #9
    Join Date
    Jul 2007
    Location
    Pluto... Maybe?
    Posts
    198
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ahh ok Thankyou

  10. #10
    Join Date
    Feb 2009
    Location
    Hungary (GMT + 1)
    Posts
    1,774
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here what I am using:
    SCAR Code:
    function WalkDDTM(index, RandX, RandY, FlagD: Integer) : Boolean;

    var
      TehDTM, x, y, i: Integer;
     
    begin
      TehDTM := SetDDTM(index);
      for i := 0 to 3 do
      begin
        Result := DTMRotated(TehDTM, x, y, MMX1, MMY1, MMX2, MMY2);
        if Result then
        begin
          MouseFlag(x, y, RandX, RandY, FlagD);
          Break;
        end;
        Wait(200);
      end;
      try
        FreeDTM(TehDTM);
      except end;
    end;

  11. #11
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Use this.
    SCAR Code:
    for i := 1 to 7 do
    begin
      Walktodtm := LoadAllDTMWalks(i);
      if DTMRotated(Walktodtm, X, Y, MMx1,MMy1,MMx2,MMy2) then
      begin
        Mouse(X, Y, 0, 0, True);
        WriteLn('DDTM(' + IntToStr(i) + ') Walking Found!');
        FFlag(5);
        Result := True;
        end else Logout;
      try
        FreeDTM(Walktodtm);
      except end;
    end;

  12. #12
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    600 lines of ddtm's! DDTM walking has never worked out well for me

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •