помогите мне вылечиться от goto

[Луций]

я только недавно обнаружил, что болен, но я еще не силен в скриптописании, и сам себе помочь не могу, вот пример:

Code: (clickermann) [Select]

$n=0
checkmail:
GETSCREEN
if(pxl(201,362)=3355443)
   LCLICK(60,399)  // klik
   move(300,500)
   ldown(300,500)
   WAITMS(RND(100,500))
   move(710,500)
   WAITMS(RND(100,500))
   lup(710,500)
   WAITMS(RND(100,500))
   keydown(#ctrl)
   WAITMS(RND(10,50))
   keypress(#c)
   keyup(#ctrl)
else
   WAIT(1)
   $n=$n+1
   if ($n = 15)
      screenshot
      goto(begin)
   end_if
   goto(checkmail)
end_if
этот скрипт проверяет почтовый ящик, и если проверяется слишком долго (что то пошло не так) - идет в бегин

и еще вопрос - где покурить нормальный мануал по языку? справка кликермана у меня не пашет, на форуме нормального руководства я не нашел

[Oraven]

А где begin: ?? Все пишется проще, с использованием цикла и таймера. Цикл работает 15 секунд и прерывается, но если пиксел найден то время снова добавится, если же нет то цикл через 15 сек прервется, сделается снимок и стоп.

Code: (clickermann) [Select]

$time = $_time_t + 15 // таймер на 15 секунд
WHILE($time > $_time_t)
   GETSCREEN
   if(pxl(201,362)=3355443)
      LCLICK(60,399)  // klik
      move(300,500)
      ldown(300,500)
      WAITMS(RND(100,500))
      move(710,500)
      WAITMS(RND(100,500))
      lup(710,500)
      WAITMS(RND(100,500))
      keydown(#ctrl)
      WAITMS(RND(10,50))
      keypress(#c)
      keyup(#ctrl)
      WAITMS(100)
      $time = $_time_t + 15
   else
      WAITMS(100)
   end_if
END_CYC
GETSCREEN
SCREENSHOTEX(0,0, $_xmax,$_ymax, "Ошибка_", 1) // скриншот в JPG
HALT
Н счет справки СПРАВКА НЕ ОТКРЫВАЕТСЯ (решение проблемы)
Я даже онлайн справку прикрутил и в последней версии в папке присутствует файл "Если не открывается справка.txt"
и вот после этого

справка кликермана у меня не пашет, на форуме нормального руководства я не нашел

ну ну...

[Луций]

вот эту ссылку бы рядом с "учебными статьями"

[Луций]

попробовал вставить твой скрипт и долго плевался =)

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

1 если все ок - идем дальше
2 если сайт не загрузился или еще какая фигня - начинаем сначала и сохраняем скрин "фигни"

ваш цикл
1 вечно копирует мыло (1я часть всегда продлевает себя на 15 сек и длится бесконечно)
2 всегда сохраняет скрин с ошибкой

сейчас возьму напильник и доведу до ума

[Луций]

вот что вышло в итоге:

Code: (clickermann) [Select]

// создаем мыло
$time = $_time_t + 15 // таймер
WHILE($time > $_time_t)
   GETSCREEN
   if(pxl(370,362)=3355443)
      ldown(470,500)
      WAITMS(500)
      lup(861,500)
      WAITMS(50)
      keydown(#ctrl)
      WAITMS(50)
      keypress(#c)
      keyup(#ctrl)
      WAITMS(50)
      $time = $_time_t
   else
    wait(1)
    if($time < $_time_t)
    hintpopup("с мылом облом")
    screenshot
    goto(begin)
   end_if
END_CYC
вместо хальта у меня бегин - другого способа перейти в начало без остановки скрипта я не знаю, научил скрипт общаться со мной и сохранять сообщение на скрине

[Vint]

вот что вышло в итоге:

Code: (clickermann) [Select]

// создаем мыло
$time = $_time_t + 15 // таймер
WHILE($time > $_time_t)
   GETSCREEN
   if(pxl(370,362)=3355443)
      ldown(470,500)
      WAITMS(500)
      lup(861,500)
      WAITMS(50)
      keydown(#ctrl)
      WAITMS(50)
      keypress(#c)
      keyup(#ctrl)
      WAITMS(50)
      $time = $_time_t
   else
    wait(1)
    if($time < $_time_t)
    hintpopup("с мылом облом")
    screenshot
    goto(begin)
   end_if
END_CYC
вместо хальта у меня бегин - другого способа перейти в начало без остановки скрипта я не знаю, научил скрипт общаться со мной и сохранять сообщение на скрине

Потерял один END_IF.
И лучше из цикла по GOTO не выпрыгивать.

Code: (clickermann) [Select]

// создаем мыло
$time = $_time_t + 15 // таймер
WHILE($time > $_time_t)
   GETSCREEN
   if(pxl(370,362)=3355443)
      ldown(470,500)
      WAITMS(500)
      lup(861,500)
      WAITMS(50)
      keydown(#ctrl)
      WAITMS(50)
      keypress(#c)
      keyup(#ctrl)
      WAITMS(50)
      $time = 0
   else
      WAITMS(100)
   end_if
END_CYC

IF($time ! 0)
   hintpopup("с мылом облом")
   screenshot
   goto(begin)
END_IF

[Hito]

Я вроде с подпрограммами работать начал, но от гото уйти просто не получается )) Это не возможно наверно )) Иногда надо прервать выполнение подпрограммы и выскочить из нее...

[aden]

Я вроде с подпрограммами работать начал, но от суба уйти просто не получается )) Это не возможно наверно )) Иногда надо прервать выполнение подпрограммы и выскочить из нее...

а ты думал програмировать это как изложение писать? тут вдохновение нужно как это все красиво закрутить чтобы потом не стыдно было =)
в общем нужно продумать алгоритм работы скрипта, и если нужно сложное взаимодействие выстроить зависимости и использовать флаги состояния.

[Hito]

Ну вдохновения у меня столько, что я сутками у компа сижу "в памперсах"  Но мне понимания вашего языка не хватает )) Вот ты сказал - "флаги состояния", например, и всё - у меня дым пошел от головы... 

[aden]

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

это как выход из цикла

Code: (clickermann) [Select]

$flag =0
while($flag=0)
lclick(-1,-1) // долбим куда нить

if(pxl(x,y) = $color)
// е мае до кликались чтото совсем хреново стало, больше кликать не будем
$flag=1
end_if
if(pxl(x,y) = $color2)
// оооо чтото накликали, нормуль пошли дальше
$flag=2
end_cyc

switch($flag)

case(1)
//блин вот это не очень хорошо надо бы это поправить
case(2)
//ништяяяк продолжаем в том же духе, только немного перекурим


[Hito]

Я глубоко признателен тебе за пример, но из него я смог понять только то, что написано зеленым... )))

