Begging помогите плз

[sandro]

Привет, помогите пожалуйсто добавить в скрипт еще пару айди, что бы с нескольких нпц попрашайничал, а то я в скриптах вообще большой О

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.

[DDoS]

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.