Yoko

Code: Select all

sub Autoheal()
   While UO.Life > 0
      If UO.Life < UO.str Then
         UO.BandageSelf()
         wait (4200)
      else
         wait (50)
      Endif
   wend
endsub

sub LootLastCorpse()
   VAR Gold  = '0x0EED'   ; gold
    UO.UseObject( 'lastcorpse' )
    wait(300)
                UO.FindType( Gold, '-1', 'lastcorpse' )
            While UO.FindCount() > 0
                 UO.MoveItem( 'finditem','0' )
                 wait(1000)
            Wend
       UO.Print( 'The loot was finished' )
endsub
              

Code: Select all

sub Autohealing() 
   While UO.Life > 0 
      If UO.Life < UO.Str Then 
         UO.Bandageself() 
         wait(20)
          repeat
           UO.DeleteJournal() 
             repeat 
              wait(100) 
             until UO.InJournal("You put") or UO.InJournal("fail")
       Else 
         wait(50) 
          until UO.Dead()
      Endif        
   Wend 
endsub

Code: Select all

sub Autohealing()
   While NOT uo.dead() ; uo.life > 0 is the same as not uo.dead()
      If UO.Life < UO.Str Then
         UO.Bandageself()
         wait(20) ; ???
UO.DeleteJournal() ; no need repeat to give Injection time to read below wait(100) goes too fast & will miss if constantly deleting the periodical
;          repeat ; no need to repeat here
       
             repeat
              wait(100)
             until UO.InJournal("You put") or UO.InJournal("fail")
       Else
         wait(50)
;          until UO.Dead() ; move to the while function above
      Endif       
   Wend
endsub

Code: Select all

sub LootLastCorpse()
   VAR Gold  = '0x0EED'   ; gold
    UO.UseObject( 'lastcorpse' )
    wait(300)
                UO.FindType( Gold, '-1', 'lastcorpse' )
            While UO.FindCount() > 0
                 UO.Grab(0, "finditem") ; UO.MoveItem( 'finditem','0' )**
                 wait(1000)
                UO.FindType( Gold, '-1', 'lastcorpse' )
            Wend
       UO.Print( 'The loot was finished' )
endsub