{$I AeroLib/AeroLib.Simba}



function RandStr(Len: Integer): string;
var
I, y, cLen, clen2: Integer;
Chars, chars1: string;
 begin
Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
cLen := length(chars);
for i := 1 to Len do
if (Random(2) = 1) then
Result := Result + uppercase(Chars[Random(cLen) + 1])
else
Result := Result + Chars[Random(cLen) + 1];
typesend(Result, false);
case random(1,4) of
1:
begin
typesend('@gmail.com');
end;
2:
begin
typesend('@hotmail.com');
end;
3:
begin
typesend('@yahoo.com');
end;
4:
begin
typesend('@outlook.com');
end;
5:
begin
typesend('@live.nl');
end;
end;
end;
procedure firstclicks;
begin
MoveMouse(393, 477);//Create Account
fastClick(MOUSE_LEFT);
wait(3000);
MoveMouse(694, 529);//Done design
fastClick(MOUSE_LEFT);
wait(3000);

MoveMouse(702, 254); //Random Name
fastClick(MOUSE_LEFT);
wait(500);
end;
procedure ChooseAge;
begin
 moveMouse(513, 346); //Age
fastClick(MOUSE_LEFT);
wait(500);

case random(1,9) of

1:
begin
typesend('1', false);
end;
2:
begin
typesend('2', false );
end;
3:
begin
typesend('3', false);
end;
4:
begin
typesend('4', false);
end;
5:
begin
typesend('5', false);
end;
6:
begin
typesend('6', false);
end;
7:
begin
typesend('7', false);
end;
8:
begin
typesend('8', false);
end;
9:
begin
typesend('9', false);
end;
end;
case random(1,9) of

1:
begin
typesend('1');
end;
2:
begin
typesend('2');
end;
3:
begin
typesend('3');
end;
4:
begin
typesend('4');
end;
5:
begin
typesend('5');
end;
6:
begin
typesend('6');
end;
7:
begin
typesend('7');
end;
8:
begin
typesend('8');
end;
9:
begin
typesend('9');
end;
end;
end;
 function RandStr1(Len: Integer): string;
var
I, y, cLen, clen2: Integer;
Chars, chars1: string;
 begin
Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
cLen := length(chars);
for i := 1 to Len do
if (Random(2) = 1) then
Result := Result + uppercase(Chars[Random(cLen) + 1])
else
Result := Result + Chars[Random(cLen) + 1];
typesend(Result, false);
end;
procedure logout;
begin
RandStr(random(4, 9));

wait(500);

MoveMouse(695, 527);//Play now
fastClick(MOUSE_LEFT);
wait(10000);

MoveMouse(400, 275);// have played recently
fastClick(MOUSE_LEFT);
wait(225);

PressKey(VK_ESCAPE);//Option menu
wait(529);

MoveMouse(395, 481);//logout
fastClick(MOUSE_LEFT);//logsout
end;
begin
firstclicks;

Chooseage;
Randstr(random(4, 8));
wait(1000);
Randstr1(random(5, 8));
end.