Guys , maybe this is noobish question , but i dont know why my anti randoms with simple talker like sandwitch lady or securty guard are not working :S( the box solver is working ;p) ... So i set in y nickname where it must be , but still they dont work. anyone can explain me this ? script looks like this
Chopping procedure
SCAR Code:
Procedure chop;
var CuttingTime: integer;
Tries: integer;
begin
MarkTime(CuttingTime);
MakeCompass('N');
repeat
if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
begin
Mouse(x,y,0,0,false);
FindEnt(X, Y, True);
if(IsUpText('Chop'))then
Wait(5000 + (random(150)));
ChooseOption('hop')
antiRand;
Aban;
TalkAboutWc;
wait (5800 + (random(200)));
if (not (FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln ('neatradu vitolu. mauciba.');
Logout;
Exit;
end;
end;
until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
end;
and hers the declare players
SCAR Code:
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := 'player';
Players[0].Pass := 'pass';
Players[0].Nick := 'laye';
Players[0].Active := True;
end;
and the mainloop
SCAR Code:
procedure MAIN;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
wait (1000);
WalkToWillow;
wait ( 10000);
chop;
uzBANKU;
wait (9000);
bankoties;
Proggy;
end;
where is my problem ?