Page 1 of 1
Думал легко и просто
Posted: 2006-06-18 23:07:01
by frost
Господа скриптеры прошу помощи...поискал скрипты на автохил...нашол не совсем то что мне надо.
Решил подправить но как видите без успешно вроде бы все легко и просто ....НУ НЕ скриптер я.
Принцип работы скрипта такой.
1.Как только чару наносят урон чтоб сразу сам хилялся (при этом не надо делать чтоб оружие падало).
2.выпивание Грител Хэла по задданому ХП..
Ну вот впринципе и все...всем кто откликница спасибо.
Те кто нет заходите пофлудим.
С УВ.
Re: Думал легко и просто
Posted: 2006-06-18 23:08:37
by to4a
frost wrote:при этом не надо делать чтоб оружие падало
А как ты хочешь так хилится чтоб оружие не падало?
Re: Думал легко и просто
Posted: 2006-06-18 23:10:04
by frost
to4a wrote:frost wrote:при этом не надо делать чтоб оружие падало
А как ты хочешь так хилится чтоб оружие не падало?
А вот шард такой хилишся и оружие не падает...падает тока когда кастуеш т.е юзаеш магию.

Posted: 2006-06-18 23:12:03
by to4a
Тоесть суть такая ты стоишь с полными хп, как только они уменьшаются сразу хилится? и если совсем мало то пить гх?
Posted: 2006-06-18 23:13:30
by frost
to4a wrote:Тоесть суть такая ты стоишь с полными хп, как только они уменьшаются сразу хилится? и если совсем мало то пить гх?
ТОЧНО....именно так.