[Луций]

тут челу нужно геймерским языком обьяснить:

допустим у тебя качается бот, и ему нужно лечится на каче, лечится он должен только когда хп падает ниже определенной цифры, и на это постоянно идет проверка

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

[Hito]

Вот мой пример МОИХ "флагов". Вот это я еще понимаю. Вот если на моем примере вы вставите свои флаги, то возможно я смогу понять эту систему...

Code: (clickermann) [Select]

SUB(dar)
   LOGWRITE ("dar")
   IF($time1 < $_time_t)
      KEYPRESS(189)
      WAITMS(600)
      $time1 = $_time_t + 9
   END_IF
END_SUB


SUB(slepoy boy)
   slepoy boy:
   LOGWRITE ("slepoy boy")
   dar()  // Юзаем тикающюю хилку
   GETSCREEN
   IF_PIXEL_IN(80,64, 80,64, 1930288) // Проверяем минимум ХП перса и если они найдены, то значет перса нужно выводить из слепого боя, в котором он юзает скилы наощупь, так сказать...
      GOTO(1)
   Else // Если ХП перса не проявились, то юзаем минимальные (безоткатные) скилы вслепую.
      BEEP(800,200)
      KEYPRESS(52)
      WAITMS(700)
      KEYPRESS(52)
      WAITMS(700)
      KEYPRESS(52)
      WAITMS(1250)
      GOTO(slepoy boy)
   END_IF
END_SUB

