Арчери

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Арчери

Post by No Problem »

Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Re: Арчери

Post by Sfagnum »

No Problem wrote:Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
переделай на блайд спиритс (так вроде...)
Adec[DrW]
Posts: 16
Joined: 2005-03-16 20:20:28

Post by Adec[DrW] »

Нарадо скиньте сюда скрипт на арчери
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Блин кривые руки...
ПОИСК в помощь...

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
Adec[DrW]
Posts: 16
Joined: 2005-03-16 20:20:28

Post by Adec[DrW] »

SAMURAI wrote:Блин кривые руки...
ПОИСК в помощь...

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')

Обьясни пожалуйста принцеп работы
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Post by No Problem »

У нас на дрв тока 1 ака можно запускать ! а я вычитал там айди номер второго чара...
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Re: Арчери

Post by No Problem »

Sfagnum wrote:
No Problem wrote:Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
переделай на блайд спиритс (так вроде...)


умел бы =)))
Adec[DrW]
Posts: 16
Joined: 2005-03-16 20:20:28

Post by Adec[DrW] »

No Problem wrote:У нас на дрв тока 1 ака можно запускать ! а я вычитал там айди номер второго чара...

А ты друга попроси чтоб постоял за второга чара. :D
Adec[DrW]
Posts: 16
Joined: 2005-03-16 20:20:28

Post by Adec[DrW] »

SAMURAI wrote:Блин кривые руки...
ПОИСК в помощь...

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')

Скрипт куль! :D А нельзя еще добавить чтоб стрелы из сундука достовал, а бандажи мыл???
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Для тех кому непонятно что за второй чар - скажу что и как в асе за очень скромную плату :roll: :wink:

Мытьё бандажек можно выцарапать в поискетоже, стрелы вынимать - бери часть из автолоада ВЕТЕРАНа или из других макров :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

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

© I'm
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Post by No Problem »

Я бот в скриптах.... Мож кто готовый дасс скриптик ? и желательно такой, что драк стоит на 2 этаже ты в него пуляешь потом хилишь его ( тоесть параллейно качаешь ветелинарию ) берёшь стрелы из сундука и моет бинтики.... Вот такой бы скриптак ваще атас был бы..
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

No Problem wrote:Я бот в скриптах....
Верно подмечено... :lol:
No Problem wrote:драк стоит на 2 этаже ты в него пуляешь потом хилишь его ( тоесть параллейно качаешь ветелинарию )
Интересно а что потвоему делает этот макрос? :shock: :?
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

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

© I'm
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Post by No Problem »

SAMURAI wrote:
No Problem wrote:Я бот в скриптах....
Верно подмечено... :lol:
No Problem wrote:драк стоит на 2 этаже ты в него пуляешь потом хилишь его ( тоесть параллейно качаешь ветелинарию )
Интересно а что потвоему делает этот макрос? :shock: :?

Нахрена тогда 2 чар нужен тут ?
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Adec[DrW] wrote:Обьясни пожалуйста принцеп работы

http://yoko.netroof.net/forum/viewtopic ... 9440#19440
тебе сюда, стучишь в асю я в инвизе и может помогу даже нахаляву... :roll: :wink:
No Problem wrote:Нахрена тогда 2 чар нужен тут ?
В асю стукни я в инвизе - может и подскажу кое что тоже нахаляву :roll: :wink:
Last edited by SAMURAI on 2005-03-19 12:39:17, edited 1 time in total.
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

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

© I'm
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Post by No Problem »

Ребят а может кто нить скрипт дороботать что б мыл бинтики и брал из сундука бинты и стрелыы, это вроде не сложно .... но я не умею ))))
Last edited by No Problem on 2005-03-21 20:35:20, edited 1 time in total.
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Re: Арчери

Post by No Problem »

Sfagnum wrote:
No Problem wrote:Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
переделай на блайд спиритс (так вроде...)

Я уже удалил с михами, у тебя осталься ещё он ? он там на сумку кастит !
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Post by No Problem »

Если есть на мишек выложите его плиз, а то я удалил (
No Problem
Posts: 16
Joined: 2005-02-28 00:18:39
Contact:

Post by No Problem »

И всё молчат =(
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Re: Арчери

Post by Sfagnum »

No Problem wrote:Я уже удалил с михами, у тебя осталься ещё он ? он там на сумку кастит !
и как ты планируешь качать? со 2го этажа? засекут будет арчери у тебя = 0.
а с мишками.... не писал его я ;)
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Re: Арчери

Post by SAMURAI »

Sfagnum wrote:и как ты планируешь качать? со 2го этажа? засекут будет арчери у тебя = 0.

Также как и все - на русскую авось понадеится придётся :wink: :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

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

© I'm
Post Reply