Автокликер Clickermann :: Форум

Основной раздел => Использование => Topic started by: sanek83 on January 21, 2016, 12:37:57 AM

Title: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 12:37:57 AM
Code: [Select]
WHILE ($a = 0)
   LCLICK(333,310)    // п. 1 настройки (1.Как сделать чтобы клик был рандумом  из 2 координат)
   WAITMS(100)
   LCLICK(342,363)
   WAITMS(100))
   LCLICK(344,425)    // п. 1.1 настройки ( хотелось бы упростить так как нужно нажать 10 раз одни и те же координаты)
   WAITMS(100))
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAITMS(100)
   LCLICK(344,425)
   WAIT(5)
   
    LCLICK(819,423)    // п.2
     WAIT(5)
   skip:
   
   GETSCREEN                                 
   IF(PXL(696, 492) = 2237115         
                                                           
             
     
      LCLICK(271,412)                       //3.1,3.22.Скрипт при условии что цвет в заданной координате красный,выполняет нужное действие раз 10 и прыгает на начало,хотя цвет остается красным=(,как сделать что бы пока красный выполнялось  бесконечно нужное действие 3.1.
      WAIT(5)
      LCLICK(819,423)
      WAIT(5)

      goto(skip)
     
   END_IF
END_CYC



$a =0




Действия скрипта:
1.выполнить настройки
2.Нажать на заданные координаты.
3.Распознать цвет
3.1 Если красный то выполнить,начиная с п.3
3.2 Если нет то вернуться к настройкам п.1.

Помогите пожалуйста улучшить
1.Как сделать чтобы клик был рандумом  из 2 координат
2.Скрипт при условии что цвет в заданной координате красный,выполняет нужное действие раз 10 и прыгает на начало,хотя цвет остается красным=(,как сделать что бы пока красный выполнялось  бесконечно нужное действие 3.1.
3.Посмотреть может как по другому написать.
С Уважением к вам. За ранние благодарен за помощь.
 
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 21, 2016, 12:53:48 AM
 8)
Code: (clickermann) [Select]
$klik=RNDFROM(1,2)              //1      рандомно из двух кликаешь по одной
switch($klik)
case(1)
   LCLICK(333,310)
   WAITMS(100)
case(2)
   LCLICK(342,363)
   WAITMS(100)
DEFAULT
end_switch


while($a<10)               //1.1 10 раз жмем  на точку
   LCLICK(344,425)
   WAITMS(100)
   inc($a)
end_cyc
WAIT(5)     //5 сек

LCLICK(819,423)    // 2 пункт 2
WAIT(5)


while($red=0) //3  .1 //пока красный
   
   GETSCREEN
   IF(PXL(696, 492) = 2237115)  //если цвет красн
     
      LCLICK(271,412)                       //3.1,3.22.Скрипт при условии что цвет в заданной координате красный,выполняет нужное действие раз 10 и прыгает на начало,хотя цвет остается красным=(,как сделать что бы пока красный выполнялось  бесконечно нужное действие 3.1.
      WAIT(5)
      LCLICK(819,423)
      WAIT(5)
   else
      $red=1
   END_IF
end_cyc
$red=0
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 01:09:10 AM
 Огромное вам спасибо.Я очень извиняюсь,а множите дописать чтоб если красных выпадает больше 20 то начинать сначала?
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 21, 2016, 01:11:33 AM
Code: (clickermann) [Select]
while($red=0) //3  .1 //пока красный
 
   GETSCREEN
   IF(PXL(696, 492) = 2237115)  //если цвет красн
       LCLICK(271,412)                       //
      WAIT(5)
      LCLICK(819,423)
      WAIT(5)
   else
      $red=1
   END_IF
end_cyc

 этот код будет выполняться хоть миллион раз подряд, если там красный миллион раз подряд) красный пропал -  идет в настройку
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 01:52:23 AM
Code: [Select]
Код: Clickermann
$klik=RNDFROM(1,2)             
switch($klik)
case(1)
   LCLICK(333,310)
   WAITMS(100)
case(2)
   LCLICK(982,433)
   WAITMS(100)
DEFAULT
end_switch



