Yoko

sub BS2222() 
VAR meshok='0x0E76' 
Var Type='0x1BEF' 
Var Color='0x0000' 
VAR meshok2
var a=0
VAR sunduk='0x40009AD8'
var sunduk2='0x40009ED6'


UO.UnSetCatchBag(sunduk2) 
wait(300) 
UO.FindType( 'meshok', '-1', 'sunduk2') 
   UO.Grab('1','finditem')
   meshok2=UO.GetSerial('finditem') 
a=0 
UO.SetCatchBag(meshok2) 
wait(1000) 
UO.MoveItem( 'finditem', '1', 'sunduk2' )

repeat 
repeat
 if UO.Count(Type,Color)<20 then 
        cheklag() 
        UO.FindType(Type,Color,'sunduk') 
        UO.Grab('300','finditem') 
        wait(2000) 
  else
           uo.Print('Èíãè êîí÷èëèñü') 
           wait(1000)
           Paused()
 endif
cheklag() 
UO.FindType(Type, Color, 2) 
uo.exec("recall finditem 3") 
wait(1500) 
UO.LClick(492,455) 
wait(1500) 
UO.LClick(492,455) 
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("You have failed")) 
wait(300) 
wend 
if UO.InJournal("You put") then
   a=a+1
endif

wait(1000) 
cheklag()
 UO.FindType('0x1B73')

if UO.FindCount() > 0  then
   UO.MoveItem( 'finditem', '1', 'meshok2' )
   wait(1000) 
endif
 
if a==200 then
 Dobor()
endif

until uo.Dead() 
end sub 

sub Dobor()
VAR meshok='0x0E76'
VAR meshok2
var sunduk2='0x40009ED6 '

UO.UnSetCatchBag() 
wait(300) 
UO.FindType( meshok, -1, sunduk2 ) 
   UO.Grab('finditem') 
UO.SetCatchBag(meshok2) 
wait(1000) 
UO.MoveItem( 'finditem', '1', 'sunduk2' )

end sub

sub BS2222() 
VAR meshok='0x0E76' 
Var Type='0x1BEF' 
Var Color='0x0000' 
VAR meshok2 
var a=0 
VAR sunduk='0x40009AD8' 
var sunduk2='0x40009ED6' 


UO.UnSetCatchBag() 
wait(300) 
UO.FindType( meshok, '-1', sunduk2) 
   UO.Grab('1','finditem') 
   meshok2=UO.GetSerial('finditem') 
a=0 
UO.SetCatchBag(meshok2) 
wait(1000) 
UO.MoveItem( 'finditem', '1', 'sunduk2' ) 

repeat 
repeat 
 if UO.Count(Type,Color)<20 then 
        cheklag() 
        UO.FindType(Type,Color,sunduk) 
        UO.Grab('300','finditem') 
        wait(2000) 
  else 
           uo.Print('Eiae eii?eeenu') 
           wait(1000) 
           Paused() 
 endif 
cheklag() 
UO.FindType(Type, Color) 
uo.recall('finditem', 3) 
wait(1500) 
UO.LClick(492,455) 
wait(1500) 
UO.LClick(492,455) 
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("You have failed")) 
wait(300) 
wend 
if UO.InJournal("You put") then 
   a=a+1 
endif 

wait(1000) 
cheklag() 
 UO.FindType('0x1B73') 

if UO.FindCount() > 0  then 
   UO.MoveItem( 'finditem', '1', meshok2) 
   wait(1000) 
endif 
  
if a==200 then 
 Dobor() 
endif 

until uo.Dead() 
end sub 

sub Dobor() 
VAR meshok='0x0E76' 
VAR meshok2 
var sunduk2='0x40009ED6 ' 

UO.UnSetCatchBag() 
wait(300) 
UO.FindType( meshok, -1, sunduk2 ) 
   UO.Grab('finditem') 
UO.SetCatchBag(meshok2) 
wait(1000) 
UO.MoveItem( 'finditem', '1', sunduk2) 

end sub