sub camp() 
   VAR Exit=0 
   while NOT UO.Dead() OR Exit<>1 
      UO.FindType('0x0DE1','0x0000','0x400704F3') ; container vs kindling 
      If UO.GetQuantity('finditem')>0 Then 
         UO.Grab('1','finditem') 
         UO.DropHere('finditem') 
         UO.UseObject('finditem') 
         wait(1000) 
         UO.SetReceivingContainer('0x400AF298') ;trash 
         UO.Grab('1','finditem') 
         UO.UnSetReceivingContainer() 
      Else 
         Exit=1 
      Endif 
   wend 
end sub