Здравствуйте, гость ( Вход | Регистрация )

> Помогите доработать
Скуб
сообщение 18.7.2012, 21:46
Сообщение #1


**

Neophyte
Сообщений: 13
Регистрация: 14.4.2012
Группа: Пользователи
Наличность: 0
Пользователь №: 14.865



:mine
set lastobjectid #pickaxe
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2

:repeat
send f1 500
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2500)
if lastmsg = $s13
goto base
end_if
if wght > #maxweight
goto base1
end_if
end_while
end_if
goto repeat
end_while
end_for
end_for
wait 1000
goto start


:unload
set #backpackx1 #backpackx + 20
set #backpacky1 #backpacky + 30
set #backpackx2 #backpackx + 130
set #backpacky2 #backpacky + 100
wait 500
set #unloada #backpackx1
set #unloadb #backpacky1
while #unloadb < #backpacky2
while #unloada < #backpackx2
move #unloada, #unloadb
set lastobjecttype 3701
double_left #unloada, #unloadb
set timer 0
if wght < 50
goto load
end_if
if lastmsg = $s10
wait 1000
drag #unloada, #unloadb #chestx, #chesty all
wait 100
say Wow
end_if
set #unloada #unloada + #step
end_while
set #unloadb #unloadb + #step
set #unloada #backpackx
end_while
goto load


короче 2 части, суть... не пойму, почему 1й круг, он летает по точкам, всё копает, летит на базу для разгрузки, собирает реги потраченные и вуаля, начинается типа с начала макрос, и показывает ошибку в команде for #x -2 2 1 for #y -2 2 1 стопорится пилот, подскажите, что добавить надо, чтобы он фор норм воспринимал
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Ответить в эту темуОткрыть новую тему
Ответов
DarkMaster
сообщение 19.7.2012, 17:39
Сообщение #2


***********

Модератор UOPilot
Сообщений: 9.736
Регистрация: 2.12.2008
Группа: Супермодераторы
Наличность: 29636
Пользователь №: 11.279



в скинутой простыне for не обнаружил. Вы не поленитесь, оторвитесь на десять минут от сиюминутного желания получить результат и прочитайте про for и про while. У них разные задачи и разные схемы работы. Почитайте чуток. Если вы хотите остаться на for, то вам придется немного переделать логику скрипта, если вы хотите перейти на while, то вам придется немного добавить условий для реализации функционала аналогичного for. Успокойтесь и предайтесь спокойному вдумчивому чтению. Я вас уверяю все гораздо проще, чем вы думаете.


--------------------
Скрипты UOPilot под заказ.
Консультации по UOpilot 15$/час.
Услуги Lua разработчика (не пилот, проекты, постоянка)
Disсоrd:
Kov____
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Сообщений в этой теме
Скуб   Помогите доработать   18.7.2012, 21:46
DarkMaster   Пожалуйста, используйте тег code, отредактируйте с...   18.7.2012, 22:13
Скуб   изменил, разницы нет) всёравно пишет ошибку   18.7.2012, 22:49
Zeleax   похоже проблема из-за того, что нельзя из цикла fo...   18.7.2012, 22:53
Скуб   это как?) я из него не выхожу вообще-то, 1й круг т...   18.7.2012, 23:29
Скуб   хм... действительно, какой-то из готов проверящих ...   18.7.2012, 23:41
Zeleax   вот, например, выход из цикла if wght > #maxwe...   19.7.2012, 6:56
Скуб   ты имеешь в виду сделать? set lastobjectid #picka...   19.7.2012, 11:52
DarkMaster   что-то вроде. но ты не учел, что синтаксис у while...   19.7.2012, 14:22
Скуб   :mine set lastobjectid #pickaxe for #x -2 2 1 for ...   19.7.2012, 14:38
Скуб   Еще вопрос, попробовал с репитом: :body set #ore...   19.7.2012, 16:03
DarkMaster   Я не вижу текста ошибки. return у вас для чего ис...   19.7.2012, 16:11
Скуб   Да уже разобрался))), DarkMaster я скинул вам полн...   19.7.2012, 16:39
Zeleax   DarkMaster приказ принял? ))   19.7.2012, 16:42
Скуб   Это не приказ, это просьба посмотреть полный макро...   19.7.2012, 16:50
Скуб   да я прочитал, но не понял всё равно, в ЛС просмот...   19.7.2012, 17:45
DarkMaster   а зачем вам break в while? Повторюсь.   19.7.2012, 18:08
Microsoft   Помогите с таргетом. Скрипт на мининг, копает вокр...   16.9.2012, 22:03
WKnight   Проверь чему равно LastStaticType, LastObjectType,...   18.9.2012, 3:10
Microsoft   Нашел в чем проблема, она была все таки в пилоте. ...   18.9.2012, 20:16


Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 2.7.2025, 1:32
Designed by Nickostyle