Silenser4ever 0 Жалоба Опубликовано 19 сентября, 2010 написал скрипт чтоб чар ходил Влево на 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 Жалоба Опубликовано 19 сентября, 2010 ппц скрипт... страшно смотреть Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Silenser4ever 0 Жалоба Опубликовано 19 сентября, 2010 ппц скрипт... страшно смотреть А что в нем страшного, я просто расписал всё пошагово ))) Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Danke 0 Жалоба Опубликовано 19 сентября, 2010 в самом конце ты не поставил некст for x=1 to 1 wait(500) uo.press(37) тут wend Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Danke 0 Жалоба Опубликовано 19 сентября, 2010 никогда не используй метки и 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 Жалоба Опубликовано 19 сентября, 2010 в самом конце ты не поставил некст for x=1 to 1 wait(500) uo.press(37) тут wend Спасибо, поставил Next и у меня перестала вылетать ошибка ))) Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Silenser4ever 0 Жалоба Опубликовано 19 сентября, 2010 Тему можно удалять или оставить как рабочий(если добавить Next в конце) скрипт если кому то будет нужно покопать торф или песок ))) Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты