Люди добрые помогите исправить чтобы чар брал из сундука аирон и только когда весь использует или не будет хватать брал снова,а не таждыи раз кагда чтото скует.
ЗА РАННЕ СПАСИБО
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