Here, I decided to make a working, but horribly scripted procedure.
program New;
{.include srl/srl.scar}
var
ErrorDTM, x, y: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'mynameismasf';
Players[0].Pass := 'lolpoop';
Players[0].Active := True;
Players[0].Booleans[0] := True; //Make the account?
end;
procedure MakeTheAccount;
begin
ErrorDTM := DTMFromString('78DA63CC64626048626440063D465C601A26C' +
'A280C54134740CD0E22D4B400D5E41150E34E841A2322D4EC04AA' +
'2926A0260BA8A608BF1A0080180D0A');
if (Players[0].Booleans[0]) then
begin
Mouse(380,216,40,5,true);
Wait(500 + random(500));
Mouse(460,420,15,3,true);
Wait(500 + random(500));
Mouse(489,214,15,5,true);
Wait(500 + random(500));
Mouse(505,252,3,0,true);
Wait(500 + random(500));
Mouse(471,249,7,19,true);
Wait(500 + random(500));
Mouse(460,420,15,3,true);
Wait(500 + random(500));
SendKeys(Players[0].Name);
Wait(500 + random(500));
Mouse(460,420,15,3,true);
Wait(500 + random(500));
If FindDTM(ErrorDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
ClearDebug;
WriteLn('Dang, the name ' + Players[CurrentPlayer].Name + ' is already taken! Please try a different name :)');
FreeDTM(ErrorDTM);
TerminateScript;
end;
Wait(500 + random(500));
Mouse(460,420,15,3,true);
Wait(500 + random(500));
TypeSend(Players[CurrentPlayer].Pass);
Wait(500 + random(500));
SendKeys(Players[CurrentPlayer].Pass);
Wait(500 + random(500));
Mouse(460,420,15,3,true);
Wait(100)
Mouse(305,420,15,3,true);
WriteLn('It be made!')
end;
end;
begin
setupSRL;
ActivateClient;
DeclarePlayers;
MakeTheAccount;
end.