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

нужен маленький скриптик
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3153		 Page 1 of 1
Author:  Kashita [ 2005-02-20 01:48:05 ]
Post subject:  нужен маленький скриптик
Люди если не сложно напишите маленький скриптик...
мой чар стреляет один раз из лука, если попал то лечит, если нет то повторяется...
Author:  VlastV [ 2005-02-20 10:36:22 ]
Post subject:  Re: нужен маленький скриптик
Kashita wrote:
Люди если не сложно напишите маленький скриптик...
мой чар стреляет один раз из лука, если попал то лечит, если нет то повторяется...


куда стреляет? кого лечит? лечит до полного востановления жизни?
Author:  Kashita [ 2005-02-20 12:35:57 ]
Post subject: 
мой чар стоит на втором этаже дома, и стреляет в лошадь, которая на первом этаже, если попал, то лечит ее полностью, и потом повторяется
Author:  Porvalo [ 2005-02-20 14:12:46 ]
Post subject: 
"спаринг двух чаров с одного компа" скрипт запусти просто лук дай вместо меча
Author:  SAMURAI [ 2005-02-21 17:24:03 ]
Post subject:  Re: нужен маленький скриптик
Kashita wrote:
Люди если не сложно напишите маленький скриптик...
мой чар стреляет один раз из лука, если попал то лечит, если нет то повторяется...
Мдее... А SEARCH на что дан?

Code:
sub Archery() 


while 1 
   uo.usetype("0x13B1") # тип оружия 
   UO.Exec("attack 0x002D23EF") #айди 2-го чара 
   Repeat 
      wait (500) 
   if uo.injournal("destroyed")then 
   UO.usetype("0x13B1") # тип оружия 
   uo.deletejournal() 
   endif 
   Until ((UO.GetHP("0x0007424F") <75)or (UO.GetHP("0x002D23EF")  <100)) # 
#жизни 1-го и 2-го чара 
   repeat 
   wait (500) 
   UO.Exec("warmode 0") # выключаем вар мод  
      UO.Usetype("0x0E21") #Bandages 
      UO.Exec("waittargetobject 0x002D23EF") # айди 2-го чара 
      wait(3500) 
   Until (UO.InJournal("need you")) 
      UO.DeleteJournal() 
   Repeat  
      UO.Usetype("0x0E21") #Bandages 
      UO.Exec("waittargetobject 0x0007424F")  # айди 1-го чара 
      wait(3500) 
   Until (UO.InJournal("need healing")) 
wend 
end sub 


sub Healing() 
   UO.SetArm('CWeapon') 
   UO.Exec("bandageself") 
   wait(500) 
 
   UO.Arm('CWeapon')
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/