Ну тогда вот попробуй.Code: sub UberProBS()
var id_Container = '0x40073775', t_SmithHammer = '0x1234', t_Ingots = '0x1BEF', c_Ingots = '0x0000', Count = 200, t_Item = '0x1234', id_Forge = '0x12345678'
If id_Forge == '0x12345678' then
UO.Print('Не выставлен id форжи.Id можно узнать командой ,info и забить во 2-ую строку в id_Forge')
Return
Endif
If t_Item == '0x1234' then
UO.Print('Не выставлен тип вещей, которые крафтятся.')
UO.Print('Тип можно узнать командой ,info и забить во 2-ую строку в t_Item')
Return
Endif
If t_SmithHammer == '0x1234' then
UO.Print('Не выставлен тип молотка. Тип можно узнать командой ,info и забить во 2-ую строку')
Return
Endif
While true
If UO.GetGraphic(UO.ObjAtLayer('Rhand')) <> t_SmithHammer then
UO.FindType(t_SmithHammer, -1, 'backpack')
If UO.FindCount() then
UO.Equip('Rhand', 'finditem')
Wait(100)
else
UO.Print('Нет молотков в паке')
Return
Endif
Endif
If UO.Count(t_Ingots, c_Ingots) < 150 then
UO.FindType(t_Ingots, c_Ingots, id_Container)
If UO.FindCount() then
UO.MoveItem('finditem', Count, 'backpack')
Wait(100)
else
UO.Print('В контейнере ' + id_Container + ' не найдены инги')
UO.Print('Если инги там есть, то нужно сверить id контейнера и цвет ингов')
UO.Print('И то и то забивается во 2-ой строке скрипта c_Ingots - цвет')
UO.Print('Если в контейнере лежат инги одно цвета, то цвет можно забить -1')
Return
Endif
Endif
Repeat
UO.FindType(t_Item, -1, 'backpack')
If UO.FindCount() then
UO.WaitTargetObject('finditem')
UO.UseObject(id_Forge)
Wait(100)
else
Wait(100)
Endif
Until not UO.Count(t_Item)
Wend
Endsub Свеженький =). Катал прямо тут в окне ответа. Возможны ошибки.
|
