Арчери
Moderators: Murderator+, Murderator
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Арчери
Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
Re: Арчери
переделай на блайд спиритс (так вроде...)No Problem 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')
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
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')
Обьясни пожалуйста принцеп работы
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Re: Арчери
Sfagnum wrote:переделай на блайд спиритс (так вроде...)No Problem wrote:Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
умел бы =)))
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')
Скрипт куль!

Для тех кому непонятно что за второй чар - скажу что и как в асе за очень скромную плату
Мытьё бандажек можно выцарапать в поискетоже, стрелы вынимать - бери часть из автолоада ВЕТЕРАНа или из других макров


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

Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Верно подмечено...No Problem wrote:Я бот в скриптах....

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


Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Adec[DrW] wrote:Обьясни пожалуйста принцеп работы
http://yoko.netroof.net/forum/viewtopic ... 9440#19440
тебе сюда, стучишь в асю я в инвизе и может помогу даже нахаляву...


В асю стукни я в инвизе - может и подскажу кое что тоже нахалявуNo Problem wrote:Нахрена тогда 2 чар нужен тут ?


Last edited by SAMURAI on 2005-03-19 12:39:17, edited 1 time in total.
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Ребят а может кто нить скрипт дороботать что б мыл бинтики и брал из сундука бинты и стрелыы, это вроде не сложно .... но я не умею ))))
Last edited by No Problem on 2005-03-21 20:35:20, edited 1 time in total.
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Re: Арчери
Sfagnum wrote:переделай на блайд спиритс (так вроде...)No Problem wrote:Народ помогите скриптаком мне надо арчери прокачать, гамаю на дрв, мазы с мишками не проходят....
Я уже удалил с михами, у тебя осталься ещё он ? он там на сумку кастит !
-
- Posts: 16
- Joined: 2005-02-28 00:18:39
- Contact:
Re: Арчери
и как ты планируешь качать? со 2го этажа? засекут будет арчери у тебя = 0.No Problem wrote:Я уже удалил с михами, у тебя осталься ещё он ? он там на сумку кастит !
а с мишками.... не писал его я

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


Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm