Page 1 of 1
Кровь с пола
Posted: 2009-05-09 23:32:33
by Danser
Люди добрые =), помогите скриптом на питьё крови с пола.
Тоесть я дерусь и доходит до определёного кол-ва хп он сам начинал пить в радиусе 2-3 тайла и так пока либо хп не востановятся либо я не умру или допустим у меня 160 стренч, он начинал пить уже со 120 допустим и до 150 как то так)
Re: Кровь с пола
Posted: 2009-05-10 08:24:24
by Kynep
Danser wrote:Люди добрые =), помогите скриптом на питьё крови с пола.
Тоесть я дерусь и доходит до определёного кол-ва хп он сам начинал пить в радиусе 2-3 тайла и так пока либо хп не востановятся либо я не умру или допустим у меня 160 стренч, он начинал пить уже со 120 допустим и до 150 как то так)
Code: Select all
sub Blood_pol()
VAR n
VAR str = 120 #Со скольки пить
dim Blood[6]
Blood[0] = '0x122E'
Blood[1] = '0x122D'
Blood[2] = '0x122A'
Blood[3] = '0x122B'
Blood[4] = '0x122C'
Blood[5] = '0x1645'
If UO.Life < str then
UO.Set('finddistance', '3') #Радиус поиска 3 клетки вокруг чара.
for n = 0 to 5
UO.FindType(Blood[n], '-1' , 'ground')
If UO.FindCount()> 0 Then
repeat
UO.UseObject('finditem')
wait(200)
UO.FindType(Blood[n], '-1' , 'ground')
until NOT UO.FindCount() OR UO.Life > 150 OR UO.Dead()
endif
If UO.Life > 150 OR UO.Dead() then
UO.Exec('terminate Blood_pol')
endif
next
UO.Set('finddistance', '16')
else
UO.Print("Your HP at maximum!!!")
endif
end sub
Вот как-то так.