Hello everyone!
I'm currently working on a flax spinner, almost finished. Now I have this problem that the antirandoms won't be solved.
Script works great, except when I'm calling the antirandom procedure when I'm spinning at the spinning wheel.
Here is how the procedure look like:
SCAR Code:
procedure AntiRandom;
begin
CheckLogin;
FindTalk;
FindFastRandoms; // Find randoms fast.
FindNormalRandoms; // Find normal random events.
SolvePinball; // Pinball
end;
Here is how FindFastRandoms look like:
SCAR Code:
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
if not LoggedIn then Exit;
For I := 1 To 11 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Players[CurrentPlayer].Active := False;
Logout;
Exit;
End;
End;
8 : If RC Then
Result:=True;
9 : If FindFight Then
Result := True;
10: If FindTalk Then
Result := True;
11: If FindCerter Then
Result := True;
End;
Wait(1);
End;
End;
And here is how I call the procedure (while the character is spinning at the spinning wheel):
SCAR Code:
SpinTime := GetSystemTime;
repeat
AntiRandom; // Look for random events.
CheckChat; // Look for chatwords.
until((SpinTime + (1000 * 50+random(1000))) <= GetSystemTime);
All the script does (when it finds a random event), is to hoover the mouse over the randomevent and not doing anything else. In the debug log in scar I can see ALOT of messages reading: "Found nickname".
If anyone knows how to fix this, I would really appreciate it.
Thanks in advance.