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

Помогите плз: ошибка в скрипте на Арчери!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9030		 Page 1 of 1
Author:  $keR [ 2006-10-12 11:20:50 ]
Post subject:  Помогите плз: ошибка в скрипте на Арчери!
вначала все ок, стреляет-хилит, потом же основной чар начинает хилить без передышки,
берет в руки лук и опять хилит!=( в чем дело,помогите разобраться , шард:
~Оском фри~

Code:

 
var Doll = '0x00E9D04B' ##ID чара в которого стреляем 
var Cont = '0x41054B5E' ##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) 
      UO.WaitTargetObject(Doll) 
      UO.Usetype('0x0E21') 
      
      wait(3500) 
   Until UO.InJournal('Do you wanna make a mummy?') 
      If UO.Count(Arrow) < 200 Then 
         UO.Findtype(Arrow, '-1',Cont) 
         wait(350) 
         If UO.FindCount() > 0 Then 
         wait(350) 
            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

sub strel()
If UO.Count(Arrow) < 200 Then 
         UO.Findtype(Arrow, '-1',Cont) 
         wait(350) 
         If UO.FindCount() > 0 Then 
         wait(350) 
            UO.Grab('500','finditem') 
            wait(1000) 
            CheckLag() 
         Endif 
      Endif 
      end sub
      
sub attak()    
  UO.Attack(Doll) 
  end sub
Author:  Scripts Writer [ 2006-10-12 11:54:12 ]
Post subject: 
Скорее всего проблема здесь:

Code:
repeat 
wait (500) 
UO.WarMode(0) 
UO.WaitTargetObject(Doll) 
UO.Usetype('0x0E21') 

wait(3500) 
Until UO.InJournal('Do you wanna make a mummy?')


Надо зделать динамическую задержку для надежности.
Author:  $keR [ 2006-10-14 09:08:47 ]
Post subject: 
эээто так? я просто в скриптах не оч разбираюсь=(
могу чуток подправить,но не больше..=(
Побскажи как и что туда подставить пллиз
Author:  $keR [ 2006-10-17 22:26:21 ]
Post subject: 
пппааамагите
Author:  $keR [ 2006-10-27 14:39:27 ]
Post subject: 
НароД!! ну помогите Вы, что так трудно чтоли?
Author:  Nmy [ 2006-10-27 15:18:51 ]
Post subject: 
сообщения отредактируй
Author:  $keR [ 2006-10-29 14:17:39 ]
Post subject: 
NMY !
я ваще ничего непонял что мне сказал You Must Die, может ты поможешь?
реально очень нужен скрипт!
пробовал задержку побольше,НО он также тупит, переделывал скрипт на прокачку ближних, все работает,
НО также ТУпит на илинге=(
Author:  Nmy [ 2006-10-29 15:10:29 ]
Post subject: 
Code:
sub Archery()
VAR n=0
#¤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
   n=n+1
   wait (500)
   UO.WarMode(0)
      UO.WaitTargetObject(Doll)
      UO.Usetype('0x0E21')     
      wait(3500)
   Until UO.InJournal('Do you wanna make a mummy?') OR n>=4
      If UO.Count(Arrow) < 200 Then
         UO.Findtype(Arrow, '-1',Cont)
         wait(350)
         If UO.FindCount() > 0 Then
         wait(350)
            UO.Grab('500','finditem')
            wait(1000)
            CheckLag()
         Endif
      Endif
      UO.DeleteJournal()
wend
end sub


пробуй так...
какое сообщение когда хочеш лечить бота у каторага полное хп ?
Author:  $keR [ 2006-11-02 12:30:46 ]
Post subject: 
'Do you wanna make a mummy?')
такое =)
ща поробую
Author:  $keR [ 2006-11-07 21:52:14 ]
Post subject: 
неа,не пашет нифига,
хилит,даже не стреляет=(
может как нить мона сделать чтоб по фурналу, по месаге?
помогите плз=..
Author:  Nmy [ 2006-11-08 07:46:11 ]
Post subject: 
проверь по буквам сообщение и что написанно в скрипте, гдето ошыбка...
Author:  $keR [ 2006-11-08 21:13:50 ]
Post subject: 
это скрипт Leo, переделывал под себя, в сообщениях все норма, ненаю почему,НО работает через раз=(
иногда запустишь-сутками пашет, иногда стразу слетает
Author:  Nmy [ 2006-11-08 21:38:30 ]
Post subject: 
Code:
   n=0
   repeat
   n=n+1
   wait (500)
   UO.WarMode(0)
      UO.WaitTargetObject(Doll)
      UO.Usetype('0x0E21')     
      wait(3500)
   Until UO.InJournal('Do you wanna make a mummy?') OR n>=4


или n<4 сам путаюсь, но должен работать!
Author:  slonopotam [ 2006-11-09 02:16:42 ]
Post subject: 
Попробуй перед запуском скрипта сначало перезапустить инжект.
Author:  $keR [ 2006-11-12 19:26:58 ]
Post subject: 
всем спасибо, ненаю что сделал, но чет там рылся исправлял, работал 3 дня скрипт=)
п.с. арчу до ГМа докачал

думаю можно закрывать топик
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/