Some useful scripts (if they still work)

Was cleaning my folders and saw these two along with other older scripts, feel free to use them.
If they don't work update plugins and/or sources. 

Code:

// Remember to update plugins and sources

program AutoTyperSmart;
{$DEFINE SMART}
{$i srl/srl.simba}
{$I SRL/SRL/Misc/Online.simba}


procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'username/email here'; //
Players[0].Pass := 'password here'; //
Players[0].Nick := '';
Players[0].Member := False;
Players[0].Active := True;
Players[0].Pin := '';
end;

begin
  ClearDebug;
  SetupSRL;
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name        := '';
    Pass        := '';
    Pin         := '';
    Active      := True;
  end;
  LoginPlayerToLob;
  OpenWorldScreen;
  SelectWorld(1);
  LoginPlayer;
  Wait(1000 + Random(3000));
  ClickNorth(0);

repeat
wait(2000+random(1000));
TypeSendEx('COLOR: TEXT HERE',true)
TypeSendEx('COLOR: TEXT HERE',true)
TypeSendEx('COLOR: TEXT HERE',true)
until(false)
if not (LoggedIn) then
LoginPlayer;
end.

For the horse, just replace the typer for this. Adjust the cords.

Code:


{$i srl/srl.simba}
var
x,y:integer;
Begin
Repeat
Mouse(x, y, 5, 5, mouse_left);
Wait(2000+random(1000));
Until False;
End.