Yoko
http://forum.yoko.com.ua/

Дайте плиз скипт на вары
http://forum.yoko.com.ua/viewtopic.php?f=20&t=97		 Page 1 of 1
Author:  cita [ 2004-04-15 17:58:13 ]
Post subject:  Дайте плиз скипт на вары
Дайте плиз скипт на вары в спарринге на 2-х чаров.
Author:  ИгорьАлек [ 2004-04-16 10:37:01 ]
Post subject:  Re: Дайте плиз скипт на вары
cita wrote:
Дайте плиз скипт на вары в спарринге на 2-х чаров.


От Savage:
Забиваешь сериал чаров и в путь
Code:
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
Author:  cita [ 2004-04-16 13:56:25 ]
Post subject: 
Да всё бы хорошо токо я не в курсе де брать изи уо.
А без него не пашет:(
Author:  ИгорьАлек [ 2004-04-16 14:29:13 ]
Post subject: 
Со слов Йоко хватит:
Code:
REGEDIT4 
[HKEY_CURRENT_USER\Software\EasyUO] 
"*0"="TEST"


а по славам Savage:

Code:
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"
Author:  cita [ 2004-04-16 16:16:03 ]
Post subject: 
Сделал я как говорили, токо не хрена не вышло:(
Теря кода я пишу ,sparring мне пишет что нету такой команды...
Мож проше обьясниш как пользоваться этим изи?
Author:  ИгорьАлек [ 2004-04-16 18:54:20 ]
Post subject: 
cita wrote:
Сделал я как говорили, токо не хрена не вышло:(
Теря кода я пишу ,sparring мне пишет что нету такой команды...
Мож проше обьясниш как пользоваться этим изи?


Как пользоватся изи сам не знаю, но этот скрипт работает.
Ставишь чаров друг напротав друга (в плотную) загружаешь скрипт обоим, на одном запускаешь sreset потом sparring.
Если запускаешь из УО, то писать надо ,exec sparring
Author:  Haxor [ 2004-06-08 14:21:51 ]
Post subject: 
spasibo :))) vsje rabotaet
Author:  Скрипт [ 2004-06-08 15:09:26 ]
Post subject: 
а у меня скрипт вис через 20 минут в чом проблема незнаете ?
Author:  Edred [ 2004-06-08 18:42:34 ]
Post subject: 
cita wrote:
Сделал я как говорили, токо не хрена не вышло:(
Теря кода я пишу ,sparring мне пишет что нету такой команды...
Мож проше обьясниш как пользоваться этим изи?


Надо писать не ,sparring а ,exec sparring - раз уж ты решил запускать командой
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/