Yoko :: Line 101 parse error

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

Line 101 parse error http://forum.yoko.com.ua/viewtopic.php?f=3&t=7040	Page 1 of 1

Author:

Ivan Pomidorov [ 2006-03-19 17:20:03 ]

Post subject:

Line 101 parse error

Написал скрипт на разгадку и раскладку карт , а он все делает только под конец вылетает вот так Line 69 parse error

Кроме того не совсем понятно почему без вот этого

Code:

      Wait(800)
      UO.Click("finditem") 
он не работате  :(  хотя по смыслу должен  :D 

sub RazgadkaKart()
Var WaitTime=700

UO.Print('Vibery meshok s kartamy!')
   UO.AddObject('SourceBag')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('SourceBag') 

UO.Print('Dla 1 urovna')
   UO.AddObject('Bag1')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag1')

UO.Print('Dla 2 urovna')
   UO.AddObject('Bag2')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag2')

UO.Print('Dla 3 urovna')
   UO.AddObject('Bag3')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag3')

UO.Print('Dla 4 urovna')
   UO.AddObject('Bag4')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag4')

UO.Print('Dla 5 urovna')
   UO.AddObject('Bag5')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag5')

repeat
UO.FindType('0x14EB',-1,'SourceBag')
      If UO.GetQuantity('finditem')>0 Then
         UO.DeleteJournal()
         UO.MoveItem('finditem','1','backpack')
         wait(WaitTime)
         UO.UseObject('finditem') 

UO.DeleteJournal()
      Wait(800)
      UO.Click("finditem") 


if uo.injournal("level 1") then
      uo.moveitem('finditem',0,'Bag1')
      wait(WaitTime)
      endif
if uo.injournal("level 2") then
      uo.moveitem('finditem',0,'Bag2')
      wait(WaitTime)
      endif
if uo.injournal("level 3") then
      uo.moveitem('finditem',0,'Bag3')
      wait(WaitTime)
      endif
if uo.injournal("level 4") then
      uo.moveitem('finditem',0,'Bag4')
      wait(WaitTime)
      endif
if uo.injournal("level 5") then
      uo.moveitem('finditem',0,'Bag5')
      wait(WaitTime)
      endif
 
UO.DeleteJournal()
until UO.FindCount()==0

end sub

Author:	Scripts Writer [ 2006-03-19 17:29:08 ]
Post subject:
потому что этой строкой инж кликает на найденую карту, тем самым клиент выводит на экран параметр: " Эта карта такого то уровня ", который потом считывается инжектом для дальнейшей раскладки по мешкам.

Author:	Ivan Pomidorov [ 2006-03-19 17:32:08 ]
Post subject:
Это я понял , но ведь при разгадке карты в журнале остается похожее сообщение где есть тоже level 1 и т.п. ,а условие на перекладывание не срабатывает

Author:	Scripts Writer [ 2006-03-19 18:55:46 ]
Post subject:
у тя журнал делитится прежде чем ты кликаешь-получается что ты свежим журналом тестишь ) и полученую карту кладешь как и должно быть!

Author:	Ivan Pomidorov [ 2006-03-19 19:06:28 ]
Post subject:
Ок огромное спасибо , вот бы еще узнать почему он слетает ) с ошибкой , точнее пишет line 101 : parce error ? Вылетает на оконцовке , т.е. когда карт на разгадку 0 , а должен заканчиватся . P.S. Это первый мой скрипт ( почти мой фрагменты повыдирал некоторые )

Author:

Scripts Writer [ 2006-03-19 19:48:53 ]

Post subject:

ну хз. если он слетает тогда, когда всё зделает-тогда ок, а если посередине -хм.

Code:

until UO.FindCount()==0

в цикле наверняка трабла

но возможно и тут:

Code:

UO.FindType('0x14EB',-1,'SourceBag') 
If UO.GetQuantity('finditem')>0 Then 
UO.DeleteJournal() 
UO.MoveItem('finditem','1','backpack') 
wait(WaitTime) 
UO.UseObject('finditem')

хм

Code:

end if

куда делся ). ВОт он и парсит.
Вот , вроде правильно пихнул )) попробуй так:

Code:

