Скрипт на Blacksmithing - Цветные Blood Rock катаны
sub Blacksmithing() var Exit=0, LastTimer UO.CancelMenu() UO.AutoMenu("Blacksmithing", "Colored Armor & Weapons") UO.AutoMenu("Colored Armor & Weapons", "Blood Rock Weapons") UO.AutoMenu("Blood Rock Weapons", "Blood Rock Swords & Blades") UO.AutoMenu("Blood Rock Swords & Blades", "Blood Rock Katana") while Exit<>1 uo.DeleteJournal() LastTimer=uo.Timer() #uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') uo.UseType('0x1BEF')
while not uo.InJournal('You put') and not uo.InJournal('You have failed') wait(500) wend
if uo.InJournal('You have failed') then repeat wait(100) until uo.Timer()>=LastTimer+100 end if repeat UO.FindType('0x0F51',-1,'backpack') If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x40464A21) ; Oi?? wait(1250) Endif uo.FindType('0x1BEF',-1,'backpack') if uo.GetQuantity('finditem')<10 then uo.FindType('0x1BEF','0x04C2','0x40445312') ;Cундук с ингами wait(2000) uo.Grab('100','finditem') Endif wait(1500) wend end sub
