SRL Archive - Archive

http://www.srl-forums.com/forum/srl-shermanators-guild-p472399.html


It's epic to be skilled as that and a Junior Member.

SRL Member, possibly Azrael too.

Has a default stats account, please attend him of that. After that members. Azrael, well havent seen the script *that* thoroughly, but maybe :)

Some of his functions -

Function FindCoal(var Ix, Iy: Integer): Boolean;
Var
  Color, Tolerance: TIntegerArray;
  Sat, Hue: TExtendedArray;
  CTS, X, Y, T, I: Integer;
  TPA, P: TPointArray;
  aTPA: T2DPointArray;
Begin
  if(not(LoggedIn))then Exit;
  MarkTime(T);

  Color :=  [2306867, 7576747]; //Color
  Hue := [0.08, 0.05]; //Hue
  Sat := [0.14, 0.94]; //Sat
  Tolerance := [10, 5]; //Lum
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  For I:= 0 To High(Color) Do
  Begin
    SetColorspeed2Modifiers(Hue[I], Sat[I]);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color[I], MSX1 + 30, MSY1 + 30, MSX2 - 30, MSY2 - 30, Tolerance[I]);
    P := CombineTPA(TPA, P);
  End;
  aTPA := TPAToATPAEx(P, 13, 13);
  SortATPAFrom(aTPA, Point(MSCX, MSCY));
  //SortATPASize(aTPA, True);
  //SetColorspeed2Modifiers(0.08, 0.14);
  SetColorspeed2Modifiers(0.08, 0.26);
  For I:= 0 To High(aTPA) Do
  Begin
    MiddleTPAEx(aTPA[I], X, Y);
    //Wait(500);
    //Write('Yellow: '+IntToStr(CountColorTolerance(2987738, X - 20, Y - 20, X + 20, Y + 20, 13)));
    //Write('Coal: '+IntToStr(CountColorTolerance(2306867, X - 20, Y - 20, X + 20, Y + 20, 10)));
    if(CountColorTolerance(2306867, X - 20, Y - 20, X + 20, Y + 20, 10) < 15)then Continue;
    MMouse(X, Y, 0, 0);
    Wait(200+ random(100));
    If(IsUpTextMultiCustom(['Mine', 'ine']))Then
    Begin
      Status('Found Rock In: ' + IntToStr(TimeFromMark(T))+' MilliSeconds!')
      GetmousePos(Ix, Iy);
      Result := True;
      Break;
    End;
  End;
  ColorToleranceSpeed(CTS);
  SetColorspeed2Modifiers(0.2, 0.2);
End;

Function U_FindLadder: Boolean;
Var
  Color, Tolerance: TIntegerArray;
  Sat, Hue: TExtendedArray;
  CTS, X, Y, T, I: Integer;
  TPA, P: TPointArray;
  aTPA: T2DPointArray;
Begin

  MarkTime(T);

  Color :=  [2505027, 3427932, 2834508]; //Color
  Hue := [0.05, 0.04, 0.08]; //Hue
  Sat := [0.07, 0.07, 0.13]; //Sat
  Tolerance := [9, 8, 7]; //Lum
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  For I:= 0 To High(Color) Do
  Begin
    SetColorspeed2Modifiers(Hue[I], Sat[I]);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color[I], MSX1 + 40, MSY1+ 40, MSX2 - 40, MSY2 - 40, Tolerance[I]);
    P := CombineTPA(TPA, P);
  End;
  aTPA := TPAToATPAEx(P, 20, 20);
  SortATPAFrom(aTPA, Point(MSCX, MSCY));
  //SortATPASize(aTPA, True);
  For I:= 0 To High(aTPA) Do
  Begin
    MiddleTPAEx(aTPA[I], X, Y);
    MMouse(X, Y, 0, 0);
    Wait(200+ random(100));
    If(IsUpTextMultiCustom(['limb-u', 'Climb', 'Climb-up']))Then
    Begin
      Write('Took ' + IntToStr(TimeFromMark(T))+' MilliSeconds!')
      GetmousePos(X, Y);
      Mouse(X, Y, 0, 0, False);
      Wait(50+Random(20));
      If(ChooseOption('Climb'))Then
      Begin
        FFlag(0);
        Result := True;
        Break;
      End;
    End;
  End;
  ColorToleranceSpeed(CTS);
  SetColorspeed2Modifiers(0.2, 0.2);
End;

Function FindLadder: Boolean;
Var
  Color, Tolerance: TIntegerArray;
  Sat, Hue: TExtendedArray;
  CTS, X, Y, T, I: Integer;
  TPA, P: TPointArray;
  aTPA: T2DPointArray;
  
Begin
  if(not(LoggedIn))then Exit;
  MarkTime(T);

  Color :=  [2641764, 3561063, 3037553]; //Color
  Hue := [0.08, 0.7, 0.03]; //Hue
  Sat := [1.24, 0.10, 0.05]; //Sat
  Tolerance := [6, 4, 10]; //Lum
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  For I:= 0 To High(Color) Do
  Begin
    SetColorspeed2Modifiers(Hue[I], Sat[I]);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color[I], MSX1, MSY1, MSX2, MSY2, Tolerance[I]);
    P := CombineTPA(TPA, P);
  End;
  aTPA := TPAToATPAEx(P, 25, 25);
  SortATPAFrom(aTPA, Point(MSCX, MSCY));
  //SortATPASize(aTPA, True);
  SetColorSpeed2Modifiers(0.40, 0.09);
  For I:= 0 To High(aTPA) Do
  Begin
    MiddleTPAEx(aTPA[I], X, Y);
    //Write(Inttostr(CountColorTolerance(5000274, X - 30, Y - 30, X + 30, Y + 30, 7)));
    if CountColorTolerance(5000274, X - 30, Y - 30, X + 30, Y + 30, 7) < 150 then Continue;
    MMouse(X, Y, 0, 0);
    Wait(200+ random(100));
    If(IsUpTextMultiCustom(['limb-d', 'down', 'Climb-down']))Then
    Begin
      Write('Took ' + IntToStr(TimeFromMark(T))+' MilliSeconds!')
      GetmousePos(X, Y);
      Mouse(X, Y, 0, 0, False);
      Wait(50+Random(20));
      If(ChooseOption('Climb'))Then
      Begin
        FFlag(0);
        Result := True;
        Break;
      End;
    End;
  End;
  ColorToleranceSpeed(CTS);
  SetColorspeed2Modifiers(0.2, 0.2);
End;

They sure resemble each other a lot, but the entire script is definetly worth SRL Member, he propably scripts better than… PvH?

I lost my password cache, could someone check the IPs for other accounts?

From: Boreas
I lost my password cache, could someone check the IPs for other accounts?

* Marine Corps 72.220.92.177 [Find Posts by User] [View Other IP Addresses for this User]
* Shermanator 72.220.92.177 [Find Posts by User] [View Other IP Addresses for this User]

If and when the multiple accounts issue is resolved…
I definitely think that he deserves SRL Members, but I'm not sure he is ready for the Azrael Cup.

-Bam

From: mastaraymond
* Marine Corps 72.220.92.177 [Find Posts by User] [View Other IP Addresses for this User]
* Shermanator 72.220.92.177 [Find Posts by User] [View Other IP Addresses for this User]

Thanks. Looks good to me.