Yoko

Дайте плиз скипт на вары в спарринге на 2-х чаров.

От Savage:
Забиваешь сериал чаров и в путь

sub sreset() 
   UO.SetEasyUO(80,"1") 
   UO.SetEasyUO(90,"1") 
end sub 


sub sparring() 
   VAR Char1='0x0001D165' 
   VAR Char2='0x0007D9E4' 
   VAR Enemy, ESelf, EEnemy 
   VAR Weapon, Shield, WpnType, ShldType 
   VAR TazikType='0x1008',BloodBndg='0x0E20' 
   VAR MinLife=60 
    

   if UO.GetSerial('self')==Char1 then 
      Enemy=Char2 
      EEnemy=90 
      ESelf=80 
   else 
      Enemy=Char1 
      EEnemy=80 
      ESelf=90 
   endif 

   Weapon=UO.ObjAtLayer('Rhand') 
   If Weapon<>"" Then 
      WpnType=UO.GetGraphic(Weapon) 
   Endif 

   Shield=UO.ObjAtLayer('Lhand') 
   If Shield<>"" Then 
      ShldType=UO.GetGraphic(Shield) 
   Endif 
    
   UO.SetEasyUO(ESelf,"0") 

   while NOT UO.Dead() 
    
      repeat 
         wait(500) 
      until UO.GetEasyUO(ESelf)=="0" AND UO.GetEasyUO(EEnemy)=="0" 
       
      UO.Exec("warmode 1") 
      UO.Attack(Enemy) 
       
      while UO.Life>=MinLife AND UO.GetEasyUO(EEnemy)=="0" 
         wait(100) 
      wend 

      UO.SetEasyUO(ESelf,"1") 
      UO.Exec("warmode 0") 
      wait(1000) 
      UO.Exec("warmode 0") 
;-------- Большая стирка, если у вас этого нет, вырезать. 
      UO.FindType('0x0E21','0x0000','backpack') 
      If UO.GetQuantity('finditem')<20 Then 
         UO.FindType('0x0E20','0x0000','backpack') 
         UO.WaitTargetType(TazikType) 
         UO.UseObject('finditem') 
         wait(1000) 
      Endif 
;-------- Большая стирка, если у вас этого нет, вырезать. 

      while UO.Life<UO.Str 
         UO.DeleteJournal() 
         UO.BandageSelf() 
         Repeat 
            wait(500) 
         Until UO.InJournal('put') OR UO.InJournal('help') OR UO.InJournal('cure') 
      wend 

      If Shield<>"" Then 
         UO.Equipt('Lhand',ShldType) 
         wait(2000) 
      Endif 

      If Weapon<>"" Then 
         UO.Equipt('Rhand',WpnType) 
         wait(2000) 
      Endif 
       
      UO.UseSkill('Spirit Speak') 
      wait(3000) 
      UO.SetEasyUO(ESelf,"0") 
   wend 
end sub 

Да всё бы хорошо токо я не в курсе де брать изи уо.
А без него не пашет:(

Со слов Йоко хватит:

REGEDIT4 
[HKEY_CURRENT_USER\Software\EasyUO] 
"*0"="TEST" 

а по славам Savage:

Windows Registry Editor Version 5.00 

[HKEY_CURRENT_USER\Software\EasyUO] 
"WndData.Top"=dword:00000148 
"WndData.Left"=dword:000000d1 
"WndData.Height"=dword:0000015d 
"WndData.Width"=dword:00000300 
"WndData.Split"=dword:0000006d 
"WndData.InitDir"="" 
"WndData.StayOnTop"=dword:00000000 
"WndData.PauseKey"=dword:0000000c 
"WndData.PauseContinue"=dword:00000000 
"Toolbar.Standard"=dword:00000001 
"Variables.Show"=dword:00000000 
"Variables.Standard"=dword:00000001 
"Variables.User"=dword:00000000 
"Variables.Defined"="" 
"*99"="0" 
"*1"="0" 
"*0"="0" 
"*2"="0" 

Сделал я как говорили, токо не хрена не вышло:(
Теря кода я пишу ,sparring мне пишет что нету такой команды...
Мож проше обьясниш как пользоваться этим изи?

Как пользоватся изи сам не знаю, но этот скрипт работает.
Ставишь чаров друг напротав друга (в плотную) загружаешь скрипт обоим, на одном запускаешь sreset потом sparring.
Если запускаешь из УО, то писать надо ,exec sparring

spasibo )) vsje rabotaet

а у меня скрипт вис через 20 минут в чом проблема незнаете ?

Надо писать не ,sparring а ,exec sparring - раз уж ты решил запускать командой