Whenever a script goes to log in, it clicks on the username and password, but does not type anything.
Anyone care to scan over the code and see if they can figure out what's up with it?
SCAR Code:
Function LoginPlayer: Boolean;
Var
Tries: Integer;
Begin
ActivateClient;
If ((CurrentPlayer + 1) > HowManyPlayers) Then
Exit;
MouseBox(361, 168, 400, 173, 1);
Wait(1000 + Random(500));
Mouse(315, 258, 20, 2, True);
Wait(100 + Random(50));
TypeSend(Players[CurrentPlayer].Name);
Mouse(315, 325, 20, 2, True);
Wait(100 + Random(50));
TypeSend(Players[CurrentPlayer].Pass);
Wait(1000 + Random(500));
MouseBox(357, 364, 400, 368, 1);
While (Not (GetColor(316, 396) = 153)) Do
Begin
Inc(Tries);
Wait(100);
If (Tries >= 100) Then
Begin
Players[CurrentPlayer].Active := False;
CurrentPlayer := CurrentPlayer + 1;
MouseBox(337, 401, 420, 408, 1);
Wait(2000 + Random(500));
LogInPlayer;
Exit;
End;
End;
MouseBox(206, 331, 563, 367, 1);
Tries := 0;
While (Not (GetColor(627, 85) = 16777215)) Do
Begin
Inc(Tries);
Wait(100);
If (Tries >= 600) Then
Begin
Players[CurrentPlayer].Active := False;
CurrentPlayer := CurrentPlayer + 1;
MouseBox(337, 401, 420, 408, 1);
Wait(2000 + Random(500));
LogInPlayer;
Exit;
End;
End;
Wait(2000 + Random(500));
Result := True;
End;