Messages

31

Общие вопросы / Re: где то ошибка или что то забыл не могу понять где

« on: May 30, 2017, 08:11:27 AM »

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

32

Общие вопросы / Re: где то ошибка или что то забыл не могу понять где

« on: May 30, 2017, 12:20:08 AM »

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

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

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

33

Общие вопросы / Re: где то ошибка или что то забыл не могу понять где

« on: May 29, 2017, 11:31:48 PM »

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

34

Общие вопросы / Re: где то ошибка или что то забыл не могу понять где

« on: May 29, 2017, 11:14:22 PM »

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

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

ну как сказать  я сначала сделал скрипт себе через твой пример все вышло около 600строк потом понял что он начинает что дольше дольше думать я подумал чет я натупил где не так что то все снес написал все по новому через обычные условия вышло 3к+ и там вбил еще раз один твой пример и уж точно было что именно из за негоо5 тормозит  кароче ужасно потом начал искать  и нашел  ладно бы еслиб я сразу подумал что это с ним что то не так а так не я подумал что это я где то запутался  и гдето что то пропустил 

35

Общие вопросы / Re: где то ошибка или что то забыл не могу понять где

« on: May 29, 2017, 10:38:49 PM »

UNDEFINE ааа все от чего никто не сказал что после того как использовали надо удалять     а я тут мучаюсь нз что за еронда 

О том что руки после туалета  нужно мыть, тут тоже никто не сказал.
Так выходит, ты немытый мучаешься?
Ах, плохие - злые форумчане!

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

36

Общие вопросы / Re: Помогите со скриптом на капчу

« on: May 29, 2017, 08:25:47 PM »

если не выложишь то точно шансов не будет 

37

Общие вопросы / Re: где то ошибка или что то забыл не могу понять где

« on: May 29, 2017, 07:54:36 PM »

UNDEFINE ааа все от чего никто не сказал что после того как использовали надо удалять     а я тут мучаюсь нз что за еронда 

38

Общие вопросы / где то ошибка или что то забыл не могу понять где

« on: May 29, 2017, 03:07:17 PM »

Code: (clickermann) [Select]

SUB(нападать)
   
   STRSEPARATE("рецепт рыжий,рецепт зеленый",",",$picture)
   FOR($drop2=0,$drop2<ARRSIZE($picture))
      GETSCREEN($xx+333,$yy+108, $xx+630,$yy+370)
      IF_PICTURE_IN($xx+333,$yy+108, $xx+630,$yy+370,STRCONCAT($picture[$drop2],".bmp"),-1,80)
         IF($_log_log=1)
            LOGWRITE ("есть смысл")
         END_IF
         GETSCREEN ($xx+333,$yy+108, $xx+630,$yy+370)
         IF_PICTURE_IN ($xx+333,$yy+108, $xx+630,$yy+370, "напасть.bmp", -1, 80)
            IF($_log_log=1)
               LOGWRITE ("напасть")
            END_IF
            m_move($_return1+RND(-5,5), $_return2+RND(-5,5))
            LCLICK($_xmouse,$_ymouse)
         END_IF
         $drop2=ARRSIZE($picture)+999
      ELSE
         WAITMS(5)
      END_IF
   END_CYC
   IF($drop2<999)
      //GETSCREEN ($xx+333,$yy+108, $xx+630,$yy+370)
      IF_PICTURE_IN ($xx+333,$yy+108, $xx+630,$yy+370, "прогон.bmp", -1, 80)
         IF($_log_log=1)
            LOGWRITE ("проганяем")
         END_IF
         m_move($_return1+RND(-5,5), $_return2+RND(-5,5))
         LCLICK($_xmouse,$_ymouse)
         $drop2=ARRSIZE($picture)+999                                               
      END_IF
   END_IF
END_SUBгде то что то не так он делает все правильно но с каждым следующим вызовом он думает все дольше и дольше 

39

Общие вопросы / Re: игра типа 3 в ряд

