program AutoType;
//{$DEFINE SMART}
//{$i srl/srl/misc/smart.simba}
{$i SRL-OSR/srl.simba}

 Const
Message0=('insert message here');

{Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name         := 'sa';
    Pass         := 'ar';
    BoxRewards   := ['XP','xp','lamp'];
    //LampSkill    := 'Fishing';
    Active       := True;
  end;
end;  }

procedure Autotyping;
begin
  repeat
    Wait(510000+Random(300000));    //increase number to slow down. decrease to speed up
    Case Random(5) Of
      0: TypeByte(VK_LEFT);
      1: TypeByte(VK_RIGHT);
      2: TypeByte(VK_UP);
      3: TypeByte(VK_DOWN);
      4: TypeByte(VK_ENTER);
      5: TypeByte(VK_ENTER);
    end;

  Until(False)
end;

begin
  SetupSRL;
  ActivateClient;
  Disguise('S2i');
 // DeclarePlayers;
  repeat Autotyping
  until(false);
end.