Begging помогите плз
Posted: 31.08.2018 0:34
Привет, помогите пожалуйсто добавить в скрипт еще пару айди, что бы с нескольких нпц попрашайничал, а то я в скриптах вообще большой О
Program Eval;
var
t : Integer;
enemy : Cardinal;
{$Include 'all.inc'}
Begin
Enemy := $001A39D5; //ID на ком качать
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
CheckSave;
UseSkill('Begging');
WaitTargetObject(enemy);
Wait(10000);
end;
Hungry(1,backpack);
end;
end;
End.
Program Eval;
var
t : Integer;
enemy : Cardinal;
{$Include 'all.inc'}
Begin
Enemy := $001A39D5; //ID на ком качать
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
CheckSave;
UseSkill('Begging');
WaitTargetObject(enemy);
Wait(10000);
end;
Hungry(1,backpack);
end;
end;
End.