Page 1 of 1
помогите с БС
Posted: 2005-05-17 17:20:57
by GobliN
Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАННЕ СПАСИБО
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
UO.FindType('0x1B73',-1,'backpack') ; helm
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4032ED47) ;forge
Endif
wait(1000)
wend
end sub
Re: помогите с БС
Posted: 2005-05-17 21:52:55
by GobliN
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
UO.FindType('0x1B73',-1,'backpack') ; helm
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4032ED47) ;forge
Endif
wait(1000)
wend
end sub
Re: помогите с БС
Posted: 2005-05-18 08:08:44
by BasOff
GobliN wrote: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
UO.FindType('0x1B73',-1,'backpack') ; helm
wait(500)
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
Re: помогите с БС
Posted: 2005-05-18 09:20:41
by GobliN
BasOff wrote:GobliN wrote: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
UO.FindType('0x1B73',-1,'backpack') ; helm
wait(500)
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')
Posted: 2005-05-19 08:34:09
by BasOff
сорь... не углядел один момент....
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron
UO.Grab('500','finditem')
теперь точно должно пахать...
Posted: 2005-05-19 08:41:30
by GobliN
ВО теперь как по часам сеньки вери мач!!!
