Stealth Client Forum

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.