SRL Archive - SRL Archives

:stirthepot:

This one finds closest fire…

Function FindClosestFire(Var FiX, FiY: Integer): Boolean;
Var
  I, CTS, X, Y, M: Integer;
Var
  TPA: TPointArray;
Begin
  M := GetSystemTime;
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  X := MSCX;
  Y := MSCY;
  If(FindColorSpiralTolerance(X, Y, 3577775, MSX1, MSY1, MSX2, MSY2, 10))Then
  Begin
    FindColorsTolerance(TPA, 3577775, X - 15, Y - 15, X + 15, Y + 15, 15);
    Writeln(IntToStr(Length(TPA)));
    If(GetArrayLength(TPA) >= 10)Then
    Begin
      MiddleTPAEx(TPA, Fix, Fiy);
      Result := True;
    End;
  End;
  Writeln(IntToStr(GetSystemTime - M));
  ColorToleranceSpeed(CTS);
End;

About 20ms usually..

Buahahaha - rs is like teh infinite source for finding diff objects! :stirthepot: more coming!


EDIT: Crap I cant stop making these, next one is monster finder..

Stop is n3s! You end up not being able to sleep, 'cause you need to make a something-finder!! Make a template instead, where all you have to do is insert a few colors, and it finds it.

d00d st0pz0r s3ri0usly.

-Knives

d00d st0pz0r s3ri0usly.

The problem is I cant! :O xz0mg

FindObjTPA? lol

No shit


it checks the uptext… must… find… perfect… no… uptext… needed…

Why aren't my functions getting this much attention? :( Besides maybe you should release a generic function and say: "add colour here, add number of people that should be found, add tolerance", etc.

omg n3ss3s :p

"add colour here, add number of people that should be found, add tolerance"

Dont make me to ;)

From: n3ss3s
Dont make me to ;)

Woops I said people… I meant points. "add the number of points that should be found here…".

This is why I love the SRL Members forum - Spam legally :D The newbs don't get any bad ideas from it anyways :D

But n3s ends up somewhere bad if he keeps scripting like crazy. Maybe he ends up in his closet

-Knives

Dont make me to

Too late to stop me, already making general object finder.

Function iSpyWithMyLittleEye(ObjColors: TIntegerArray; ObjWidht, ObjHeight: Integer; HowMany: Integer): TPointArray;

Zephyrs, be ashamed…

PS: Welcome back Zeph

-Knives

Oh n3s… What if the person doesn't know the size of the object ;) :D :P

EDIT: LOL! I couldn't see my last post!! WTF! Then I can after I post the new one. Omg SRY

-Knives

From: King of Knives
Zephyrs, be ashamed…

PS: Welcome back Zeph

-Knives

I'm only back for a day, then I'm going again lol.

Uhmkay, the iSpyWithMyLittleEye is almost ready..

Wow, what a spamfest going on here.

Looks nice… Like the other 10 similar functions/procedures you've released today. Also, you don't check uptext because it'd make it slower?

Because it yes, wastes time and b) unnecassary.

ehm n3ss3s why not make a thread

''my functions/ procedures and spam-posts''

spam-posts

Im sorry mister "Absolutely no spam 100 posts in 3 days"

You're reverting back to your old ways…

From: Bobarkinator
You're reverting back to your old ways…

me?

You're reverting back to your old ways…

Nope, this was NOT about getting post count, I was sugar high, hyperactive.

Think about what happens when I drink 1,5 litr pommac, 1 litr coke, eat 1/2 chocolate cake, eat 2 packages of cookies and just too much candy in less than 24 hours? :p

Anyways, now I made a general object finder which will be my last object finder post for looong time…

but I am not reverting back to my old ways