LCLICK(341,311)  //  Чтобы вот суда возвращался( и будет ли они работать,в тот скрипт не вставил(
WAITMS(100
LCLICK(332,366)
WAIT(1)
while($a<10)             
   LCLICK(344,425)           
   WAITMS(100)
 
   inc($a)
end_cyc
WAIT(5)     

LCLICK(819,423)   
WAIT(5)


while($red=0)
   
   GETSCREEN
   IF(PXL(696, 492) = 2237115) 
     
      LCLICK(271,412)                       
      WAIT(5)
      LCLICK(819,423)      // вот эти 2 тоже рандомно сделать
       WAIT(5)
        LCLICK(819,423)   //
   else
      $red=1
   END_IF
end_cyc
$red=0[/cod

Пожалуйста,уделите еще немного времянки.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 01:53:26 AM
Пожалуйста,уделите еще немного времянки.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Oraven on January 21, 2016, 07:58:01 AM
Вот

Code: (clickermann) [Select]
// п. 1 настройки (1.Как сделать чтобы клик был рандумом  из 2 координат)

$r = RND(1,2) // записываем рандомное число в переменную 1 или 2
SWITCH($r) // свитч выполнит ту или иную секцию
CASE(1)
   LCLICK(333,310)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAITMS(100)

// п. 1.1 настройки ( хотелось бы упростить так как нужно нажать 10 раз одни и те же координаты)

start:    //  Чтобы вот суда возвращался

LCLICK(341,311)
WAITMS(100
LCLICK(332,366)
WAIT(1)

FOR($a=0,$a<10) // повторяем код 10 раз
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(5)

LCLICK(819,423)    // п.2
WAIT(5)

GETSCREEN
WHILE(PXL(696, 492) = 2237115)
   LCLICK(271,412)
   WAIT(5)
   
   $r = RND(1,2)
   SWITCH($r)
   CASE(1)
      LCLICK(819,423)
   CASE(2)
      LCLICK(819,423)
   DEFAULT
   END_SWITCH
   WAIT(5)
   
   GETSCREEN
END_CYC
GOTO(start)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Vint on January 21, 2016, 08:11:37 AM
Code: (clickermann) [Select]
IF($rep = 0)
   $rep = 1
   IF(RND(0,1) = 0)
      LCLICK(333,310)
      WAITMS(100)
   ELSE
      LCLICK(342,363)
      WAITMS(100)
   END_IF
END_IF

LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAIT(1)

FOR($i=0, $i < 10)
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(5)

LCLICK(819,423)    // п.2
WAIT(5)

$red = 0
GETSCREEN
WHILE((PXL(696, 492) = 2237115) & ($red < 20))
   INC($red)
   IF(RND(0,1) = 0)
      LCLICK(271,412)
      WAIT(5)
   ELSE
      LCLICK(819,423)
      WAIT(5)
   END_IF
   GETSCREEN
END_CYC

И следи за скобками. В первом посте, две лишние закрывающие и одной не хватает.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Vint on January 21, 2016, 08:15:21 AM
Ты давай соберись и напиши всё сразу, а то изменения размазаны по времени, то кусок пропустил, то вот это уже не бесконечно а не больше 20.
И внимательней, а то будут ответы как на скрине. Твои то координаты никто не проверяет.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 03:31:13 PM
Code: [Select]

$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(333,310)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAITMS(100)
 

 
start:   
 
LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)
 
FOR($a=0,$a<10)
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)
 
LCLICK(819,423)    // п.2
WAIT(5)
 
$red = 0
GETSCREEN
WHILE((PXL(696, 492) = 2237115) & ($red < 15)) // Вот тут не корректно работает,можно ли сделать так чтобы было если красных 20 раз в [b]подряд[/b],то на start:? А то я не как понять не могу он то правильно работает,а то раньше уходит,а это важно=( 
   LCLICK(271,412)
   WAIT(1)
   INC($red)
 
   $r = RND(1,2)
   SWITCH($r)
   CASE(1)
      LCLICK(819,423)
   CASE(2)
      LCLICK(819,423)
   DEFAULT
   END_SWITCH
   WAIT(3)
 
   GETSCREEN
END_CYC
GOTO(start)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 03:32:53 PM
Спасибо большое за терпение,вчера просто не выспался,все работает как надо за одним исключением( описал выше),помогите немножко доделать. С уважением Александр.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Oraven on January 21, 2016, 03:42:43 PM
Code: (clickermann) [Select]
$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(333,310)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAITMS(100)

start:

LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)

FOR($a=0,$a<10)
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

LCLICK(819,423)    // п.2
WAIT(5)

$red = 0
GETSCREEN
WHILE((PXL(696,492) = 2237115)&($red < 21)) // цикл выполняется если цвет верный и не более 20 раз
   INC($red)
   LCLICK(271,412)
   WAIT(1)
   
   $r = RND(1,2)
   SWITCH($r)
   CASE(1)
      LCLICK(819,423) // 2е одинаковые координаты!
   CASE(2)
      LCLICK(819,423)
   DEFAULT
   END_SWITCH
   WAIT(3)
   
   GETSCREEN
