The blackline functions,
SCAR Code:
Function CountItemsBlackLine(Count, Tol: Integer): Integer;
Var
TPA: TPointArray;
I: Integer;
TPAA: T2DPointArray;
Begin
GameTab(2);
FindColorsTolerance(TPA, 65536, MIX1, MIY1, MIX2, MIY2, 0);
TPAA := TPAToATPAEx(TPA, 42, 36);
For I := 0 To High(TPAA) Do
If InRange(GetArrayLength(TPAA[i]), Count - Tol, Count + Tol) Then
Result := Result + 1;
End;
Function ClickAllItemsBlackLine(Count, Tol, WaitT, WaitR: Integer; Option: String): Integer;
Var
TPA: TPointArray;
X, Y, Z: Integer;
TPAA: T2DPointArray;
Begin
GameTab(2);
FindColorsTolerance(TPA, 65536, MIX1, MIY1, MIX2, MIY2, 0);
TPAA := TPAToATPAEx(TPA, 42, 36);
For z := 0 To High(TPAA) Do
If InRange(GetArrayLength(TPAA[z]), Count - Tol, Count + Tol) Then
Begin
MiddleTPAEx(TPAA[z], X, Y);
Mouse(X, Y, 2, 2, False);
If ChooseOption(Option) Then
Begin
Result := Result + 1;
Wait(WaitT + Random(WaitR));
End;
End;
End;
both have a GameTab(2) before the rest of the function.
Shouldn't that be GameTab(4)?
Edit: I don't think these functions even work..