Code: Select all
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