SRL Archive - SRL Archives

a) WaterWalk does not work.
b) This is a tuned uber version just for edgeville.

Okay, put your sunglasses on (h)

function EdgeWaterWalk(UpOrDown: Boolean; MaxRadius: Integer): Boolean;
// Sorry devs, WaterWalk doesnt work.
// False = Down, True = Up the river.
var
  StartColor, x1, y1, RiverX, RiverY, Tol, Counter, I, X, Y: Integer;
var
  StartRadial, EndRadial, Radius, MP: Integer;
var
  H, S: Extended;
begin
  ColorToleranceSpeed(2);
  H := 0.3;
  S := 0.3;
  Radius := 5;
  StartColor := FindWaterColor;
  if (StartColor = 0) or (StartColor = -1) then
    Exit;
  case UpOrDown of
    False: begin
        StartRadial := 90;
        EndRadial := 180;
        repeat
          Wait(20);
          repeat
            repeat
              for i := StartRadial to EndRadial do
              begin
                x1 := Round(Radius * Sine(i)) + MMCX;
                y1 := Round(-Radius * Cose(i)) + MMCY;
                if not LoggedIn then Exit;
                if (FindColorTolerance(RiverX, RiverY, StartColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
                begin
                  MP := 50;
                  repeat
                    if (Rs_OnMinimap(RiverX, RiverY + MP)) then
                    begin
                      Break;
                    end else
                    begin
                      MP := MP - 5;
                    end;
                  until (MP <= 1);
                  Result := True;
                  CountFlag(10);
                  ColorToleranceSpeed(1);
                  SetColorSpeed2Modifiers(0.3, 0.3);
                  Exit;
                end;
              end;
              Tol := Tol + 2;
            until(Tol >= 12);
            Radius := Radius + 1;
          until (Radius >= MaxRadius);
          H := H + 0.05;
          S := S + 0.05;
          SetColorSpeed2Modifiers(H, S);
          Counter := Counter + 1;
        until (Counter >= 25) or (Result) or (not (LoggedIn)); // 3 failsafes :O
      end;
    True: begin
        StartRadial := 1;
        EndRadial := 90;
        repeat
          Wait(20);
          repeat
            repeat
              for i := StartRadial to EndRadial do
              begin
                x1 := Round(Radius * Sine(i)) + MMCX;
                y1 := Round(-Radius * Cose(i)) + MMCY;
                if not LoggedIn then Exit;
                if (FindColorTolerance(RiverX, RiverY, StartColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
                begin
                  MP := 50;
                  repeat
                    if (Rs_OnMinimap(RiverX, RiverY - MP)) then
                    begin
                      Break;
                    end else
                    begin
                      MP := MP - 5;
                    end;
                  until (MP <= 1);
                  MouseFindNoFlag(RiverX, RiverY - MP, 1, 1);
                  Result := True;
                  CountFlag(10);
                  ColorToleranceSpeed(1);
                  SetColorSpeed2Modifiers(0.3, 0.3);
                  Exit;
                end;
              end;
              Tol := Tol + 2;
            until(Tol >= 12);
            Radius := Radius + 1;
          until (Radius >= MaxRadius);
          H := H + 0.05;
          S := S + 0.05;
          SetColorSpeed2Modifiers(H, S);
          Counter := Counter + 1;
        until (Counter >= 25) or (Result) or (not (LoggedIn));
      end;
  end;
end;

So, First set UpOrDown, Up = True, Down = False the river.

MaxRadius as the maximum radius the river might be from you, your needs.

Its max radius because you dont wanna click the river so that you end up varrock side of it.

Worked pretty much flawless for me, but if you are currently logged in rs, in edgeville and lil bored, please test and tell how it went.

Also tell is there (propably is) some improvements my techniques there need.

function EdgeWaterWalk(UpOrDown: Boolean; MaxRadius: Integer): Boolean;
var
  StartColor, x1, y1, RiverX, RiverY, Tol, Counter, I, X, Y: Integer;
var
  StartRadial, EndRadial, Radius, MP: Integer;
var
  H, S: Extended;
begin
  ColorToleranceSpeed(2);
  H := 0.3;
  S := 0.3;
  Radius := 5;
  StartColor := FindWaterColor;
  if (StartColor = 0) or (StartColor = -1) then
    Exit;
  case UpOrDown of
    False: begin
             StartRadial := 90;
             EndRadial := 180;
           end;
    True: begin
            StartRadial := 1;
            EndRadial := 90;
          end;
  end;
  repeat
    Wait(20);
      repeat
        repeat
          for i:= StartRadial to EndRadial do
            begin
              x1:= Round(Radius * Sine(i)) + MMCX;
              y1:= Round(-Radius * Cose(i)) + MMCY;
              if not LoggedIn then Exit;
              if (FindColorTolerance(RiverX, RiverY, StartColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
              begin
                MP:= 50;
                  repeat
                    if(Rs_OnMinimap(RiverX, RiverY + MP)) then break else
                    begin
                      MP := MP - 5;
                    end;
                  until (MP <= 1);
                Result := True;
                CountFlag(10);
                ColorToleranceSpeed(1);
                SetColorSpeed2Modifiers(0.3, 0.3);
                Exit;
              end;
            end;
        Tol := Tol + 2;
        until(Tol >= 12);
        Radius := Radius + 1;
      until (Radius >= MaxRadius);
      H := H + 0.05;
      S := S + 0.05;
      SetColorSpeed2Modifiers(H, S);
      Counter := Counter + 1;
  until (Counter >= 25) or (Result) or (not (LoggedIn)); // 3 failsafes :O
end;

Shortened alot, added some standards

Sorry but ehm…err… Your standards are wrong xD

For your "shortening" there (leaving out begin and end), why I didnt do that is because my scar gives errors for them usually when I try to make something =/

And its easier to read for me, and I dont want to try reading code obfuscated by my own hands xD

Anyways thank you for your time and interest :D

:D - http://www.villavu.com/forum/showthread.php?t=3293

heck yeah! You didnt follow em!

for example

repeat
    Wait(20);
      repeat

It is supposed to be

repeat
  Wait(20);
   repeat

Mine are rite :) g2g

From: n3ss3s
heck yeah! You didnt follow em!

for example

repeat
    Wait(20);
      repeat

It is supposed to be

repeat
  Wait(20);
   repeat

Mine are rite :) g2g

erm…

repeat
  puttoothpasteontoothbrush;
  repeat
    tehbrushteeth;
  until outatoothpaste;
until teethclean;

if im correct.

Since when did WaterWalk stop working?

EDIT: Hmm.. Maybe you are right, I thought I used waterwalk in my Edge Fisher, but I use RadialWalkEx.. Forgot that…

@rs monkey, yes your correct.

From: Wizzup?
Since when did WaterWalk stop working?

EDIT: Hmm.. Maybe you are right, I thought I used waterwalk in my Edge Fisher, but I use RadialWalkEx.. Forgot that…

WaterWalk works fine for me, I'm using it in my Lumbridge Miner, Smither, Banker.

Uhh it seems that 2 spaces in scar is 3 on the forums.

EDIT: wtf, now Im confused.

Anyways, its 2 spaces the thing.

And you have in your "standards"

repeat
2SpacesAndWait
2SpacesFromWaitAndrepeat

it should be

repeat
2SpacesAndWait
2SpacesAndRepeat

Meh? Well, I think Pwnazor and his standards should go else where (Just shuddap already Pwnazor!) until they will stop wasting bandwidth on trivial things.

I follow all of those standards, which to me includes indenting after a function declaration (I like it 'cause its more readable):

function SomeFunction: Boolean;
  begin       // <---
    Result:= SomeProc;
  end;

The forum does not make 2 spaces 3, it just makes 3 spaces look like 2 in the editing window. You don't edit in the post window… Lol? Another thing Pwnazor, you seem to like idolizing yourself. Please stop, its fairly annoying.

But I like the function, though I don't understand why you just didn't do RadialWalkEx?

Lets say because mine pwnz :p

Holy crap that was good question -.-

*cough* We never had this conversation, K? *cough*

Anyways I like making my own functions, and I will stay using it ;)

Attention!: R0b0t1 and pwnaz0r! Stop fighting guys! it is making me sad…
EDIT: This is pretty cool. I might use it!

From: r0b0t1
Another thing Pwnazor, you seem to like idolizing yourself. Please stop, its fairly annoying.

'Color Master'

Ownt.

Lolz :p. I was bitchslapped!

But I don't say I am better than people, I think there might be people better than me, but they just don't… Take me up on it?

From: r0b0t1

But I don't say I am better than people, I think there might be people better than me, but they just don't… Take me up on it?

So that of course makes you in the right…

From: Bourdou
Ownt.

Ego Check!

From: r0b0t1
Lolz :p. I was bitchslapped!

But I don't say I am better than people, I think there might be people better than me, but they just don't… Take me up on it?

What do you mean?

Enough spamming…take it to the BBQ pit?

[Offtopic] The Monkey's a Dev! [/Offtopic]

Ehm sorry r0b0t but I think you're about to get embarrassed :D

But I believe you are good on colors [XYZ, RGB, HSL] but Im sure there is one person who leaves you in his shadow…
In history of SRL…
This leet genius was known as..
*church bells ringing some funeral thing*

Lorax The Freckled

Spent some effort there lol.

Anyways, back on topic.