Кровь с пола

[Danser]

Люди добрые =), помогите скриптом на питьё крови с пола.
Тоесть я дерусь и доходит до определёного кол-ва хп он сам начинал пить в радиусе 2-3 тайла и так пока либо хп не востановятся либо я не умру или допустим у меня 160 стренч, он начинал пить уже со 120 допустим и до 150 как то так)

[Kynep]

Люди добрые =), помогите скриптом на питьё крови с пола.
Тоесть я дерусь и доходит до определёного кол-ва хп он сам начинал пить в радиусе 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

Вот как-то так.