Results 1 to 7 of 7

Thread: need some help with radial walking

  1. #1
    Join Date
    Jun 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need some help with radial walking

    ok well i have looked through many tuts(i believe all of them) on radial walking

    i have this so far:
    Code:
    procedure walktomine;
    begin
      wait(5000)
      MakeCompass('N');
      RadialWalk(varrockroadcolor,56,61,72,2,2);
      wait(6000+random(1500));
      Flag;
      RadialWalk(varrockroadcolor,78,87,64,2,2);
    end;
    now for some reason it isn't clicking at all, like my guy doesn't move. I bet this is something really stupid that i am missing but can someone please help me out? Im trying to make my own iron miner and banker.

    thanks in advance

  2. #2
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    here use this i find it more accurate.

    SCAR Code:
    function CompassRadialWalk(var P : TPoint; Color, StartRadial, EndRadial, SRadius, ERadius: Integer): Boolean;
    var
        i, xx, yy: Integer;
        Add : Boolean;
    begin
     if (not(LoggedIn)) then exit;
    if (SRadius < ERadius) then
    Add := True;
      if (StartRadial < EndRadial) then
      begin
             repeat
             for i := StartRadial to EndRadial do
              begin
               if (not(LoggedIn)) then exit;
                    xx := Round(SRadius * Sin((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 646);
                    yy := Round(-SRadius * Cos((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 84);

               if (FindColor(x, y, Color, xx, yy, xx + 1, yy + 1)) then
              begin
                  P.x:= x;
                  P.y:= y;
                  Result := True;
                  Exit;
              end;
            end;

          SRadius := SRadius - 4;

          If (Add) then
          SRadius := SRadius + 8;

        until (InRange(SRadius, ERadius - 4, ERadius + 4));
      end;
      if (StartRadial > EndRadial) then
      begin
        repeat
          for i := StartRadial downto EndRadial do
          begin
           if (not(LoggedIn)) then exit;
                    xx := Round(SRadius * Sin((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 646);
                    yy := Round(-SRadius * Cos((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 84);

              if (FindColor(x, y, Color, xx, yy, xx + 1, yy + 1)) then
              begin
                  P.x := x;
                  P.y := y;
                  Result := True;
                  Exit;
              end;

          end;
            SRadius := SRadius - 4;
          If (Add) then
          SRadius := SRadius + 8;

        until (InRange(SRadius, ERadius - 4, ERadius + 4));
      end
    end;

  3. #3
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Moved to proper section
    Heres a radial road walk tutorial
    http://www.villavu.com/forum/showthread.php?t=372

  4. #4
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Ahh, that tutorial is a bit complicated. Try BobboHobbo's. I'm not giving you the link though. You have to use the search button
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  5. #5
    Join Date
    Jun 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sweet thanks so much guys!

  6. #6
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    21:24:49 firefox.exe need some help with radial walking - SRL-Forums - Mozilla Firefox Sky Scripter, i tried yours, and it doesnt work, i still get the same exact problem randomness6 got, and i've been getting it. I get the same error using RadialWalk, RadialRoadWalk, LinearWalk, and LinearRoadWalk..

  7. #7
    Join Date
    Nov 2006
    Location
    Latvia
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think you use incorrect color finding!

    SCAR Code:
    procedure walktomine;
    var
     WarockColor:=VarockRoadColor;
     begin
       wait(5000)
       MakeCompass('N');
       RadialWalk(WarockColor,56,61,72,2,2); // for thees symbols use in SRL 3.81 radial walk script which will helps you know perfect symbols. Its something like program whic captures rs mmap and then you can get correct coordinates!
      wait(6000+random(1500));
      Flag;
      RadialWalk(WarockColor,78,87,64,2,2);
    end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Radial Walking
    By knassyl in forum OSR Help
    Replies: 3
    Last Post: 10-22-2007, 12:00 PM
  2. Radial Walking Help!
    By Ilikepie1995 in forum OSR Help
    Replies: 5
    Last Post: 10-19-2007, 11:23 PM
  3. Radial Walking Help
    By Becks in forum OSR Help
    Replies: 2
    Last Post: 10-19-2007, 12:24 AM
  4. radial walking aid
    By Vap0ur in forum OSR Help
    Replies: 4
    Last Post: 10-15-2007, 12:41 AM

Posting Permissions

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