Messages

1

Общие вопросы / Re: Привязана к окну на руоффе lineage 2

« on: April 18, 2015, 06:45:40 AM »

Эксплуатировать кликерман можно, предварительно убрав название окна и редактора с помощью менеджера окон.
Далее пс/2 режим (у меня работают только клавиши). 2 или полтора года назад innova усовершенствовала клиент игры и теперь его нельзя закрепить т.к. hwnd = 0 . Следовательно кликер просто не видит окно. Какие будут предложения многоуважаемые гуру?

2

Использование / Re: В чём ошибка?

« on: September 23, 2014, 08:39:38 PM »

Спасибо, но многого не понял к сожалению, попробуй так, сначала кусок моего кода, а потом его реализация в твоём варианте. Очень благодарен за замечания)
с колормодом плохо знаком, и не знаю как поведёт себя тот или иной цвет, не суть, просто переписал какие цвета на полоске и всего то)
Конструкция:
ИФ(условие)
действие
элсэ
энд_иф
Если нет ничего в элсе то его писать не обязательно, я так понял?)
Я не объявляю переменную, а обнуляю её, но не знаю верно ли я сделал))
Если что пишите указывайте мои ошибки, буду учиться)))

3

Использование / Re: В чём ошибка?

« on: September 23, 2014, 07:54:31 AM »

Мой код эволюционировал во в такой
Подскажите, может не недочёты, ошибки какие то допустил

Code: (clickermann) [Select]

#ps2_mouse
#ps2_keyboard
#logfile
KEYPRESS(#F1)
WAIT(1)
getscreen
SCANPICTURE ($var, 0, 0, 1365, 767, "3x3.bmp")//поиск заголовка рыбалки на экране
$y = arrpop($var)
$x = arrpop($var)
$X = int($x) + 1   // Координаты точки от которой
$Y = int($y) + 1   // ищется полоска HP рыбы
//print($x,":", $y)  //log
$Xn = int($X)-93   //Координаты начала полоски(проверка наличия/цвета)
$Yn = int($Y)+244
$Xnp = int($X)-91
$Ynp = int($Yn)
$Xkp = int($X)+134
$Ykp = int($Yn)
sub(LONGBLUE, $LB)  //функция считает длинну синей полоски
   GETSCREEN
   $LB = 0
   $LB = PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10446592)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10118913)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10249473)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10315265)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10315264)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10381056)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10446848)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10447104)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10447360)
   $LB = $LB+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10118401)
end_sub
sub(LONGRED, $LR) //анологично красной
   GETSCREEN
   $LR = 0
   $LR = PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10446592)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10118913)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10249473)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10315265)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10315264)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10381056)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10446848)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10447104)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10447360)
   $LR = $LR+PXLCOUNT($Xnp,$Ynp,$Xkp,$Ykp, 10118401)
end_sub
sub(randomtick)
   IF($D > 0)             //
      $F = $B - $D        //
      IF($F > 0)          //
         $A = $A+$F       //     поправка на случайный тик
      ELSE                //
      END_IF              //
   ELSE                   //
   END_IF                 //
