SRL Archive - SRL Archives

updated!

program NPCFinder;
{.include SRL/SRL.Scar}

{==============================]
  Function:FindClickNpc
  by:Hermpie
  Info:you could use it like this,
 NPCFindNClick(Color1,Color2,'uptext1','uptext2','rade',InFight,False,10);
[==============================}
Function NPCFindNClick( NPCColor1, NPCColor2:integer; UpText1,UpText2, COption:string;RepeatUntil, RightOrLeft:boolean;
HMTolerance:integer):boolean;
var
  TMT :Integer;
  Coord123X :Integer;
  Coord123Y :Integer;
  T:integer;
begin
  TMT:=0;
  repeat
    FindTalk;
    TMT:=TMT + 1
    Wait(50+random(10));
    if FindObjCustom(Coord123X, Coord123Y, [Uptext1, Uptext2], [NPCColor1, NPCColor2],HMTolerance) then//Thanks killerDou!:)
    begin
      T := GetSystemTime;
      Wait(50+random(10));
      Mouse(Coord123X, Coord123Y, 1, 1, RightOrLeft);
      Wait(50+random(10));
      if (RightOrLeft=False) then
      begin
        if ChooseOption(COption) then
        begin
          Result:=True;
          WriteLn('Found Npc');
          Break;
        end;
      end;
    end;
  until (RepeatUntil) or (TMT>10)
  if RepeatUntil then Result:=true;
  Writeln(IntToStr(GetSystemTime - T));
end;


Begin
  SetupSrl;
  NPCFindNClick(1,1,'uptext1','uptext2','rade',InFight,False,10);
end.

-Hermpie(pls change my first letter to a capital'H')

Very nice, I'd say change it so there's an option of not using the repeat until…

Well, actually I spose you could just type true if you don't want any repeat until stuff.. Otherwise, nice :P

then just fill in false so the tries will take over the repeatuntil okay?
because repeat until is needed.

simple yet effective.

very nice.

thanks

if findobjcustom is going to offer you the chance to use an array, let your function use one…

nah its not that needed just was bored 5 mins :D

hermpie: i gues this will never be in srl couse it's to complicated.

edited version: (#9)
http://www.villavu.com/forum/showthread.php?t=19858?p=252959

i updated a version look my other thread