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

Scripting by LEO... (archery)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7597		 Page 1 of 1
Author:  ghost_hnt [ 2006-05-06 22:49:25 ]
Post subject:  Scripting by LEO... (archery)
в чем дело?
пытается стрелять , но потом сразу же хелит не тронутого чара(((
помогите
Code:
var Doll = '0x0026B61A' ##ID чара в которого стреляем 
var Cont = '0x4009EDAD' ##ID контейнера где лежат стрелы 
var Arrow = '0x0F3F'    ##тип стрел 
var Bow = '0x13B1'      ##тип лука 
sub Archery() 
#¤Leo¤# 
while 1 
   UO.UseType(Bow) 
   UO.Attack(Doll) 
   Repeat 
      wait (500) 
   if UO.InJournal('destroyed') then 
   UO.UseType(Bow) 
   UO.DeleteJournal() 
   endif 
   Until UO.GetHP(Doll)<100 
   repeat 
   wait (500) 
   UO.WarMode(0) 
      if UO.FindCount('0x0E21')<30 then 
         UO.WaitTargetType('0x1008') 
         UO.UseType('0x0E20') 
         CheckLag() 
      endif 
      UO.Usetype('0x0E21') 
      UO.WaitTargetObject(Doll) 
      wait(3500) 
   Until UO.InJournal('you need') 
      If UO.Count(Arrow) < 100 Then 
         UO.Findtype(Arrow, '-1',Cont) 
         If UO.FindCount() > 0 Then 
            UO.Grab('500','finditem') 
            wait(1000) 
            CheckLag() 
         Endif 
      Endif 
      UO.DeleteJournal() 
wend 
end sub 

sub Start() 
   repeat 
   UO.Findtype(Arrow) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif 
   UO.Findtype(Arrow, '-1', '1' ) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif 
      wait(10000) 
   until UO.Dead() 
endsub 

Sub CheckLag() 
   UO.DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
endsub
Author:  CONDOMchick [ 2006-05-06 22:52:40 ]
Post subject: 
попробуй увеличить задержку
Author:  ghost_hnt [ 2006-05-06 23:02:14 ]
Post subject: 
блин он почему то пробует стрельнуть, а потом сразу хелит и хелит все время чара с полными жизнями_(
ошибка где-то в этой строчке
Code:
Until UO.GetHP(Doll)<100 
   repeat 
   wait (500) 
   UO.WarMode(0) 
      if UO.FindCount('0x0E21')<30 then 
         UO.WaitTargetType('0x1008') 
         UO.UseType('0x0E20') 
         CheckLag() 
      endif 
      UO.Usetype('0x0E21') 
      UO.WaitTargetObject(Doll) 
      wait(3500) 
   Until UO.InJournal('you need')

можете скинуть другой рабочий скрипт)_!
Author:  ghost_hnt [ 2006-05-06 23:06:33 ]
Post subject: 
как-то надо изменить проверку hp у куклы
что-то вместо until uo.getHP
типо if жизней у куклы меньше половины то бери бинты
Author:  flake [ 2006-05-06 23:10:15 ]
Post subject: 
Code:
Until UO.GetHP(Doll)<100

замени на
Code:
Until UO.GetHP(Doll)< (UO.GeMaxHP(Dol)/2)
Author:  ghost_hnt [ 2006-05-06 23:14:56 ]
Post subject: 
не не хрена)
там подправил, но он убивает чара_)
Author:  Kynep [ 2006-05-07 08:14:39 ]
Post subject: 
flake wrote:
Code:
Until UO.GetHP(Doll)<100

замени на
Code:
Until UO.GetHP(Doll)< (UO.GeMaxHP(Dol)/2)


Скока писал так ни разу не получалось, лучше сделать проверку по журналу на фразу, пробуй:
Code:
var Doll = '0x0026B61A' ##ID чара в которого стреляем 
var Cont = '0x4009EDAD' ##ID контейнера где лежат стрелы 
var Arrow = '0x0F3F'    ##тип стрел 
var Bow = '0x13B1'      ##тип лука 
sub Archery() 
#¤Leo¤# 
while 1 
   UO.UseType(Bow) 
   UO.Attack(Doll) 
   Repeat 
      wait (500) 
   if UO.InJournal('destroyed') then 
   UO.UseType(Bow) 
   UO.DeleteJournal() 
   endif 
   until UO.InJournal('Stop')
   UO.DeleteJournal() 
   repeat 
   wait (500) 
   UO.WarMode(0) 
      if UO.FindCount('0x0E21')<30 then 
         UO.WaitTargetType('0x1008') 
         UO.UseType('0x0E20') 
         CheckLag() 
      endif 
      UO.Usetype('0x0E21') 
      UO.WaitTargetObject(Doll) 
      wait(3500) 
   Until UO.InJournal('need healing') 
      If UO.Count(Arrow) < 100 Then 
         UO.Findtype(Arrow, '-1',Cont) 
         If UO.FindCount() > 0 Then 
            UO.Grab('500','finditem') 
            wait(1000) 
            CheckLag() 
         Endif 
      Endif 
      UO.DeleteJournal() 
wend 
end sub 

sub Start() 
   repeat 
   If UO.GetHP() < UO.GetMaxHP() / 2 then
   UO.Say('Stop')
   repeat
   wait(100)
   until UO.GetHP() == UO.GetMaxHP()
   else
   wait(100)
   endif
   UO.Findtype(Arrow) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif 
   UO.Findtype(Arrow, '-1', '1' ) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif  
   until UO.Dead() 
endsub 

Sub CheckLag() 
   UO.DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
endsub
Author:  ghost_hnt [ 2006-05-07 15:13:42 ]
Post subject: 
блин сначало норм, но потом, как чар-кукла сказал STOP
атакующий его хилит, даже если у него хп полные(
надо что-то в этом роде
Code:
 until UO.InJournal('Stop')

until заменить на if
Author:  Kynep [ 2006-05-07 15:52:43 ]
Post subject: 
ghost_hnt wrote:
блин сначало норм, но потом, как чар-кукла сказал STOP
атакующий его хилит, даже если у него хп полные(
надо что-то в этом роде
Code:
 until UO.InJournal('Stop')

until заменить на if


Немнога поправил, посмотри. Ты как запускаешь его? Кто качает должен запускать Archery, а кукла Start
Author:  ghost_hnt [ 2006-05-07 18:28:05 ]
Post subject: 
да эт я понял
скоро буду тестить
Author:  ghost_hnt [ 2006-05-11 14:05:32 ]
Post subject: 
блин не ПАШЕТ((((((((((
стреляет, пока тот не скажет STOP
потом хелит его до бесконечности..............
Author:  Kynep [ 2006-05-11 17:02:37 ]
Post subject: 
ghost_hnt wrote:
блин не ПАШЕТ((((((((((
стреляет, пока тот не скажет STOP
потом хелит его до бесконечности..............


Мля!! телепаты в отпуске!!! В этой строке напиши что пишет клиент, когда у чела жизни полные и пытается лечить:
Code:
Until UO.InJournal('need healing')
Author:  ghost_hnt [ 2006-05-11 17:53:01 ]
Post subject: 
скрипт работает, но почему то когда у куклы меньше половины хп он все время кричит STOP!!!!!!!!!!!!!!
не останавливаясь, поэтому чар стрельнет, потом сразу хелит :?
Author:  Kynep [ 2006-05-11 21:02:28 ]
Post subject: 
ghost_hnt wrote:
скрипт работает, но почему то когда у куклы меньше половины хп он все время кричит STOP!!!!!!!!!!!!!!
не останавливаясь, поэтому чар стрельнет, потом сразу хелит :?


Попробуй так, ссылка на мой пост:
Тут
Только не забудь исправить это:
Code:
Until UO.InJournal('need healing')
Author:  ghost_hnt [ 2006-05-12 12:10:36 ]
Post subject: 
спасибо вроде норм!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/