Stealth Client Forum

Code: Select all

Program test;
var
mob: Cardinal;


Procedure Bitva;
begin
If ((FindNotoriety($0190, 2) <> 0) or (FindNotoriety($0191, 2) <> 0)) then 
begin
AddToSystemJournal('Ally found!');
mob:= finditem;
AddToSystemJournal('Ally is not attackable!');
Ignore(finditem);
end
else
begin
AddToSystemJournal('Ищем цель');
If ((FindNotoriety($0190, 1) <> 0) or (FindNotoriety($0191, 1) <> 0)) then 
begin
AddToSystemJournal('innocent found - attackable!');
Attack(finditem);
end;
end;
end;

Begin
while true do
begin
If not(isDead(self)) then Bitva;

end;
end.

Code: Select all

If ((FindNotoriety($0190, 5) > 0) or (FindNotoriety($0190, 6) > 0)) then

Code: Select all

На дальность поиска влияет:

FindDistance - задает дальность поиска по горизонтали в клетках. 3 - значит будет искать под собой и в радиусе трех клеток. По умолчанию имеет значение 2 (принято за умолчание на большинстве серверов как максимальная дальность, с которой обычный игрок при обычных условиях может поднять или положить вещь)

Code: Select all

Program test;
var
mob: Cardinal;


Procedure Bitva;
begin 
FindDistance := 12; 
FindVertical := 40; 
....