Ian
2012-11-12 14:38:53
I thought of a new antiban procedure, so feel free to add it to your scripts. I suggest not calling this one often, but maybe when you log in or before you log out. Here it is:
Procedure CheckFriends; //An Antiban Procedure by BMWxi
Var
NCx, NCy, ONx, ONy :Integer;
begin
gametab(tab_friends); //Goes to friends tab
If FindColorTolerance(NCx, NCy, 16683035, 546, 246, 722, 451, 5) Then // Checks if they have changed names,
begin // if they have, It hovers to find their new name.
MMouse(NCx, NCy, 5, 5);
Wait(RandomRange(1000, 2000));
end;
If FindColorTolerance(ONx, ONy, 6619135, 546, 246, 722, 451, 5) Then //Checks to see if friends are online
begin //hovers the names of online friends
MMouse(ONx, ONy, 5, 5);
Wait(RandomRange(1000, 2000));
end else
begin
Wait(RandomRange(500, 1000)); //I added this so It doesn't spam-exit when you have no friends :p
end;
FTab(tab_Inv); //Returns to inventory
end; Hopefully people think this is useful :p