Page 1 of 1

Хеал

Posted: 2006-11-12 21:28:18
by -=Morf=-
А есть такой скриптик чтобы можно было указывать кого хелить надо (1,2,3.. человек). А также можно было указывать при каком уровне хп надо хелить :oops:

Posted: 2006-11-12 21:29:28
by -=Morf=-
ааа еще бы такую функцию в этот скрипт, чтобы если в бек паке накаливалось н-ое кол-во бинтов то чар мыл их в указанной миске

Posted: 2006-11-13 04:38:59
by Scripts Writer
НУ смотря как ты хочешь указывать. Насчёт хелинга указывая таргетами с постоянными вопросами: Еще кого то? сомневаюсь. Но а с ИД сейчас напишу. попробую.

Posted: 2006-11-13 04:46:08
by Scripts Writer

Code: Select all

sub heal()
var bandage='type'
var bloody='type' #type of bloody bandages
var wash='ID' #where'll be bloody bandages cleaned
var i
  DIM id[5]

  id[0]=' SERIAL '
  id[1]=' SERIAL '
  id[2]=' SERIAL '
  id[3]=' SERIAL '
  id[4]=' SERIAL '

  for i = 0 to 4
    if uo.GetHp(id[i]) <> uo.GetMaxHp(id[i]) then 
      while uo.GetHp(id[i]) < uo.GetMaxHp(id[i]) # Heal until MaxHp
        uo.WaitTargetObject(id[i])
        uo.UseType(bandage)
        wait(3500)
      wend
    else
      uo.FindType(bloody,'-1','backpack')
      if uo.Count(bloody) > 100 then #When we'll clean bloody bandages(qua)
        uo.WaitTargetObject(wash)
        uo.UseObject('finditem')
        wait(250)
      end if
    end if
  next 
end sub
Не тестировал. Смотри у себя сам.

Posted: 2006-11-13 20:59:57
by -=Morf=-
таксь скрипт пашед, но после того как он вылечил обоих чаров, он останавливаецо и приходицо снова запускать.
И еще , чтобы чар мыл на нашем сервере нужно дабл клик на грязный бинт и на миску с водой
а то он так не моет что то или я делаю чо не так?

Posted: 2006-11-13 21:46:10
by Nmy
-=Morf=- wrote:таксь скрипт пашед, но после того как он вылечил обоих чаров, он останавливаецо и приходицо снова запускать.
И еще , чтобы чар мыл на нашем сервере нужно дабл клик на грязный бинт и на миску с водой
а то он так не моет что то или я делаю чо не так?
ид прописал?

Posted: 2006-11-13 22:54:43
by -=Morf=-
с мытьем бинтов я уже разобрался. Щас самое главное чтобы скрипт работал все время и не выключался после хеала......

Posted: 2006-11-14 04:48:23
by Scripts Writer

Code: Select all

while not uo.Dead() 
 ...
wend

Posted: 2006-11-14 09:02:15
by GimFlex
You Must Die wrote:

Code: Select all

while not uo.Dead() 
 ...
wend
да не мучай ты его :)

Code: Select all

sub heal() 
var bandage='type' 
var bloody='type' #type of bloody bandages 
var wash='ID' #where'll be bloody bandages cleaned 
var i 
  DIM id[5] 

  id[0]=' SERIAL ' 
  id[1]=' SERIAL ' 
  id[2]=' SERIAL ' 
  id[3]=' SERIAL ' 
  id[4]=' SERIAL ' 
while 1==1
  for i = 0 to 4 
    if uo.GetHp(id[i]) <> uo.GetMaxHp(id[i]) then 
      while uo.GetHp(id[i]) < uo.GetMaxHp(id[i]) # Heal until MaxHp 
        uo.WaitTargetObject(id[i]) 
        uo.UseType(bandage) 
        wait(3500) 
      wend 
    else 
      uo.FindType(bloody,'-1','backpack') 
      if uo.Count(bloody) > 100 then #When we'll clean bloody bandages(qua) 
        uo.WaitTargetObject(wash) 
        uo.UseObject('finditem') 
        wait(250) 
      end if 
    end if 
  next 
wend
end sub