Yoko

Code: Select all

sub Hill()
   VAR Type= "0x00C8"
   VAR Color= "0x0000"
   While NOT UO.Dead()
      While UO.Life> 174 AND UO.Life<UO.STR
         wait(2000)
         UO.Bandageself()
         Repeat
            UO.DeleteJournal()
            wait(100)
         Until UO.InJournal("You sucessfully") OR UO.InJournal("You bandage")
      Wend
      If UO.Life<=174 Then
**********************Залезание чара на лошадь*****************
         UO.Set("finddistance","1")
         UO.findtype(Type, Color, "ground")
         UO.UseFromGround(Type)
************************************************************************************
         Repeat
            wait(2500)
            UO.BandageSelf()
            Repeat
               UO.DeleteJournal()
               wait(100)
            Until UO.InJournal("You sucessfully") OR UO.InJournal("You bandage")
         Until UO.InJournal("Do you wanna")
      Endif
         If UO.Life==UO.STR Then
            UO.UseObject("self")
         Endif
Wend
end sub

Code: Select all

uo.useobject("lasthorse")

Code: Select all

sub mnt() 
  if uo.objatlayer("Horse") <> "" then 
    uo.useobject("self") 
  else 
    uo.useobject("lasthorse") 
  endif 
end sub 

Code: Select all

sub main()
VAR Type= "0x00C8" 
VAR Color= "0x0000"
UO.Set("finddistance","1") 
UO.findtype(Type, Color, "ground") 
UO.UseFromGround(Type) 
end sub

Code: Select all

sub Train_Healing() 
var i,j,tekstr
uo.undress() 
wait(100)
repeat
   UO.FindType(0x0E21,"-1","my") 
   if UO.FindCount() then 
      tekstr=uo.str
      wait(100)
      cheklag()
      uo.usetype(0x1F00); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000)
      j=0
      repeat
      wait(10)
      j=j+1
      until (uo.life <= tekstr-1) or (j>1000)
      cheklag()
      uo.undress() 
      wait(100)
      cheklag()
      uo.exec('bandageself') 
      Wait(2000) 
   else 
      UO.FindType(0x0E20,"-1","my") 
      if UO.FindCount() then 
         cheklag()
         uo.waittargettype(0x1008)   # wash basin 
         uo.UseType(0x0E20)   #bloody bandages 
      else 
         cheklag()
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing") 
         Play_Sound(1) 
      endif 
   endif 
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub