Помогите плз: ошибка в скрипте на Арчери!

$keR · Post by **$keR** » 2006-10-12 11:20:50

вначала все ок, стреляет-хилит, потом же основной чар начинает хилить без передышки,
берет в руки лук и опять хилит!=( в чем дело,помогите разобраться , шард:
~Оском фри~

Code: Select all


 
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

Scripts Writer · Post by **Scripts Writer** » 2006-10-12 11:54:12

Скорее всего проблема здесь:

Code: Select all

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

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

Надо зделать динамическую задержку для надежности.

$keR · Post by **$keR** » 2006-10-14 09:08:47

эээто так? я просто в скриптах не оч разбираюсь=(
могу чуток подправить,но не больше..=(
Побскажи как и что туда подставить пллиз

$keR · Post by **$keR** » 2006-10-17 22:26:21

пппааамагите

$keR · Post by **$keR** » 2006-10-27 14:39:27

НароД!! ну помогите Вы, что так трудно чтоли?

Nmy · Post by **Nmy** » 2006-10-27 15:18:51

сообщения отредактируй

$keR · Post by **$keR** » 2006-10-29 14:17:39

NMY !
я ваще ничего непонял что мне сказал You Must Die, может ты поможешь?
реально очень нужен скрипт!
пробовал задержку побольше,НО он также тупит, переделывал скрипт на прокачку ближних, все работает,
НО также ТУпит на илинге=(

Nmy · Post by **Nmy** » 2006-10-29 15:10:29

Code: Select all

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

пробуй так...
какое сообщение когда хочеш лечить бота у каторага полное хп ?

$keR · Post by **$keR** » 2006-11-02 12:30:46

'Do you wanna make a mummy?')
такое =)
ща поробую

$keR · Post by **$keR** » 2006-11-07 21:52:14

неа,не пашет нифига,
хилит,даже не стреляет=(
может как нить мона сделать чтоб по фурналу, по месаге?
помогите плз=..

Nmy · Post by **Nmy** » 2006-11-08 07:46:11

проверь по буквам сообщение и что написанно в скрипте, гдето ошыбка...

$keR · Post by **$keR** » 2006-11-08 21:13:50

это скрипт Leo, переделывал под себя, в сообщениях все норма, ненаю почему,НО работает через раз=(
иногда запустишь-сутками пашет, иногда стразу слетает

Nmy · Post by **Nmy** » 2006-11-08 21:38:30

Code: Select all

   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 сам путаюсь, но должен работать!

slonopotam · Post by **slonopotam** » 2006-11-09 02:16:42

Попробуй перед запуском скрипта сначало перезапустить инжект.

$keR · Post by **$keR** » 2006-11-12 19:26:58

всем спасибо, ненаю что сделал, но чет там рылся исправлял, работал 3 дня скрипт=)
п.с. арчу до ГМа докачал

думаю можно закрывать топик