END_CYC
GOTO(start)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Vint on January 21, 2016, 04:02:37 PM
($red < 20)

от 0 считаем
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 21, 2016, 04:43:40 PM
Спасибо большое,нашел причину,сдвигается место с цветом),буду думать как решить. С уважением Александр.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 22, 2016, 05:20:24 PM
Code: [Select]
FOR($a=0,$a<4) \\  Подскажите вариант  чтобы тут нажимал рандомно от 1 до 7 раз?
   LCLICK(826,440)
   WAITMS(500)
END_CYC
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 22, 2016, 05:30:55 PM
Спасибо :)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 22, 2016, 05:38:03 PM
а подскажите если несложно как дописать чтоб задержка была между кликами,а то очень быстро нажимает)
Code: [Select]
$a1=RND(1,7)
FOR($a=0,$a<$a1)
// \\  Подскажите вариант  чтобы тут нажимал рандомно от 1 до 7 раз?
   LCLICK(826,440)
   WAITMS(500)
END_CYC
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 22, 2016, 06:11:04 PM
Спасибо за помощь,вот нужно еще помочь)
Code: [Select]
$red = 0
GETSCREEN
WHILE((PXL(1191,662) = 2237115)&($red < 25)) // Как заменить чтобы искал в прямоугольной форме а не конкретную точку
   INC($red)
Зарание благодарен :)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Oraven on January 22, 2016, 07:32:27 PM
Code: (clickermann) [Select]
$red = 0
WHILE($red < 25)
   GETSCREEN
   IF_PIXEL_IN(1100,600, 1200,700, 2237115)
      INC($red)
      LCLICK(271,412)
      WAIT(1)       
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(819,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
   ELSE
      $red = 9999
   END_IF
END_CYC
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 22, 2016, 08:41:56 PM
Спасибо за терпение,все работает))))
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 23, 2016, 10:56:21 AM
Code: [Select]
$a1=RND(1,7)     // пропуски после красной  рандом 1-7
      FOR($a=0,$a<$a1)
         LCLICK(826,440)   //Ребят а можно сюда еще вставить чтоб из этих двух ,рандомно жал на одну?
         LCLICK(706,440) 
         
       WAITMS(2000)      // задержка между кликами
      END_CYC
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: andrei on January 23, 2016, 06:41:15 PM
добрый вечер! у меня возник вот такой вопрос, можно ли как то моим переменным  рандомно задать координаты скажем из 5-10 пар, и так что бы они не менялись пока не пройдет полный круг скрипт?
Code: (clickermann) [Select]
mouse_move(135,870)
  WAITMS(100)
  LCLICK(135,870)           //  выбираем
WAITMS(100) 
  LCLICK(135,870)    
         WAITMS(100)
        mouse_move($x,$y) 
    WAITMS(100)
    FOR($a=0,$a<14)
    LCLICK($x,$y)          //  высадка
    WAITMS(50)
 END_CYC
 
 mouse_move(210,870) 
     waitms(100)
LCLICK(210,870)     //  выбираем
WAITMS(100)
LCLICK(210,870)
  WAITMS(100)
mouse_move($x,$y)   
   FOR($a=0,$a<1)
    LCLICK($x,$y)      //высадка
    WAITMS(50)
 END_CYC
 
mouse_move(135,870)
  WAITMS(100)
  LCLICK(135,870)           //  выбираем
WAITMS(100) 
  LCLICK(135,870)    
         WAITMS(100)
        mouse_move($x1,$y1) 
    WAITMS(100)
    FOR($a=0,$a<17)
    LCLICK($x,$y)          // высадка
    WAITMS(50)
 END_CYC
 
 mouse_move(210,870) 
     waitms(100)
LCLICK(210,870)     //  выбираем
WAITMS(100)
LCLICK(210,870)
  WAITMS(100)
mouse_move($x,$y)   
   FOR($a=0,$a<2)             // высадка
    WAITMS(50)
 END_CYC
     
  mouse_move(70,870)
  waitms(100)     
    LCLICK(70,870)        //  выбираем
    WAITMS(100)
    LCLICK(70,870)
  WAIT(10)
 
 mouse_move($x,$y)   
   FOR($a=0,$a<37)
    LCLICK($x,$y)     //высадка
    WAITMS(50)
 END_CYC
 
     wait(10)
