Привет, помогите пожалуйсто добавить в скрипт еще пару айди, что бы с нескольких нпц попрашайничал, а то я в скриптах вообще большой О
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.
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Begging помогите плз
Re: Begging помогите плз
Code: Select all
program Eval;
{$Include 'all.inc'}
var
ind, vendorInd : integer;
vendorIDArr : array of cardinal;
begin
vendorIDArr := [$001A39D5, $001A39D5, $001A39D5];
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for vendorInd := 0 to 2 do
begin
for ind := 0 to 10 do
begin
CheckSave;
UseSkill('Begging');
WaitTargetObject(vendorIDArr[vendorInd]);
Wait(10000);
end;
Hungry(1,backpack);
end;
end;
end;
end.