Имеется скрипт на БК, все хорошо но почти всегда он почемуто 1 лук не кладет в сумку и оставляет в паке,притом это может быть как 50-й так и какойнить 20-й по счету лук.Неподскажите в чем трабла?ато приходится самолично перерывать сумки и докладывать(((
Код
############################### GooD BowCrafting #################################
################################### Crafted by ###################################
################################ Coal aka Brona ##################################
############################# All rights reserved ################################
############################# GuildMaster Sergant ################################
############################# Copyright by [GoBS] ################################
################################################################################
##
VAR sunduk='0x40A52511'; Ñóíäóê - ëîãè, íèòêè, ïóñòûå ìåøêè
VAR sundukk='0x40EEA9F5'; Êóäà êèäàåì
VAR meshok='0x0E76'; Òèï ìåøêîâ
VAR derevo='0x1BDD'
VAR teteva='0x0FA0'
VAR smeshok
VAR a=0
sub mt()
repeat
while not UO.Hidden()
UO.UseSkill("Stealth")
wait(4100)
wend
UO.UnSetCatchBag()
wait(3000)
UO.FindType( derevo, -1, sunduk )
UO.Grab( Str( 305 ), 'finditem' )
wait(5000)
UO.FindType( teteva, -1, sunduk )
UO.Grab( Str( 50 ), 'finditem' )
wait(5000)
UO.FindType( meshok, -1, sunduk )
UO.Grab( Str( 1 ), 'finditem' )
wait(5000)
smeshok=UO.GetSerial('finditem')
a=0
wait(1500)
repeat
wait(800)
UO.SetCatchBag(smeshok)
UO.WaitMenu('What','Bow')
Uo.WaitTargetType(derevo)
UO.UseType('0x0f51')
wait (1500)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("fail"))
wait(500)
wend
UO.UnSetCatchBag()
if UO.InJournal('You put') then
a=a + 1
wait(800)
endif
UO.DeleteJournal()
until a==50
UO.Unsetcatchbag()
UO.FindType( meshok, -1, -1 )
UO.MoveItem( 'finditem', 0, sundukk )
wait(5000)
UO.FindType( derevo, -1, -1 )
UO.MoveItem( 'finditem', 0, sunduk )
wait(5000)
until FALSE
end sub