sub main() 

uo.Set('finddistance','2') 
uo.Set('distance','2') 

while UO.WEIGHT < 30000 

drop() 
wait(400) 
if UO.Count ("0x1BDD") < 10 then 
uo.FindType('0x1BDD','-1','ground') 
if (UO.FindCount()) Then 
uo.Grab('50',UO.GetSerial('finditem')) 
wait(1000) 
uo.Waittargetobject(UO.GetSerial('finditem')) 
uo.usetype("0x0F51") #Dagger 
uo.exec("waitmenu 'What do you wish to make?' 'Kindling'") 
wait(10000) 
drop() 
endIf 
endIf 
wait(1000) 
wend 
wend 

sub drop() 

UO.FindType("0x0DE1") 
Uo.drophere("finditem") 
wait(100) 

end if