« on: May 29, 2017, 03:03:32 PM »

  :)спасибо огромное

40

Общие вопросы / Re: Лог

« on: May 28, 2017, 07:43:37 PM »

  спасибо за терпения  сегодня целый день на мои тупые вопросы отвечаете 
не могли бы еще взглянуть вот сюда ?http://crapware.aidf.org/forum/index.php?topic=3256.0

41

Общие вопросы / Лог

« on: May 28, 2017, 05:43:38 PM »

как сделать чтоб допустим когда

Code: (clickermann) [Select]

LOGWRITE ("выиграли") //не просто писало в лог выиграли а  чтоб выиграли +1 и сколько раз уже в суме выдавало типа "выиграли 55"  чтоб можно было ставить его на долго а потом как пришел сразу глянул в лог что он наделал за это все время  ;D

42

Общие вопросы / Re: игра типа 3 в ряд

« on: May 28, 2017, 05:14:33 PM »

спасибо работает все как и хотелось просто шикарно ))) картинки все 5*5 пикселей  думает 4-5 сек хотелось бы быстрей но хорошо что и так     спасибо большое

43

Общие вопросы / Re: игра типа 3 в ряд

« on: May 28, 2017, 03:09:21 PM »

Code: (clickermann) [Select]


SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_Start_X = $_xmouse
   $MOVE_Start_Y = $_ymouse
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   
   $dist = DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
   $MOVE_step = ($dist-1)/INT(SQRT($dist))
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step
   
   FOR($MOVE_i=0, $MOVE_i < INT($MOVE_step))
      $MOVE_X = $MOVE_X + $MOVE_X_step
      $MOVE_Y = $MOVE_Y + $MOVE_Y_step
      MOVE(INT($MOVE_X) + RND(-2,2), INT($MOVE_Y) + RND(-2,2))
      WAITMS($rnwait) // çàäåðæêà ïðè äâèæåíèè ïî òî÷êàì
   END_CYC
END_SUB

SUB(m_move,$M_X,$M_Y)
   $rnwait = RND(6,15) // ñëó÷àéíàÿ ñêîðîñòü
   $MOVE_MID_X = INT(($_xmouse+$M_X)/2)
   $MOVE_MID_Y = INT(($_ymouse+$M_Y)/2)
   $otx = INT(ABS($_xmouse - $M_X) * 0.12)
   $oty = INT(ABS($_ymouse - $M_Y) * 0.12)
   mouse_move($MOVE_MID_X+RND(-$otx,$otx), $MOVE_MID_Y+RND(-$oty,$oty))
   mouse_move($M_X,$M_Y)
   MOVE($M_X,$M_Y) //Ïåðåäâèíóòü îêîí÷àòåëüíî â çàäàííóþ òî÷êó
END_SUB




// __________________ ÎÏÖÈÈ ____________________________________________________
//////////////////////////////////////////
//#logfile

// âûâîäèòü îêíî ëîãà  (1 - Âûâîäèòü, 0 - Íå âûâîäèòü)
$log = 0

// Ðàçìåð ïîëÿ
$max_X = 6
$max_Y = 6

// Ðàçìåð ÿ÷åéêè
$step = 41

// Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà (èëè íàõîäèòü ïîòîì)
//$startcoord_X = 518
//$startcoord_Y = 413

// Èìåíà êàðòèíîê ó÷àñòíèêîâ
$bmp_1 = "red.bmp"
$bmp_2 =  "yellow.bmp"
$bmp_3 =  "green.bmp"
$bmp_4 =  "skull.bmp"
$bmp_5 = "kross.bmp"

// Ïðåôèêñ. Ïàïêà ñ êàðòèíêàìè
$prefix = "textures\"
$colormode = 0        // ðåæèì êîëîðìîäà

//////////////////////////////////////////


