Yoko

sub launch()
      uo.deletejournal()
      stopbattle2()
      stopbattle1()
end sub

sub stopwar()
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
end sub

sub stopbattle1()
   while not uo.injournal('ALL STOP')
      wait(100)
   wend
   stopwar()
   heal()
   waitingforbattlethenstart()
end sub

sub stopbattle2()
      repeat
      if uo.life<60 then
         uo.msg('ALL STOP')
         wait(1000)
      endif
      until uo.injournal('ALL STOP')
end sub

sub heal()
   repeat
      UO.SetArm('CWeapon') 
      UO.Exec("bandageself") 
      wait(500) 
      UO.Arm('CWeapon') 
      wait(4000)
   until uo.life==uo.str 
end sub

sub waitingforbattlethenstart()
   while not uo.injournal('FIRST CHAR OK')
      wait(100)
   wend
   while uo.life<uo.str
      wait(100)
   wend
   uo.msg('SECOND CHAR OK')
   uo.deletejournal()
   uo.msg('LETS THE FIGHT BEGIN')
   uo.warmode(1)
   UO.Attack('lastattack')
   launch()
end sub

sub launch()
      uo.deletejournal()
      stopbattle2()
      stopbattle1()
end sub

sub stopwar()
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
   uo.warmode(0)
   wait(200)
end sub

sub stopbattle1()
   while not uo.injournal('ALL STOP')
      wait(100)
   wend
   stopwar()
   heal()
   waitingforbattlethenstart()
end sub

sub stopbattle2()
      repeat
      if uo.life<60 then
         uo.msg('ALL STOP')
         wait(1000)
      endif
      until uo.injournal('ALL STOP')
end sub

sub heal()
   repeat
      UO.SetArm('CWeapon') 
      UO.Exec("bandageself") 
      wait(500) 
      UO.Arm('CWeapon') 
      wait(4000)
   until uo.life==uo.str 
end sub

sub waitingforbattlethenstart()
   while not uo.injournal('FIRST CHAR OK')
      wait(100)
   wend
   while uo.life<uo.str
      wait(100)
   wend
   uo.msg('SECOND CHAR OK')
   uo.deletejournal()
   uo.msg('LETS THE FIGHT BEGIN')
   uo.warmode(1)
   UO.Attack('lastattack')
   launch()
end sub

##Попробуй так .. нетестил!

sub launch() 
      uo.deletejournal() 
      stopbattle2() 
      stopbattle1() 
end sub 

sub stopwar() 
   uo.warmode(0) 
   wait(200) 
   uo.warmode(0) 
   wait(200) 
   uo.warmode(0) 
   wait(200) 
   uo.warmode(0) 
   wait(200) 
   uo.warmode(0) 
   wait(200) 
end sub 

sub stopbattle1() 
   while not uo.injournal('ALL STOP') 
      wait(100) 
   wend 
   stopwar() 
   heal() 
   waitingforbattlethenstart() 
end sub 

sub stopbattle2() 
      repeat 
      if uo.life<60 then 
         uo.msg('ALL STOP') 
         wait(1000) 
      endif 
      until uo.injournal('ALL STOP') 
end sub 

sub heal() 
   repeat 
      UO.SetArm('CWeapon') 
      UO.Exec("bandageself") 
      wait(500) 
      UO.Arm('CWeapon') 
      wait(4000) 
   until uo.life==uo.str 
waitingforbattlethenstart() 
end sub 

sub waitingforbattlethenstart() 
   while not uo.injournal('FIRST CHAR OK') 
      wait(100) 
   wend 
   while uo.life<uo.str 
      wait(100) 
   wend 
   uo.msg('SECOND CHAR OK') 
   uo.deletejournal() 
   uo.msg('LETS THE FIGHT BEGIN') 
   uo.warmode(1) 
   UO.Attack('lastattack') 
   launch() 
end sub