Code: Select all
Program StVP;
const
STItemType = $13B1;
Begin
SetARStatus(true); 
   repeat
   
      while not Dead do
      
      begin
         while FindTypeEx(STItemType, 0, backpack, false) = 0 do
            wait(250);         
         
         Drop(FindItem,0)
      end;
   until false
End.16:16:13:249 [troy3]: Compiling failed
16:16:13:250 [troy3]: Script drop.txt stopped successfuly


