sub BlackSmith() #Первый прицел на инги #Второй прицел на сундук в котором они находятся #Третий прицел на мешок в котором сумки куда складывать скованные вещи #Четвертый прицел на мешок, в который будут складываться заполненные сумки [255] # #icq: 424131028 # var colorIng, typeIng, BagForDaggers,BagType,k=0,a=0 var item=0x0F51 #Тип того что куём
uo.AddObject('Ing') while uo.Targeting() wait(100) wend
uo.AddObject('Sunduk') while uo.Targeting() wait(100) wend
uo.AddObject('SundukWith') while uo.Targeting() wait(100) wend
uo.AddObject('SundukTo') while uo.Targeting() wait(100) wend
colorIng=uo.GetColor('Ing') typeIng=uo.GetGraphic('Ing') uo.FindType(typeIng,colorIng,'Sunduk') if uo.FindCount() then uo.Print('There are '+str(uo.GetQuantity('finditem'))+' ingots in a chest.') uo.FindType(typeIng,colorIng,'backpack') if uo.GetQuantity('finditem')<30 then uo.FindType(typeIng,colorIng,'Sunduk') if uo.FindCount() then uo.moveitem('finditem','150') wait(750) else uo.Print('There are no more ingot to smith.') wait(100) end if end if else uo.Print('There are no more ingot to smith.') end if
uo.UseObject('SundukWith') wait(500) uo.UseObject('SundukTo') wait(500) uo.FindType('-1','-1','SundukWith') if uo.FindCount() then BagType=uo.GetGraphic('finditem') end if uo.FindType(BagType,'-1','SundukWith') if uo.FindCount() then uo.Print('There are ' + str(uo.FindCount()) + ' bag in a chest') wait(100) end if
Menu()
repeat uo.FindType(BagType,'-1','SundukWith') if uo.FindCount() then BagForDaggers=uo.GetSerial('finditem') wait(100) uo.moveitem(BagForDaggers,'-1','backpack') wait(750) end if uo.UseObject(BagForDaggers) wait(500) repeat uo.DeleteJournal() k=0 uo.UseType(typeIng) wait(100) repeat wait(100) k=k+1 until uo.InJournal('put') || uo.InJournal('make') || (k>200) if uo.InJournal('put') then uo.FindType(item,colorIng,'backpack') if uo.FindCount() then uo.moveitem('finditem','all',BagForDaggers) wait(750) CheckLag() end if a=a+1 wait(250) end if CheckLag() uo.FindType(typeIng,colorIng,'backpack') if uo.FindCount() && uo.GetQuantity('finditem')<10 then uo.FindType(typeIng,colorIng,'Sunduk') uo.Print('There are '+str(uo.GetQuantity('finditem'))+' ingots in a chest.') wait(50) if uo.FindCount() && uo.GetQuantity('finditem')>10 then uo.moveitem('finditem','150') wait(750) end if wait(50) else uo.Print('There are '+str(uo.GetQuantity('finditem'))+' ingots in a pack.') wait(50) end if until a>254 a=0 uo.moveitem(BagForDaggers,'-1','SundukTo') wait(500) CheckLag() until uo.Dead() end sub
sub Menu() #Функция меню uo.CancelMenu() uo.AutoMenu('Blacksmithing','Weapons') uo.AutoMenu('Colored','Weapon') uo.AutoMenu('Weapons','Swords') uo.AutoMenu('Swords','Dagger') end sub
sub CheckLag() uo.DeleteJournal() uo.Click('backpack') repeat wait(100) until uo.InJournal('backpack') end sub
