Yoko
http://forum.yoko.com.ua/

Помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=3&t=17342		 Page 1 of 1
Author:  Ms_Metos [ 2013-10-15 19:08:41 ]
Post subject:  Помогите со скриптом
Доброе времени суток.
Помогите пожалуйста доработать скрипт,у меня не получается сделать так что бы Чар ходил по кругу ( цыклично )
Тоесть что бы после 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
Author:  Mirage [ 2013-10-15 19:54:32 ]
Post subject:  Re: Помогите со скриптом
выкинул бы ты ЭТО и поискал нормальный скрипт. Тут новый проще написать чем ошибки исправлять.
Пользуйся второй строкой моей подписи для устранения ошибок в циклах.


PS что за привычка как только начать изучать язык писать либо добывающих ботов либо охотников? Начните с лута, лоров и крафтов.
Author:  RL_ka [ 2013-10-15 20:45:11 ]
Post subject:  Re: Помогите со скриптом
Особенно мне нравится вот это цикл :D
Code:
While NOT UO.Life > 0 
wend
Author:  Ms_Metos [ 2013-10-16 18:18:12 ]
Post subject:  Re: Помогите со скриптом
Mirage wrote:
выкинул бы ты ЭТО и поискал нормальный скрипт. Тут новый проще написать чем ошибки исправлять.
Пользуйся второй строкой моей подписи для устранения ошибок в циклах.

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

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


Если у меня появилась нужда в скрипте и я не нашел то что искал,то мне проще попытаться самому,а не кляньчить
Мой скрипт работает Именно так как Мне надо(за исключением того о чем я сдесь написал )
,и мне По барабану сколько там Ошибок и т.д. !
Author:  Ms_Metos [ 2013-10-16 18:22:42 ]
Post subject:  Re: Помогите со скриптом
RL_ka wrote:
Особенно мне нравится вот это цикл :D

Друг тебе может нравится все что угодно.
Но перед тем как смеяться над чем либо,научись Проявлять уважение к людям и их работам,даже если они не такие как тебе хотелось бы
Не удивлюсь если ты только и умеешь , что писать подобные не заурядные сообщения
Author:  RL_ka [ 2013-10-16 18:28:57 ]
Post subject:  Re: Помогите со скриптом
Ms_Metos wrote:
RL_ka wrote:
Особенно мне нравится вот это цикл :D

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


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

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

зы. Да, я совсем не умею писать скрипты и захожу на форум просто чтобы оскорблять людей.
Author:  RL_ka [ 2013-10-16 18:37:57 ]
Post subject:  Re: Помогите со скриптом
Чтобы оформление сохранялось в сообщении на форуме нужно выделять твой код и нажимать на Code например...
Author:  Mirage [ 2013-10-16 19:32:35 ]
Post subject:  Re: Помогите со скриптом
Да без базара, я помогу.

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

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

PPS А тебя я запомню. Очень мне тебе понравилось помогать ;)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/