I also made one lol, to late :(.
function CreatPlayerIngame(CharactersName, Password: string): boolean;
var
Mark, Attemps, Age, CX, CY, I: Integer;
begin
ActivateClient;
if LoggedIn then
exit;
Wait(100);
TypeByte(vk_Escape);
if (GetColor(207, 409) = 238301) then
//At Welcome Screen
begin
Wait(500 + Random(1000));
MouseBox(249, 419, 521, 445, 1);
MarkTime(Mark);
while (TimeFromMark(Mark) < 30000) and (not (LoggedIn)) do
Wait(1000 + Random(1000));
end;
if (not (RSReady)) then
begin
MarkTime(Mark);
while (not (RSReady)) do
begin
Wait(100);
if (TimeFromMark(Mark) > 180000) then
begin
WriteLn('It has been 3 minutes and Runescape is not yet ready... Terminating.');
TerminateScript;
end;
end;
WriteLn('Welcome to Runescape.');
end;
//Click 'Create Account' on main menu
while (GetColor(348, 209) = 6398387) do
begin
MouseBox(299, 211, 461, 224, 1);
Wait(100 + Random(100));
end;
Writeln('Characters name');
repeat
while not (Getcolor(293, 146) = 4750236) do
begin
wait(500);
Inc(I);
if I > 10 then
begin
Writeln('Couldnt Find Characters name box!');
Terminatescript;
end;
end;
I := 0;
TypeSend(CharactersName) wait(200 + random(100));
Mouse(232, 189, 4, 4, true);
while not (GetColor(378, 143) = 724865) or (GetColor(382, 146) = 6398542) do
begin
wait(1000);
end;
if (GetColor(378, 143) = 724865) then
begin
Writeln('Name' + CharactersName + ' Is taken.');
Result := false;
//ADD something to channge current name
end;
until (GetColor(382, 146) = 6398542);
//Password
wait(50 + random(50));
while not (Getcolor(303, 192) = 4750236) do
begin
wait(500);
end;
TypeSend(Password) Mouse(273, 216, 4, 4, true);
//Re type Password.
wait(50 + random(50));
while not (Getcolor(273, 216) = 4750236) do
begin
wait(500);
end;
TypeSend(Password)
//Bith Date.
Mouse(243, 278, 2, 2, true);
wait(50 + random(50));
while not (GetColor(228, 295) = 4944525) do
begin
wait(500);
end;
begin
wait(500 + random(200));
MMouse(242, 361, 3, 3);
GetMousePos(CX, CY);
HoldMouse(CX, CY, True);
repeat
wait(300);
inc(i);
until (I >= Randomrange(2, 6));
ReleaseMouse(CX, CY, True);
wait(100 + random(200));
MouseBox(211, 291, 226, 363, 1);
end;
I := 0;
wait(500 + random(500));
//Birth Month
Mouse(340, 279, 2, 2, true);
wait(50 + random(50));
if (GetColor(320, 301) = 4944525) then
begin
wait(500 + random(200));
MMouse(338, 360, 3, 3);
GetMousePos(CX, CY);
HoldMouse(CX, CY, True);
repeat
wait(300);
inc(i);
until (I >= Randomrange(1, 3));
ReleaseMouse(CX, CY, True);
wait(100 + random(200));
MouseBox(258, 292, 313, 364, 1);
end;
//Year Box.
Mouse(380, 279, 2, 2, true);
if (GetColor(380, 279) = 4750236) then
begin
Age := 2009 - RandomRange(14, 30);
Typesend(IntToStr(Age));
end;
MouseBox(450, 399, 659, 404, 1);
while not (Getcolor(92, 102) = 2961207) do
begin
wait(1000);
Inc(Attemps);
if Attemps > 10 then
begin
Writeln('Took longer then 10 seconds to enter the next page');
//SOMETHING.
end;
end;
Attemps := 0;
Mouse(81, 363, 2, 2, true);
wait(200 + random(500));
Mouse(81, 385, 2, 2, true);
wait(200 + random(500));
MouseBox(454, 439, 659, 446, 1);
while not (Getcolor(433, 348) = 13158) do
begin
wait(1000);
inc(Attemps);
if Attemps > 10 then
begin
writeln('Took longer then 10 seconds to validate account.. Terminating');
//SOMETHING.
end;
end;
Mouse(374, 346, 2, 2, true);
if RSReady then
Result := true;
end;
Its not completely finished i dont have a thing to generate names so ye ill borrow one of those from somewhere.
From: Da 0wner
BobboHobbo, Josh made one. It uses the link that Hermen found.
Who is josh and where?