Posted: 2006-06-18 23:25:30
by to4a
Code: Select all
sub Heal()
var k
var ghtype='' #СЮДА ПОДСТАВИТЬ ТИП ГХ
var ghcolor='' #СЮДА ПОДСТАВИТЬ ЦВЕТ ГХ
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
repeat
k=k+1
wait(100)
until UO.InJournal("You put|You apply the|interrupted") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=50 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wend
endsub
Вот такой вот простенький скрипт, постоянно висит в памяти, когда хп падает меньше максимума бинтуется, бинты не моет, если хп становится меньше 50(можешь изменить встроке if
UO.GetHP()<=50 then пьет гх...
Писал в окне ответа, не тестил...
Posted: 2006-06-18 23:25:33
by Scripts Writer
Code: Select all
sub heal()
var greater=' type '
var heal=' color '
while not uo.Dead()
while not uo.hp < uo.str
wait(100)
wend
while uo.hp < uo.str
uo.bandageself()
wait(3000)
if uo.life < 50 then
uo.UseType(greater,heal)
wait(500)
end if
wend
wend
end sub
Posted: 2006-06-18 23:40:18
by frost
to4a wrote:Code: Select all
sub Heal()
var k
var ghtype='' #СЮДА ПОДСТАВИТЬ ТИП ГХ
var ghcolor='' #СЮДА ПОДСТАВИТЬ ЦВЕТ ГХ
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
repeat
k=k+1
wait(100)
until UO.InJournal("You put|You apply the|interrupted") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=50 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wend
endsub
Вот такой вот простенький скрипт, постоянно висит в памяти, когда хп падает меньше максимума бинтуется, бинты не моет, если хп становится меньше 50(можешь изменить встроке if
UO.GetHP()<=50 then пьет гх...
Писал в окне ответа, не тестил...
Огромное спасибо скрипт класс...но после 20 30 урона начинает появляться курсор и инжект пишет
Auto target cancaled - это бывает когда очень много наать кнопку bandageself.
Задержку уменьшить или что ?

Posted: 2006-06-18 23:47:33
by Scripts Writer
frost wrote:to4a wrote:Code: Select all
sub Heal()
var k
var ghtype='' #СЮДА ПОДСТАВИТЬ ТИП ГХ
var ghcolor='' #СЮДА ПОДСТАВИТЬ ЦВЕТ ГХ
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
repeat
k=k+1
wait(100)
until UO.InJournal("You put|You apply the|interrupted") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=50 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wend
endsub
Вот такой вот простенький скрипт, постоянно висит в памяти, когда хп падает меньше максимума бинтуется, бинты не моет, если хп становится меньше 50(можешь изменить встроке if
UO.GetHP()<=50 then пьет гх...
Писал в окне ответа, не тестил...
Огромное спасибо скрипт класс...но после 20 30 урона начинает появляться курсор и инжект пишет
Auto target cancaled - это бывает когда очень много наать кнопку bandageself.
Задержку уменьшить или что ?

Code: Select all
sub Heal()
var k
var ghtype='' #СЮДА ПОДСТАВИТЬ ТИП ГХ
var ghcolor='' #СЮДА ПОДСТАВИТЬ ЦВЕТ ГХ
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
uo.DeleteJournal()
repeat
k=k+1
wait(100)
until UO.InJournal("You put|You apply the|interrupted") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=50 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wend
endsub
Пробуй.
Posted: 2006-06-18 23:48:36
by to4a
Эээ... я не понял зачем много раз нажимать бандажселф, да и если появляется то наоборот увеличить задержку, а точнее после строки
until UO.InJournal("You put|You apply the|interrupted") or k==50
добавить wait(500) для начала, потом можно попробовать уменьшить
Posted: 2006-06-18 23:50:05
by to4a
точно, забыл чистить журнал, ну я ж говорю, писал в окне ответа, не тестил

)))
Posted: 2006-06-18 23:57:23
by frost
You Must Die wrote:frost wrote:to4a wrote:Code: Select all
sub Heal()
var k
var ghtype='' #СЮДА ПОДСТАВИТЬ ТИП ГХ
var ghcolor='' #СЮДА ПОДСТАВИТЬ ЦВЕТ ГХ
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
repeat
k=k+1
wait(100)
until UO.InJournal("You put|You apply the|interrupted") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=50 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wend
endsub
Вот такой вот простенький скрипт, постоянно висит в памяти, когда хп падает меньше максимума бинтуется, бинты не моет, если хп становится меньше 50(можешь изменить встроке if
UO.GetHP()<=50 then пьет гх...
Писал в окне ответа, не тестил...
Огромное спасибо скрипт класс...но после 20 30 урона начинает появляться курсор и инжект пишет
Auto target cancaled - это бывает когда очень много наать кнопку bandageself.
Задержку уменьшить или что ?

Code: Select all
sub Heal()
var k
var ghtype='' #СЮДА ПОДСТАВИТЬ ТИП ГХ
var ghcolor='' #СЮДА ПОДСТАВИТЬ ЦВЕТ ГХ
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
uo.DeleteJournal()
repeat
k=k+1
wait(100)
until UO.InJournal("You put|You apply the|interrupted") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=50 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wend
endsub
Пробуй.
Спасибо всем огромное. Все работает.
Вы лучшие !

Posted: 2006-06-18 23:59:05
by DerMeister =)
Помни... для пожертвований существует R143003794030

гы гы гы
Re: Думал легко и просто
Posted: 2015-05-05 00:23:59
by MrAiro
Ребят помогите пожалуйста, нужен простейший скрипт на автохил как вы сделали, только не с командой bandageself а для вампира, нужно юзать окровавленные бинты, если использовать команду клиента (на сервере есть такая) .bandageself то юзаються кровавые бинты я так понимаю нужно просто поменять строчку UO.BandageSelf() на msg '.bandageself' ? верно?
Re: Думал легко и просто
Posted: 2015-05-05 10:37:07
by Mirage
UO.BandageSelf()
поменять на
uo.msg('.bandageself')
Со скриптом ответил в другом твоем топике.
Re: Думал легко и просто
Posted: 2015-05-05 13:59:19
by MrAiro
Спасибо еще раз!