Паринг

[some]

Доброго времени суток .
Помогите пожалуйста сделать такой скрипт на паринг :
чар стоит со щитом , если сломался - одевает новый и тупо хилится если стр меньше указанной отметки , при этом чар НЕ должен атачить в ответ того, кто его бьет - тупо хил .
заранее спасибо

[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

[some]

fast question-fast answer
Спасибо