Results 1 to 7 of 7

Thread: radial walk problem

  1. #1
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default radial walk problem

    hi this is my procedure for my yew cutter which uses radialwalk but it doesnt work:

    // -RadialWalk
    function RadialWalk1(TheColor:Integer; StartRadial, EndRadial:Integer; Radius:Integer): Boolean;

    var i: Integer;
    var X1, Y1: integer;
    begin

    if StartRadial < EndRadial then
    begin
    repeat
    for i:=StartRadial to EndRadial do
    begin
    X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
    Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
    MoveMouse(X1, Y1);
    HoldMouse(X1, Y1, True);
    ReleaseMouse(X1, Y1, True);
    Flag;
    Exit;
    end
    Radius:= Radius - 4;
    until Radius <= 1 ;
    end

    if StartRadial > EndRadial then
    begin
    repeat
    for i:=StartRadial Downto EndRadial do
    begin
    X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
    Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
    MoveMouse(X1, Y1);
    HoldMouse(X1, Y1, True);
    ReleaseMouse(X1, Y1, True);
    Flag;
    Exit;
    end
    Radius := Radius - 4;
    until Radius <= 1;
    end
    end;



    // -DebugMe/Outputs Debug info
    procedure DebugMe(aString: string; Importance: Integer);
    begin
    if(DebugLevel >= Importance)then
    begin
    case LowerCase(DebugStyle) of
    'write' : WriteLn(astring);
    'disguise' : DisguiseScar(astring);
    'status' : Status(astring);
    end;
    end;
    end;


    // -SLGetSymbol/Lowers acc for better finding
    function SLGetSymbol(var ax, ay: Integer; Symbol: string): Integer;
    begin
    SymbolAccuracy := 0.7;
    if(Lowercase(Symbol) = 'bank')then
    SymbolAccuracy := 0.3;
    Result := GetSymbolColor(ax, ay, Symbol);
    DebugMe(IntToStr(ax)+' '+IntToStr(ay), 1);
    SymbolAccuracy := 0.8;
    end;


    // -Walk To Yew
    procedure WalkToYew1;
    begin
    RadialWalk(6645101,89, 449, 61, 1, 1);
    end;


    // -Walk To Yew
    procedure WalkToYew2;
    begin
    RadialWalk(2316643, 89, 449, 53, 1, 1);
    end;


    // -Walk To Yew
    procedure WalkToYew3;
    var
    x, y: Integer;
    begin
    FindSymbol(x,y,'dungeon')
    Mouse(x,y,4,4,true);
    Flag;
    end;


    // -Walk To Yew
    procedure WalkToYew4;
    begin
    RadialWalk(2185823, 75, 435, 71, 1, 1);
    end;


    // -Walk To Yew
    procedure WalkToYew5;
    begin
    RadialWalk(1866336,61, 421, 73, 1, 1);
    end;


    // -Walk To Yew
    procedure WalkToYew6;
    var
    x, y: Integer;

    begin
    FindSymbol(x,y,'tree');
    Mouse(x,y,4,4,true);
    Flag;
    end;


    // -Walk To Bank
    procedure BankWalker1;
    begin
    RadialWalk(1866350, 269, 629, 71, 1, 1);
    end;


    // -Walk To Bank
    procedure BankWalker2;
    begin
    RadialWalk(2452069, 242, 602, 67, 1, 1);
    end;


    // -Walk To Bank
    procedure BankWalker3;
    var
    x,y: integer;
    begin
    FindSymbol(x,y,'dungeon')
    Mouse(x,y,4,4,true);
    Flag;
    end;


    // -Walk To Bank
    procedure BankWalker4;
    begin
    RadialWalk(6381929, 269, 629, 67, 1, 1);
    end;


    // -Walk To Bank
    procedure BankWalker5;
    begin
    RadialWalk(6381929, 269, 629, 54, 1, 1);
    end;


    // -Walk To Bank
    procedure BankWalker6;
    var
    x,y: integer;
    begin
    FindSymbol(x,y,'bank');
    Wait(100)
    Mouse(x,y,4,4,true);
    Flag;
    end;

    it moves the mouse on the left corner of screen and searchs for the yew but it has not even walked to it so i dont know what to do.

    + i have read the tut of radialwalk by fawaki and when i use his radial function the mouse goes crazy on mmp and laggs alot, you should try..

  2. #2
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    First thing's first. Put all of that in a couple of SCAR tags.

    But I find that using the command...

    SCAR Code:
    RoadWalkTol(Color, 'Dirction', Tolerance);

    Is much easier to learn than RadialWalk.

  3. #3
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aight thx but what u mean by scar tags

  4. #4
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    [ SCAR ] [/ SCAR ]

    ^^^ Scar Tags ^^^

    Just without the spaces.

  5. #5
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [scar]
    code stuff here
    [/scar

    except make sure you include an end bracket after the second scar


    Edit: yea, jason beat me to it.

  6. #6
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    doesnt work i did:

    // -Walk To Yew
    procedure WalkToYew1;
    begin
    RodWalkTol(6645101,'E',5);
    end;


    // -Walk To Yew
    procedure WalkToYew2;
    begin
    RodWalkTol(2316643,'E', 5);
    end;


    // -Walk To Yew
    procedure WalkToYew3;
    var
    x, y: Integer;
    begin
    FindSymbol(x,y,'dungeon')
    Mouse(x,y,4,4,true);
    Flag;
    end;


    // -Walk To Yew
    procedure WalkToYew4;
    begin
    RodWalkTol(2185823,'E',5);
    end;


    // -Walk To Yew
    procedure WalkToYew5;
    begin
    RodWalkTol(1866336,'E',5);
    end;


    // -Walk To Yew
    procedure WalkToYew6;
    var
    x, y: Integer;

    begin
    FindSymbol(x,y,'tree');
    Mouse(x,y,4,4,true);
    Flag;
    end;


    // -Walk To Bank
    procedure BankWalker1;
    begin
    RodWalkTol(1866350,'W',5);
    end;


    // -Walk To Bank
    procedure BankWalker2;
    begin
    RodWalkTol(2452069,'W',5);
    end;


    // -Walk To Bank
    procedure BankWalker3;
    var
    x,y: integer;
    begin
    FindSymbol(x,y,'dungeon')
    Mouse(x,y,4,4,true);
    Flag;
    end;


    // -Walk To Bank
    procedure BankWalker4;
    begin
    RodWalkTol(6381929,'W',5);
    end;


    // -Walk To Bank
    procedure BankWalker5;
    begin
    RodWalkTol(6381929,'W',5);
    end;


    // -Walk To Bank
    procedure BankWalker6;
    var
    x,y: integer;
    begin
    FindSymbol(x,y,'bank');
    Wait(100)
    Mouse(x,y,4,4,true);
    Flag;
    end;


    says :

    error unknown identifier RoadWalkTol

  7. #7
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Edit: yea, jason beat me to it.
    W000T!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Radial Walk.
    By skilld u in forum OSR Help
    Replies: 2
    Last Post: 12-27-2007, 10:57 PM
  2. Radial Walk
    By Jackrawl in forum OSR Help
    Replies: 5
    Last Post: 09-16-2007, 03:34 AM
  3. radial walk problem help plz
    By daddyproboot in forum OSR Help
    Replies: 4
    Last Post: 06-25-2007, 02:33 PM

Posting Permissions

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