FOR($a56,$a56<1) // ïîâòîðÿåì 3 ðàçà
   // òåëî
   
   
   m_move($_xmax, $_ymax)
   WAITMS(30)
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, STRCONCAT($prefix,"base.bmp"))
      $startcoord_X = $_return1-119
      $startcoord_Y = $_return2+93
   ELSE
      LOGWRITE("Íå ïðèâÿçàëèñü")
      HINTPOPUP("Íå ïðèâÿçàëèñü", "Âíèìàíèå!")
      HALT
   END_IF
   
END_CYC
//==============================================================================
SUB(LOG_c)  //==== ïåðåìåííûå "ñ" â ëîã. Îòëàäêà ===============================
   LOGWRITE("$c1 = ", $c1)
   LOGWRITE("$c2 = ", $c2)
   LOGWRITE("$c3 = ", $c3)
   LOGWRITE("$c4 = ", $c4)
   LOGWRITE("$c5 = ", $c5)
   LOGWRITE("$c6 = ", $c6)
   LOGWRITE("$c7 = ", $c7)
   LOGWRITE("$c8 = ", $c8)
   LOGWRITE("$c9 = ", $c9)
   LOGWRITE("$c10 = ", $c10)
   LOGWRITE("$c12 = ", $c12)
   LOGWRITE("$c13 = ", $c13)
   LOGWRITE("$c15 = ", $c15)
   LOGWRITE("$c16 = ", $c16)
   LOGWRITE("$c17 = ", $c17)
   LOGWRITE("$c18 = ", $c18)
   LOGWRITE("$c19 = ", $c19)
   LOGWRITE("$c20 = ", $c20)
   LOGWRITE("$c21 = ", $c21)
   LOGWRITE("$c22 = ", $c22)
   LOGWRITE("$c25 = ", $c25)
   LOGWRITE("$c26 = ", $c26)
   LOGWRITE("$c27 = ", $c27)
END_SUB

// __________________ ÏÎÈÑÊ ÊÀÐÒÈÍÊÈ ___________________________________________
SUB(FIND, $name_image, $percent, $num)
   SCANPICTURE($arr_find, $startcoord_X,$startcoord_Y,$startcoord_X+($max_X*$step), $startcoord_Y+($max_Y*$step), STRCONCAT($prefix,$name_image), -1, $percent)
   IF($log=1)
      LOGWRITE("Íàéäåíî ", $num, "-õ ýëåìåíòîâ:  ", ARRSIZE($arr_find)/2)
   END_IF
   //UNDEFINE($arr_find)
END_SUB

// __________________ ÏÐÎÂÅÐÊÀ ÊËÅÒÊÈ __________________________________________
SUB(GET, $dif_X, $dif_Y)
   $target_X = $main_X + $dif_X  //êîîð.ÿ÷åéêè + êîîð.ñîñåäíèõ
   $target_Y = $main_Y + $dif_Y
   IF(($target_X > -1) & ($target_Y > -1) & ($target_X < $max_X) & ($target_Y < $max_Y))
      $ret = $map[$target_X + $target_Y*$max_X]  // ÷èòàåì ÿ÷åéêó
   ELSE
      $ret = -1  // âûøëè çà êðàé ïîëÿ
   END_IF
END_SUB

// __________________ ÓÑÒÀÍÎÂÊÀ ÕÎÄÀ ___________________________________________
SUB(SET, $tmass, $trun_X, $trun_Y, $trunin_X, $trunin_Y)
   // ôîðìàò õîäà (âåñ, îòêóäà X/Y, êóäà X/Y)
   
   IF($tmass > $mass)
      $mass = $tmass
      $run_X = $trun_X + $main_X
      $run_Y = $trun_Y + $main_Y
      $runin_X = $trunin_X + $main_X
      $runin_Y = $trunin_Y + $main_Y
      IF($log = 1)
         LOGWRITE("$mass: ", $mass)
         LOGWRITE("$main: ", $main_X, " / ", $main_Y)
         LOGWRITE("Îòíîñèò. ", $trun_X, " / ", $trun_Y, ", ", $trunin_X, " / ", $trunin_Y)
      END_IF
   END_IF
