Script skeleton

program Script;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}
{$i SRL-OSR\SRL\misc\debug.simba}
{$i SRL-OSR\SRL\misc\SmartGraphics.simba}
{$I F_AntiRandoms.simba}

procedure playerSetup;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].LampSkill := SKILL_HERBLORE;
  Players[0].Active := True;
end;

procedure WaitHumanClick;
begin
  case random(600) of
    1..450: Wait(RandomRange(400, 600));
    451..570: Wait(RandomRange(400, 600));
    571..590: Wait(RandomRange(600, 800));
    591..600: Wait(RandomRange(800, 1000));
  end;
end;

procedure WaitHumanClick2;
begin
  case random(600) of
    1..450: Wait(RandomRange(1000, 1500));
    451..570: Wait(RandomRange(1500, 2000));
    571..590: Wait(RandomRange(2000, 2500));
    591..600: Wait(RandomRange(2500, 3000));
  end;
end;

procedure WaitHumanClick3;
begin
  case random(600) of
    1..450: Wait(RandomRange(3000, 5000));
    451..570: Wait(RandomRange(5000, 5500));
    571..590: Wait(RandomRange(6000, 6500));
    591..600: Wait(RandomRange(7000, 7500));
  end;
end;


function OpenWScreen: Boolean;
begin
  Result := False;
  if WorldScreen then
    exit;
  if Loggedin then
    Exit;
  if not WorldScreen then
  begin
    Mmouse(54, 475, 1, 1);
    WaitHumanClick;
    ClickMouse2(Mouse_Left);
    waithumanclick;
    Result := True;
  end;
end;

function whitecolor: boolean;
var
  Monster: TpointArray;
  TmpCts: Integer;
begin
  tmpcts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.22, 1.69);
  result := FindColorsTolerance(Monster, 9163999, 192, 67, 583, 469, 4);
  ColorToleranceSpeed(tmpcts);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

procedure loginloop;
var
  badworlds: TIntegerArray;
  OurCurrentworld: Integer;
begin
  badworlds := [308, 316, 325, 337, 365];
  OpenWorldScreen;
  repeat
    if whitecolor then
      break;
    if not whitecolor then
      writeln('We have not hovered a world yet');
    case random(10) of
      0..2: mouse(randomrange(397, 554), randomrange(78, 394), 1, 1, mouse_move);
      3..4: mouse(randomrange(298, 462), randomrange(200, 392), 1, 1, mouse_move);
      5..6: mouse(randomrange(205, 555), randomrange(80, 154), 1, 1, mouse_move);
      7..10: mouse(randomrange(211, 555), randomrange(246, 367), 1, 1, mouse_move);
    end;
  until (whitecolor) if whitecolor then
  begin
    clickmouse2(mouse_left);
    waithumanclick;
    currentworld;
    waithumanclick;
    OurCurrentworld := CurrentWorldLS waithumanclick;
    if InIntArray(Badworlds, OurCurrentworld) then
      exit;
    waithumanclick;
    loginplayer;
    exit;
  end;
end;

procedure mainloop;
begin
end;

begin
  playerSetup;
  setupsrl;
  SetupReflection;
  R_CombatRandoms := false;
  SRL_CombatRandoms := false;
  repeat
    wait(400);
    if not loggedin then
      loginloop;
    wait(400);
    if loggedin then
      mainloop;
  until (false);
end.