Помогите со скриптом

[Ms_Metos]

Доброе времени суток.
Помогите пожалуйста доработать скрипт,у меня не получается сделать так что бы Чар ходил по кругу ( цыклично )
Тоесть что бы после 33 шагов вверх (Mineup,по скрипту) Он делал шаг Вправо и вниз, далее 33 шага Вниз (Minedown )
и шаг влево и вверх ) и обратно на mineup
Скрипт писал сам ( неделю назад попытался научиться скриптингу ) , но вот довести до полной автономии не могу (( заранее благодарен
Сам скрипт :
sub minedown()
VAR Kirka = '0x0E85'
VAR MaxVes = 5500
VAR TileNum = '-1'
VAR t, k
VAR MaxTime = 100
VAR ms1 = "There's no ore left there"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "I can't see that"
VAR ms8 = "You can't mine or dig anything there"


While NOT UO.Life > 0
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k - 1
wait(2000)
uo.waittargetself()
uo.UseType('0x0E85')
repeat
wait(500)
until UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
If UO.InJournal(ms1)OR UO.InJournal(ms8) OR UO.InJournal(ms7) then
VAR i
uo.print("Èäåì âíèç")
for i=1 to 1
UO.Print( ' Øàã Âíèç ' + str( i ))
godown()
else
minedown()
Endif
endsub

sub godown()
uo.press(34)
wait(500)
minedown()
endsub





sub mineup()
VAR Kirka = '0x0E85'
VAR MaxVes = 5500
VAR TileNum = '-1'
VAR t, k
VAR MaxTime = 100
VAR ms1 = "There's no ore left there"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
VAR ms8 = "You can't mine or dig anything there"


While NOT UO.Life > 0
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k - 1
wait(2000)
uo.waittargetself()
uo.UseType('0x0E85')
repeat
wait(500)
until 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.InJournal(ms1)OR UO.InJournal(ms8)then
VAR i
uo.print("Èäåì ââåðõ")
for i=1 to 1
UO.Print( ' Øàã ââåðõ ' + str( i ))
goup()
else
mineup()
Endif
endsub

sub goup()
uo.press(36)
wait(500)
mineup()
endsub

[Mirage]

выкинул бы ты ЭТО и поискал нормальный скрипт. Тут новый проще написать чем ошибки исправлять.
Пользуйся второй строкой моей подписи для устранения ошибок в циклах.


PS что за привычка как только начать изучать язык писать либо добывающих ботов либо охотников? Начните с лута, лоров и крафтов.

[RL_ka]

Особенно мне нравится вот это цикл

Code: Select all

While NOT UO.Life > 0 
wend 

[Ms_Metos]

выкинул бы ты ЭТО и поискал нормальный скрипт. Тут новый проще написать чем ошибки исправлять.
Пользуйся второй строкой моей подписи для устранения ошибок в циклах.

я Не просил оценивать или исправлять Мой скрипт,попросил указать где написать цикл в 33 раза для перехода на другую часть скрипта

PS что за привычка как только начать изучать язык писать либо добывающих ботов либо охотников? Начните с лута, лоров и крафтов.

Если у меня появилась нужда в скрипте и я не нашел то что искал,то мне проще попытаться самому,а не кляньчить
Мой скрипт работает Именно так как Мне надо(за исключением того о чем я сдесь написал )
,и мне По барабану сколько там Ошибок и т.д. !

[Ms_Metos]

Особенно мне нравится вот это цикл

Друг тебе может нравится все что угодно.
Но перед тем как смеяться над чем либо,научись Проявлять уважение к людям и их работам,даже если они не такие как тебе хотелось бы
Не удивлюсь если ты только и умеешь , что писать подобные не заурядные сообщения

[RL_ka]

Особенно мне нравится вот это цикл

Друг тебе может нравится все что угодно.
Но перед тем как смеяться над чем либо,научись Проявлять уважение к людям и их работам,даже если они не такие как тебе хотелось бы
Не удивлюсь если ты только и умеешь , что писать подобные не заурядные сообщения

ты можешь дерзить тут сколь угодно много, и не слушать наши советы, но ты пойми одну простую вещь - помочь переделать скрипт который изначально написан очень плохо - очень тяжело. Выстави как нужно отступы, оформи как полагается и тебе тут же все помогут.

Просто перебирать сотни строк сплошного непонятного текста нет абсолютно никакого желания ни у кого. Сделай как полагается, и ты найдёшь все ответы на свои вопросы:)

зы. Да, я совсем не умею писать скрипты и захожу на форум просто чтобы оскорблять людей.

[RL_ka]

Чтобы оформление сохранялось в сообщении на форуме нужно выделять твой код и нажимать на Code например...

[Mirage]

Да без базара, я помогу.

Ставишь, в общем for вар переменная = 1 to сколько тебе надо после суб и туче перед концом скрипта. И все. Будет тебе крутить по 33 раза твое мего творение.

PS Вот ответ достойный стилистике вопроса.

PPS А тебя я запомню. Очень мне тебе понравилось помогать