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

Паринг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=16664		 Page 1 of 1
Author:  some [ 2011-06-09 08:55:55 ]
Post subject:  Паринг
Доброго времени суток .
Помогите пожалуйста сделать такой скрипт на паринг :
чар стоит со щитом , если сломался - одевает новый и тупо хилится если стр меньше указанной отметки , при этом чар НЕ должен атачить в ответ того, кто его бьет - тупо хил .
заранее спасибо :)
Author:  Mirage [ 2011-06-09 09:17:48 ]
Post subject:  Re: Паринг
смысл в апе через минуту? Афигенно опустили?
3 действия в операторах условий в цикл забить - делов то.
Code:
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
Author:  some [ 2011-06-09 10:16:47 ]
Post subject:  Re: Паринг
fast question-fast answer
Спасибо :!:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/