Page 1 of 1

Unhandled exeption in parser

Posted: 2007-09-06 10:45:32
by Valenok007
Привет... Вот около недели назад нашла этот скрипт но
у меня есть с этим скриптом проблема ( Которую я надеюсь вы поможите решить ) ... Вообщем :
После каждого копка слева желтым цветом пишется error:no target to cancel ( но это мне не особо мешает хотя я и незнаю из-за чего это )
Но главная проблема что после некоторого времени копки ( 5 - 10 мин иногда и через 10 секунд вообщем когда как ) Он прекращает копать и выскакивает табличка Unhandled exeption in parser

Вот Скрипт:

Code: Select all


sub minround()
VAR Kirka = '0x0E85'   ; Ncl Zcszc
VAR MaxVes = 550   ; Gazncgaeukue aan, liaugaague ?asig gckon 10-15 nniokia
VAR TileNum = '1339'   ; Naee liea lalasu (kaciieaa sanlsinnsakakkue ncl)
VAR x, y, t, k
VAR MaxTime = 100   ; cegas?ann? a 1/10 naz.
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2

      k = 0
      repeat
         UO.DeleteJournal()
         t = UO.Timer()
         k = k + 1
         UO.CancelTarget()
         wait(300)
         UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
         UO.UseType( Kirka )
         repeat
            wait(300)
         until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
         If UO.Weight > MaxVes Then
            UO.Print(" Overweight!" )
            return
         Endif
      until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
   next
next
endsub




Немогли бы вы обьяснить почему может быть такая ошибка и как её решить ...
В скриптах я ничего почти не понимаю поэтому желательно чтобы был выложень сразу исправленый ЭТОТ скрипт а не обьяснение что чтото гдето поменять ( т.к неуверена что я это пойму )...
Заранее пасиба

Posted: 2007-09-06 16:41:58
by Valenok007
никто незнает как мне помочь ?

Posted: 2007-09-06 17:31:12
by zars

Code: Select all

         t = UO.Timer() 
         k = k + 1
        UO.CancelTarget()
         wait(300)
         UO.WaitTargetTile



UO.CancelTarget() dont need this, delete

or:

Code: Select all

         t = UO.Timer() 
         k = k + 1
        ;UO.CancelTarget()
         wait(300)
         UO.WaitTargetTile

Posted: 2007-09-06 17:48:26
by Valenok007
zars Большое Спасибо что решил помочь :) .... но мне уже помог Grin :roll: