SRL Archive - Discussions and Debates

Well, the case is that I've run out of imagination to create shitty functions to be kicked down the functions section, so, if there is some function that many people would need I will try and make it.

No requests for personal needs like goblin finder etc, something that would make difference. Dont be afraid of suggesting even something may sound like a suicide, though dont suggest random solvers since I cant just whip a random out of nothing.

make me a KICKASS rock finder ;) Should have these parameters:

Function FindRock(Var X, Y: Integer; Color, Tol: Integer): Boolean;

This is my current one.. Pretty noob huh?

Function FindRock(Var X, Y: Integer; Color, Tol: Integer): Boolean;
Var
  RockTP: TPoint;
  RockTPA: TPointArray;
Begin
  X:= MSCX; Y:= MSCY;

  If(FindColorSpiralTolerance(X, Y, Color, MSX1, MSY1, MSX2, MSY2, Tol))Then
    Begin
      FindColorsTolerance(RockTPA, Color, X-40, Y-40, X+40, Y+40, Tol);
      
      RockTP := MiddleTPA(RockTPA);
      X:= RockTP.X; Y:= RockTP.Y;
      Result:= True;
    End;

End;

make a kickass door finder on the mm and theres must be a option to like search from the north to south and skip the first door its finds and then click the second one ;) that would be (h)

Yeah, hold on I'll kick its ass in a sec -

Btw this is for old rox.

Function FindRockIn(Var RockPoint: TPoint; x1, y1, x2, y2, C: Integer): Boolean;
Var
  L, I, CTS, X, Y: Integer;
Var
  TPA, TPA2: TPointArray;
Var
  TP: TPoint;
Begin
  If(Not(LoggedIn))Then Exit;
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, C, x1, y1, x2, y2, 10);
  L := GetArrayLength(TPA) - 1;
  For I := 0 To L Do
  Begin
    TP := TPA[i];
    X := TP.x;
    Y := TP.y;
    FindColorsTolerance(TPA2, C, X - 15, Y - 15, X + 15, Y + 15, 15);
    MiddleTPAEx(TPA2, X, Y);
    FindColorsTolerance(TPA2, C, X - 15, Y - 15, X + 15, Y + 15, 15);
    If(GetArrayLength(TPA2) >= 35)Then
    Begin
      RockPoint := MiddleTPA(TPA2);
      Result := True;
      Break;
    End;
  End;
  ColorToleranceSpeed(CTS);
End;

I use that in my coal miner, if it looks noob, I can add t3h 3xtr4h schi4t, though I dont like blowing peoples minds so try that first ;)

E: C = rock color..

EE: Though this kinda fits the "personal needs" category xD

EEE: Hermpie I'll start working on that tomorrow, early school tomorrow..

Make the above functions into a plugin, or

Make a function to compute anyones mom into a two word representation:

program N3ss3sMom;
var
  A: String;

begin.
  A:= ComputeMom('N3ss3s');
  Writeln(A);
end.

{Output:
            Fuck me!
}

EEE: Hermpie I'll start working on that tomorrow, early school tomorrow..

then you got somthing to do :p i would really thank you! btw you can test it on the lumby doors first floor ;)

r0b0t fuck your own mother for a change and btw if you like older women especially mothers of people same age as you I suggest getting some help to your problem..

EDIT: Btw hermpie you should try making it yourself first, DoorProfiles.scar looks pretty good for doing stuff like that.

If you are to make it return it as a TpointArray… Ill try othewise if the one in DorrProfiles doesnt work…

Ofcourse a TPA, but try messing with DoorProfiles, I aint gonna make anything thats already been made unless I can make it much better.

    FindColorsTolerance(TPA2, C, X - 15, Y - 15, X + 15, [B]Y - 15[/B], 15);
    MiddleTPAEx(TPA2, X, Y);
    FindColorsTolerance(TPA2, C, X - 15, Y - 15, X + 15, Y + 15, 15)

Why the minus there again?

Oh shit, its not supposed to be, seems like I've fucked up and still works xD I'll fix, thanks nielsie.

When I saw "Last post by: Nielsie" or whatever, I was like "No shit, this is gonna hurt" xD

A dev requesting a function from >

i dont know about you guys… but im starting to get pretty pissed off at Flags that freezes.

or in other words, on the MM there is a flag, yet my character doesnt move.

SCAR thinks its moving but its not.

Not sure if this has already been solved, but i'd like a procedure that would check for this error. If possible.

Both Flag and FFlag have a timeout

From: Bobarkinator
Both Flag and FFlag have a timeout

yeah but is there any other method? or can someone at least make something like it but better?

The only way i could think of doing it was a get color of points around the flag and then if these change color with more than a tolerance of 5 then it continues?

You mean like this?
Flag255Amount = amount of the red pixels in flag you want to see, made that param because if you want to "find" the flag also when its not fully visible on mm, like if you tend to click to like 70 radius from MM center, you cant see the flag fully etc..

Procedure Flag2(Flag255Amount: Integer);
Var
  FlagX, FlagY, Z, Ox, Oy, Saiph: Integer;
Begin
  If Not LoggedIn Then Exit;
  Saiph := GetSystemTime;
  Repeat
    If Not
    FindColoredAreaTolerance(FlagX, FlagY, 255, 0, 0, 1000, 1000, Flag255Amount, 0);
    If Z <= 3 Then
      Wait(150)
    Else
      Wait(55);
    FindColoredAreaTolerance(Ox, Oy, 255, 0, 0, 1000, 1000, Flag255Amount, 0);
    If (Ox = FlagX) And (Oy = FlagY) Then
    Begin
      Writeln('*** Stuck ***');
      If StuckSafe Then
        MouseFindFlag(MMCX, MMCY, -1, 1);
    End;
  Until(GetSystemTime - Saiph  >= 25000);
End;

:)

hmm… not really, but i think that will do. :p