var idnpc = '0x0036568B'
var npPac = '0x40365678'

sub main()
var i = 0
repeat
i = 0
uo.DeleteJournal()
UO.FindType('0x0EED',-1,'backpack') 
if UO.GetQuantity('finditem')>0 then 
UO.MoveItem('finditem','1',npPac) 
endif 
CheckLag() 
uo.WarMode(0)
uo.useskill('Stealing',idnpc)
repeat
i = i + 1
wait(100)
until i > 35 or uo.InJournal('They have nothing') or uo.InJournal('You fail to steal')
CheckLag() 
until uo.Dead()
uo.closeuo()
end sub

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

##################################################################### 
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, 'string replaced' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub