Results 1 to 2 of 2

Thread: Little help with pathing

  1. #1
    Join Date
    Jun 2006
    Posts
    694
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Little help with pathing

    Can someone help me use this procedure?

    SCAR Code:
    function WalkPath(Path: TPointArray; FlagDist: Integer): boolean;
    var
      i: integer;
    begin
      if not WalkToPathTile(Path[i], 2)then Exit;
      for i := 0 to High(Path) do
      begin
        if i < High(Path) then
        begin
          while not TileOnMM(Point(Path[i+1].x, Path[i+1].y)) do wait(100+Random(100));
          wait(200+Random(700));
          WalkToPathTile(Path[i+1], 1);
        end else FFlag(FlagDist);
        wait(400+Random(200));
      end;
    end;

    Ive tried walkpath(blaa);
    and Walkpath(Result, 26);

    Someone help?

  2. #2
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    don't use that use this instead
    SCAR Code:
    Procedure WalkTo;
    Var
      I: Integer;
      Path: TPointArray;

    Begin
      if not(LoggedIn) then Exit;//failsafe
        Path := LoadPath;//loads the path
        for i := 0 to High(Path) do
          Begin
            WalkToTile(Path[i], 3, 0);//walks the path
          end;
            Wait(500+Random(300));
    end;
    and to load the path do
    SCAR Code:
    function LoadPath2: TPointArray;
    begin
      SetLength(result, 2);//changes depending on no of tiles

      Result[0] := Point(tiles here);
      Result[1] := Point(tiles here);
    end;
    if you need any help just pm me or add my msn sandos1234@hotmail.co.uk


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
  •