Messages

1

Общие вопросы / Re: Помогите оптимизировать. Рыбалка.

« on: September 28, 2018, 10:05:24 PM »

Спасибо

2

Общие вопросы / Помогите оптимизировать. Рыбалка.

« on: September 28, 2018, 08:29:32 PM »

Code: (clickermann) [Select]

#name "Russian Fishing 4"
THREAD(okno, 1)
   HSET( wndfind("Russian Fishing"),1)
END_THREAD
SETTHREAD (okno, 0)

LDOWN(960,518) // заброс
WAIT(2)
LUP(960,518)
WAIT(8)
$b = PXL(1273,998)
LDOWN(960,518) //начало проводки
WHILE($a = 0)
   GETSCREEN
   $r2 = PXL(1240,959)
   $r1 = PXL(980,997)
   IF((PXL(1273,998) != $b) & (PXL(955,997) != 4183752 & 48357)) //проверка на готовность к забросу
      $a = $a + 1
      LUP(960,518)
      IF($c = 1) //если была подсечка
         RUP(960,518)
         $c = $c - 1
      END_IF
   END_IF
   IF(($r1 = 4183752) & ($r2 = PXL(1229,957)))  //клюнула ли рыба, близко или нет
      RDOWN(960,518) //подсечка
      $c = $c + 1
      WAIT 10
      KEYPRESS(#SPACE) //подсачек
      WHILE(PXL(1118,796) != 3852216) //ожидание сообщения о поимке
         WAIT(1)
      END_CYC
      KEYPRESS(#SPACE) //в садок
   END_IF
   WAIT(1)
END_CYC
$a = $a - 1
WAIT(5)