sub main()
repeat
UO.FindType('0x1BDD','0x0000','backpack')
put:
If UO.GetQuantity('finditem')<1 then
UO.FindType('0x1BDD','0x0000','0x4018A198') ;serial sunduka
UO.Grab('1','finditem')
wait(1000)
Endif
UO.FindType('0x1BDD','0x0000','backpack')
If UO.GetQuantity('finditem')<1 then
goto put
end if
CheckLag()
UO.WaittargetType('0x1BDD')
UO.Usetype('0x0F51')
UO.WaitMenu('What do you want to carve the wood into?','shaft')
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You fail"))
wait(300)
wend
UO.UnSetReceivingContainer()
wait(200)
until UO.Dead()
end sub
Тот что на форуме пытался переделать, не получилось. То ли руки, толи ещё что то
Ещё раз спасибо