Kód: Vybrat vše
#---------------------------------------------------------------
sub MB()
#---------------------------------------------------------------
UO.AddObject('pytlik')
While UO.Targeting()
wait(200)
wend
UO.SetCatchBag('pytlik')
Uo.DeleteJournal()
repeat
UO.waitmenu ('Tinkering', 'Special Items', 'Special Items', 'Magic Ball')
UO.usetype("0x1EBC")
repeat
wait(1000)
until UO.InJournal('You put the Magic ball|Tinkering failed')
wait(1500)
Uo.DeleteJournal()
until UO.Count('0x1BEF','0x0000') < 1 OR UO.Count('0x0F0F','0x0000') < 3 OR UO.Count('0x0F25','0x0000') < 1 OR UO.Count('0x105D','0x0000') < 2 OR UO.Count('0x1879','0x0000') < 5
UO.Print("Konec.")
uo.UnSetCatchbag()
uo.CancelMenu()
end sub