{$I AeroLib/AeroLib.Simba}

function RandStrs(): string;
begin
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;
function RandStr(Len: Integer): string;
var
I, y, cLen, clen2: Integer;
Section, Keyname, FileName, Chars, chars1, chars2, chars3, chars4: string;
 begin
Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
Chars1 := '@gmail.com';
Chars2 := '@hotmail.com';
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];
if (Random(2) = 1) then
Result := Result + Chars1
else
Result := Result + Chars2;
typesend(Result, false);
Section := 'account';
  KeyName := '02';
  FileName := 'C:/Users/Dylan/Desktop/Accounts.ini';
  WriteINI(Result, Section, KeyName,FileName);
  presskey(VK_RETURN);
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;
Section, Keyname, FileName, Chars: 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);
 Section := 'pass';
 KeyName := '2';
  FileName := 'C:/Users/Dylan/Desktop/Accounts.ini';
  WriteINI(Result, Section, KeyName,FileName);
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.