Скрипт,оч полезный.

Anything and all.

Moderators: Murderator+, Murderator

Locked
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Скрипт,оч полезный.

Post by ДРВ »

Суть скрипта:
Чар стреляет с лука по определенному ИД,как только становиться определенное количество ХП у того по кому чар стреляет,чар начинает хилить противника.Помогите пожалуйста.
newman
Posts: 36
Joined: 2006-08-12 15:42:02

Post by newman »

Code: Select all

sub WarTrain() 
   VAR E, t, Enemy='0x00328726' , MinHP=55, G=true, L, Weap='0x13B2' ; type of weapon
   UO.Attack(Enemy)
   UO.DeleteJournal()
   while G==true
      wait(500)
      if  not UO.ObjAtLayer("Rhand") then
         UO.FindType(Weap,-1,'backpack')
         if  UO.FindCount() then
            UO.Equip('Rhand','finditem')
         endif
      endif
      if  UO.InJournal("stay") or UO.Life<MinHP then
         UO.Say("stay")
         t=UO.Timer()
         repeat
            E=true
            UO.Exec('warmode 0')
            wait(500)
            if  UO.WarMode()==1 then
               E=false
               UO.Say("stay")
               t=UO.Timer()
            endif
         until E==true and UO.Timer()>=t+30
         CheckLag()
         UO.SetArm('myarm')
         while UO.Life<UO.Str
            L=UO.Life
            UO.Exec('warmode 0')
            DelJ("the")
            t=UO.Timer()
            UO.Exec('bandageself')
            repeat
               Wait(500)
            until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100
            CheckLag()
            if UO.Life<L then
               UO.Say("stop")
            endif
         wend
         CheckBandage()
         UO.Arm('myarm')
         if not UO.InJournal("poehali") then
            UO.Say("go")
            repeat
               wait(50)
            until UO.InJournal("go") or UO.Life<UO.Str
            DelJ(UO.GetName()+": go")
            repeat
               wait(50)
            until UO.InJournal("go") or UO.Life<UO.Str
         else
            UO.Say("go")
         endif
         UO.DeleteJournal()
         UO.Attack(Enemy)
      endif
      if UO.Dead() then
         UO.Exec('warmode 1')
      endif
   wend
end sub

sub DelJ(s)
   VAR MN=UO.InJournal(s)
    while MN > 0   
       UO.SetJournalLine(MN-1, '')   
       MN=UO.InJournal(s)
    wend
end sub

sub CheckLag()
   DelJ("backpack")
   UO.Click('backpack')
   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub

sub CheckBandage()
   VAR Banka='0x40272054' ; ID of wash basin
   UO.waittargetobject(banka)
   UO.usetype(0x0E20)
   Wait(1000)
end sub

Там указываеш где бинты лежат,тип оружия и противника.Как хп мало становятса они отходить должны друг от друга и хлитса.
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

newman wrote:Там указываеш где бинты лежат,тип оружия и противника.Как хп мало становятса они отходить должны друг от друга и хлитса.
Должны,но 1 чар вбивает другого до смерти.
newman
Posts: 36
Joined: 2006-08-12 15:42:02

Post by newman »

Жаль...мож кто найдет сркипт котоырй ДРВ просил?Мне он тоже нужен.
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Re: Скрипт,оч полезный.

Post by Scripts Writer »

ДРВ wrote:Суть скрипта:
Чар стреляет с лука по определенному ИД,как только становиться определенное количество ХП у того по кому чар стреляет,чар начинает хилить противника.Помогите пожалуйста.


Не так давно ты просил аналогичный скрипт, в котором тебе надо было стрелять и лечить дракона. Тебе его дали - скрипт работающий, а тебе всё не то.

Поиск. Топ клоуз.
Locked