SRL Archive - Research & Development Lounge

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')

i like this, think its a good idea, i might use it, not sure yet

just try ;)

ok coz u ask nicely i will have a go, i might even add it into my script :P

kk ty ;)

Damn you're smexy… :p

simple but efficient, Very usefully for beginners, especially when they are making their first script with walk / talk :)

thank you!

nice but you got some much to fill in for those poor starting scripters :(

I made an sort of eddited version:

{*******************************************************************************
Function FindAndClickNPC(NpcColors: TIntegerArray; UpTexts: TStringArray;
RChooseOption :string; RightOrLeftNpcClick:boolean; HMTolerance: integer;):boolean;
Started by: Hermpie.
modified by: MasterKill.
Description: Finds and clicks an NPC
Use: FindAndClickNPC([123456, 345678], ['ancelot', 'Sir'], 'Talk', False, 5)
*******************************************************************************}
Function FindAndClickNPC(NpcColors: TIntegerArray; UpTexts: TStringArray; RChooseOption :string; RightOrLeftNpcClick:boolean; HMTolerance: integer):boolean;
var
  Coord123X, Coord123Y :Integer;
begin
  repeat
    if FindObjCustom(Coord123X, Coord123Y, UpTexts, NpcColors, HMTolerance) then
    begin
      If RightOrLeftNpcClick then
      begin
        Mouse(Coord123X, Coord123Y, 0, 0, True);
        Result := True;
        WriteLn('Found NPC');
        exit;
      end else
      begin
        Mouse(Coord123X, Coord123Y, 0, 0, False);
        Wait(50 + random(100));
        if ChooseOption(RChooseOption) then
        begin
          Result:=True;
          WriteLn('Found NPC');
          Exit;
        end else WriteLn('NPC missclick!');
      end;
    end else
    begin
      WriteLn('not found NPC!');
      Result := False;
      exit;
    end;
  until(False)
end;

didn't test it but should be working

kk lol but mine is better;) i mean got more options ;)

i said THAT might be a problem, that's why i made A better one :) :D

I also used some T Arays

lol but more options is better less is EASIER not better ;)

nope, it's harder to fill in, and you allways needed to pick 2 colors, you can easely use 1 color now.

most options you use are kinda unless ;)

you don't have to thank me…

my thing can loop and will wait after you can say until click to continue or this tries its a bit harder to fill in but if you know how to use its better ;)

msn?, you and me are spamming right now…

For the colours, use a TIntegerArray so they can put as many colours as they like…

function FindNPC(Colours : TIntegerArray) : Boolean;
begin
  for I := 0 to GetArrayLength(Colours) - 1 do
  

And so on…

From: Santa_Clause
For the colours, use a TIntegerArray so they can put as many colours as they like…

function FindNPC(Colours : TIntegerArray) : Boolean;
begin
  for I := 0 to GetArrayLength(Colours) - 1 do
  

And so on…

see post #9 m8 :)

you changed the credit! when you gave your ''easier but not better version'' to him you changed the credit!

From: MasterKill
nice but you got some much to fill in for those poor starting scripters :(

I made an sort of eddited version:

{*******************************************************************************
Function FindAndClickNPC(NpcColors: TIntegerArray; UpTexts: TStringArray;
RChooseOption :string; RightOrLeftNpcClick:boolean; HMTolerance: integer;):boolean;
Started by: Hermpie.
modified by: MasterKill.
Description: Finds and clicks an NPC
Use: FindAndClickNPC([123456, 345678], ['ancelot', 'Sir'], 'Talk', False, 5)
*******************************************************************************}
Function FindAndClickNPC(NpcColors: TIntegerArray; UpTexts: TStringArray; RChooseOption :string; RightOrLeftNpcClick:boolean; HMTolerance: integer):boolean;
var
  Coord123X, Coord123Y :Integer;
begin
  repeat
    if FindObjCustom(Coord123X, Coord123Y, UpTexts, NpcColors, HMTolerance) then
    begin
      If RightOrLeftNpcClick then
      begin
        Mouse(Coord123X, Coord123Y, 0, 0, True);
        Result := True;
        WriteLn('Found NPC');
        exit;
      end else
      begin
        Mouse(Coord123X, Coord123Y, 0, 0, False);
        Wait(50 + random(100));
        if ChooseOption(RChooseOption) then
        begin
          Result:=True;
          WriteLn('Found NPC');
          Exit;
        end else WriteLn('NPC missclick!');
      end;
    end else
    begin
      WriteLn('not found NPC!');
      Result := False;
      exit;
    end;
  until(False)
end;

didn't test it but should be working

Heheh, I saw his functino were you could input 2 colors, I thought, I'll tell hem to use TIntegerArray.
I scrolled down the page and I saw your edited version, which includes TIntegerArray:D

However, good try hermpie, we finally see something better from you:).

