Request Away!
I Do It All!
- Auto Color (My FAVORITE)
- Anti - Ban
- Object Finding
- Any Thing!
SCAR Code:
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function Function TFindMMBank_FloorColor: Integer;
By: Timer
Description: Finds Bank Floor Color!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function TFindMMBank_FloorColor: Integer;
Var
R, G, B, I,
TestColor: Integer;
H, S, L, X,
Y, Z: Extended;
TPA: TPointArray;
Begin
FindColorsTolerance(TPA, 6250600, MMX1, MMY1, MMX2, MMY2, 80);
For I := 0 To High(TPA) Do
If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
Begin
TestColor := GetColor(TPA[I].X, TPA[I].Y);
If SimilarColors(TestColor, 6250600, 50) Then
Begin
ColortoHSL(TestColor, H, S, L);
ColortoRGB(TestColor, R, G, B);
ColortoXYZ(TestColor, X, Y, Z);
If InRange(R - G, -12, 28) Then
If InRange(R - B, -11, 29) Then
If InRange(Round(X) - Round(Y), -15, 15) Then
If InRange(Round(X) - Round(Z), -16, 14) Then
If InRange(Round(H) - Round(S), -10, 4) Then
If InRange(Round(H) - Round(L), -44, -30) Then
Begin
WriteLn('MM Bank_Floor Color = ' + IntToStr(TestColor));
Result := TestColor;
Exit;
End;
End;
End;
WriteLn('Couldn''t Find MM Bank_Floor Color!');
End;
SCAR Code:
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function FindFurnace(Var X, Y: Integer): Boolean;
By: Timer
Description: Finds The Furnace!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function FindFurnace(Var X, Y: Integer): Boolean;
Var
I, O, P{, Mark}: Integer;
TPA, Fur: TPointArray;
ATPA: T2DPointArray;
Begin
//MarkTime(Mark);
If LoggedIn Then
Begin
FindColorsSpiralTolerance(521, 318, TPA, 1583510, MSX1, MSY1, MSX2, MSY2, 50);
ATPA := TPAToATPA(TPA, 5);
O := High(ATPA);
For I := 0 To O Do
Begin
SetArrayLength(Fur, O + 1);
Fur[i] := MiddleTPA(ATPA[i]);
End;
O := High(Fur);
For I := 0 To O Do
Begin
MMouse(Fur[i].X, Fur[i].Y, 5, 5);
Wait(50 + Random(20));
If IsUpText('urna') Then
Begin
//WriteLn('Took ' + IntToStr(TimeFromMark(Mark)) + 'ms! (This Includes The Search! As In The Mouse Moving!)');
Result := True;
X := Fur[i].X;
Y := Fur[i].Y;
Break;
End;
End;
If (Not Result) Then
Result := FindObjTPA(X, Y, 1583510, 11, 3, 5, 5, 1, ['melt', 'nace']);
End Else
Result := False;
End;
SCAR Code:
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function TFindMMTreeColor: Integer;
By: Timer
Description: Finds The Brightest Color Green On Triangle Trees Color!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function TFindMMTreeColor: Integer;
Var
R, G, B, I,
TestColor: Integer;
H, S, L, X,
Y, Z: Extended;
TPA: TPointArray;
Begin
FindColorsTolerance(TPA, 284699, MMX1, MMY1, MMX2, MMY2, 80);
For I := 0 To High(TPA) Do
If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
Begin
TestColor := GetColor(TPA[I].X, TPA[I].Y);
If SimilarColors(TestColor, 284699, 50) Then
Begin
ColortoHSL(TestColor, H, S, L);
ColortoRGB(TestColor, R, G, B);
ColortoXYZ(TestColor, X, Y, Z);
If InRange(R - G, -81, -41) Then
If InRange(R - B, 3, 43) Then
If InRange(Round(X) - Round(Y), -18, 12) Then
If InRange(Round(X) - Round(Z), -12, 18) Then
If InRange(Round(H) - Round(S), -69, -55) Then
If InRange(Round(H) - Round(L), 4, 18) Then
Begin
WriteLn('MM Tree Color = ' + IntToStr(TestColor));
Result := TestColor;
Exit;
End;
End;
End;
WriteLn('Couldn''t Find MM Tree Color!');
End;
SCAR Code:
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function TFindMMGreen_GrassColor: Integer;
By: Timer
Description: Finds Green Grass Color!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function TFindMMGreen_GrassColor: Integer;
Var
R, G, B, I,
TestColor: Integer;
H, S, L, X,
Y, Z: Extended;
TPA: TPointArray;
Begin
FindColorsTolerance(TPA, 1930332, MMX1, MMY1, MMX2, MMY2, 80);
For I := 0 To High(TPA) Do
If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
Begin
TestColor := GetColor(TPA[I].X, TPA[I].Y);
If SimilarColors(TestColor, 1930332, 50) Then
Begin
ColortoHSL(TestColor, H, S, L);
ColortoRGB(TestColor, R, G, B);
ColortoXYZ(TestColor, X, Y, Z);
If InRange(R - G, -44, -4) Then
If InRange(R - B, 43, 83) Then
If InRange(Round(X) - Round(Y), -19, 11) Then
If InRange(Round(X) - Round(Z), -7, 23) Then
If InRange(Round(H) - Round(S), -46, -32) Then
If InRange(Round(H) - Round(L), -14, 0) Then
Begin
WriteLn('MM Green_Grass Color = ' + IntToStr(TestColor));
Result := TestColor;
Exit;
End;
End;
End;
WriteLn('Couldn''t Find MM Green_Grass Color!');
End;
SCAR Code:
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function TFindMMLumby_RoadColor: Integer;
By: Timer
Description: Finds Lumby Road Color!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function TFindMMLumby_RoadColor: Integer;
Var
R, G, B, I,
TestColor: Integer;
H, S, L, X,
Y, Z: Extended;
TPA: TPointArray;
Begin
FindColorsTolerance(TPA, 6579564, MMX1, MMY1, MMX2, MMY2, 80);
For I := 0 To High(TPA) Do
If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
Begin
TestColor := GetColor(TPA[I].X, TPA[I].Y);
If SimilarColors(TestColor, 6579564, 50) Then
Begin
ColortoHSL(TestColor, H, S, L);
ColortoRGB(TestColor, R, G, B);
ColortoXYZ(TestColor, X, Y, Z);
If InRange(R - G, -13, 27) Then
If InRange(R - B, -12, 28) Then
If InRange(Round(X) - Round(Y), -15, 15) Then
If InRange(Round(X) - Round(Z), -16, 14) Then
If InRange(Round(H) - Round(S), -9, 5) Then
If InRange(Round(H) - Round(L), -46, -32) Then
Begin
WriteLn('MM Lumby_Road Color = ' + IntToStr(TestColor));
Result := TestColor;
Exit;
End;
End;
End;
WriteLn('Couldn''t Find MM Lumby_Road Color!');
End;
SCAR Code:
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function TFindMMWaterColor: Integer;
By: Timer
Description: Finds Water Color!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function TFindMMWaterColor: Integer;
Var
R, G, B, I,
TestColor: Integer;
H, S, L, X,
Y, Z: Extended;
TPA: TPointArray;
Begin
FindColorsTolerance(TPA, 12031355, MMX1, MMY1, MMX2, MMY2, 80);
For I := 0 To High(TPA) Do
If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
Begin
TestColor := GetColor(TPA[I].X, TPA[I].Y);
If SimilarColors(TestColor, 12031355, 50) Then
Begin
ColortoHSL(TestColor, H, S, L);
ColortoRGB(TestColor, R, G, B);
ColortoXYZ(TestColor, X, Y, Z);
If InRange(R - G, -46, -6) Then
If InRange(R - B, -80, -40) Then
If InRange(Round(X) - Round(Y), -17, 13) Then
If InRange(Round(X) - Round(Z), -37, -7) Then
If InRange(Round(H) - Round(S), 23, 37) Then
If InRange(Round(H) - Round(L), -8, 6) Then
Begin
WriteLn('MM Water Color = ' + IntToStr(TestColor));
Result := TestColor;
Exit;
End;
End;
End;
WriteLn('Couldn''t Find MM Water Color!');
End;