Арчери , помогите плз....

[+GhosT+]

Нужен скрипт на арчери! Чтоб лучник стрелял в куклу , на растоянии 1 таил , после выстреливаине кукле 50% хп, арчер сам брпал бинты и хелил куклу! Кукла должна подымать стрелыи которые на полу и из своего пака и складывать их в сундук ... Арчер если ему нехватало стрел добирал стрелы из сундука !
Помогите юзал поиск нету такова

[Kynep]

Помогите юзал поиск нету такова

Не обманывай, есть, я писал, ищи лучше.

[+GhosT+]

Помогите юзал поиск нету такова

Не обманывай, есть, я писал, ищи лучше.

Не могу наити ! Ищю уже по автору(тоесть тебе) серавно нефига не могу наити ! Плз кинь сылку или скрипт !

[Kynep]

Это скрипт того кто среляет:

Code: Select all

sub Archer() 
   VAR char = ' ' #ID атакуемого чара 
   VAR streli = ' ' #Тип стрел 
   while not UO.Dead() 
      UO.WarMode(1) 
      wait(1000) 
      UO.Attack(char) 
      UO.DeleteJournal() 
      repeat 
         wait(100) 
      until UO.InJournal('HP') 
      UO.WarMode(0) 
      wait(1000) 
      UO.FindType(streli, '-1', 'ground') 
      If UO.FindCount() > 0 then 
         cheklag() 
         UO.MoveItem('finditem', '0', 'backpack') 
      else 
         wait(100) 
      end if     
      UO.DeleteJournal() 
      repeat 
         wait(100) 
      until UO.InJournal('Ready') 
   wend 
end sub 

Sub cheklag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
      repeat 
         wait(100) 
      until UO.InJournal('backpack') 
end sub

Это скрипт того по кому стреляем, чар кукла:

Code: Select all

sub kukla()
   var shield = '0x1B76'
   var banka = ' ' #ID банки для бинтов
   var streli = ' '   #Тип стрел
   
   while not UO.Dead()
      If UO.Life < 60 then
         UO.Say("HP")
         repeat
            cheklag()
            UO.Bandageself()
            wait(4000)
         until UO.Life == UO.STR
         UO.Equipt('Lhand',shield)
         wait(2000)
         UO.FindType('0x0E20', '-1', 'backpack')
         If UO.FindCount() > 0 then
            UO.waittargetobject(banka)
            wait(100)
            CheckLag()
            UO.usetype('0x0E20')
            Wait(2000)
         else
            wait(100)
         end if
         UO.FindType(streli, '-1', 'backpack')
         If UO.FindCount() > 0 then
            cheklag()
            UO.DropHere('finditem')
            wait(200)
         else
            wait(100)
         end if
         wait(2000)
         UO.Say("Ready")
      else
         wait(100)
      endif
   wend
end sub

Sub cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(100)
   until UO.InJournal('backpack')
end sub

Скрипты без реконнекта, если нужно могу вставить. Сначала так потести. Подойдет, напиши.

[+GhosT+]

Спс конешно ! Но я хачу чтоб кукла еще стрелы скидывала в ящик ! а арчер подбирал из ящика !

[Kynep]

Спс конешно ! Но я хачу чтоб кукла еще стрелы скидывала в ящик ! а арчер подбирал из ящика !

Хочешь, твори!
"Человека проще научить ловить рыбу, чем кормить его постоянно." ©