SUB(boy)
   boy:
   LOGWRITE ("boy")
   dar() // Юзаем тикающюю хилку
   GETSCREEN
   IF_PIXEL_IN(571,63, 571,63, 4539822) // Проверяем моба если он на персе, то юзаем скилы ударов.
      GETSCREEN
      IF_PIXEL_IN(588,847, 588,847, 329753) // Рывок
         KEYPRESS(51)
         WAITMS(850)
      Else
         GETSCREEN
         IF_PIXEL_IN(629,847, 629,847, 738459,6791167)  // Тройной 1
            KEYPRESS(52)
            WAITMS(650)
         Else
            GETSCREEN
            IF_PIXEL_IN(629,847, 629,847, 666529) // Тройной 2
               KEYPRESS(52)
               WAITMS(650)
            Else
               GETSCREEN
               IF_PIXEL_IN(629,847, 629,847, 465195) // Тройной 3
                  KEYPRESS(52)
                  WAITMS(1200)
               END_IF
            END_IF
         END_IF
      END_IF
   Else // Если моба нет, то проверяем минимум ХП у перса. Это нужно для того, что если моб уделает перса настолько, что экран затянет красной пеленой, то кликер ослепнет и не будет видеть не только ХП моба, но и ХП перса и скилы.
      GETSCREEN
      IF_PIXEL_IN(80,64, 80,64, 1930288) // Минимум хп
         GOTO(Time Out) // Если ХП перса найдены, а ХП моба мы до этого не нашли, то значит бой окончен и отправляем перса в Time Out
      Else // Если же и ХП перса не найдено, то это значит, что перс в трудном положении, о чем мы сигнализируем и переводим перса в слепой бой, так сказать...
         BEEP(800,200)
         slepoy boy()
      END_IF
   Else
      GOTO(Time Out)
   END_IF
   GOTO(boy)
END_SUB

1:

GETSCREEN
IF_PIXEL_IN(571,63, 571,63, 4539822) // Проверяем - не висит ли на персе моб.
   boy()  // Если висит, то отправляем в boy
Else
   WAITMS(100)
END_IF

Time Out:
LOGWRITE ("Time Out")

GETSCREEN
IF_PIXEL_IN(749,645, 749,645, 16449535) // Дроп
   KEYPRESS(70)
   WAITMS(2000)
Else
   GETSCREEN
   COLORMODE(6)
   IF_PICTURE_IN (2,44, 320,96, "хп-мп.bmp", -1, 100)  // Проверяем полное восстановление ХП и МП
      KEYPRESS(69) // Если восстановилось, то берем моба в таргет.
      GETSCREEN
      IF_PIXEL_IN(571,63, 571,63, 4539822) // Если моб в таргете, то отправляем перса в boy
         boy()
      Else
         GOTO(1) // Если моб в таргете не появился, то в Time Out
      END_IF
   Else // Если ХП, или МП не восстановлены (как и сразу после боя), то не теряем время и проверяем наличие бафов.
      GETSCREEN
      COLORMODE(6)
      IF_PICTURE_IN (1,83, 353,163, "второе дыхание.bmp", -1, 100) // Если бафы в норме, то ничего не делаем и ждем дальше восстановления ХП и МП, Предварительно проверив, не сагрился ли на нас какой-нибудь моб (скрипт перейдет на позицию 1)
      Else // Если бафы слетели, то бафаемся.
         KEYDOWN (16)
         WAITMS (50)
         KEYPRESS (189)
         WAITMS (50)
         KEYUP (16)
         WAITMS(1300)
      END_IF
   END_IF
END_IF
WAITMS(100)

[Vint]

Вот мой пример МОИХ "флагов". Вот это я еще понимаю. Вот если на моем примере вы вставите свои флаги, то возможно я смогу понять эту систему...

А я тебе уже показывал на твоём примере http://crapware.aidf.org/forum/index.php?topic=1406.msg6995#msg6995

стр 71, 82, 94-96, 147, 153, 166-169

[Hito]

Вот мой пример МОИХ "флагов". Вот это я еще понимаю. Вот если на моем примере вы вставите свои флаги, то возможно я смогу понять эту систему...

А я тебе уже показывал на твоём примере http://crapware.aidf.org/forum/index.php?topic=1406.msg6995#msg6995

стр 71, 82, 94-96, 147, 153, 166-169

Ты прости, но я там вот этих команд - "boy = 1", "slepoy_boy = 1", "WHILE(boy = 1)", "WHILE(slepoy_boy = 1)" - вообще не понял... И к тому же я не понял, какое отношение эти команды относятся к вопросу, который мы обсуждаем СЕЙЧАС...
Вы простите меня, ребят. С одной стороны очень хочется все это понять, но с другой и вас тут раздражать не охота своей деревянностью...