нужен маленький скриптик

Anything and all.

Moderators: Murderator+, Murderator

Locked
Kashita
Posts: 22
Joined: 2004-12-30 13:18:54

нужен маленький скриптик

Post by Kashita »

Люди если не сложно напишите маленький скриптик...
мой чар стреляет один раз из лука, если попал то лечит, если нет то повторяется...
VlastV
Posts: 37
Joined: 2005-02-07 19:28:26
Contact:

Re: нужен маленький скриптик

Post by VlastV »

Kashita wrote:Люди если не сложно напишите маленький скриптик...
мой чар стреляет один раз из лука, если попал то лечит, если нет то повторяется...


куда стреляет? кого лечит? лечит до полного востановления жизни?
Kashita
Posts: 22
Joined: 2004-12-30 13:18:54

Post by Kashita »

мой чар стоит на втором этаже дома, и стреляет в лошадь, которая на первом этаже, если попал, то лечит ее полностью, и потом повторяется
Porvalo
Posts: 32
Joined: 2005-02-03 17:36:11

Post by Porvalo »

"спаринг двух чаров с одного компа" скрипт запусти просто лук дай вместо меча
ыыы...
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Re: нужен маленький скриптик

Post by SAMURAI »

Kashita wrote:Люди если не сложно напишите маленький скриптик...
мой чар стреляет один раз из лука, если попал то лечит, если нет то повторяется...
Мдее... А SEARCH на что дан?

Code: Select all

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')
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
Locked