end_sub
//print("начало/конец ловли")
M5:
$A = 0
$B = 0
$C = 0
$D = 0
$F = 0
GETSCREEN
IF(PXL($X,$Y) = 14406087)
   IF((PXL($X,$Y) = 14406087)&($T > 7)
      Sound("4.wav")
      HALT
   else
   end_if
   M1:
   GETSCREEN
   IF((PXL($Xn,$Yn) = 7886082)|(PXL($Xn,$Yn) = 401020) //???????? ?? ????????? ???????
      M2:
      GETSCREEN
      IF((PXL($Xn,$Yn) = 7886082)|(PXL($Xn,$Yn) = 401020))
         IF(PXL($Xn,$Yn) = 7886082)  // если полоса синяя
            LONGBLUE($B)
    randomtick()
    IF($C ! 1)
               inc($C, 1)
               $A = $B
               KEYPRESS(#F2)
               LONGBLUE($D)
               WAIT(1)
               GOTO(M2)
            ELSE
            END_IF
            IF($A>$B)
               $A = $B
       KEYPRESS(#F2)
       LONGBLUE($D)
               WAIT(1)
               GOTO(M2)
            ELSE
               $A = $B
               KEYPRESS(#F3)
       LONGBLUE($D)
               WAIT(1)
               GOTO(M4)
            END_IF
         ELSE         //иначе
            IF(PXL($Xn,$Yn) = 401020) //если красная
               LONGRED($B)
               randomtick()
               IF($C ! 1)
                  inc($C, 1)
                  $A = $B
                  KEYPRESS(#F2)
  LONGRED($D)
                  WAIT(1)
                  GOTO(M2)
               ELSE
               END_IF
               IF($A>$B)
                  $A = $B
                  KEYPRESS(#F2)
                  LONGRED($D)
                  WAIT(1)
                  GOTO(M2)
               ELSE
                  $A = $B
                  KEYPRESS(#F3)
  LONGRED($D)
                  WAIT(1)
                  GOTO(M4)
               END_IF
            ELSE
               GOTO(M5)
            END_IF   
         END_IF //конец ветки красный/синий
      ELSE
         GOTO(M5)
      END_IF  //(проверка начала полоски)конец проверки на красный/синий
      M4:
      GETSCREEN
      IF((PXL($Xn,$Yn) = 7886082) | (PXL($Xn,$Yn) = 401020)) // красн./син.
         IF(PXL($Xn,$Yn) = 7886082)// синяя
            LONGBLUE($B)
            randomtick()
    IF($A>$B)
               $A = $B
               KEYPRESS(#F3)
       LONGBLUE($D)
               WAIT(1)
               GOTO(M4)
            ELSE
               $A = $B
               KEYPRESS(#F2)
               LONGBLUE($D)
               WAIT(1)
               GOTO(M2)
            END_IF
         ELSE
            IF(PXL($Xn,$Yn) = 401020) //красная
               LONGRED($B)
               randomtick()
       IF($A>$B)
                  $A = $B
                  KEYPRESS(#F3)
                  LONGRED($D)
                  WAIT(1)
                  GOTO(M4)
               ELSE
                  $A = $B
                  KEYPRESS(#F2)
                  LONGRED($D)
                  WAIT(1)
                  GOTO(M2)
               END_IF
            ELSE
               GOTO(M5)
            END_IF
         END_IF
      ELSE    
         GOTO(M5) // если нет полосы вообще
      END_IF
   ELSE
      WAIT(1)  // ожидание появления полоски
      inc($T,1)
      GOTO(M5)
   END_IF   
ELSE
   M6:                                 //
   GETSCREEN                           //
   IF(PXL($X,$Y) = 14406087)           //  ожидание, когда исчезнит окно рыбалки
      WAITMS(100)                      //  после вылова рыбы
      GOTO(M6)                         //
   ELSE                                //
   END_IF                              //
   getscreen
   SCANPICTURE ($var1, 0, 0, 1365, 767, "713x201.bmp")
   $Ry1 = arrpop($var1)
   SCANPICTURE ($var1, 0, 0, 1365, 767, "646x202.bmp")
   $Ry2 = arrpop($var1)
   GETSCREEN
   IF(($Rx1 = 201) & ($Rx2 = 202))//IF(PXL(501, 227) = 4671303)    //проверка на русалку
      sound("1.wav")
      Keypress(#F8)
      WAITMS(100)
      getscreen
      SCANPICTURE ($var1, 0, 0, 1365, 767, "нагр.bmp")
      $Ry = arrpop($var1)
      $Rx = arrpop($var1)
      $RNx = int($Rx) - 112
      $RNy = int($Ry) + 156
      Waitms(100)
      MOVE($RNx,$RNy)
      DIALOGBOX("Внимание вы поймали русалку, заберите награду, отойдите от неё, станьте в положение в котором можно рыбачить и нажмите ОК",0,4)
   ELSE
      WAIT(2)
      KEYPRESS(#F1)
      GOTO(M5)
   END_IF
   WAIT(2)
   KEYPRESS(#F1)
   GOTO(M5)
END_IF
halt // for single run

4

Использование / Re: В чём ошибка?

« on: September 17, 2014, 11:51:36 AM »

можно ли использовать переменные вместо координат вот так например:

Code: (clickermann) [Select]

PXL($X, $Y)?

5

Использование / Re: Зависает/Не запускается скрипт почему?

« on: August 06, 2014, 09:15:28 AM »

Т.е. просто внутренние свитчи поменять на IF? Жаль что так как написал - нельзя(

6

Использование / Зависает/Не запускается скрипт почему?

« on: August 05, 2014, 10:18:35 PM »

Code: (clickermann) [Select]

#name "Ñóììîí"
#ps2_keyboard
$V=DIALOGBOX("Ïåðâîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
   $ARR[0]=1
CASE(4)
   $ARR[0]=2
CASE(5)
   $ARR[0]=3
END_SWITCH
$V=DIALOGBOX("Âòîðîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
   $ARR[1]=1
CASE(4)
   $ARR[1]=2
CASE(5)
   $ARR[1]=3
END_SWITCH
$V=DIALOGBOX("Òðåòüåìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
   $ARR[2]=1
CASE(4)
   $ARR[2]=2
CASE(5)
   $ARR[2]=3
END_SWITCH
$V=DIALOGBOX("×åòâ¸ðòîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
   $ARR[3]=1
CASE(4)
   $ARR[3]=2
CASE(5)
   $ARR[3]=3
END_SWITCH
$V=DIALOGBOX("Ïÿòîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
   $ARR[4]=1
CASE(4)
   $ARR[4]=2
CASE(5)
   $ARR[4]=3
END_SWITCH
$V=DIALOGBOX("Øåñòîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
   $ARR[5]=1
CASE(4)
   $ARR[5]=2
CASE(5)
   $ARR[5]=3
END_SWITCH
WAIT(1)    
M1:
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
IF($A>1199)
   $A=0
   KEYPRESS(#F5)
   WAIT(15)
   $A=$A+15
   $B=$B+15
   $C=$C+15
   $D=$D+15
   FOR($I, $I<5)
      SWITCH($I)
      CASE(0)
         SWITCH($ARR[$I])
         CASE(1)
            KEYDOWN(#ALT)
            KEYPRESS(#F9)
            KEYUP(#ALT)
            KEYPRESS(#F7)
            WAIT(2)
         CASE(2)
            KEYDOWN(#ALT)
            KEYPRESS(#F8)
            KEYUP(#ALT)
            KEYPRESS(#F7)
            WAIT(2)
         CASE(3)
            KEYDOWN(#ALT)
            KEYPRESS(#F7)
            KEYUP(#ALT)
            KEYPRESS(#F7)
            WAIT(2)
         END_SWITCH
         $A=$A+2
         $B=$B+2
         $C=$C+2
         $D=$D+2
      CASE(1)
         SWITCH($ARR[$I])
         CASE(1)
            KEYDOWN(#ALT)
            KEYPRESS(#F9)
            KEYUP(#ALT)
            KEYPRESS(#F8)
            WAIT(2)
         CASE(2)
            KEYDOWN(#ALT)
            KEYPRESS(#F8)
            KEYUP(#ALT)
            KEYPRESS(#F8)
            WAIT(2)
         CASE(3)
            KEYDOWN(#ALT)
            KEYPRESS(#F7)
            KEYUP(#ALT)
            KEYPRESS(#F8)
            WAIT(2)
         END_SWITCH
$A=$A+2
         $B=$B+2
         $C=$C+2
         $D=$D+2
      CASE(2)
         SWITCH($ARR[$I])
         CASE(1)
            KEYDOWN(#ALT)
            KEYPRESS(#F9)
            KEYUP(#ALT)
            KEYPRESS(#F9)
            WAIT(2)
         CASE(2)
            KEYDOWN(#ALT)
            KEYPRESS(#F8)
            KEYUP(#ALT)
            KEYPRESS(#F9)
            WAIT(2)
         CASE(3)
            KEYDOWN(#ALT)
            KEYPRESS(#F7)
            KEYUP(#ALT)
            KEYPRESS(#F9)
            WAIT(2)
         END_SWITCH
         $A=$A+2
         $B=$B+2
         $C=$C+2
         $D=$D+2
      CASE(3)
         SWITCH($ARR[$I])
         CASE(1)
            KEYDOWN(#ALT)
            KEYPRESS(#F9)
            KEYUP(#ALT)
            KEYPRESS(#F10)
            WAIT(2)
         CASE(2)
            KEYDOWN(#ALT)
            KEYPRESS(#F8)
            KEYUP(#ALT)
            KEYPRESS(#F10)
            WAIT(2)
         CASE(3)
            KEYDOWN(#ALT)
            KEYPRESS(#F7)
            KEYUP(#ALT)
            KEYPRESS(#F10)
            WAIT(2)
         END_SWITCH
         $A=$A+2
         $B=$B+2
         $C=$C+2
         $D=$D+2
      CASE(4)
         SWITCH($ARR[$I])
         CASE(1)
            KEYDOWN(#ALT)
            KEYPRESS(#F9)
            KEYUP(#ALT)
            KEYPRESS(#F11)
            WAIT(2)
         CASE(2)
            KEYDOWN(#ALT)
            KEYPRESS(#F8)
            KEYUP(#ALT)
            KEYPRESS(#F11)
            WAIT(2)
         CASE(3)
            KEYDOWN(#ALT)
            KEYPRESS(#F7)
            KEYUP(#ALT)
            KEYPRESS(#F11)
            WAIT(2)
         END_SWITCH
         $A=$A+2
         $B=$B+2
         $C=$C+2
         $D=$D+2
      CASE(5)
         SWITCH($ARR[$I])
         CASE(1)
            KEYDOWN(#ALT)
            KEYPRESS(#F9)
            KEYUP(#ALT)
            KEYPRESS(#F12)
            WAIT(2)
         CASE(2)
            KEYDOWN(#ALT)
            KEYPRESS(#F8)
            KEYUP(#ALT)
            KEYPRESS(#F12)
            WAIT(2)
         CASE(3)
            KEYDOWN(#ALT)
            KEYPRESS(#F7)
            KEYUP(#ALT)
            KEYPRESS(#F12)
            WAIT(2)
         END_SWITCH
         $A=$A+2
         $B=$B+2
         $C=$C+2
         $D=$D+2
      END_SWITCH
   END_CYC
ELSE
   IF($B>539)
      $B=0
      KEYPRESS(#F4)
   ELSE
      IF($C>239)
         $C=0
KEYPRESS(#F6)
WAIT(5)
$A=$A+5
         $B=$B+5
         $C=$C+5
         $D=$D+5
      ELSE
         IF($D>8)
    $D=0
            KEYPRESS(#F1)
    KEYPRESS(#F2)
    KEYPRESS(#F3)
         ELSE
            WAIT(1)
            $A=$A+1
            $B=$B+1
            $C=$C+1
            $D=$D+1
            GOTO(M1)
         END_IF
         GOTO(M1)
      END_IF
      GOTO(M1)
   END_IF
   GOTO(M1)
END_IF
GOTO(M1)
halt


7

Использование / Re: В чём ошибка?

« on: July 31, 2014, 02:16:16 AM »

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

Code: (clickermann) [Select]

#ps2_keyboard
#ps2_mouse
M5:
GETSCREEN
IF((PXL(69, 454) = 7969453)&(PXL(62, 469) = 7969453)&(PXL(97, 484) = 7969712))
   SOUND("play.wav")
   WAIT(1)
   GOTO(M7)
ELSE
END_IF
P1:
IF(($N=0)&($D=0))
   KEYPRESS(#F9)
   WAITMS(100)
   GETSCREEN
      IF(PXL(204, 484) = 7903919)
         $D=1
         KEYPRESS(#F6)
      ELSE
         IF(PXL(199, 487) = 7969712)
            $N=1
            KEYPRESS(#F7)
         ELSE
            GOTO(P1)
         END_IF
      END_IF
ELSE
   IF($D=1)
      KEYPRESS(#F9)
      WAITMS(100)
      GETSCREEN
      IF(PXL(204, 484) = 7903919)
         GOTO(P2)
      ELSE
         $D=0
         KEYPRESS(#F6)
         WAITMS(100)
         GOTO(P1)
      END_IF
   ELSE
      IF($N=1)
         KEYPRESS(#F9)
         WAITMS(100)
         GETSCREEN
IF(PXL(199, 487) = 7969712)
            GOTO(P2)
         ELSE
            $N=0
            KEYPRESS(#F7)
            WAITMS(100)
            GOTO(P1)
         END_IF
      ELSE
         GOTO(P1)
      END_IF
   END_IF
END_IF     
P2:
KEYPRESS(#F1)
$C=0
$A=0
$B=0
GETSCREEN
IF(PXL(1197,43) = 14406087) //проверка на появление окна рыбалки
   M1:
   GETSCREEN
   IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020) //проверка на появление полоски
      M2:
      GETSCREEN
      IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020))
         IF(PXL(1104,287) = 7886082)  // Если полоса синяя
            $B = PXLCOUNT(1106,287,1331,287, 10446592)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10118913)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10249473)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10315265)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10315264)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10381056)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10446848)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10447104)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10447360)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10118401)
            IF($C ! 1)
               $C = $C + 1
               $A = $B
               KEYPRESS(#F2)
               WAITMS(1)
               GOTO(M2)
            ELSE
            END_IF
            IF($A>$B)
               $A = $B
               KEYPRESS(#F2)
               WAITMS(1)
               GOTO(M2)
            ELSE
               $A = $B
               KEYPRESS(#F3)
               WAITMS(1)
               GOTO(M4)
            END_IF
         ELSE         //иначе
            IF(PXL(1104,287) = 401020) //если полоса красная
               $B = PXLCOUNT(1106,287,1331,287, 468366)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468109)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468110)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468111)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468112)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468113)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468369)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468368)
               IF($C ! 1)
                  $C = $C + 1
                  $A = $B
                  KEYPRESS(#F2)
                  WAITMS(1)
                  GOTO(M2)
               ELSE
               END_IF
               IF($A>$B)
                  $A = $B
                  KEYPRESS(#F2)
                  WAITMS(1)
                  GOTO(M2)
               ELSE
                  $A = $B
                  KEYPRESS(#F3)
                  WAITMS(1)
                  GOTO(M4)
               END_IF
            ELSE
               GOTO(M5)
            END_IF   
         END_IF //конец ветки красный/синий
      ELSE
         GOTO(M5)
      END_IF  //(проверка начала полоски)конец проверки на красный/синий
      M4:
      GETSCREEN
      IF((PXL(1104,287) = 7886082) | (PXL(1104,287) = 401020))
         IF(PXL(1104,287) = 7886082)
            $B = PXLCOUNT(1106,287,1331,287, 10446592)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10118913)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10249473)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10315265)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10315264)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10381056)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10446848)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10447104)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10447360)
            $B = $B+PXLCOUNT(1106,287,1331,287, 10118401)
            IF($A>$B)
               $A = $B
               KEYPRESS(#F3)
               WAITMS(1)
               GOTO(M2)
            ELSE
               $A = $B
               KEYPRESS(#F2)
               WAITMS(1)
               GOTO(M4)
            END_IF
         ELSE
            IF(PXL(1104,287) = 401020) //если полоса красная
               $B = PXLCOUNT(1106,287,1331,287, 468366)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468109)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468110)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468111)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468112)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468113)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468369)
               $B = $B+PXLCOUNT(1106,287,1331,287, 468368)
               IF($A>$B)
                  $A = $B
                  KEYPRESS(#F3)
                  WAITMS(1)
                  GOTO(M2)
               ELSE
                  $A = $B
                  KEYPRESS(#F2)
                  WAITMS(1)
                  GOTO(M4)
               END_IF
            ELSE
               GOTO(M5)
            END_IF
         END_IF
      ELSE    
         GOTO(M5) // если полоски нет вообще
      END_IF
   ELSE
      WAIT(1)
      GOTO(M5)
   END_IF
ELSE
   M6:
   GETSCREEN
   IF(PXL(1197,43) = 14406087)
      WAITMS(100)
      GOTO(M6)
   ELSE
   END_IF
   GETSCREEN
   IF(PXL(501, 227) = 4671303)
      WAITMS(5000)
      KEYPRESS(#F8) //макрос на взятие в цель русалки
      WAITMS(2000)
      GETSCREEN
      IF(PXL(1047,300) = 13748415)
         MOVE(910,451)
         WAITMS(2000) //вот сюда нужно влепить клик мышкой, хотя я и отключал usb мышь - пс2 тачпад всё равно не нажимает, а так же только выполняет MOVE(x,y).
         GETSCREEN
         IF((PXL(32, 482) = 65535)|(PXL(1047,300) = 13748415)) //проверка получил ли я  награду или оказалась ли русалка пустой
            KEYPRESS(#ESC)
            WAITMS(10)
            KEYPRESS(#ESC)
            WAITMS(10)
            KEYPRESS(#UP)
            WAIT(1)
            GOTO(M5)
         ELSE
         END_IF   
      ELSE   
         WAIT(2)
         GOTO(M5)
      END_IF
   ELSE
      WAIT(2)
      GOTO(M5)
   END_IF
   WAIT(2)
   GOTO(M5)
END_IF   
M7:
IF($D=1)
   KEYPRESS(#F6)
ELSE
   IF($N=1)
      KEYPRESS(#F7)
   ELSE
   END_IF
END_IF
HALT


8

Использование / Re: В чём ошибка?

« on: July 21, 2014, 01:09:00 PM »

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

Code: (clickermann) [Select]

#ps2_keyboard
#ps2_mouse
#logfile
M5:
DEFINE($C, 0)
DEFINE($A, 0)
DEFINE($Blue, 0)
GETSCREEN
IF(PXL(1197,43) = 14406087) //ïðîâåðêà íà ïîÿâëåíèå îêíà ðûáàëêè
   M1:
   GETSCREEN
   IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020) //ïðîâåðêà íà ïîÿâëåíèå ïîëîñêè
M2:
      GETSCREEN
IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020))
   IF(PXL(1104,287) = 7886082)  // Åñëè ïîëîñà ñèíÿÿ
            $Blue = PXLCOUNT(1106,287,1331,287, 10446592)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118913)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10249473)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315265)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315264)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10381056)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10446848)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447104)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447360)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118401)
            IF($C ! 1)
               $C = $C + 1
               $A = $Blue
               KEYPRESS(#F2)
       WAITMS(2000)
               GOTO(M2)
            ELSE
            END_IF
            IF($A>$Blue)
               LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
               KEYPRESS(#F2)
               WAITMS(2000)
               GOTO(M2)
            ELSE
               LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
               KEYPRESS(#F3)
               WAITMS(2000)
               GOTO(M4)
            END_IF
         ELSE         //èíà÷å
      IF(PXL(1104,287) = 401020) //åñëè ïîëîñà êðàñíàÿ
               $Blue = PXLCOUNT(1106,287,1331,287, 468366)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468109)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468110)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468111)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468112)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468113)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468369)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468368)
               IF($C ! 1)
                  $C = $C + 1
                  $A = $Blue
                  KEYPRESS(#F2)
          WAITMS(2000)
                  GOTO(M2)
                  ELSE
                  END_IF
IF($A>$Blue)
                  LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
                  KEYPRESS(#F2)
        WAITMS(2000)
                  GOTO(M2)
               ELSE
                  LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
                  KEYPRESS(#F3)
                  WAITMS(2000)
                  GOTO(M4)
               END_IF
            ELSE
   GOTO(M5)
            END_IF   
   END_IF //êîíåö âåòêè êðàñíûé/ñèíèé
      ELSE
         GOTO(M5)
END_IF  //êîíåö ïðîâåðêè íà êðàñíûé/ñèíèé
      M4:
      GETSCREEN
IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020))
         IF(PXL(1104,287) = 7886082)
            $Blue = PXLCOUNT(1106,287,1331,287, 10446592)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118913)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10249473)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315265)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315264)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10381056)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10446848)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447104)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447360)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118401)
            IF($A>$Blue)
               LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
               KEYPRESS(#F3)
               WAITMS(2000)
               GOTO(M2)
            ELSE
               LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
               KEYPRESS(#F2)
               WAITMS(2000)
               GOTO(M4)
            END_IF
         ELSE
    IF(PXL(1104,287) = 401020) //åñëè ïîëîñà êðàñíàÿ
               $Blue = PXLCOUNT(1106,287,1331,287, 468366)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468109)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468110)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468111)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468112)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468113)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468369)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468368)
               IF($A>$Blue)
                  LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
$A = $Blue
                  KEYPRESS(#F3)
        WAITMS(2000)
                  GOTO(M2)
               ELSE
LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
                  $A = $Blue
                  KEYPRESS(#F2)
                  WAITMS(2000)
                  GOTO(M4)
               END_IF
            ELSE
GOTO(M5)
            END_IF 
   END_IF
      ELSE    
   GOTO(M5) // åñëè ïîëîñêè íåò âîîáùå
END_IF
ELSE
      WAIT(1)
      GOTO(M5)
   END_IF
ELSE
   IF(PXL(685, 195) = 12377059)
      WAITMS(10)
      KEYSTRING(/target)
      KEYPRESS(32)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYDOWN(#SHIFT)
      KEYPRESS(#p)
      KEYUP(#SHIFT)
      KEYSTRING(jkjnfz)
      KEYDOWN(#SHIFT)
      KEYPRESS(#h)
      KEYUP(#SHIFT)
      KEYSTRING(ecfkrf)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYPRESS(#ENTER)
      KEYSTRING(/target)
      KEYPRESS(32)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYDOWN(#SHIFT)
      KEYPRESS(#p)
      KEYUP(#SHIFT)
      KEYSTRING(jkjnfz)
      KEYDOWN(#SHIFT)
      KEYPRESS(#h)
      KEYUP(#SHIFT)
      KEYSTRING(ecfkrf)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYPRESS(#ENTER) //íàáðàòü â ÷àò /target Çîëîòàÿ Ðóñàëêà 2 ðàçà, ó÷èòûâàÿ ñìåíó ÿçûêîâ. (âî âðåìÿ ðàáîòû ìàêðîñà äîëæåí áûòü âêëþ÷¸ííûìè ðóññêèé ÿçûê)
      WAITMS(500)
      GETSCREEN
      IF(PXL(1347,470) = 13748415)
         MOVE(1250,602)
         WAITMS(500)
         KEYPRESS(#ESC)
         WAITMS(10)
         KEYPRESS(#ESC)
         WAITMS(10)
         KEYPRESS(#F1)
         WAIT(2)
GOTO(M5)
      ELSE
         KEYPRESS(#F1)
         WAIT(2)
         GOTO(M5)
      END_IF
   ELSE
      KEYPRESS(#F1)
      WAIT(2)
      GOTO(M5)
   END_IF
   KEYPRESS(#F1)
   WAIT(2)
   GOTO(M5)
END_IF


9

Использование / Re: В чём ошибка?

« on: July 21, 2014, 09:12:54 AM »

Я модифицировал код, (оказывается полоска меняет цвет на красный и нужно всё делать наоборот) и удалять GOTO в той версии кода может быть нужно было, но в этой нужно чтобы GOTO был на месте.

Code: (clickermann) [Select]

#ps2_keyboard
#ps2_mouse
#logfile
M5:
DEFINE($C, 0)
DEFINE($A, 0)
DEFINE($Blue, 0)
GETSCREEN
IF(PXL(1197,43) = 14406087) //проверка на окно рыбалки
   M1:
   GETSCREEN
   IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020) //проверка на полосу
      M2:
      GETSCREEN
      IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020))
         IF(PXL(1104,287) = 7886082)  // если полоса синяя
            $Blue = PXLCOUNT(1106,287,1331,287, 10446592)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118913)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10249473)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315265)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315264)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10381056)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10446848)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447104)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447360)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118401)
            IF($C ! 1)
               $C = $C + 1
               $A = $Blue
               KEYPRESS(#F2)
       WAITMS(2000)
               GOTO(M2)
            ELSE
            END_IF
            IF($A>$Blue)
               LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
       $A = $Blue
               KEYPRESS(#F2)
               WAITMS(2000)
               GOTO(M2)
            ELSE
               LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
       $A = $Blue
               KEYPRESS(#F3)
               WAITMS(2000)
               GOTO(M4)
            END_IF
         ELSE         //иначе
    IF(PXL(1104,287) = 401020) //если красная
               $Blue = PXLCOUNT(1106,287,1331,287, 468366)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468109)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468110)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468111)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468112)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468113)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468369)
               $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468368)
               IF($C ! 1)
                  $C = $C + 1
                  $A = $Blue
                  KEYPRESS(#F2)
          WAITMS(2000)
                  GOTO(M2)
                  ELSE
                  END_IF
                  IF($A>$Blue)
                     LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
             $A = $Blue
                     KEYPRESS(#F2)
                 WAITMS(2000)
                     GOTO(M2)
                  ELSE
                     LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
     $A = $Blue
                     KEYPRESS(#F3)
                     WAITMS(2000)
                     GOTO(M4)
                  END_IF
               ELSE
          GOTO(M5)
               END_IF   
   END_IF
      ELSE
          GOTO(M5)
      END_IF
      M4:
      GETSCREEN
      IF((PXL(1104,287) = 7886082)|(PXL(1104,287) = 401020))
         IF(PXL(1104,287) = 7886082)
            $Blue = PXLCOUNT(1106,287,1331,287, 10446592)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118913)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10249473)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315265)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315264)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10381056)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10446848)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447104)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447360)
            $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118401)
            IF($A>$Blue)
               LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
       $A = $Blue
               KEYPRESS(#F3)
               WAITMS(2000)
               GOTO(M2)
            ELSE
               LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
       $A = $Blue
               KEYPRESS(#F2)
               WAITMS(2000)
               GOTO(M4)
            END_IF
         ELSE
       IF(PXL(1104,287) = 401020)
                  $Blue = PXLCOUNT(1106,287,1331,287, 468366)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468109)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468110)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468111)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468112)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468113)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468369)
                  $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 468368)
                  IF($A>$Blue)
                     LOGWRITE ("F3 Blue 1 ", $Blue, " A1 ",$A)
             $A = $Blue
                     KEYPRESS(#F3)
                     WAITMS(2000)
                     GOTO(M2)
                  ELSE
                      LOGWRITE ("F2 Blue 1 ", $Blue, " A1 ",$A)
                      $A = $Blue
                      KEYPRESS(#F2)
                      WAITMS(2000)
                      GOTO(M4)
                  END_IF
               ELSE
          GOTO(M5)
               END_IF 
          END_IF
      ELSE    
         GOTO(M5)
      END_IF
   ELSE
      WAIT(1)
      GOTO(M1)
   END_IF
ELSE
   IF(PXL(685, 195) = 12377059)
      WAITMS(10)
      KEYSTRING(/target)
      KEYPRESS(32)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYDOWN(#SHIFT)
      KEYPRESS(#p)
      KEYUP(#SHIFT)
      KEYSTRING(jkjnfz)
      KEYDOWN(#SHIFT)
      KEYPRESS(#h)
      KEYUP(#SHIFT)
      KEYSTRING(ecfkrf)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYPRESS(#ENTER)
      KEYSTRING(/target)
      KEYPRESS(32)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYDOWN(#SHIFT)
      KEYPRESS(#p)
      KEYUP(#SHIFT)
      KEYSTRING(jkjnfz)
      KEYDOWN(#SHIFT)
      KEYPRESS(#h)
      KEYUP(#SHIFT)
      KEYSTRING(ecfkrf)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYPRESS(#ENTER)
      WAITMS(500)
      GETSCREEN
      IF(PXL(1347,470) = 13748415)
         MOVE(1250,602)
         WAITMS(500)
         KEYPRESS(#ESC)
         WAITMS(10)
         KEYPRESS(#ESC)
         WAITMS(10)
         KEYPRESS(#F1)
         WAIT(3)
GOTO(M5)
      ELSE
         KEYPRESS(#F1)
         WAIT(3)
         GOTO(M5)
      END_IF
   ELSE
      KEYPRESS(#F1)
      WAIT(3)
      GOTO(M5)
   END_IF
END_IF


10

Использование / Re: В чём ошибка?

« on: July 21, 2014, 12:29:28 AM »

Тестирую код на работоспособность, что-то не так, не могу понять, т.к. всегда нажимается F2,  даже если нажимается ф2 и увеличивается полоска, то должно нажиматься ф3, а все равно нажимается ф2.

Code: (clickermann) [Select]

#ps2_keyboard
#ps2_mouse
M5:
DEFINE($C, 0)
GETSCREEN
IF(PXL(1197,43) = 14406087)
   M1:
   GETSCREEN
   IF(PXL(1106,287) = 10118913)
      M2:
      GETSCREEN
      IF(PXL(1197,43) = 14406087)
         GETSCREEN
         $Blue = PXLCOUNT(1106,287,1331,287, 10446592)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118913)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10249473)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315265)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315264)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10381056)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10446848)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447104)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447360)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118401)
         IF($C !1)
            $C = $C + 1
            $A = $Blue
            KEYPRESS(#F2)
    WAITMS(2000)
            GOTO(M2)
         ELSE
            GOTO(M3)
         END_IF
         M3:
         IF($A>$Blue)  // что то в этом ифе, т.к. когда увеличивается полоска ($A<$Blue) должен нажиматься Ф3, но он не нажимается. Вот и ломаю голову.
            $A = $Blue
            KEYPRESS(#F2)
            WAITMS(2000)
            GOTO(M2)
         ELSE
            $A = $Blue
            KEYPRESS(#F3)
            WAITMS(2000)
            GOTO(M4)
         END_IF
      ELSE
      END_IF   
      M4:
      GETSCREEN
      IF(PXL(1197,43) = 14406087)
         GETSCREEN
         $Blue = PXLCOUNT(1106,287,1331,287, 10446592)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118913)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10249473)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315265)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10315264)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10381056)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10446848)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447104)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10447360)
         $Blue = $Blue+PXLCOUNT(1106,287,1331,287, 10118401)
         IF($A<$Blue)
            $A = $Blue
            KEYPRESS(#F2)
    WAITMS(2000)
            GOTO(M2)
         ELSE
            $A = $Blue
            KEYPRESS(#F3)
            WAITMS(2000)
            GOTO(M4)
         END_IF
      ELSE
      END_IF   
   ELSE
      WAIT(1)
      GOTO(M1)
   END_IF
ELSE
   GETSCREEN
   IF(PXL(685, 195) = 12377059)
      WAITMS(10)
      KEYSTRING(/target)
      KEYPRESS(32)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYDOWN(#SHIFT)
      KEYPRESS(#p)
      KEYUP(#SHIFT)
      KEYSTRING(jkjnfz)
      KEYDOWN(#SHIFT)
      KEYPRESS(#h)
      KEYUP(#SHIFT)
      KEYSTRING(ecfkrf)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYPRESS(#ENTER)
      KEYSTRING(/target)
      KEYPRESS(32)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYDOWN(#SHIFT)
      KEYPRESS(#p)
      KEYUP(#SHIFT)
      KEYSTRING(jkjnfz)
      KEYDOWN(#SHIFT)
      KEYPRESS(#h)
      KEYUP(#SHIFT)
      KEYSTRING(ecfkrf)
      KEYDOWN(#CTRL)
      KEYPRESS(#SHIFT)
      KEYPRESS(#SHIFT)
      KEYUP(#CTRL)
      KEYPRESS(#ENTER)
      WAITMS(500)
      GETSCREEN
      IF(PXL(1347,470) = 13748415)
         MOVE(1250,602)
         WAITMS(500)
         KEYPRESS(#ESC)
         WAITMS(10)
         KEYPRESS(#ESC)
         WAITMS(10)
         KEYPRESS(#F1)
         WAIT(3)
GOTO(M5)
      ELSE
         KEYPRESS(#F1)
         WAIT(3)
         GOTO(M5)
      END_IF
   ELSE
      KEYPRESS(#F1)
      WAIT(3)
      GOTO(M5)
   END_IF
END_IF


11

Использование / Re: В чём ошибка?

« on: July 20, 2014, 11:34:17 PM »

Спасибо) Пошёл править программу)) А то уже написал код в .ехе , а потом узнал что полоса не однородного цвета

12

Использование / Re: В чём ошибка?

« on: July 20, 2014, 11:05:27 PM »

В команде PXLCOUNT(x,y,x1,y1,цвет)
Можно ли указывать несколько цветов? полоска оказалось неоднородной))
 

13

Использование / Re: В чём ошибка?

« on: July 20, 2014, 02:23:04 AM »

Пока что дошёл до этого, вроде бы это финальная часть кода, осталось написать программу С++ которая пишет этот код в .txt с координатами х, х1, у, у1 которые буду вводить с клавиатуры.

Code: (clickermann) [Select]

#ps2_keyboard
#ps2_mouse
M5:
DEFINE ($C, 0)
GETSCREEN
IF(PXL(x,y) = 14406087) //проверка на появление окна рыбалки
    M1:
    GETSCREEN
    IF(PXL(x-91,y+244) = 10446592) //проверка на появление полоски
       M2:
       GETSCREEN
       $Blue=PXLCOUNT(x-91,y+244,x+134,y+244,10446592)
       WAIT(2)
       IF($C ! 1) // тот самый IF который делает 1 действие, от которого начинается проверка состояния поплавка по полоске
          $C=$C+1
          $A=$Blue
          KEYPRESS(#F2)
          GOTO(M2)
       ELSE
          GOTO(M3)
       END_IF
       M3:
       IF($A>$Blue)
          WAITMS(500)
          $A=$Blue
          KEYPRESS(#F2)
          GOTO(M2)
       ELSE
          WAITMS(500)
          $A=$Blue
          KEYPRESS(#F3)
          GOTO(M4)
       END_IF
       M4:
       GETSCREEN
       $Blue=PXLCOUNT(x-91,y+244,x+134,y+244,10446592)
       WAIT(2)
        IF($A<$Blue)
          WAITMS(500)
          $A=$Blue
          KEYPRESS(#F2)
          GOTO(M2)
       ELSE
          WAITMS(500)
          $A=$Blue
          KEYPRESS(#F3)
          GOTO(M4)
       END_IF
    ELSE
       WAIT(1)  //ждать 1 сек если полоска не появилась и начать заново проверку полоски
       GOTO(M1)
    END_IF
ELSE
 GETSCREEN
 IF(PXL(685,195) = 12377059)
    WAITMS(10)
    KEYSTRING("/target ")
    KEYDOWN(#CTRL)
    KEYPRESS(#SHIFT)
    KEYUP(#CTRL)
    KEYDOWN(#SHIFT)
    KEYPRESS(#p)
    KEYUP(#SHIFT)
    KEYSTRING("jkjnfz")
    KEYDOWN(#SHIFT)
    KEYPRESS(#h)
    KEYUP(#SHIFT)
    KEYSTRING("ecfkrf")
    KEYDOWN(#CTRL)
    KEYPRESS(#SHIFT)
    KEYPRESS(#SHIFT)
    KEYUP(#CTRL)
    KEYPRESS(#ENTER) 
    KEYSTRING("/target ")
    KEYDOWN(#CTRL)
    KEYPRESS(#SHIFT)
    KEYUP(#CTRL)
    KEYDOWN(#SHIFT)
    KEYPRESS(#p)
    KEYUP(#SHIFT)
    KEYSTRING("jkjnfz")
    KEYDOWN(#SHIFT)
    KEYPRESS(#h)
    KEYUP(#SHIFT)
    KEYSTRING("ecfkrf")
    KEYDOWN(#CTRL)
    KEYPRESS(#SHIFT)
    KEYPRESS(#SHIFT)
    KEYUP(#CTRL)
    KEYPRESS(#ENTER) //набрать в чат "/target Золотая Русалка" 2 раза, учитывая смену языков. (во время работы макроса должен быть включёнными русский язык)
    WAITMS(500)
    GETSCREEN
    IF(PXL(x1,y1) = 13748415)
       MOVE(x1-97,y1+132) //взять награду       
       // тут по идее должен быть клик, но его делает не кликермэн, а мышка х7.
       WAITMS(500)
       KEYPRESS(#ESC)
       WAITMS(10)
       KEYPRESS(#ESC)
       WAITMS(10)
       KEYPRESS(#F1)
       GOTO(M5)
    ELSE   
       KEYPRESS(#F1)
       GOTO(M5)
    END_IF
 ELSE
    KEYPRESS(#F1)
    GOTO(M5)
 END_IF
END_IF


14

Использование / Re: В чём ошибка?

« on: July 18, 2014, 07:14:24 PM »

Если бы всё так просто было)) Фрост в режиме пс2 не пускает клики, но пускает MOVE(x,y) без пс2 мове не работает, мне отается только сделать так, потому что оскар эдитор х7 фрост не трогает и клик нормально доходит до клиента.
Сейчас только одна проблема - как это реализовать

15

Использование / Re: В чём ошибка?

« on: July 18, 2014, 04:20:22 PM »

Должен быть способ, но не в clikermann. Например в кликермэне я нажму кнопку "m" а эта кнопка будет выполнять функцию кнопки на мышке.