Yoko

Code: Select all

sub WarTrain() 
   VAR E, t, Enemy='0x00328726' , MinHP=55, G=true, L, Weap='0x13B2' ; type of weapon 
   UO.Attack(Enemy) 
   UO.DeleteJournal() 
   while G==true 
      wait(500) 
      if  not UO.ObjAtLayer("Rhand") then 
         UO.FindType(Weap,-1,'backpack') 
         if  UO.FindCount() then 
            UO.Equip('Rhand','finditem') 
         endif 
      endif 
      if  UO.InJournal("stay") or UO.Life<MinHP then 
         UO.Say("stay") 
         t=UO.Timer() 
         repeat 
            E=true 
            UO.Exec('warmode 0') 
            wait(500) 
            if  UO.WarMode()==1 then 
               E=false 
               UO.Say("stay") 
               t=UO.Timer() 
            endif 
         until E==true and UO.Timer()>=t+30 
         CheckLag() 
         UO.SetArm('myarm') 
         while UO.Life<UO.Str 
            L=UO.Life 
            UO.Exec('warmode 0') 
            DelJ("the") 
            t=UO.Timer() 
            UO.Exec('bandageself') 
            repeat 
               Wait(500) 
            until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100 
            CheckLag() 
            if UO.Life<L then 
               UO.Say("stop") 
            endif 
         wend 
         CheckBandage() 
         UO.Arm('myarm') 
         if not UO.InJournal("poehali") then 
            UO.Say("go") 
            repeat 
               wait(50) 
            until UO.InJournal("go") or UO.Life<UO.Str 
            DelJ(UO.GetName()+": go") 
            repeat 
               wait(50) 
            until UO.InJournal("go") or UO.Life<UO.Str 
         else 
            UO.Say("go") 
         endif 
         UO.DeleteJournal() 
         UO.Attack(Enemy) 
      endif 
      if UO.Dead() then 
         UO.Exec('warmode 1') 
      endif 
   wend 
end sub 

sub DelJ(s) 
   VAR MN=UO.InJournal(s) 
    while MN > 0    
       UO.SetJournalLine(MN-1, '')    
       MN=UO.InJournal(s) 
    wend 
end sub 

sub CheckLag() 
   DelJ("backpack") 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub 

sub CheckBandage() 
   VAR Banka='0x40272054' ; ID of wash basin 
   UO.waittargetobject(banka) 
   UO.usetype(0x0E20) 
   Wait(1000) 
end sub