Луталка.

[Nasty Nay]

Я знаю, я уже достала.
Но если не сложно дайте простенький скриптик.
Чар стоит и постоянно лутает один и тот же предмет с пола.

[Acronym]

Code: Select all

Program StVP;

const
STItemType := $ABCD

{$Include 'all.inc'}

Begin
SetARStatus(true);
WaitConnection(3000); 
	repeat
		while not Dead do
		begin
			while FindTypeEx(STItemType, 0, ground, false) = 0 do
				wait(250);   		
			CheckSave;
			Grab(FindItem,0)
		end;
	until false
End.