SCAR Code:
Procedure CreateAcc; //By UNCfan1119
begin
MouseBox(324, 212, 400, 212, 1);//Clicks "create account" screen
Wait(100 + Random(100));
MouseBox(354, 316, 420, 315, 1);//Clicks on the space for username
Wait(100 + Random(100));
TypeSend(Players[CurrentPlayer].Name);
Wait(1000+random(1000));
// BEGIN CHECK FOR USERNAME TAKEN
if (GetColor(503, 321) = 1251528) then
TerminateScript;//if name is taken, script will stop
if (GetColor(504, 322) = 3177241) then
// END CHECK FOR USERNAME TAKEN
MouseBox(348, 360, 387, 371, 1);//Clicks on space for password
Wait(100+random(100));
TypeSend(Players[CurrentPlayer].Pass);
Wait(100+random(100));
MouseBox(347, 387, 379, 399, 1);//Clicks on space for re-password
Wait(100+random(100));
TypeSend(Players[CurrentPlayer].Pass);
Wait(100+random(100));
// BEGIN DOB (default 1/1/1969)
MouseBox(361, 454, 366, 457, 1);
Wait(10+random(10));
MouseBox(334, 485, 336, 490, 1);
Wait(100+random(100));
MouseBox(457, 455, 464, 454, 1);
Wait(10+random(10));
MouseBox(392, 487, 409, 490, 1);
Wait(100+random(100))
MouseBox(477, 453, 483, 458, 1);
Wait(10+random(10));
TypeSend('1969');
MouseBox(378, 342, 387, 346, 1);
Wait(100+random(100));
MouseBox(378, 409, 387, 409);
Wait(100+random(100));
//END DOB
MouseBox(129, 425, 182, 428, 1);//USA
Wait(100+random(100));
MouseBox(469, 400, 649, 404, 1);//Clicks continue
Wait(5000+random(1000));//Wait for slow computers
MouseBox(77, 360, 85, 366, 1);//I've read privacy policy
Wait(100+random(100));
MouseBox(78, 381, 86, 388);//I've read and agree w/Terms
Wait(9000+random(5000));
MouseBox(332, 342, 416, 348, 1);//Play Runescape
end; // Create Account procedure by UNCfan1119