Помогите оптимизировать сценарий

[Obe1Kenobe]

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

Code: (clickermann) [Select]

//Íàñòðîèêè
Первое действия

$Boss_yes = 0
$S = 0
$b = 0
$a=0
$b=0
//============================================

while($Boss_yes = 0)
   GETSCREEN
   COLORMODE(6)
   IF_PICTURE_IN (1050,40, $_xmax,$_ymax, "1.bmp", -1 , 70)
      $Boss_yes = 1
      print("босс найден")
      LCLICK($_return1+20, $_return2+20)
       WAITMS(100)   
   Else
      IF_PICTURE_IN (834,440, $_xmax,$_ymax, "2.bmp", -1 , 80)
         print("по мобу")
       
         For($a, $a<10)
            LCLICK($_return1+200, $_return2-200)
            WAITMS(5)
            LCLICK($_return1+200, $_return2-200)
            WAITMS(5)          
         END_CYC
      End_if
   End_if
END_CYC
waitms(10)

Второе действие

GETSCREEN
Colormode(6)
IF_PICTURE_IN (908,565, 1029,665, "Up2.bmp", -1, 75)
   LCLICK($_return1, $_return2)
   print("Ïðîêà÷êà Ãåðîåâ")
    KEYPRESS(#1)   
    Wait(1)
KEYPRESS(#1)   
    Wait(1)
KEYPRESS(#1)   
    Wait(1)
KEYPRESS(#1)   
    Wait(1)
   For($b , $b<6)
      KEYPRESS(#5)
      WAIT(2)
      KEYPRESS(#Q)
      WAITMS(300)
      KEYPRESS(#E)
      WAITMS(300)      1
      KEYPRESS(#W)
      WAITMS(300)
      KEYPRESS(#R)
      WAIT(2)
   END_CYC
waitms(100)
KEYPRESS(#1)   
    Wait(1)
For($s , $s<6)
   KEYPRESS(#1)
   wait(2)
      KEYPRESS(#Q)
      WAITMS(300)
      KEYPRESS(#W)
      WAITMS(300)
      KEYPRESS(#R)
      WAITMS(300)
      KEYPRESS(#E)
      wait(1)
      End_CYC
   Print("Çàâåðøåíî óñïåøíî")
   Waitms(500)
   KEYPRESS(#2)
else
   wait(1)             
   LCLICK(1208,377)
End_If
//=============================================
LOGWRITE ("Конец задания")
////=============================================

[open_78]

Двигать мышку - команда MOVE(10,10)
Вопрос куда двигать? Для чего?

[i0]

"как создать механизм который поможет мне мышкой передвинуть в верх и или в низ по меню"
а как ты это мышкой делаешь, по пунктам?
"1) нажимаю левую кнопку мыши, 2) двигаю мышь вниз, 3) отпускаю кнопку мыши" ?
или как-то иначе?

p.s. и лучше подпрограммой, чем потоком. забудьте вы о них (пока)

[open_78]

p.s. и лучше подпрограммой, чем потоком. забудьте вы о них (пока)

А что с ними (потоками) не так?

[i0]

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

[Oraven]

Какого меню? Кого сделать "подпрограмой или потоками"?

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

Для последней версии кликера начальное значение цикла можно указать прямо в цикле, кроме того в данном случаи не нужно использовать разные переменные ведь циклы не пересекаются.

Также любые комменты нудно помечать двумя косыми.

Code: (clickermann) [Select]

// Первое действия

$Boss_yes = 0
while($Boss_yes = 0)
   GETSCREEN
   COLORMODE(6)
   IF_PICTURE_IN (1050,40, $_xmax,$_ymax, "1.bmp", -1 , 70)
      $Boss_yes = 1
      print("босс найден")
      LCLICK($_return1+20, $_return2+20)
      WAITMS(100)
   Else
      IF_PICTURE_IN (834,440, $_xmax,$_ymax, "2.bmp", -1 , 80)
         print("по мобу")
         For($a=0,$a<10)
            LCLICK($_return1+200, $_return2-200)
            WAITMS(5)
            LCLICK($_return1+200, $_return2-200)
            WAITMS(5)
         END_CYC
      End_if
   End_if
END_CYC
waitms(10)

// Второе действие

GETSCREEN
Colormode(6)
IF_PICTURE_IN (908,565, 1029,665, "Up2.bmp", -1, 75)
   LCLICK($_return1, $_return2)
   print("Прокачка Героев")
   FOR($a=0,$a<4)
      KEYPRESS(#1)
      Wait(1)
   END_CYC
   For($a=0,$a<6)
      KEYPRESS(#5)
      WAIT(2)
      KEYPRESS(#Q)
      WAITMS(300)
      KEYPRESS(#E)
      WAITMS(300)      // 1
      KEYPRESS(#W)
      WAITMS(300)
      KEYPRESS(#R)
      WAIT(2)
   END_CYC
   waitms(100)
   KEYPRESS(#1)
   Wait(1)
   For($a=0,$a<6)
      KEYPRESS(#1)
      wait(2)
      KEYPRESS(#Q)
      WAITMS(300)
      KEYPRESS(#W)
      WAITMS(300)
      KEYPRESS(#R)
      WAITMS(300)
      KEYPRESS(#E)
      wait(1)
   End_CYC
   Print("Завершено успешно")
   Waitms(500)
   KEYPRESS(#2)
else
   wait(1)
   LCLICK(1208,377)
End_If
//=============================================
LOGWRITE ("Конец задания")
////===========================================