Yoko

##################################################################
#                                                                 #
#                       Sparring  ver. 1.0                        #
#                                                                 #
###################################################################

   VAR Char1='0x00229AEC'      #   ID первого чара
   VAR Char2='0x000A3B21'      #   ID второго чара
   VAR MinLife=50              #   минимальная жизнь
   
   VAR TazikType='0x1008'      #   Тип тазика с водой
   VAR BloodBndg='0x0E20'      #   тип кровавых бинтов

##################################################################   
                                                                 #
   VAR Enemy, GO, STOP                                           #
   VAR GO1=  'GOO-1'                                             #
   VAR GO2=  'GOO-2'                                             #
   VAR STOP1='STOP-1'                                            #
   VAR STOP2='STOP-2'                                            #
                                                                 #
##################################################################

sub Start()   
uo.DeleteJournal()
    if UO.GetSerial('self')==Char1 then
      Enemy=Char2
      GO=GO2
      STOP=STOP2
    else
      Enemy=Char1
      GO=GO1
      STOP=STOP1
    endif
      uo.DeleteJournal()
      wait(4000)
While not uo.InJournal(GO1) or not uo.InJournal(GO2)
      uo.say(GO)
      wait(3000)
wend     
IF uo.InJournal('Ready') then
      wait(3200)
   Sparring()
else 
      uo.Say('Ready')
      wait(5000)
  Sparring()
end sub   

sub Sparring()   
UO.Exec('warmode 1')
uo.DeleteJournal()
uo.DeleteJournal()
REPEAT
if uo.InJournal('apply bandages to self') then
StopWar()
else
wait(5000)
UO.Attack(Enemy)
end if
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self')
StopWar()
end sub   

sub StopWar()   
IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then
  UO.Exec("warmode 0")
  wait(1000)
  UO.Exec("warmode 0")
 Heling()
else
# While not uo.InJournal('apply bandages to self')
#    UO.Say(STOP)
#    UO.Exec("warmode 0")
#    wait(2000)
# wend   
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(1000)
     UO.Exec("warmode 0")
     wait(200)
UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(1000)
     UO.Exec("warmode 0")
     wait(200)
end if
 Heling()
end sub 

sub Heling()   
         UO.FindType('0x0E21','0x0000','backpack')
      If UO.GetQuantity('finditem')<50 Then
         UO.FindType('0x0E20','0x0000','backpack')
         UO.WaitTargetType(TazikType)
         UO.UseObject('finditem')
         wait(1000)
      Endif
      while  uo.Life<uo.STR
         uo.SetArm('armset')
         uo.disarm()
         wait(200)
         while uo.Life<uo.STR
            uo.bandageself()
            wait(3000)
            UO.Exec("warmode 0")
         wend
         uo.arm('armset')
         wait(2000)
      wend     
     UO.Exec("warmode 0")
     wait(200)
     Start()
end sub
 

sub killdummy()
var dummy = '0x000000' #id dummy 
while not uo.dead()
uo.usefromground(dummy)
wait(5500) #payzy sam po vremeni otredaktiruy
wend
end sub

sub ts_TRAINonDummy()
   VAR Tdummy = '0x1070'   #Тренировочная кукла в обычном состоянии.
   VAR IDdummy
   UO.Print("ВЫБЕРИ ТРЕНИРОВОЧНУЮ КУКЛУ")
   UO.AddObject('TRGT')
   while UO.Targeting()
      wait(100)
   wend
   IDdummy = UO.GetSerial('TRGT')
   UO.DeleteJournal()
   repeat
      #CheckLag()
      UO.UseObject('TRGT')
      while Tdummy == UO.GetGraphic(IDdummy) and not UO.InJournal("already learned it all")
         wait(100)
      wend
      while Tdummy <> UO.GetGraphic(IDdummy) and not UO.InJournal("already learned it all")
         wait(100)
      wend
   until UO.InJournal("already learned it all")
   if UO.InJournal("already learned it all") then
      UO.Print("ТРЕНИРОВКА ЗАВЕРШЕНА")
   endif
endsub