sub RazgadkaKart() 
  Var WaitTime=700 

    UO.Print('Vibery meshok s kartamy!') 
    UO.AddObject('SourceBag') 
    While UO.Targeting()==2 
        wait(500) 
    Wend 
    UO.UseObject('SourceBag') 
    UO.Print('Dla 1 urovna') 
    UO.AddObject('Bag1') 
    While UO.Targeting()==2 
        wait(500) 
    Wend 
    UO.UseObject('Bag1') 
    UO.Print('Dla 2 urovna') 
    UO.AddObject('Bag2') 
    While UO.Targeting()==2 
        wait(500) 
    Wend 
    UO.UseObject('Bag2') 
    UO.Print('Dla 3 urovna') 
    UO.AddObject('Bag3') 
    While UO.Targeting()==2 
        wait(500) 
    Wend 
    UO.UseObject('Bag3') 
    UO.Print('Dla 4 urovna') 
    UO.AddObject('Bag4') 
    While UO.Targeting()==2 
        wait(500) 
    Wend 
    UO.UseObject('Bag4') 
    UO.Print('Dla 5 urovna') 
    UO.AddObject('Bag5') 
    While UO.Targeting()==2 
        wait(500) 
    Wend 
    UO.UseObject('Bag5') 
    repeat 
        UO.FindType('0x14EB',-1,'SourceBag') 
        If UO.GetQuantity('finditem')>0 Then 
            UO.DeleteJournal() 
            UO.MoveItem('finditem','1','backpack') 
            wait(WaitTime) 
            UO.UseObject('finditem') 
        end if
        UO.DeleteJournal() 
        Wait(800) 
        UO.Click("finditem") 
        if uo.injournal("level 1") then 
            uo.moveitem('finditem',0,'Bag1') 
            wait(WaitTime) 
        endif 
        if uo.injournal("level 2") then 
            uo.moveitem('finditem',0,'Bag2') 
            wait(WaitTime) 
        endif 
        if uo.injournal("level 3") then 
            uo.moveitem('finditem',0,'Bag3') 
            wait(WaitTime) 
        endif 
        if uo.injournal("level 4") then 
            uo.moveitem('finditem',0,'Bag4') 
            wait(WaitTime) 
        endif 
        if uo.injournal("level 5") then 
            uo.moveitem('finditem',0,'Bag5') 
            wait(WaitTime) 
        endif 
        UO.DeleteJournal() 
    until UO.FindCount()==0 
end sub

Author:

Ivan Pomidorov [ 2006-03-19 21:06:15 ]

Post subject:

Спасибо , дело было действительно в этом : я добавил checklag , изменил паузу , щас работает отлично

Вот конечный вариант :

Code:

sub RazgadkaKart()

UO.Print('Vibery meshok s kartamy!')
   UO.AddObject('SourceBag')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('SourceBag') 

UO.Print('Dla 1 urovna')
   UO.AddObject('Bag1')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag1')

UO.Print('Dla 2 urovna')
   UO.AddObject('Bag2')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag2')

UO.Print('Dla 3 urovna')
   UO.AddObject('Bag3')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag3')

UO.Print('Dla 4 urovna')
   UO.AddObject('Bag4')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag4')

UO.Print('Dla 5 urovna')
   UO.AddObject('Bag5')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('Bag5')

repeat
UO.FindType('0x14EB',-1,'SourceBag')
      If UO.GetQuantity('finditem')>0 Then
         UO.DeleteJournal()
         UO.MoveItem('finditem','1','backpack')
         wait(1000)
         UO.UseObject('finditem') 
      end if 

UO.DeleteJournal()
      CheckLag()
      UO.Click("finditem") 


if uo.injournal("level 1") then
      uo.moveitem('finditem',0,'Bag1')
      CheckLag()
      endif
if uo.injournal("level 2") then
      uo.moveitem('finditem',0,'Bag2')
      CheckLag()
      endif
if uo.injournal("level 3") then
      uo.moveitem('finditem',0,'Bag3')
      CheckLag()
      endif
if uo.injournal("level 4") then
      uo.moveitem('finditem',0,'Bag4')
      CheckLag()
      endif
if uo.injournal("level 5") then
      uo.moveitem('finditem',0,'Bag5')
      CheckLag()
      endif
 
UO.DeleteJournal()
until UO.FindCount()==0

end sub

sub CheckLag()
    UO.DeleteJournal()
    UO.Click('backpack')
    repeat
    Wait(300)
    Until uo.InJournal('backpack')
end sub

Author:	Scripts Writer [ 2006-03-19 21:10:09 ]
Post subject:
заключай в код епт

Author:	Ivan Pomidorov [ 2006-03-19 21:51:24 ]
Post subject:
You Must Die wrote: заключай в код епт

Author:	Destruction [ 2006-03-20 10:04:38 ]
Post subject:
ПРАВИЛА

Author:	Ivan Pomidorov [ 2006-03-20 12:59:55 ]
Post subject:
Destruction wrote: ПРАВИЛА Виноват сразу не врубился Кстати , а где ( в каком разделе ) надо публиковать скрипты , чтоб их критиковали ?

Author:	Destruction [ 2006-03-20 20:27:19 ]
Post subject:
Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Quote: Раздел Scripts - всё туда. ЗЫ: Прикольно получилось -)

Author:	SLAK [ 2006-03-21 12:56:46 ]
Post subject:
Destruction wrote: ЗЫ: Прикольно получилось -) Флудер йопт.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/