Simba Code:
Function FindHydeColors:Boolean;
var
tmpCTS, l, r:Integer;
HydeTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.20, 0.21);
if FindColorsTolerance(HydeTPA, 5337207, 1, 1, 518, 359, 3) then
begin
Result := True;
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
//L := High(BankTPA);
end;
Result := False;
end;
Simba Code:
Function FindGenieColors:Boolean;
var
tmpCTS, l, r:Integer;
GenieTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.14, 1.04);
if FindColorsTolerance(GenieTPA, 6163466, 1, 1, 518, 359, 4) then
begin
Result := True;
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
//L := High(BankTPA);
end;
Result := False;
end;
Simba Code:
Function FindGenie: Boolean;
Var
tmpCTS,i, L,Counter: Integer;
ObjTPA: TPointArray;
ObjATPA: T2DPointArray;
X,Y,DMCount,Moves: Integer;
Begin
Moves:=0;
DMCount:=0;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.14, 1.04);
FindColorsTolerance(ObjTPA, 6163466, 1, 1, 514, 338, 4);
SplitTPAWrap(ObjTPA, 10, ObjATPA);
SortATPASize(ObjATPA,True);
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
DMCount:=RandomRange(3,5);
L := High(ObjATPA)
MarkTime(Counter);
For i := 0 To L Do
Begin
MiddleTPAEx(ObjATPA[i], X, Y);
Repeat Begin
Moves:=Moves+1;
mmouse(x, y, 1, 1);
Wait(RandomRange(400, 500));
If (P06_IsUpTextMultiCustom(['Talk To G','alk To Gen','k to Gen'])) Then
Begin
clickmouse2(mouse_Left);
Wait(RandomRange(1500, 5000));
Writeln('Solving genie random event');
Exit;
End;
End; Until (Moves > DMCount)
If (TimeFromMark(Counter) > 5000) Then
Begin
Break;
End;
End;
Result:=False;
End;