END_SUB

// __________________ ÎÁÐÀÁÎÒÊÀ ß×ÅÉÊÈ ÃËÀÂÍÀß__________________________________
SUB(OBRABOTKA_CELL)
   // ôîðìàò õîäà (âåñ, îòêóäàX,Y, êóäàX,Y)
   
   // ïðîïóñêàåì ïîèñê, êîãäà óæå ëó÷øèé âàðèàíò
   IF($mass < 5)
      //SET(0,0,0,0,0)  // ñáðàñûâàåì ìàññó
      $c1 = 0
      $c2 = 0
      $c3 = 0
      $c4 = 0
      $c5 = 0
      $c6 = 0
      $c7 = 0
      $c8 = 0
      $c9 = 0
      $c10 = 0
      $c12 = 0
      $c13 = 0
      $c15 = 0
      $c16 = 0
      $c17 = 0
      $c18 = 0
      $c19 = 0
      $c20 = 0
      $c21 = 0
      $c22 = 0
      $c25 = 0
      $c26 = 0
      $c27 = 0
     
      // ïðîâåðêà ñîñåäíèõ ÿ÷ååê âîêðóã ðàññìàòðèâàåìîé
      GET(1,0)
      $c1 = $ret
      IF($c1 ! -1)
         GET(2,0)
         $c2 = $ret
         GET(3,0)
         $c3 = $ret
         GET(4,0)
         $c4 = $ret
      END_IF
     
      GET(-1,0)
      $c9 = $ret
      IF($c9 ! -1)
         GET(-2,0)
         $c10 = $ret
      END_IF
     
      GET(0,1)
      $c15 = $ret
      IF($c15 ! -1)
         GET(0,3)
         $c17 = $ret
         GET(0,4)
         $c18 = $ret
      END_IF
     
      GET(0,-1)
      $c12 = $ret
      IF($c12 ! -1)
         GET(0,-2)
         $c13 = $ret
      END_IF
     
      IF(($c1 ! -1) & ($c15 ! -1))
         GET(2,1)
         $c7 = $ret
         GET(2,2)
         $c8 = $ret
         GET(1,2)
         $c26 = $ret
      END_IF
     
      IF(($c1 ! -1) & ($c12 ! -1))
         GET(2,-1)
         $c5 = $ret
         GET(2,-2)
         $c6 = $ret
         GET(1,-1)
         $c25 = $ret
      END_IF
     
      IF(($c9 ! -1) & ($c12 ! -1))
         GET(-1,-1)
         $c19 = $ret
         GET(-1,-2)
         $c20 = $ret
      END_IF
     
      IF(($c9 ! -1) & ($c15 ! -1))
         GET(-1,1)
         $c21 = $ret
         GET(-1,2)
         $c22 = $ret
      END_IF
     
      // ãîðèçîíòàëüíûå
      IF($c1 = 1)
         IF($mass < 7)
            IF(($c5=1) & ($c6=1) & ($c7=1) & ($c8=1) & ($c3=1))
               SET(7,3,0,2,0)
            ELSE
               IF(($c19=1) & ($c20=1) & ($c21=1) & ($c22=1) & ($c10=1))
                  SET(7,-2,0,-1,0)
               ELSE
                  IF(($c3=1) & ($c4=1) & ($c7=1) & ($c8=1) & ($c5=1))
                     SET(7,2,-1,2,0)
                  ELSE
                     IF(($c3=1) & ($c4=1) & ($c5=1) & ($c6=1) & ($c7=1))
                        SET(7,2,1,2,0)
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
         
         IF($mass < 6)
            IF(($c5=1) & ($c6=1) & ($c3=1) & ($c7=1))
               SET(6,3,0,2,0)
            ELSE
               IF(($c19=1) & ($c20=1) & ($c10=1) & ($c21=1))
                  SET(6,-2,0,-1,0)
               ELSE
                  IF(($c7=1) & ($c8=1) & ($c3=1) & ($c5=1))
                     SET(6,3,0,2,0)
                  ELSE
                     IF(($c21=1) & ($c22=1) & ($c19=1) & ($c10=1))
                        SET(6,-2,0,-1,0)
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
         
         IF($mass < 5)
            IF(($c5=1) & ($c7=1) & ($c3=1))
               SET(5,3,0,2,0)
            ELSE
               IF(($c19=1) & ($c21=1) & ($c10=1))
                  SET(5,-2,0,-1,0)
               ELSE
                  IF(($c3=1) & ($c4=1) & ($c5=1))
                     SET(5,2,-1,2,0)
                  ELSE
                     IF(($c3=1) & ($c4=1) & ($c7=1))
                        SET(5,2,1,2,0)
                     ELSE
                        IF(($c5=1) & ($c6=1) & ($c3=1))
                           SET(5,3,0,2,0)
                        ELSE
                           IF(($c5=1) & ($c6=1) & ($c7=1))
                              SET(5,2,1,2,0)
                           ELSE
                              IF(($c19=1) & ($c20=1) & ($c10=1))
                                 SET(5,-2,0,-1,0)
                              ELSE
                                 IF(($c19=1) & ($c20=1) & ($c21=1))
                                    SET(5,-1,1,-1,0)
                                 ELSE
                                    IF(($c7=1) & ($c8=1) & ($c3=1))
                                       SET(5,3,0,2,0)
                                    ELSE
                                       IF(($c7=1) & ($c8=1) & ($c5=1))
                                          SET(5,2,-1,2,0)
                                       ELSE
                                          IF(($c21=1) & ($c22=1) & ($c10=1))
                                             SET(5,-2,0,-1,0)
                                          ELSE
                                             IF(($c21=1) & ($c22=1) & ($c19=1))
                                                SET(5,-1,-1,-1,0)
                                             END_IF
                                          END_IF
                                       END_IF
                                    END_IF
                                 END_IF
                              END_IF
                           END_IF
                        END_IF
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
         
         IF($mass < 4)
            IF(($c3=1) & ($c5=1))
               SET(4,2,-1,2,0)
            ELSE
               IF(($c3=1) & ($c7=1))
                  SET(4,2,1,2,0)
               ELSE
                  IF(($c10=1) & ($c19=1))
                     SET(4,-1,-1,-1,0)
                  ELSE
                     IF(($c10=1) & ($c21=1))
                        SET(4,-1,1,-1,0)
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
         
         IF($mass < 3)
            IF(($c3=1))
               SET(3,3,0,2,0)
            ELSE
               IF(($c5=1))
                  SET(3,2,-1,2,0)
               ELSE
                  IF(($c7=1))
                     SET(3,2,1,2,0)
                  ELSE
                     IF(($c10=1))
                        SET(3,-2,0,-1,0)
                     ELSE
                        IF(($c19=1))
                           SET(3,-1,-1,-1,0)
                        ELSE
                           IF(($c21=1))
                              SET(3,-1,1,-1,0)
                           END_IF
                        END_IF
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
     
      // âåðòèêàëüíûå
      IF($c15 = 1)
         IF($mass < 5)
            IF(($c22=1) & ($c26=1) & ($c17=1))
               SET(5,0,3,0,2)
            ELSE
               IF(($c19=1) & ($c25=1) & ($c13=1))
                  SET(5,0,-2,0,-1)
               ELSE
                  IF(($c17=1) & ($c18=1) & ($c22=1))
                     SET(5,-1,2,0,2)
                  ELSE
                     IF(($c17=1) & ($c18=1) & ($c26=1))
                        SET(5,1,2,0,2)
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
         
         IF($mass < 4)
            IF(($c17=1) & ($c22=1))
               SET(4,-1,2,0,2)
            ELSE
               IF(($c17=1) & ($c26=1))
                  SET(4,1,2,0,2)
               ELSE
                  IF(($c13=1) & ($c19=1))
                     SET(4,-1,-1,0,-1)
                  ELSE
                     IF(($c13=1) & ($c25=1))
                        SET(4,1,-1,0,-1)
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
         
         IF($mass < 3)
            IF(($c13=1))
               SET(3,0,-2,0,-1)
            ELSE
               IF(($c19=1))
                  SET(3,-1,-1,0,-1)
               ELSE
                  IF(($c25=1))
                     SET(3,1,-1,0,-1)
                  ELSE
                     IF(($c17=1))
                        SET(3,0,3,0,2)
                     ELSE
                        IF(($c22=1))
                           SET(3,-1,2,0,2)
                        ELSE
                           IF(($c26=1))
                              SET(3,1,2,0,2)
                           END_IF
                        END_IF
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
     
      IF($mass < 3)
         GET(1,1)
         $c27 = $ret
         GET(0,2)
         $c16 = $ret
         // óíèêàëüíûå òðîéêè ïî ãîðèçîíòàëè
         IF(($c2=1) & ($c25=1))
            SET(3,1,-1,1,0)
         ELSE
            IF(($c2=1) & ($c27=1))
               SET(3,1,1,1,0)
            ELSE
               // óíèêàëüíûê òðîéêè ïî âåðòèêàëè
               IF(($c16=1) & ($c21=1))
                  SET(3,-1,1,0,1)
               ELSE
                  IF(($c16=1) & ($c27=1))
                     SET(3,1,1,0,1)
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
      IF(($main_X = 4) & ($main_Y = 2))
         LOGWRITE("$main2 ", $main_X, " / ", $main_Y)
         LOG_c()
      END_IF
   END_IF
