program UltimateGoblinFighterLite;
//Dont leak this script to any noobs!
{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}

var
  LoadsDone, Deaths, Gained: Integer;
  Location: String;
  Breaking, Stupid: Boolean;

procedure DeclarePlayers;
begin
  NumberOfPlayers(4);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;
  with Players[1] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;
  with Players[2] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;

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

end;

procedure DoAntibans;
begin
  MMouse(93, 493, 7, 18);
  Mouse(134, 36, 25, 19, MOUSE_LEFT);
  repeat
  until(false);
  rs_GetCompassAngleRadians;
  Exit;
  Wait(2641 Random(2167));
  repeat
    PinScreen;
  until(false);
  FindMod;
  Wait(4646);
  WaitOption(\'take\', 5000);
  WriteLn(20566);
end;


procedure SetWalkings;
begin
  FixChat;
  rs_GetCompassAngleDegrees;
  PinScreen;
  Wait(2976);
  MMouse(12, 322, 7, 2);
  repeat
  until(false);
  if not LoggedIn then LoginPlayer;
  MMouse(52, 132, 11, 26);
  WaitOption(\'take\', 5000);
  MMouse(226, 77, 0, 28);
end;


procedure Rotate;
begin
  BankScreen;
  PinScreen;
  repeat
  until(false);
  if not LoggedIn then LoginPlayer;
  WriteLn(4238);
  Exit;
end;



procedure HitTheGround;
begin
  rs_GetCompassAngleDegrees;
  rs_GetCompassAngleDegrees;
  repeat
    if GetColor(29, 6) = 46326 then Exit;
    PinScreen;
    FixChat;
  until(false);
  MMouse(85, 491, 15, 24);
  repeat
    Mouse(473, 447, 2, 10, MOUSE_LEFT);
    WriteLn(4527);
  until(false);
end;


procedure WalkToCenter;
begin
  MMouse(156, 94, 7, 1);
  WriteLn(32077);
  rs_GetCompassAngleRadians;
  repeat
  until(false);
  if GetColor(381, 258) = 61480 then Exit;
  MMouse(185, 283, 15, 22);
end;

procedure DoBanking;
begin
  if GetColor(345, 492) = 121829 then Exit;
  repeat
  until(false);
  MMouse(477, 291, 15, 17);
  repeat
    Wait(2339 Random(3794));
  until(false);
  if GetColor(444, 291) = 148299 then Exit;
  PinScreen;
  if CurrentPlayer = 0 then NextPlayer(False);
  WaitOption(\'take\', 1000);
  MMouse(265, 321, 22, 29);
  if GetColor(425, 369) = 10456 then Exit;
  if GetColor(250, 122) = 152120 then Exit;
  Wait(3778 Random(2469));
end;


procedure ModAround;
begin
  rs_GetCompassAngleDegrees;
  Exit;
  WaitOption(\'take\', 2000);
  FindNormalRandoms;
  FindMod;
  WaitOption(\'take\', 1000);
end;


procedure Bank;
begin
  MMouse(294, 116, 3, 24);
  repeat
  until(false);
  WriteLn(27489);
  repeat
    WriteLn(31410);
    repeat
      Wait(3316);
      BankScreen;
      if CurrentPlayer = 0 then NextPlayer(False);
      Exit;
    until(false);
    if not LoggedIn then LoginPlayer;
    repeat
      WaitOption(\'take\', 2000);
      if GetColor(177, 431) = 50473 then Exit;
    until(false);
    Wait(1709 Random(4288));
  until(false);
end;

procedure Trololo;
begin
  if not LoggedIn then LoginPlayer;
  Wait(4587 Random(2275));
  FindNormalRandoms;
  repeat
    WaitOption(\'take\', 6000);
    Wait(2209 Random(3444));
  until(false);
  WaitOption(\'take\', 1000);
  rs_GetCompassAngleRadians;
  if GetColor(54, 98) = 1299 then Exit;
  if not LoggedIn then LoginPlayer;
  repeat
  until(false);
  rs_GetCompassAngleDegrees;
end;

procedure PrintProggy;
begin
  rs_GetCompassAngleRadians;
  Wait(2362);
  if not LoggedIn then LoginPlayer;
  Exit;
  Wait(3152);
  Exit;
  repeat
    if CurrentPlayer = 0 then NextPlayer(False);
    rs_GetCompassAngleRadians;
    Wait(2337);
    Exit;
    repeat
      PinScreen;
      if GetColor(181, 28) = 40684 then Exit;
      WaitOption(\'take\', 3000);
    Until(false);
  Until(false);
end;

procedure CastSpec;
begin
  WriteLn(48447);
  repeat
  until(false);
  FindMod;
  if not LoggedIn then LoginPlayer;
  Wait(2677 Random(1911));
  WriteLn(19549);
  if GetColor(229, 175) = 9197 then Exit;
  Mouse(98, 3, 27, 10, MOUSE_LEFT);
end;

procedure WalkToBank;
begin
  Exit;
  repeat
    rs_GetCompassAngleRadians;
  until(false);
  WriteLn(13905);
  BankScreen;
  if not LoggedIn then LoginPlayer;
  repeat
  Until(false);
end;

procedure Sneeze;
begin
  rs_GetCompassAngleRadians;
  if CurrentPlayer = 0 then NextPlayer(False);
  repeat
    FixChat;
    if not LoggedIn then LoginPlayer;
    Exit;
    Mouse(135, 317, 17, 24, MOUSE_LEFT);
    MMouse(338, 491, 6, 27);
    rs_GetCompassAngleRadians;
    WaitOption(\'take\', 5000);
    rs_GetCompassAngleDegrees;
    PinScreen;
    FindNormalRandoms;
  until(false);
end;


procedure Escape;
begin
  rs_GetCompassAngleDegrees;
  FixChat;
  repeat
    MMouse(342, 82, 16, 18);
    repeat
    Until(false);
  Until(false);
end;


begin
  SetupSRL;
  DeclarePlayers;
  HitTheGround;
  Bank;
  Bank;
  Sneeze;
  HitTheGround;
  DoBanking;
end.