Page 1 of 1
Паринг
Posted: 2011-06-09 08:55:55
by some
Доброго времени суток .
Помогите пожалуйста сделать такой скрипт на паринг :
чар стоит со щитом , если сломался - одевает новый и тупо хилится если стр меньше указанной отметки , при этом чар НЕ должен атачить в ответ того, кто его бьет - тупо хил .
заранее спасибо
Re: Паринг
Posted: 2011-06-09 09:17:48
by Mirage
смысл в апе через минуту? Афигенно опустили?
3 действия в операторах условий в цикл забить - делов то.
Code: Select all
sub Healing1()
var x = uo.GetGraphic(uo.ObjAtLayer('Lhand')) ; не помню щит в левой или правой руке - если что на Rhand исправь
var k
While not UO.Dead()
if uo.warmode() == 1 then
uo.warmode(0)
wait(100)
endif
If UO.Life < uo.str Then
uo.bandageself()
Wait(3000)
Endif
If x <> uo.GetGraphic(uo.ObjAtLayer('Lhand')) Then
uo.Equipt('Lhand',x)
Endif
Wait(100)
Wend
End Sub
sub Healing2() ; более понтовый но дольше настраивать.
var x = uo.GetGraphic(uo.ObjAtLayer('Lhand')) ; не помню щит в левой или правой руке - если что на Rhand исправь
var k
While not UO.Dead()
if uo.warmode() == 1 then
uo.warmode(0)
wait(100)
endif
If UO.Life < uo.str Then
if uo.warmode() == 1 then
uo.warmode(0)
wait(100)
endif
UO.DeleteJournal()
uo.bandageself()
k=0
repeat
Wait(100)
k=k+1
until UO.InJournal('You put|You failed|but they barely') or k>300
Endif
If x <> uo.GetGraphic(uo.ObjAtLayer('Lhand')) Then
uo.Equipt('Lhand',x)
Endif
Wait(100)
Wend
End Sub
Re: Паринг
Posted: 2011-06-09 10:16:47
by some
fast question-fast answer
Спасибо
