Yoko
http://forum.yoko.com.ua/

помогите с БС
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4023		 Page 1 of 1
Author:  GobliN [ 2005-05-17 17:20:57 ]
Post subject:  помогите с БС
Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАННЕ СПАСИБО
Quote:
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
Author:  GobliN [ 2005-05-17 21:52:55 ]
Post subject:  Re: помогите с БС
GobliN wrote:
Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАНЕЕ СПАСИБО
Quote:
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
Author:  BasOff [ 2005-05-18 08:08:44 ]
Post subject:  Re: помогите с БС
GobliN wrote:
GobliN wrote:
Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАНЕЕ СПАСИБО
Quote:
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


Не тестил... На всидку так... :lol:
UO.Grab('500','finditem')
Типа чтобы брал не по 6 штучек а скажем по 500 - ну или скока тебе надо для полного щасья... А проверка чтобы он набирал айрон когда меньше 10 ингов в паке осталось - в скрипте уже есть
UO.FindType('0x1412','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
Author:  GobliN [ 2005-05-18 09:20:41 ]
Post subject:  Re: помогите с БС
BasOff wrote:
GobliN wrote:
GobliN wrote:
Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАНЕЕ СПАСИБО
Quote:
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


Не тестил... На всидку так... :lol:
UO.Grab('500','finditem')
Типа чтобы брал не по 6 штучек а скажем по 500 - ну или скока тебе надо для полного щасья... А проверка чтобы он набирал айрон когда меньше 10 ингов в паке осталось - в скрипте уже есть
UO.FindType('0x1412','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then

Спасибо за помошь только он всеравно посЛе ковки веши и ее переплавки каждый раз берет айрон то кол-вО которое указанно
UO.Grab('500','finditem')
Author:  BasOff [ 2005-05-19 08:34:09 ]
Post subject: 
сорь... не углядел один момент....
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron
UO.Grab('500','finditem')

теперь точно должно пахать...
Author:  GobliN [ 2005-05-19 08:41:30 ]
Post subject: 
ВО теперь как по часам сеньки вери мач!!! :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/