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

Арчери , помогите плз....
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14552		 Page 1 of 1
Author:  +GhosT+ [ 2009-03-16 05:21:21 ]
Post subject:  Арчери , помогите плз....
Нужен скрипт на арчери! Чтоб лучник стрелял в куклу , на растоянии 1 таил , после выстреливаине кукле 50% хп, арчер сам брпал бинты и хелил куклу! Кукла должна подымать стрелыи которые на полу и из своего пака и складывать их в сундук ... Арчер если ему нехватало стрел добирал стрелы из сундука !
Помогите юзал поиск нету такова :(
Author:  Kynep [ 2009-03-16 07:49:30 ]
Post subject:  Re: Арчери , помогите плз....
+GhosT+ wrote:
Помогите юзал поиск нету такова :(

Не обманывай, есть, я писал, ищи лучше.
Author:  +GhosT+ [ 2009-03-16 08:33:59 ]
Post subject:  Re: Арчери , помогите плз....
Kynep wrote:
+GhosT+ wrote:
Помогите юзал поиск нету такова :(

Не обманывай, есть, я писал, ищи лучше.
Не могу наити :x ! Ищю уже по автору(тоесть тебе) серавно нефига не могу наити :( ! Плз кинь сылку или скрипт !
Author:  Kynep [ 2009-03-16 08:51:46 ]
Post subject:  Re: Арчери , помогите плз....
Это скрипт того кто среляет:

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

Скрипты без реконнекта, если нужно могу вставить. Сначала так потести. Подойдет, напиши.
Author:  +GhosT+ [ 2009-03-16 10:24:13 ]
Post subject: 
Спс конешно ! Но я хачу чтоб кукла еще стрелы скидывала в ящик ! а арчер подбирал из ящика !
Author:  Kynep [ 2009-03-16 10:47:48 ]
Post subject: 
+GhosT+ wrote:
Спс конешно ! Но я хачу чтоб кукла еще стрелы скидывала в ящик ! а арчер подбирал из ящика !

Хочешь, твори!
"Человека проще научить ловить рыбу, чем кормить его постоянно." ©
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/