program PremiumCowhideCrafter;
//This is a premium script. Keep it PRIVATE!

{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}


var
  Slept: Integer;
  Location, Debug: String;
  Active, Stupid: Boolean;


procedure DeclarePlayers;
begin
  NumberOfPlayers(2);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;

  with Players[1] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;

end;
procedure BatmanMoves;
begin
  if not LoggedIn then LoginPlayer;
  MMouse(25, 72, 18, 9);
  MMouse(123, 289, 10, 16);
  rs_GetCompassAngleRadians;
end;


procedure CheckInv;
begin
  Wait(4600);
  Mouse(340, 64, 6, 26, MOUSE_LEFT);
  FindNormalRandoms;
  if CurrentPlayer = 3 then NextPlayer(False);
  WriteLnEx(2578);
  MMouse(492, 201, 6, 18);
  repeat
    BankScreen;
    rs_GetCompassAngleDegrees;
  until(false);
end;


procedure WalkBack;
begin
  Exit;
  repeat
    if GetColor(52, 55) = 13588 then Exit;
  Until(false);
end;

procedure Escape;
begin
  WaitOption(\'take\', 4000);
  BankScreen;
  repeat
  until(false);
  FixChat;
  BankScreen;
  repeat
  Until(false);
end;


procedure Sneeze;
begin
  Wait(3980 Random(3626));
  rs_GetCompassAngleDegrees;
  FindNormalRandoms;
  FindMod;
  rs_GetCompassAngleDegrees;
  WaitOption(\'take\', 1000);
  repeat
    BankScreen;
  until(false);
  FindMod;
  if CurrentPlayer = 3 then NextPlayer(False);
  FixChat;
end;


procedure WalkToCenter;
begin
  if CurrentPlayer = 3 then NextPlayer(False);
  Exit;
  rs_GetCompassAngleRadians;
  FindNormalRandoms;
  repeat
  Until(false);
end;



procedure EquipWep;
begin
  FindNormalRandoms;
  rs_GetCompassAngleDegrees;
  Mouse(340, 437, 3, 18, MOUSE_LEFT);
  rs_GetCompassAngleRadians;
  repeat
  Until(false);
end;



procedure Trololo;
begin
  MMouse(88, 264, 11, 19);
  FindMod;
  rs_GetCompassAngleDegrees;
  if GetColor(194, 14) = 119330 then Exit;
  repeat
    MMouse(102, 472, 26, 1);
  until(false);
  PinScreen;
  repeat
    Wait(4370);
  until(false);
end;



procedure WalkToBank;
begin
  MMouse(224, 379, 6, 4);
  MMouse(205, 5, 8, 4);
  repeat
    FindMod;
    rs_GetCompassAngleRadians;
    rs_GetCompassAngleDegrees;
  until(false);
  rs_GetCompassAngleRadians;
  if GetColor(410, 451) = 163173 then Exit;
  PinScreen;
  WriteLnEx(13500);
  repeat
    WriteLnEx(42831);
    FindNormalRandoms;
  until(false);
  WriteLnEx(48859);
  FixChat;
  WaitOption(\'take\', 5000);
  Wait(1257);
  repeat
  Until(false);
end;



procedure AntiBan;
begin
  FindNormalRandoms;
  PinScreen;
  FindMod;
  FindMod;
  repeat
    WriteLnEx(2197);
    FindNormalRandoms;
    Wait(2828 Random(2270));
    repeat
      FixChat;
      if CurrentPlayer = 1 then NextPlayer(False);
      BankScreen;
    Until(false);
  Until(false);
end;


begin
  SetupSRL;
  DeclarePlayers;
  BatmanMoves;
  repeat
    WalkBack;
    AntiBan;
    AntiBan;
    Trololo;
    repeat
      WalkToCenter;
    until(false);
    BatmanMoves;
  until(false);
  Sneeze;
end.