END_SUB

// __________________ ÕÎÄ ______________________________________________________
SUB(RUN)
   $CStart_X = ($startcoord_X + $run_X*$step) + RND(10,$step-10)
   $CStart_Y = ($startcoord_Y + $run_Y*$step) + RND(10,$step-10)
   $CEnd_X = ($startcoord_X + $runin_X*$step) + RND(10,$step-10)
   $CEnd_Y = ($startcoord_Y + $runin_Y*$step) + RND(10,$step-10)
   m_m_move($CStart_X,$CStart_Y)
   LCLICK($CStart_X,$CStart_Y)
   WAITMS(500)
   m_move($CEnd_X,$CEnd_Y)
   LCLICK($CEnd_X,$CEnd_Y)
   WAITMS(500)
   m_move($_xmax, 100)
   WAITMS(300)
END_SUB

// __________________ ÎÁÐÀÁÎÒÊÀ ÏÎËÓ×ÅÍÍÎÃÎ ÌÀÑÑÈÂÀ ________________________
SUB(PROCESSING)
   // çàïîëíÿåì ìàññèâ 0
   UNDEFINE($map)
   FOR($i=0, $i < $max_X*$max_Y)
      ARRPUSH($map, 0)
   END_CYC
   LOGWRITE("ðàçìåð $map  ", ARRSIZE($map))
   
   // ñòðîèì êàðòó íàéäåííûõ
   FOR($i=0, $i < ARRSIZE($arr_find), 2)
      $find_X = $arr_find[$i]
      $find_Y = $arr_find[$i+1]
     
      $sost_X = INT(($find_X - $startcoord_X) / $step)
      $sost_Y = INT(($find_Y - $startcoord_Y) / $step)
      LOGWRITE("ÿ÷åéêà ", $sost_X + $sost_Y*$max_X)
      LOGWRITE("êîîðä. ", $sost_X, " / ", $sost_Y)
      $map[$sost_X + $sost_Y*$max_X] = 1
   END_CYC
   
   // âûâîäèì ïîëå â ëîã (ìàòðèöà, 1 - íàõîæäåíèå èñêîìîãî öâåòà)
   IF($log = 1)
      FOR($i=0, $i < ARRSIZE($map), $max_X)
         LOGWRITE($map[$i],$map[$i+1],$map[$i+2],$map[$i+3],$map[$i+4],$map[$i+5],$map[$i+6],$map[$i+7],$map[$i+8])
      END_CYC
      LOGWRITE("----------") //ïóñòàÿ ñòðîêà â ëîãå
   END_IF
   UNDEFINE($arr_find)
   
   // îáõîäèì ïîëå (êîîðäèíàòû âñåõ ÿ÷ååê)
   FOR($cell=0, $cell < ARRSIZE($map))
      $main_Y = INT($cell / $max_X) // 54/9=6
      $main_X = $cell - $main_Y*$max_X // 54-(6*9)=0
      LOGWRITE("ÿ÷åéêà: ", $main_X, " / ", $main_Y) // ïåðå÷èñëåíèå âñåõ ñóùåñòâóþùèõ ÿ÷ååê è èõ êîîðäèíàò
     
      IF($map[$cell] = 1)
         OBRABOTKA_CELL()
      END_IF
   END_CYC
   IF($log=1)
      LOGWRITE("$mass ", $mass)
      LOGWRITE("Ëó÷øèé õîä: ", $run_X, " / ", $run_Y, ", ", $runin_X, " / ", $runin_Y)
   END_IF
