clicknpcchattext = not working... why its not working?...
or do some1 else got an idea to click an npc text?
SCAR Code:
unction ClickTextX(b: Integer; txt: string; Left:Boolean): Boolean;
var
a : integer;
begin
repeat
ClickNpcChatText(txt,true);
waitplus(100 + random(100));
a := a + 1;
talked := talked + 1
until(b = a);
writeln('talked' + intToStr(talked) +' time(s)');
end;
the click procedure
SCAR Code:
function FindAndTalkToAereck:boolean;
var
X:integer;
begin
repeat
X := X + 1
if (FindObj(Hx, Hy, 'ereck', 6984382, 10)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('alk-to');
markTime(H);
waitplus(1);
end;
until(InTalk) or (X > 10);
if (InTalk) then
begin
writeln('in talk with talk father Aereck');
ClickTextX (1,'to',true);
ClickTextX (1,'quest',true);
ClickTextX (2,'to',true);
ClickTextX (1,'help',true);
ClickTextX (9,'to',true);
end;
end;