SRL Archive - SRL Archives

Even there are many walking procedures, I wanted to make my own.
It is the first version so dont expect anything what changes your life.

Gentlemen, let me introduce… SymWalk
Features

* Walks in to a direction specified by "Direction:string" , the options are:
___________________________________________________________________
n for North
e for East
s for South
w for West
__________________________________________________________________
ne for NorthEast
es for SouthEast * yes, es not se
sw for SouthWest
nw for NorthWest
_________________________________________________________________
The Distance of the clicks from the centre of the minimap you will decide
in the "Distance:integer".
_________________________________________________________________
This walker will not wait until the flag is gone, it will wait a time specified
in "ClickWait:integer" in milliseconds. The reason for not to wait until
the flag is gone, is that I think that it looks a bit botty when you click,
wait until flag is gone, click and so on.
_________________________________________________________________
This walker has an option too for walking until the symbol specified in
"Symbol:string" appears in the minimap(UntilSymbol:boolean). In "ClickSymbol:boolean" you can decide if you want the script to click at the symbol.
_________________________________________________________________
Example :
SymWalk('ne',50,7000,0,true,true,'bank');
_________________________________________________________________
If you are walking until the symbol instead of clicking for amount of times,
you can set Clicks to 0.

Also, please post your opinion -
a) Burn the script and never talk about it again.
b) Continue improving.

Thank you.

procedure SymWalk(Direction: string; Distance, ClickWait, Clicks: integer; UntilSymbol, ClickSymbol: boolean; Symbol: string);
{ Author : n3ss3s }
{ Description : Walks to the specific direction for amount of times.}
{ Direction := N / E / S / W / NE / ES / SW / NW }
var i: integer;
  DirPoint: TPoint;
begin
  i := 0;
  case Direction of
    'n': begin
        DirPoint.x := MMCX;
        DirPoint.y := MMCY - Distance + random(15);
      end;
    'e': begin
        DirPoint.x := MMCX + Distance + random(15);
        DirPoint.y := MMCY;
      end;
    's': begin
        DirPoint.x := MMCX;
        DirPoint.y := MMCY + Distance + random(15);
      end;
    'w': begin
        DirPoint.x := MMCX - Distance + random(15);
        DirPoint.y := MMCY;
      end;
    'ne': begin
        DirPoint.x := MMCX + Distance + random(15);
        DirPoint.y := MMCY - Distance + random(15);
      end;
    'es': begin
        DirPoint.x := MMCX + Distance + random(15);
        DirPoint.y := MMCY + Distance + random(15);
      end;
    'sw': begin
        DirPoint.x := MMCX - Distance + random(15);
        DirPoint.y := MMCY + Distance + random(15);
      end;
    'nw': begin
        DirPoint.x := MMCX - Distance + random(15);
        DirPoint.y := MMCY - Distance + random(15);
      end;
  end; // End Case.
  if (not (UntilSymbol)) then
  begin
    repeat
      begin
        Mouse(DirPoint.x, DirPoint.y, 0, 0, true);
        Wait(ClickWait + random(85));
        i := i + 1;
      end;
    until (i = clicks);
  end
  else
  begin
    if (UntilSymbol) then
    begin
      repeat
        begin
          Mouse(DirPoint.x, DirPoint.y, 0, 0, true);
          Wait(ClickWait + random(85));
        end;
      until (FindSymbol(x, y, Symbol));
    end;
    if (ClickSymbol) then
    begin
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;