Yoko

Posted: **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

Posted: **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?')

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

Posted: **2006-10-14 09:08:47**

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

Posted: **2006-10-17 22:26:21**

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

Posted: **2006-10-27 14:39:27**

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

Posted: **2006-10-27 15:18:51**

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

Posted: **2006-10-29 14:17:39**

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

Posted: **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

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

Posted: **2006-11-02 12:30:46**

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

Posted: **2006-11-07 21:52:14**

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

Posted: **2006-11-08 07:46:11**

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

Posted: **2006-11-08 21:13:50**

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

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

Posted: **2006-11-09 02:16:42**

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

Posted: **2006-11-12 19:26:58**

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

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

Yoko

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

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