SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
ReyMen - SRL Member Application Form
ReyMen

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge


Other Communitys
Patriot of the srl-forums :)

How Long have You Played Runescape
More than year

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

First time knew about Scar mlong time ago .
From the times when Kaitnieks.com was not down.
First experience in programing got from school where I learned a bit from Pascal
Im 17 years old. Live in Latvia - Actually the same city as kaitnieks
I think i should be a member becouse my knowlenge about scar is better then moust of the new members . Thats what im thinking becouse of their posts.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

This is my first Rs script . Still have not realesed it in public. This script was requested so i made it

 {.include srl/srl.scar }

var
  BankerColor, FloorColor, SandColor, Loads: integer;
const
  HowManyloads = 10;

procedure DeclarePlayers;
begin

  HowManyPlayers := 2;
  NumberOfPlayers(howmanyplayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //name
  Players[0].Pass := ''; //pass
  Players[0].Nick := ''; // about 3 letters of ur name
  Players[0].Active := True;
  Players[0].String1 := 'Hard leather'; //add what to tune

  Players[1].Name := ''; //name
  Players[1].Pass := ''; //pass
  Players[1].Nick := ''; // about 3 letters of ur name
  Players[1].Active := False;
  Players[1].String1 := 'Hard leather'; //add what to tune

  writeln('using ' + inttostr(howmanyplayers) + ' player[s]');
end;

function FindColorBottom(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
begin
  while Y2 > Y1 do
  begin
    if not findcolor(Ix, Iy, Color, X1, Y2, X2, Y2) then
      Y2 := Y2 - 1
    else
    begin
      Result := true;
      exit;
    end;
  end;
  Result := false;
end;

function FindColorTop(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
var
  I: integer;
begin
  for I := Y1 to Y2 do
  begin
    if findcolor(Ix, Iy, Color, X1, I, x2, I) then
    begin
      Result := True;
      exit;
    end;
  end;
end;

function FindColorLeft(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
var
  I: Integer;
begin
  for I := X1 to x2 do
  begin
    if findcolor(Ix, Iy, Color, I, y1, I, y2) then
    begin
      Result := true;
      Exit;
    end;
  end;
end;

function FindColorRight(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
var
  I: Integer;
begin
  for I := X1 to x2 do
  begin
    if findcolor(Ix, Iy, Color, x2, y1, x2, y2) then
    begin
      Result := true;
      Exit;
    end;
    x2 := x2 - 1;
  end;
end;

procedure GetBankersColor;
var
  Ix, Iy, Banker, I: integer;
begin
  Banker := BitmapFromString(3, 3, 'FCFC02F5F500DDDD00FCFC02' +
    'EDED00CCCC00DDDD00CCCC00000001');
  for I := 0 to 150 do
    if FindBitmapToleranceIn(Banker, Ix, Iy, mmx1, mmy1, mmx2, mmy2, I) then
    begin
      BankerColor := (GetColor(Ix, Iy));
      Writeln('Banker Color ' + inttostr(BankerColor));
      exit;
      FreeBitmap(Banker)
    end;
  Writeln(' Banker Color not found . Restar script ')
    TerminateScript;
end;

procedure GetFloorColor;
var
  Ix, Iy: integer;
begin
  if FindColorTop(Ix, Iy, BankerColor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FloorColor := (getcolor(Ix, Iy - 4));
    writeln('Floor color ' + inttostr(FloorColor));
  end
  else
  begin
    Writeln('Did not find Floor color . Restart Script ')
      TerminateScript;
  end;
end;

procedure GetSandColor;
var
  Ix, Iy: integer;
begin
  if FindColorTop(Ix, Iy, FloorColor, 585, 112, 646, 163) then
  begin
    SandColor := (GetColor(Ix, Iy - 6))
      writeln('Sand color ' + inttostr(SandColor));
  end
  else
  begin
    Writeln(' Did not find sand color . Restart script  ')
      TerminateScript;
  end;
end;

procedure OpenDoors;
var
  Ix, Iy, Ix2, Iy2, ix3, iy3, I: integer;
begin
  FindColorRight(Ix, Iy, 617027, Msx1, Msy1, Msx2, Msy2)
    FindColorLeft(Ix2, Iy2, 617027, Msx1, msy1, msx2, Msy2)
    for I := 0 to 15 do
  begin
    if FindColorSpiralTolerance(iX3, iY3, 1791341, Ix2, MSY1, Ix, MSY2, I) then
    begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      if IsupTextMulti('Close', 'ose', 'Clo') then
        exit;
      if IsupTextMulti('Open', 'pen', 'Ope') then
      begin
        Mouse(iX, iY, 0, 0, True);
        exit;
      end;
    end;
  end;
  writeln(' Doors not found ')
    logout;
end;

procedure ToDoors;
var
  Ix, Iy, Zx, Zy, Ix2, Iy2: integer;
begin
  if not FindColorLeft(Ix, Iy, FloorColor, 597, 31, 682, 118) then
    logout
      if not FindColorTop(Zx, Zy, FloorColor, 597, 31, 682, 118) then
      logout
        Ix2 := ix + 15;
  Iy2 := zy + 10;
  if FindColorLeft(Ix, Iy, SandColor, Ix2, Iy2, Ix2 + 60, Iy2) then
  begin
    Mouse(Ix - 1, Iy, 1, 1, true)
      Flag;
    OpenDoors;
  end;
end;

function Homeflag: boolean;
var
  Ix, Iy, Zx, Zy, Ix2, Iy2: integer;
begin
  if not FindColorLeft(Ix, Iy, FloorColor, MMx1, MMy1, MMcx, MMcy) then
  begin
    writeln(' Procedure failed ');
    logout;
    exit;
  end;
  if not FindColorTop(zx, zy, FloorColor, MMx1, MMy1, MMcx, MMcy) then
  begin
    writeln(' Procedure failed ');
    logout;
    exit;
  end;
  Ix := ix + 15
    Zy := zy + 10
    Mouse(ix, zy, 0, 0, true)
    if FindColorBottom(iX2, iY2, 1127261, mmx1, mmy1, mmx2, mmy2) then
  begin
    if findcolor(Ix2, Iy2, 1127261, Ix - 3, Zy - 3, Ix + 3, Zy + 3) then
    begin
      writeln('Doors opened')
        Result := True;
    end
    else
      writeln('Doors closed ')
  end
  else
  begin
    writeln(' Flag not found ')
      logout;
  end;
end;

procedure Walking;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('N')
    Mouse(683, 61, 2, 2, True)
    SetRun(true)
    Fflag(20)
    Mouse(680, 30, 2, 2, True);
  FFlag(0);
  if not HomeFlag then
    ToDoors;
end;

function SpotEllis: Boolean;
var
  iX, iY, C, Color: Integer;

begin
  if not LoggedIn then
    Exit;
  Color := 4351672;
  repeat
    Wait(50);
    iX := MSCX;
    iY := MSCY;
    if FindColorSpiralTolerance(iX, iY, Color, MSX1, MSY1, MSX2, MSY2, 4) then
    begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      if IsupTextMulti('Talk', 'llis', 'alk-to') then
      begin
        Mouse(iX, iY, 0, 0, False);
        if not FindText(Ix, Iy, 'Fo', upchars, msx1, msy1, msx2, msy2) then
        begin
          Result := ChooseOption(iX, iY, 'Trade');
          if Result then
            Exit;
        end;
      end;
    end;
    C := C + 1;
  until C > 5;
  Wait(4000);
  if not LoggedIn then
    Exit;
end;

function FindEllis: boolean;
var
  I, Z, Ix, Iy: integer;
begin
  if not LoggedIn then
    Exit;
  for I := 0 to 7 do
  begin
    Result := SpotEllis

    if Result = True then
    begin
      Flag;
      exit;
    end
    else
    begin
      ChooseOption(iX, iY, 'ancel');
      wait(100);
      Z := Random(4) + 1;
      case (Z) of
        1: MakeCompass('E')
          2: MakeCompass('S')
          3: MakeCompass('W')
          4: MakeCompass('N')
      end;
    end;
  end;
  Writeln(' Ellis not found ')
    Logout;
  Nextplayer(true)
    exit;
end;

procedure Tune;
var
  Ix, Iy, I: integer;
begin
  if not LoggedIn then
    Exit;
  Wait(1000 + random(100))
    case Players[CurrentPlayer].String1 of
    'Soft leather':
      begin
        Ix := 90;
        Iy := 105;
      end;
    'Hard leather':
      begin
        Ix := 200;
        Iy := 105;
      end;
    'Snake skin1':
      begin
        Ix := 310;
        Iy := 105;
      end;
    'Snake skin2':
      begin
        Ix := 420;
        Iy := 105;
      end;
    'Green Dhide':
      begin
        Ix := 89;
        Iy := 228;
      end;
    'Blue Dhide':
      begin
        Ix := 211;
        Iy := 234;
      end;
    'Red Dhide':
      begin
        Ix := 315;
        Iy := 234;
      end;
    'Black Dhide':
      begin
        Ix := 430;
        Iy := 232;
      end;
  end;
  for I := 0 to 100 do
  begin
    wait(100)
      if (getcolor(488, 41) = 65536) then
      break
  end;
  MMouse(Ix, Iy, 2, 2)
    Wait(100 + random(100));
  Mouse(Ix, Iy, 2, 2, False);
  ChooseOption(iX, iY, 'All');
  if (getcolor(488, 41) = 65536) then
  begin
    Mouse(488, 41, 1, 1, True);
    wait(50 + random(50));
  end;
end;

procedure ToBank;
var
  Ix, Iy, Zx, Zy: integer;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('S');
  Mouse(653, 17, 2, 2, True)
    Wait(6000 + random(1000))
    FFlag(10);
  if findColorRight(Ix, Iy, BankerColor, mmx1, mmy1, mmx2, mmy2) then
    mouse(Ix - 20, Iy, 0, 1, True)
      Flag;
end;

function XOpenBank3: Boolean; // Almoust the same as OpenBank3
var
  x, y, fs, fs2: Integer;
begin
  if not LoggedIn then
    Exit;
  if not BankScreen then
    repeat
      if (FindObj3(x, y, 'ank', 4481658, 10)) then
        Mouse(x, y, 4, 4, False)
      else if (FindObj3(x, y, 'Use B', 2842230, 10)) then
        Mouse(x, y, 4, 4, False)
      else if (FindObj3(x, y, 'se Ba', 12611, 10)) then
        Mouse(x, y, 4, 4, False);
      Wait(250);
      if (ClickOption('quickly', 1)) then
      begin
        Flag;
        repeat
          Wait(100);
          fs := fs + 1;
        until (BankScreen) or (fs >= 10);
      end;
      fs2 := fs2 + 1;
    until (BankScreen) or (fs2 > 5);
  if BankScreen then
    Result := true;
end;

procedure DepositWithdraw;
begin
  if not LoggedIn then
    Exit;
  Deposit(2, 28, 2);
  Wait(100 + random(100))
    FixBank;
  Wait(50 + random(50))
    Withdraw(1, 1, 0);
  closebank;
end;

function MyOpenBank: boolean;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('W');
  Result := XOpenBank3;
  if result then
    exit
  else
  begin
    if not LoggedIn then
      Exit;
    Result := OpenBankGlass('akb', true, true);
    if result then
    begin
      exit;
      Nextplayer(true);
    end
    else
    begin
      Players[CurrentPlayer].Loc := 'failed';
      Writeln('Could not find bank ')
        Logout;
    end;
  end;
end;

Procedure Report;
begin
Writeln ( ' Script made by ReyMen ' )
writeln ( ' loads done ' + Inttostr (loads))
writeln ( ' Hides tunned ' + inttostr (loads*27))
end;

begin
  SetUpSrl;
  repeat
    DeclarePlayers;
    wait(5000)
      LoginPlayer;
      Loads := 0
    repeat
      MakeCompass('W')
        GetBankersColor;
      GetFloorColor;
      GetSandColor;
      Walking;
      FindEllis
        Tune;
      ToBank;
      MyOpenBank;
      DepositWithdraw;
      Loads := loads + 1
      Report;
        if loads = howmanyloads then
        break
    until not LoggedIn;
    NextPlayer(True);
  until false;
end. 

——————————————————
<!– END TEMPLATE: formanswers –>

hmm well the coding is pretty good. i can see you put some time into it. I would suggest tho that you learn radialwalking if you dont already know it and radialwalk the sand. Im going to go ahead and give it a yes because I can see you did in fact work on this script.

EDIT: Boreas I dnt think he needs many randoms. He may have just forgotten to add them.

@ReyMen - Put FindNormal Randoms where you trade the guy and open the bankscreen. Also I think if you are really 17, that should make up for your 5 post count even tho I dnt care about postcount, some people do…

Did I miss the antirandoms?

Other than that, pending yohojo's check, looks good.

Yes, i missed the randoms and I really need to learn radialwalk
Here's the version with randoms

// Tunes the hides   By Reymen

{.include srl/srl.scar }

var
  BankerColor, FloorColor, SandColor, Loads: integer;
const
  HowManyloads = 10;

procedure DeclarePlayers;
begin

  HowManyPlayers := 2;
  NumberOfPlayers(howmanyplayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //name
  Players[0].Pass := ''; //pass
  Players[0].Nick := ''; // about 3 letters of ur name
  Players[0].Active := True;
  Players[0].String1 := 'Hard leather'; //add what to tune

  Players[1].Name := ''; //name
  Players[1].Pass := ''; //pass
  Players[1].Nick := ''; // about 3 letters of ur name
  Players[1].Active := False;
  Players[1].String1 := 'Hard leather'; //add what to tune

  writeln('using ' + inttostr(howmanyplayers) + ' player[s]');
end;

function FindColorBottom(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
begin
  while Y2 > Y1 do
  begin
    if not findcolor(Ix, Iy, Color, X1, Y2, X2, Y2) then
      Y2 := Y2 - 1
    else
    begin
      Result := true;
      exit;
    end;
  end;
  Result := false;
end;

function FindColorTop(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
var
  I: integer;
begin
  for I := Y1 to Y2 do
  begin
    if findcolor(Ix, Iy, Color, X1, I, x2, I) then
    begin
      Result := True;
      exit;
    end;
  end;
end;

function FindColorLeft(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
var
  I: Integer;
begin
  for I := X1 to x2 do
  begin
    if findcolor(Ix, Iy, Color, I, y1, I, y2) then
    begin
      Result := true;
      Exit;
    end;
  end;
end;

function FindColorRight(var Ix, Iy: integer; Color, X1, Y1, X2, Y2: Integer):
  boolean;
var
  I: Integer;
begin
  for I := X1 to x2 do
  begin
    if findcolor(Ix, Iy, Color, x2, y1, x2, y2) then
    begin
      Result := true;
      Exit;
    end;
    x2 := x2 - 1;
  end;
end;

procedure GetBankersColor;
var
  Ix, Iy, Banker, I: integer;
begin
  Banker := BitmapFromString(3, 3, 'FCFC02F5F500DDDD00FCFC02' +
    'EDED00CCCC00DDDD00CCCC00000001');
  for I := 0 to 150 do
    if FindBitmapToleranceIn(Banker, Ix, Iy, mmx1, mmy1, mmx2, mmy2, I) then
    begin
      BankerColor := (GetColor(Ix, Iy));
      Writeln('Banker Color ' + inttostr(BankerColor));
      exit;
      FreeBitmap(Banker)
    end;
  Writeln(' Banker Color not found . Restar script ')
    TerminateScript;
end;

procedure GetFloorColor;
var
  Ix, Iy: integer;
begin
  if FindColorTop(Ix, Iy, BankerColor, mmx1, mmy1, mmx2, mmy2) then
  begin
    FloorColor := (getcolor(Ix, Iy - 4));
    writeln('Floor color ' + inttostr(FloorColor));
  end
  else
  begin
    Writeln('Did not find Floor color . Restart Script ')
      TerminateScript;
  end;
end;

procedure GetSandColor;
var
  Ix, Iy: integer;
begin
  if FindColorTop(Ix, Iy, FloorColor, 585, 112, 646, 163) then
  begin
    SandColor := (GetColor(Ix, Iy - 6))
      writeln('Sand color ' + inttostr(SandColor));
  end
  else
  begin
    Writeln(' Did not find sand color . Restart script  ')
      TerminateScript;
  end;
end;

procedure OpenDoors;
var
  Ix, Iy, Ix2, Iy2, ix3, iy3, I: integer;
begin
  FindColorRight(Ix, Iy, 617027, Msx1, Msy1, Msx2, Msy2)
    FindColorLeft(Ix2, Iy2, 617027, Msx1, msy1, msx2, Msy2)
    for I := 0 to 15 do
  begin
    if FindColorSpiralTolerance(iX3, iY3, 1791341, Ix2, MSY1, Ix, MSY2, I) then
    begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      if IsupTextMulti('Close', 'ose', 'Clo') then
        exit;
      if IsupTextMulti('Open', 'pen', 'Ope') then
      begin
        Mouse(iX, iY, 0, 0, True);
        exit;
      end;
    end;
  end;
  writeln(' Doors not found ')
    logout;
end;

procedure ToDoors;
var
  Ix, Iy, Zx, Zy, Ix2, Iy2: integer;
begin
  if not FindColorLeft(Ix, Iy, FloorColor, 597, 31, 682, 118) then
    logout
      if not FindColorTop(Zx, Zy, FloorColor, 597, 31, 682, 118) then
      logout
        Ix2 := ix + 15;
  Iy2 := zy + 10;
  if FindColorLeft(Ix, Iy, SandColor, Ix2, Iy2, Ix2 + 60, Iy2) then
  begin
    Mouse(Ix - 1, Iy, 1, 1, true)
      Flag;
    OpenDoors;
  end;
end;

function Homeflag: boolean;
var
  Ix, Iy, Zx, Zy, Ix2, Iy2: integer;
begin
  if not FindColorLeft(Ix, Iy, FloorColor, MMx1, MMy1, MMcx, MMcy) then
  begin
    writeln(' Procedure failed ');
    logout;
    exit;
  end;
  if not FindColorTop(zx, zy, FloorColor, MMx1, MMy1, MMcx, MMcy) then
  begin
    writeln(' Procedure failed ');
    logout;
    exit;
  end;
  Ix := ix + 15
    Zy := zy + 10
    Mouse(ix, zy, 0, 0, true)
    if FindColorBottom(iX2, iY2, 1127261, mmx1, mmy1, mmx2, mmy2) then
  begin
    if findcolor(Ix2, Iy2, 1127261, Ix - 3, Zy - 3, Ix + 3, Zy + 3) then
    begin
      writeln('Doors opened')
        Result := True;
    end
    else
      writeln('Doors closed ')
  end
  else
  begin
    writeln(' Flag not found ')
      logout;
  end;
end;

procedure Walking;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('N')
    Mouse(683, 61, 2, 2, True)
    SetRun(true)
    Fflag(20)
    Mouse(680, 30, 2, 2, True);
  FFlag(0);
  if not HomeFlag then
    ToDoors;
end;

function SpotEllis: Boolean;
var
  iX, iY, C, Color: Integer;

begin
  if not LoggedIn then
    Exit;
  Color := 4351672;
  repeat
    Wait(50);
    iX := MSCX;
    iY := MSCY;
    if FindColorSpiralTolerance(iX, iY, Color, MSX1, MSY1, MSX2, MSY2, 4) then
    begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      if IsupTextMulti('Talk', 'llis', 'alk-to') then
      begin
        Mouse(iX, iY, 0, 0, False);
        if not FindText(Ix, Iy, 'Fo', upchars, msx1, msy1, msx2, msy2) then
        begin
          Result := ChooseOption(iX, iY, 'Trade');
          if Result then
            Exit;
        end;
      end;
    end;
    C := C + 1;
  until C > 5;
  Wait(4000);
  if not LoggedIn then
    Exit;
end;

function FindEllis: boolean;
var
  I, Z, Ix, Iy: integer;
begin
  if not LoggedIn then
    Exit;
  for I := 0 to 7 do
  begin
    Result := SpotEllis

    if Result = True then
    begin
      Flag;
      exit;
    end
    else
    begin
      ChooseOption(iX, iY, 'ancel');
      wait(100);
      Z := Random(4) + 1;
      case (Z) of
        1: MakeCompass('E')
          2: MakeCompass('S')
          3: MakeCompass('W')
          4: MakeCompass('N')
      end;
    end;
  end;
  Writeln(' Ellis not found ')
    Logout;
  Nextplayer(true)
    exit;
end;

procedure Tune;
var
  Ix, Iy, I: integer;
begin
  if not LoggedIn then
    Exit;
  Wait(1000 + random(100))
    case Players[CurrentPlayer].String1 of
    'Soft leather':
      begin
        Ix := 90;
        Iy := 105;
      end;
    'Hard leather':
      begin
        Ix := 200;
        Iy := 105;
      end;
    'Snake skin1':
      begin
        Ix := 310;
        Iy := 105;
      end;
    'Snake skin2':
      begin
        Ix := 420;
        Iy := 105;
      end;
    'Green Dhide':
      begin
        Ix := 89;
        Iy := 228;
      end;
    'Blue Dhide':
      begin
        Ix := 211;
        Iy := 234;
      end;
    'Red Dhide':
      begin
        Ix := 315;
        Iy := 234;
      end;
    'Black Dhide':
      begin
        Ix := 430;
        Iy := 232;
      end;
  end;
  for I := 0 to 100 do
  begin
    wait(100)
      if (getcolor(488, 41) = 65536) then
      break
  end;
  MMouse(Ix, Iy, 2, 2)
    Wait(100 + random(100));
  Mouse(Ix, Iy, 2, 2, False);
  ChooseOption(iX, iY, 'All');
  if (getcolor(488, 41) = 65536) then
  begin
    Mouse(488, 41, 1, 1, True);
    wait(50 + random(50));
  end;
end;

procedure ToBank;
var
  Ix, Iy: integer;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('S');
  Mouse(653, 17, 2, 2, True)
    Wait(6000 + random(1000))
    FFlag(10);
  if findColorRight(Ix, Iy, BankerColor, mmx1, mmy1, mmx2, mmy2) then
    mouse(Ix - 20, Iy, 0, 1, True)
      Flag;
end;

function XOpenBank3: Boolean; // Almoust the same as OpenBank3
var
  x, y, fs, fs2: Integer;
begin
  if not LoggedIn then
    Exit;
  if not BankScreen then
    repeat
      if (FindObj3(x, y, 'ank', 4481658, 10)) then
        Mouse(x, y, 4, 4, False)
      else if (FindObj3(x, y, 'Use B', 2842230, 10)) then
        Mouse(x, y, 4, 4, False)
      else if (FindObj3(x, y, 'se Ba', 12611, 10)) then
        Mouse(x, y, 4, 4, False);
      Wait(250);
      if (ClickOption('quickly', 1)) then
      begin
        Flag;
        repeat
          Wait(100);
          fs := fs + 1;
        until (BankScreen) or (fs >= 10);
      end;
      fs2 := fs2 + 1;
    until (BankScreen) or (fs2 > 5);
  if BankScreen then
    Result := true;
end;

procedure DepositWithdraw;
begin
  if not LoggedIn then
    Exit;
  Deposit(2, 28, 2);
  Wait(100 + random(100))
    FixBank;
  Wait(50 + random(50))
    Withdraw(1, 1, 0);
  closebank;
end;

function MyOpenBank: boolean;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('W');
  Result := XOpenBank3;
  if result then
    exit
  else
  begin
    if not LoggedIn then
      Exit;
    Result := OpenBankGlass('akb', true, true);
    if result then
    begin
      exit;
      Nextplayer(true);
    end
    else
    begin
      Players[CurrentPlayer].Loc := 'failed';
      Writeln('Could not find bank ')
        Logout;
    end;
  end;
end;

Procedure Report;
begin
Writeln ( ' Script made by ReyMen ' )
writeln ( ' loads done ' + Inttostr (loads))
writeln ( ' Hides tunned ' + inttostr (loads*27))
end;

Procedure Findrandoms;
Begin
 FindNormalRandoms;
 if (FindFight) then
 begin
   RunAwayDirection ('S')
   wait(5000 + random(2000));
   RunBack;
 end;
end;

begin
  SetUpSrl;
  repeat
    DeclarePlayers;
    wait(5000)
      LoginPlayer;
      Loads := 0
    repeat
      MakeCompass('W')
        GetBankersColor;
      GetFloorColor;
      GetSandColor;
      Walking;
      FindRandoms;
      FindEllis
       Tune;
      ToBank;
      FindRandoms;
      MyOpenBank;
      DepositWithdraw;
      Loads := loads + 1;
      Report;
        if loads = howmanyloads then
        break;
    until not LoggedIn;
    NextPlayer(True);
  until false;
end.

And thx for the vote :D

i vote yes because you have skills. :p

From: Boreas
Did I miss the antirandoms?

Other than that, pending yohojo's check, looks good.

=) Thanks.

This script is very lovely.
I cant copybust it looks genuine to me.

I like your general knowledge of everything

casees
for to do
getcolors
cods
bitmaps
antirandoms
player array
failsafes

Id just like you to clean up a few things, maybe a few more failsafes.
And also some of your mouse clicks aren't random enough like:

  MMouse(Ix, Iy, 2, 2)

If this was repeated enough it would definitely click the same or very close to same area too much, id get the middle point of the hide, and make the randomness liek 10,10 because i know its very big on the screen.

Love,
Yohojo

In!