mouse_move($x,$y)
   FOR($a=0,$a<50)
    LCLICK($x1,$y1)     //высадка
    WAITMS(50)
 END_CYC
WAITMS(500)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 23, 2016, 07:30:41 PM
добрый вечер! у меня возник вот такой вопрос, можно ли как то моим переменным  рандомно задать координаты скажем из 5-10 пар, и так что бы они не менялись пока не пройдет полный круг скрипт?
Code: (clickermann) [Select]
mouse_move(135,870)
  WAITMS(100)
  LCLICK(135,870)           //  выбираем
WAITMS(100) 
  LCLICK(135,870)    
         WAITMS(100)
        mouse_move($x,$y) 
    WAITMS(100)
    FOR($a=0,$a<14)
    LCLICK($x,$y)          //  высадка
    WAITMS(50)
 END_CYC
 
 mouse_move(210,870) 
     waitms(100)
LCLICK(210,870)     //  выбираем
WAITMS(100)
LCLICK(210,870)
  WAITMS(100)
mouse_move($x,$y)   
   FOR($a=0,$a<1)
    LCLICK($x,$y)      //высадка
    WAITMS(50)
 END_CYC
 
mouse_move(135,870)
  WAITMS(100)
  LCLICK(135,870)           //  выбираем
WAITMS(100) 
  LCLICK(135,870)    
         WAITMS(100)
        mouse_move($x1,$y1) 
    WAITMS(100)
    FOR($a=0,$a<17)
    LCLICK($x,$y)          // высадка
    WAITMS(50)
 END_CYC
 
 mouse_move(210,870) 
     waitms(100)
LCLICK(210,870)     //  выбираем
WAITMS(100)
LCLICK(210,870)
  WAITMS(100)
mouse_move($x,$y)   
   FOR($a=0,$a<2)             // высадка
    WAITMS(50)
 END_CYC
     
  mouse_move(70,870)
  waitms(100)     
    LCLICK(70,870)        //  выбираем
    WAITMS(100)
    LCLICK(70,870)
  WAIT(10)
 
 mouse_move($x,$y)   
   FOR($a=0,$a<37)
    LCLICK($x,$y)     //высадка
    WAITMS(50)
 END_CYC
 
     wait(10)
mouse_move($x,$y)
   FOR($a=0,$a<50)
    LCLICK($x1,$y1)     //высадка
    WAITMS(50)
 END_CYC
WAITMS(500)

Можно!
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: andrei on January 23, 2016, 08:09:02 PM
как?
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 23, 2016, 09:31:27 PM
координаты есть? и надо лишь их рандомно прожать? или пофиг какие координаты?
если пофиг - просто генерируй рандомно. если из списка, то  поищи на форуме - это уже решали
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: andrei on January 23, 2016, 11:03:46 PM
Из списка
Ок)) буду рыть ))
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 23, 2016, 11:08:16 PM
из списка -  4 массива(или 3, если хорошо знаете команды для работы со строкам) В этой теме все описано
http://crapware.aidf.org/forum/index.php?topic=2311.msg14269#msg14269 (http://crapware.aidf.org/forum/index.php?topic=2311.msg14269#msg14269)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: andrei on January 23, 2016, 11:50:22 PM
у меня получилось вот так:)
Code: (clickermann) [Select]
$random = rnd(1,5)
WAITMS(100)

SWITCH($random)
Case(1)
$x=187
$y=138

CASE(2)
$x=30
$y=340

CASE(3)
$x=340
$y=25

CASE(4)
$x=115
$y=445

CASE(5)
$x=560
$y=35

DEFAULT
END_SWITCH

WAITMS(300)

LCLICK($x,$y)
WAITMS(100)


 LCLICK($x,$y)
WAITMS(100)

LCLICK($x,$y)
WAITMS(100)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 24, 2016, 12:01:05 AM
 ты выбрал рандомно одну точку, а потом 3 раза в нее кликнул.  У тебя возможны повторения? можно ли кликать нескольк ораз подряд в одно место?*
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: andrei on January 24, 2016, 12:10:45 AM
Да мне так и нужно)) три раза это просто проба)) мне нужно выводить армию в одной рандомной точке а это около ста кликов. Спасибо вам за помощь:)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 24, 2016, 12:15:03 AM
Главное -направить  в верное русло) упорство, нужда и любопытство -  вот двигатель саморазвития))
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 26, 2016, 09:54:55 PM
Code: [Select]


