Дайте плиз скипт на вары

[cita]

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

[ИгорьАлек]

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

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

Code: Select all

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 

[cita]

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

[ИгорьАлек]

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

Code: Select all

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

а по славам Savage:

Code: Select all

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" 

[cita]

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

[ИгорьАлек]

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

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

[Haxor]

spasibo )) vsje rabotaet

[Скрипт]

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

[Edred]

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

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