END_SUB

//==============================================================================


// __________________ ÏÐÎÃÐÀÌÌÀ ______________________________________________


LOGCLEAR
IF($log=1)
   LOGSHOW(1, $_xmax-335, 28) // îòîáðàæåíèå îêíà ëîãà
   WNDSIZE(WNDFIND("Ëîã"), 336, 560) // èçìåíåíèÿ ðàçìåðîâ îêíà ëîãà 260
END_IF

$start = $_ms
$mass = 0
$run_X = 0
$run_Y = 0
$runin_X = 0
$runin_Y = 0
$ret = 0

// äåëàåì ñêðèí
m_move($_xmax, 100)
WAITMS(30)
GETSCREEN //(370,80,855,655)
IF($colormode ! 0)
   COLORMODE($colormode, $startcoord_X,$startcoord_Y,$startcoord_X+($max_X*$step), $startcoord_Y+($max_Y*$step))
END_IF

// èùåì âñå ïåðâûå ýëåìåíòû è çàíîñèì â ìàññèâ
FIND($bmp_1, 100, 1)
PROCESSING()

// èùåì âñå âòîðûå ýëåìåíòû è çàíîñèì â ìàññèâ
FIND($bmp_2, 75, 2)
PROCESSING()

// èùåì âñå òðåòüè ýëåìåíòû è çàíîñèì â ìàññèâ
FIND($bmp_3, 100, 3)
PROCESSING()

// èùåì âñå ÷åòâ¸ðòûå ýëåìåíòû è çàíîñèì â ìàññèâ
FIND($bmp_4, 100, 4)
PROCESSING()

// èùåì âñå ïÿòûå ýëåìåíòû è çàíîñèì â ìàññèâ
FIND($bmp_5, 100, 5)
PROCESSING()

LOGWRITE ("Âðåìÿ âûïîëíåíèÿ ", $_ms-$start, " ìñ")
IF($mass ! 0)
   RUN()
   $time1 = $_time_t +8
   WAIT(5) // ìíå òàê íàäî
ELSE
   
END_IF



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

44

Общие вопросы / Re: запоминать куда уже нажимал

« on: May 28, 2017, 11:10:22 AM »

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

45

Общие вопросы / Re: игра типа 3 в ряд

« on: May 27, 2017, 09:01:15 PM »

наконец разобрался  ходит уже теперь вот как это засунуть в под програму чтоб только после ее вызова начинал анализировать поле а то как ходить там RUN() а как чтоб он анализировать начинал только после вызова?