var Timer=UO.Timer()
var food= '0x097B'
sub WarTrain()
VAR E, t, Enemy='0x0031F2BC' , MinHP=70, G=true, L, Weap='0x4031598E' ; 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='0x40385B44' ; ID of wash basin 
UO.waittargetobject(banka) 
UO.usetype(0x0E20) ; Type nemitih bintov
Wait(1000) 
if UO.Timer()>(Timer+1200) then 
     repeat     
          CheckLag() 
          uo.UseType(food) 
          while not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not uo.Dead() 
               wait(100)        
          wend 
     until uo.InJournal('too full') or uo.Dead()
     Timer=UO.Timer()
     wait(3000)
end if 
end sub

if not UO.ObjAtLayer("Rhand") then
UO.FindType(Weap,-1,'backpack')
if UO.FindCount() then
UO.Equip('Rhand','finditem')
endif
endif