qBGSArcb

1{$I AeroLib/AeroLib.Simba}
2
3function RandStrs(): string;
4begin
5case random(1,4) of
61:
7begin
8typesend('@gmail.com');
9end;
102:
11begin
12typesend('@hotmail.com');
13end;
143:
15begin
16typesend('@yahoo.com');
17end;
184:
19begin
20typesend('@outlook.com');
21end;
225:
23begin
24typesend('@live.nl');
25end;
26end;
27end;
28function RandStr(Len: Integer): string;
29var
30I, y, cLen, clen2: Integer;
31Section, Keyname, FileName, Chars, chars1, chars2, chars3, chars4: string;
32 begin
33Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
34Chars1 := '@gmail.com';
35Chars2 := '@hotmail.com';
36cLen := length(chars);
37for i := 1 to Len do
38if (Random(2) = 1) then
39Result := Result + uppercase(Chars[Random(cLen) + 1])
40else
41Result := Result + Chars[Random(cLen) + 1];
42if (Random(2) = 1) then
43Result := Result + Chars1
44else
45Result := Result + Chars2;
46typesend(Result, false);
47Section := 'account';
48  KeyName := '02';
49  FileName := 'C:/Users/Dylan/Desktop/Accounts.ini';
50  WriteINI(Result, Section, KeyName,FileName);
51  presskey(VK_RETURN);
52end;
53procedure firstclicks;
54begin
55MoveMouse(393, 477);//Create Account
56fastClick(MOUSE_LEFT);
57wait(3000);
58MoveMouse(694, 529);//Done design
59fastClick(MOUSE_LEFT);
60wait(3000);
61
62MoveMouse(702, 254); //Random Name
63fastClick(MOUSE_LEFT);
64wait(500);
65end;
66
67
68procedure ChooseAge;
69begin
70 moveMouse(513, 346); //Age
71fastClick(MOUSE_LEFT);
72wait(500);
73
74case random(1,9) of
75
761:
77begin
78typesend('1', false);
79end;
802:
81begin
82typesend('2', false );
83end;
843:
85begin
86typesend('3', false);
87end;
884:
89begin
90typesend('4', false);
91end;
925:
93begin
94typesend('5', false);
95end;
966:
97begin
98typesend('6', false);
99end;
1007:
101begin
102typesend('7', false);
103end;
1048:
105begin
106typesend('8', false);
107end;
1089:
109begin
110typesend('9', false);
111end;
112end;
113case random(1,9) of
114
1151:
116begin
117typesend('1');
118end;
1192:
120begin
121typesend('2');
122end;
1233:
124begin
125typesend('3');
126end;
1274:
128begin
129typesend('4');
130end;
1315:
132begin
133typesend('5');
134end;
1356:
136begin
137typesend('6');
138end;
1397:
140begin
141typesend('7');
142end;
1438:
144begin
145typesend('8');
146end;
1479:
148begin
149typesend('9');
150end;
151end;
152end;
153 function RandStr1(Len: Integer): string;
154var
155I, y, cLen, clen2: Integer;
156Section, Keyname, FileName, Chars: string;
157 begin
158Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
159
160cLen := length(chars);
161for i := 1 to Len do
162if (Random(2) = 1) then
163Result := Result + uppercase(Chars[Random(cLen) + 1])
164else
165Result := Result + Chars[Random(cLen) + 1];
166typesend(Result, false);
167 Section := 'pass';
168 KeyName := '2';
169  FileName := 'C:/Users/Dylan/Desktop/Accounts.ini';
170  WriteINI(Result, Section, KeyName,FileName);
171end;
172procedure logout;
173begin
174RandStr(random(4, 9));
175
176wait(500);
177
178MoveMouse(695, 527);//Play now
179fastClick(MOUSE_LEFT);
180wait(10000);
181
182MoveMouse(400, 275);// have played recently
183fastClick(MOUSE_LEFT);
184wait(225);
185
186PressKey(VK_ESCAPE);//Option menu
187wait(529);
188
189MoveMouse(395, 481);//logout
190fastClick(MOUSE_LEFT);//logsout
191end;
192begin
193firstclicks;
194Chooseage;
195Randstr(random(4, 8));
196wait(1000);
197Randstr1(random(5, 8));
198end.