Yoko
http://forum.yoko.com.ua/

Кровь с пола
http://forum.yoko.com.ua/viewtopic.php?f=17&t=14776		 Page 1 of 1
Author:  Danser [ 2009-05-09 23:32:33 ]
Post subject:  Кровь с пола
Люди добрые =), помогите скриптом на питьё крови с пола.
Тоесть я дерусь и доходит до определёного кол-ва хп он сам начинал пить в радиусе 2-3 тайла и так пока либо хп не востановятся либо я не умру или допустим у меня 160 стренч, он начинал пить уже со 120 допустим и до 150 как то так)
Author:  Kynep [ 2009-05-10 08:24:24 ]
Post subject:  Re: Кровь с пола
Danser wrote:
Люди добрые =), помогите скриптом на питьё крови с пола.
Тоесть я дерусь и доходит до определёного кол-ва хп он сам начинал пить в радиусе 2-3 тайла и так пока либо хп не востановятся либо я не умру или допустим у меня 160 стренч, он начинал пить уже со 120 допустим и до 150 как то так)


Code:
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

Вот как-то так.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/