Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАННЕ СПАСИБО
sub BS_Айрон_Helmet() VAR Exit=0, LastTimer while Exit<>1 UO.FindType('0x1412','0x0000','backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron UO.Grab('6','finditem') wait(400) Endif UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Shields','Shields','buckler') UO.UseType(0x1BEF) ; iron ings
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(550) wend
If UO.InJournal("You have failed") then repeat wait(150) until UO.Timer()>=LastTimer+100 ;time to make a helm EndIf
GobliN wrote:Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует. ЗА РАНЕЕ СПАСИБО
sub BS_Айрон_Helmet() VAR Exit=0, LastTimer while Exit<>1 UO.FindType('0x1412','0x0000','backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron UO.Grab('6','finditem') wait(400) Endif UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Shields','Shields','buckler') UO.UseType(0x1BEF) ; iron ings
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(550) wend
If UO.InJournal("You have failed") then repeat wait(150) until UO.Timer()>=LastTimer+100 ;time to make a helm EndIf
GobliN wrote:Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует. ЗА РАНЕЕ СПАСИБО
sub BS_Айрон_Helmet() VAR Exit=0, LastTimer while Exit<>1 UO.FindType('0x1412','0x0000','backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron UO.Grab('500','finditem') wait(400) Endif UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Shields','Shields','buckler') UO.UseType(0x1BEF) ; iron ings
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(550) wend
If UO.InJournal("You have failed") then repeat wait(150) until UO.Timer()>=LastTimer+100 ;time to make a helm EndIf
If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x4032ED47) ;forge Endif wait(1000) wend end sub
Не тестил... На всидку так... UO.Grab('500','finditem')
Типа чтобы брал не по 6 штучек а скажем по 500 - ну или скока тебе надо для полного щасья... А проверка чтобы он набирал айрон когда меньше 10 ингов в паке осталось - в скрипте уже есть
UO.FindType('0x1412','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
GobliN wrote:Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует. ЗА РАНЕЕ СПАСИБО
sub BS_Айрон_Helmet() VAR Exit=0, LastTimer while Exit<>1 UO.FindType('0x1412','0x0000','backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron UO.Grab('500','finditem') wait(400) Endif UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Shields','Shields','buckler') UO.UseType(0x1BEF) ; iron ings
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(550) wend
If UO.InJournal("You have failed") then repeat wait(150) until UO.Timer()>=LastTimer+100 ;time to make a helm EndIf
If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x4032ED47) ;forge Endif wait(1000) wend end sub
Не тестил... На всидку так... UO.Grab('500','finditem') Типа чтобы брал не по 6 штучек а скажем по 500 - ну или скока тебе надо для полного щасья... А проверка чтобы он набирал айрон когда меньше 10 ингов в паке осталось - в скрипте уже есть UO.FindType('0x1412','0x0000','backpack') If UO.GetQuantity('finditem')<10 then
Спасибо за помошь только он всеравно посЛе ковки веши и ее переплавки каждый раз берет айрон то кол-вО которое указанно
UO.Grab('500','finditem')
сорь... не углядел один момент....
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron
UO.Grab('500','finditem')
