некласы (помогите с доработкой)

[lpushech]

Code: Select all

VAR sunduk='0x403E666A'; Where are ingots, bag
VAR sundukk='0x403E666A'; where necklace will go
VAR meshok='0x0E76';type of bag
VAR iron='0x1BEF'
VAR smeshok
VAR Exit=0, LastTimer
VAR a=0

sub main()

repeat
while not UO.Hidden()
   UO.UseSkill("Hiding")
   wait(3000)
wend
UO.UnSetCatchBag()
wait(300)
   UO.FindType( iron, -1, sunduk )
   UO.Grab( Str( 250 ), 'finditem' )  ; если будет айро в конце падать в мешок, увеличить цифру
wait(3000)
   UO.SetCatchBag(sundukk)
   UO.FindType( meshok, -1, sunduk )
   UO.Grab( Str( 1 ), 'finditem' )
wait(2000)
   smeshok=UO.GetSerial('finditem')
a=0
   UO.SetCatchBag(smeshok)
wait(1000)
BS()
end sub

sub BS()
repeat
wait(250)
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.findtype('0x1EBC')
      UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace')
     UO.UseType('0x1EBC')
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed")
wait(250)
wend

wait (250)

if UO.InJournal('You put') then
   a = a + 1
   wait(200)
endif
If a==1 then             ;when get iron
   Dobor()
EndIf
UO.DeleteJournal()
until a==255               ;how much necklaces will be in 1 bag
moveIM()
end sub

sub moveIM()
UO.Unsetcatchbag()
   UO.FindType( iron, -1, -1 )
   UO.MoveItem( 'finditem', 0, sunduk )
wait(3000)
   until FALSE
end sub

sub Dobor()
wait(500)
   UO.UnSetCatchBag()
wait(300)
   UO.FindType( iron, -1, sunduk )
   UO.Grab( Str( 250 ), 'finditem' )   
wait(3000)
   UO.SetCatchBag(smeshok)
wait(1000)
end sub

sub CheckLag()
  UO.DeleteJournal()
  UO.Click('backpack')
  repeat
     wait(100)
  until UO.InJournal('Backpack')
end sub 

вот собственно сам скрипт, проблема в том, что когда он наполняет мешок в 255 итемов, он начинает менять мешок и почемуто выбирает тот же мешок в котором 255 итемов и начинает крафтить некласы, пытается переместить в тот мешок но он полный и он кладет неклас в мои бекпак. Помогите пожалуйста, подправьте так чтобы после наполнения мешка выбирал другой мешок и складывал все в него

[Scripts Writer]

Code: Select all

VAR sunduk='0x403E666A'; Where are ingots, bag 
VAR sundukk='0x403E666A'; where necklace will go 
VAR meshok='0x0E76';type of bag 
VAR iron='0x1BEF' 
VAR smeshok 
VAR Exit=0, LastTimer 
VAR a=0 

sub main() 

repeat 
while not UO.Hidden() 
   UO.UseSkill("Hiding") 
   wait(3000) 
wend 
UO.UnSetCatchBag() 
wait(300) 
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 250 ), 'finditem' )  ; если будет айро в конце падать в мешок, увеличить цифру 
wait(3000) 
   UO.SetCatchBag(sundukk) 
   UO.FindType( meshok, -1, sunduk ) 
   UO.Grab( Str( 1 ), 'finditem' ) 
wait(2000) 
   smeshok=UO.GetSerial('finditem') 
a=0 
   UO.SetCatchBag(smeshok) 
wait(1000) 
BS() 
end sub 

sub BS() 
repeat 
wait(250) 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
uo.findtype('0x1EBC') 
      UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace') 
     UO.UseType('0x1EBC') 
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed") 
wait(250) 
wend 

wait (250) 

if UO.InJournal('You put') then 
   a = a + 1 
   wait(200) 
endif 
If a==1 then             ;when get iron 
   Dobor() 
EndIf 
UO.DeleteJournal() 
until a==255               ;how much necklaces will be in 1 bag 
moveIM() 
end sub 

sub moveIM() 
UO.Unsetcatchbag() 
   UO.FindType( iron, -1, -1 ) 
   UO.MoveItem( 'finditem', 0, sundukk ) 
wait(3000) 
   until FALSE 
end sub 

sub Dobor() 
wait(500) 
   UO.UnSetCatchBag() 
wait(300) 
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 250 ), 'finditem' )    
wait(3000) 
   UO.SetCatchBag(smeshok) 
wait(1000) 
end sub 

sub CheckLag() 
  UO.DeleteJournal() 
  UO.Click('backpack') 
  repeat 
     wait(100) 
  until UO.InJournal('Backpack') 
end sub

[Sm1eMan]

Хоть бы спасибо сказал, а то скрипт получил и свалил, вот из-за таких как ты и нехотят люди помагать

[Sm1eMan]

хотяяяяя, скрипт просто продублирован а его ахелесова пята не исчезла