yoctown
2007-05-29 22:04:10
First script i know it doesnt need to check to see if its logged out considering its a login script but it does it anyways just for practice to writing somethin. check logout should be included in a whole different procedure i know i know but o well i just wrote it in get over it haha :)
program New;
{.include SRL/SRL.scar}
procedure login;
var x,y : integer;
begin
if (findcolortolerance(x,y,4471610,465,285,475,295,5)) then
mouse(x,y,40,10,true)
wait(500+random(25))
typesend('username')
typesend('password')
wait(500+random(25))
mouse(300,320,40,10,true)
end;
Begin
activateClient;
wait(200+random(25))
Login;
end.