z92
2012-03-09 15:27:43
Normalversion
Smart version
It doesen't get any simpler.
program skriv;
{.include srl/srl.simba}
begin
repeat
wait(2000+random(3000));
TypeSendEx('I like turtles',true)
until(false)
end.
Smart version
program AutoTyperSmart;
{$DEFINE SMART}
{$i SRL\SRL.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Name here
Players[0].Pass := ''; //Pass here
Players[0].Nick := '';
Players[0].Member := True;
Players[0].Active := True;
Players[0].Pin := '';
end;
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
wait(2000+random(3000));
TypeSendEx('I like turtles',true)
until(false)
if not (LoggedIn) then
LoginPlayer;
end.
It doesen't get any simpler.