Ошибка в инджекте

[Silenser4ever 0]

написал скрипт чтоб чар ходил Влево на 10 шагов, потом в право на 10 шагов и лопатой обкапывал тайлы(1н над собой, 1н на тайле котором стоит и 1н тайл под собой) но после того как он обкопал и сделал шаг в право, вылетела ошибка(Unhandled exception in parser) и скрипт слетает.... Этот скрипт я сделал чтоб чар накапывал Blackmoor на болоте...

 

Скрипт выглядит так:

 

sub main()

var i,x

var a=10

var b=10

wait(1000)

 

while not uo.dead()

 

For i=1 to a

 

start1:

uo.deleteJournal()

wait(1000)

uo.exec("usetype '0x0F39'")

wait(500)

uo.LClick(410,224)

Wait(11000)

If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then

Uo.DeleteJournal()

GoTo start1

endif

Start12:

uo.deleteJournal()

wait(1000)

uo.exec("usetype '0x0F39'")

wait(500)

uo.LClick(404,307)

Wait(11000)

If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then

uo.deleteJournal()

GoTo start12

endif

Start13:

uo.deleteJournal()

wait(1000)

uo.exec("usetype '0x0F39'")

wait(500)

uo.LClick(407,345)

Wait(11000)

If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then

uo.deleteJournal()

GoTo start13

endif

uo.press(37)

wait(500)

next

for x=1 to 1

wait(500)

uo.press(39)

next

 

for i=1 to b

 

start2:

uo.deleteJournal()

wait(1000)

uo.exec("usetype '0x0F39'")

wait(500)

uo.LClick(400,245)

Wait(11000)

If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then

Uo.DeleteJournal()

GoTo start2

endif

Start22:

uo.deleteJournal()

wait(1000)

uo.exec("usetype '0x0F39'")

wait(500)

uo.LClick(414,295)

Wait(11000)

If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then

uo.deleteJournal()

GoTo start22

endif

Start23:

uo.deleteJournal()

wait(1000)

uo.exec("usetype '0x0F39'")

wait(500)

uo.LClick(408,323)

 

If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then

uo.deleteJournal()

GoTo start23

endif

uo.press(39)

wait(500)

next

for x=1 to 1

wait(500)

uo.press(37)

wend

 

end sub

 

 

Помогите решить эту проблему.... Кстати у меня стоит Windows 7(86)... может это из-за нее... Это мое предположение, потому что такая ошибка вылетала и раньше на других скриптах которые я пытался написать.... Заранее спасибо

[Danke 0]

ппц скрипт... страшно смотреть

[Silenser4ever 0]

ппц скрипт... страшно смотреть

 

А что в нем страшного, я просто расписал всё пошагово )))

[Danke 0]

в самом конце ты не поставил некст

 

for x=1 to 1
wait(500)
uo.press(37)
тут
wend

[Danke 0]

никогда не используй метки и goto

 

вместо

 

start2:
uo.deleteJournal()
wait(1000)
uo.exec("usetype '0x0F39'")
wait(500)
uo.LClick(400,245)
Wait(11000)
If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then
Uo.DeleteJournal()
GoTo start2
endif

 

нада писать

 

repeat
uo.deleteJournal()
uo.exec("usetype '0x0F39'")
repeat
wait(100)
until uo.targeting()
uo.LClick(400,245)
repeat
wait(1000)
until uo.injournal('you put|fail')
until uo.injournal('fail')

 

как-то так

[Silenser4ever 0]

в самом конце ты не поставил некст

 

for x=1 to 1
wait(500)
uo.press(37)
тут
wend

 

 

Спасибо, поставил Next и у меня перестала вылетать ошибка )))

[Silenser4ever 0]

Тему можно удалять или оставить как рабочий(если добавить Next в конце) скрипт если кому то будет нужно покопать торф или песок )))