start:
WAIT(1)
LCLICK(583,313)
WAITMS(500)

LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)

FOR($a=0,$a<7)     //  50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(829,435)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAIT(3)

$red = 0
GETSCREEN
WHILE($red < 4)    // количество красных ставок до начала- Не работает почему то(делает бесконечно пока красное,а нужно заданное количество.) помогите пожалуйсто
   GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 2237115)
      INC($red)
     
      LCLICK(579,360)
      WAIT(1)
      LCLICK(257,418)
      WAIT(1)

      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(819,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
     
      GETSCREEN
   END_CYC
   GOTO(start)
   
   

Помогите решить пожалуйсто
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Doda on January 26, 2016, 10:26:52 PM
Code: [Select]


start:
WAIT(1)
LCLICK(583,313)
WAITMS(500)

LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)

FOR($a=0,$a<7)     //  50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(829,435)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAIT(3)

$red = 0
GETSCREEN
WHILE($red < 4)    // количество красных ставок до начала- Не работает почему то(делает бесконечно пока красное,а нужно заданное количество.) помогите пожалуйсто
   GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 2237115)
      INC($red)
     
      LCLICK(579,360)
      WAIT(1)
      LCLICK(257,418)
      WAIT(1)

      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(819,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
     
      GETSCREEN
   END_CYC
   GOTO(start)
   
   

Помогите решить пожалуйсто

Ты забыл
Code: (clickermann) [Select]
end_if
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on January 26, 2016, 10:33:03 PM
Точно,спасибо работает :)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on February 02, 2016, 12:25:16 PM
Code: [Select]


start:                                     // пункт 1
WAIT(1)
LCLICK(585,301)
WAITMS(500)

LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)

FOR($a=0,$a<10)     //  50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(829,435)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAIT(3)


$red = 0
GETSCREEN                            // пока нету красных повторять с начала(все работает) :)
WHILE($red <4)         // [u]п.2  Ребят как сделать чтобы если выпадает 4 красных то скрипт начинал делать п.3,а не в начало? [/u]
GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 2237115)
      INC($red)
      WAIT(5)
     
     
      LCLICK(579,360)
      WAIT(1)
      LCLICK(257,418)
      WAIT(5)
     
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(963,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
     
      GETSCREEN
   END_CYC
end_if
GOTO(start)


                                                                //пункт 3


LCLICK(581,304)      //мах %  ставки
WAITMS(100)
LCLICK(341,311)      // мах ставка
WAITMS(100)
LCLICK(344,420)      //50% от ставки
WAIT(100)



FOR($a=0,$a<4)     
   LCLICK(RNDFROM(830,999),440)
   WAITMS(2000)     
END_CYC
WAIT(1)


LCLICK(582,336)      //мах %  ставки
WAITMS(100)
LCLICK(341,311)      // мах ставка
WAITMS(100)


FOR($a=0,$a<5)     // кол нажатий 50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

                                                   \\  пункт 4.
LCLICK(RNDFROM(830,999),440)
WAIT(5)

[u]// пункт- 5( как сделать если зеленая,то едем к п.4 пока не будет 3х зеленых,и если 3 зеленых в подряд то в начало скрипта,а если красный то выполняем скрипт ниже до тех пор, пока не будет общее количество 3х зеленых(не обязательно в подряд) и тогда в начало скрипта)))?
[/u]
$red = 0
GETSCREEN
WHILE($red <4)                       
   GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 20998166)
      INC($red)
     
      LCLICK(271,412)
      WAIT(1)
     
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(860,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
     
      GETSCREEN
   END_CYC
   
   
   GOTO(start)
   


Помогите кто может, пожалуйсто
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: Oraven on February 02, 2016, 02:24:07 PM
Там ошибки для начала нужно исправить

Code: (clickermann) [Select]
start:                                     // пункт 1
WAIT(1)
LCLICK(585,301)
WAITMS(500)

LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)

FOR($a=0,$a<10)     //  50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(829,435)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAIT(3)


$red = 0
                         // пока нету красных повторять с начала(все работает) :)