-Tsn.

Very Good Altough if someone was a 'poor scripter' they would want to use the function but keep frogetting it. I liked MasterKill's Version better because it is easier to understand but who knows?

->{Nauamn}<-

updated!

removed the realy realy ussless stuff and keep the good stuff it got 1/2 more options then masterkills one but its better i swear ;)

From: hermpie
updated!

removed the realy realy ussless stuff and keep the good stuff it got 1/2 more options then masterkills one but its better i swear ;)

i would not say that hermpie…. :fiery:

this version looks better then your first one.

Put in arrays! :mad:

im not sure how different this scrip is and the one modified by master kill is but, in heavy world like in varorck shop world 1. it mistakes the shop seller for a player. it happens about once in every 8 times. i eddited the script to make it check if it opened the store trade dialog. its good now. i think this one is better though since it includes a loop. i made a loop personally for master kills one.

From: man slaughter
im not sure how different this scrip is and the one modified by master kill is but, in heavy world like in varorck shop world 1. it mistakes the shop seller for a player. it happens about once in every 8 times. i eddited the script to make it check if it opened the store trade dialog. its good now. i think this one is better though since it includes a loop. i made a loop personally for master kills one.

thats the point you can do and fill in in my thing like Until foundshopdialog check my version there is somthing called repeat until fill in there the name of your findshopdialog procedure and it works fine ;)

From: hermpie
updated!

removed the realy realy ussless stuff and keep the good stuff it got 1/2 more options then masterkills one but its better i swear ;)

I am so using this in my next function for pickpocketing people. There are no SRL skill functions for Theiving.

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

if you were to use this function in a script you would not SetupSrl; would you?

dude my funtion uses some funtions out of srl duh :S

You really should turn to the MK side - arrays would be much better for it because you can use as many or as little as you want - afterall, how many uptexts can one shopkeeper have (unless he works shift with a friend). Otherwise, it's a nice little function and I wish I could use it in my next script (alas, not much room for a NPC clicker in a bank'n'chopper).

you can use it for a tree to like this:

Procedure FindOak;
var
  TMT,b: Integer;
begin
  TMT := 0;
  Check;
  if (TreeGone = False) then exit;
  repeat
    TMT := TMT + 1
    B := GetSystemTime
    if FindObjCustom(X, Y, ['Oak', 'ak'], [OakColor, OakColor2], 10) then
    begin
      Wait(50+random(20));
      Mouse(X, Y, 1, 1, False);
      Wait(50+random(20));
      if ChooseOption('hop') then
      begin
        WriteLn('Found Oak');
        Break;
      end;
    end;
  until (TMT > 10)
end;

The only thing is I don't like using FindObj/Custom - much prefer using my own way of doing it - unless it's for uniquely coloured things.

11-17-2007

Bit late to answer? :p

Oh anyways, it's basically findobj and clicking…good to learn from it…(I mean failsafes and obj finding):)
Good to see you back…

Edit:
Quess why you gravedigged? You are the *spammasta*
:p:D

spam F
spam U
spam C
spam K

spam Y
spam O
spam U

spam just kidding :P

thanks mate ;)

(you always gravedig like that :S?)

Hermpie