WHILE($red <4)         // п.2  Ребят как сделать чтобы если выпадает 4 красных то скрипт начинал делать п.3,а не в начало?
   GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 2237115)
      INC($red)
      WAIT(5)       
     
      LCLICK(579,360)
      WAIT(1)
      LCLICK(257,418)
      WAIT(5)
     
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(963,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
   end_if
END_CYC

//пункт 3

LCLICK(581,304)      //мах %  ставки
WAITMS(100)
LCLICK(341,311)      // мах ставка
WAITMS(100)
LCLICK(344,420)      //50% от ставки
WAIT(100)

FOR($a=0,$a<4)
   LCLICK(RNDFROM(830,999),440)
   WAITMS(2000)
END_CYC
WAIT(1)


LCLICK(582,336)      //мах %  ставки
WAITMS(100)
LCLICK(341,311)      // мах ставка
WAITMS(100)


FOR($a=0,$a<5)     // кол нажатий 50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)

//пункт 4.
LCLICK(RNDFROM(830,999),440)
WAIT(5)

// пункт- 5( как сделать если зеленая,то едем к п.4 пока не будет 3х зеленых,и если 3 зеленых в подряд то в начало скрипта,а если красный то выполняем скрипт ниже до тех пор, пока не будет общее количество 3х зеленых(не обязательно в подряд) и тогда в начало скрипта)))?

$red = 0
WHILE($red <4)
   GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 20998166)
      INC($red)
     
      LCLICK(271,412)
      WAIT(1)
     
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(860,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
   END_IF
END_CYC

GOTO(start)
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on February 02, 2016, 03:06:47 PM
Я знаю что с ошибками,но у меня образование не то,мне тяжело,помогите с ошибками.Очень прошу если возможно.
С Уважением. Александр.
Title: Re: Здравствуйте,помогите оптимизировать скрипт.С уважением к вам Clickermann ы)
Post by: sanek83 on February 02, 2016, 06:03:20 PM
попробую сформулировать задачу
1) пункт 1-Выполняем заданные настройки и кликаем на одну из координат

Code: [Select]
WAIT(1)
LCLICK(585,301)
WAITMS(500)
 
LCLICK(341,311)
WAITMS(100)
LCLICK(332,366)
WAITMS(100)
 
FOR($a=0,$a<10)     //  50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)
 
$r = RND(1,2)
SWITCH($r)
CASE(1)
   LCLICK(829,435)
CASE(2)
   LCLICK(982,433)
DEFAULT
END_SWITCH
WAIT(3)

2)пункт 2-сканируем область на цвет( если зеленый то в начало,если красный то выполняем действия ниже до появления зеленного,если зеленый не выпал 4 раза,то переходим к пункту 3.(как сделать чтобы после 4х раз без зеленого,переходил к п.3 :'( :'( :'( :'()??
Code: [Select]
WHILE($red <4)       
   GETSCREEN
   IF_PIXEL_IN(688,490, 873,498, 2237115)
      INC($red)
      WAIT(5)       
 
      LCLICK(579,360)
      WAIT(1)
      LCLICK(257,418)
      WAIT(5)
 
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(963,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
   end_if
END_CYC
GOTO(start)

3) пункт 3-выполняем настройки и кликаем 4 раза в одну из координат,переходим в п.4
Code: [Select]
LCLICK(581,304)      //мах %  ставки
WAITMS(100)
LCLICK(341,311)      // мах ставка
WAITMS(100)
LCLICK(344,420)      //50% от ставки
WAIT(100)
 
FOR($a=0,$a<4)
   LCLICK(RNDFROM(830,999),440)
   WAITMS(2000)
END_CYC
WAIT(1)

 
4)Делаем настройки и Делаем клик в одну из 2х координат

Code: [Select]
LCLICK(582,336)      //мах %  ставки
WAITMS(100)
LCLICK(341,311)      // мах ставка
WAITMS(100)
 FOR($a=0,$a<5)     // кол нажатий 50% настройки
   LCLICK(344,425)
   WAITMS(100)
END_CYC
WAIT(1)
 
LCLICK(RNDFROM(830,999),440)
WAIT(5)

 5.)Сканируем смотрим цвет,если зеленый то делаем еще один клик рандомно, если 3 зеленых в подряд то в начало скрипта,а если красный то выполняем пункт 6  до тех пор, пока не будет общее количество 3х зеленых(не обязательно в подряд) и тогда в начало скрипта.

Code: [Select]
?????? тут сложность :'( :'( :'(

6.)

(
Code: [Select]
LCLICK(271,412)
      WAIT(1)
 
      $r = RND(1,2)
      SWITCH($r)
      CASE(1)
         LCLICK(819,423)
      CASE(2)
         LCLICK(860,423)
      DEFAULT
      END_SWITCH
      WAIT(3)
   END_IF
END_CYC
 
GOTO(start)
 


Помогите пожалуйста все это связать и поправить,Вам ведь знающим не долго,уделите время.За ранние Вам благодарен.