Рыцарская Сага

Главная Регистрация Вход
Суббота, 24.10.2020, 06:54

Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум Рыцарская Сага » Список форумов » Трофейная рыбалка 2 » Трофейная рыбалка 2 (браузерная игра одноклассники)
Трофейная рыбалка 2
RemmДата: Вторник, 18.08.2020, 12:15 | Сообщение # 1
Паладин
Группа: Администраторы
Сообщений: 153
Репутация: 9
Статус: Offline
Трофейная рыбалка 2

Решил вспомнить молодость... Написал скрипт ловли для кликера...

Работает для 1-3 слотов удочек. Поплавочная или донная в любых комбинациях. Два вида заброса, на автомате если нет привязки (F8), задается дальность переменной $max. Есть автовываживание, отключается удержанием кнопки С до щелчка...


Код
////////////////////////////////////////////////////////////
//////////////// Трофейная рыбалка 2 ///////////////////////
////////////////////////////////////////////////////////////

$Xe = 1440 // координата X ширина экрана
$Xe2 = 720 // координата X половина ширины экрана
$Ye = 900 // координата Y высота экрана
$Ye2 = 450 // координата Y половина высоты экрана

$zabrosA = 2 // заброс  (1 ручной заброс. 2 атозаброс)
$TF = 0 // 1(500) 3(300) 5(200) 7(100)  10(0)
$wTF1 = 1 // 1(500) 3(300) 5(200) 7(100)  10(0)
$wTF2 = 2 // 1(500) 3(300) 5(200) 7(100)  10(0)
$wTF3 = 3 // 1(500) 3(300) 5(200) 7(100)  10(0)
$donka1 = 0 // 1 для донки 1 СЛОТ
$donka2 = 0 // 1 для донки 2 СЛОТ
$donka3 = 0 // 1 для донки 3 СЛОТ
$Slot = 3 // число удочек
$max = 550 // max 435  дальность заброса
$topit = 0 // 0 всё 1 топит 2 ложит 3 нет подсечки

////////////////////////  выбор удочки  ////////////////////////////////////////
SUB(uda)
   GETSCREEN
   COLORMODE(6, 40,$Ye-92,230,$Ye-84)
   $wTF = PXLCOUNT(40,$Ye-92,230,$Ye-84, 4194303)
   IF($wTF > 3)
      $TF = $wTF1
      if($donka1 = 1)
         $donka = 1
      else
         $donka = 0
      END_IF
   END_IF
   
   $wTF = PXLCOUNT(100,$Ye-92,140,$Ye-84, 4194303)
   IF($wTF > 3)
      $TF = $wTF2
      if($donka2 = 1)
         $donka = 1
      else
         $donka = 0
      END_IF
   END_IF
   
   $wTF = PXLCOUNT(190,$Ye-92,230,$Ye-84, 4194303)
   IF($wTF > 3)
      $TF = $wTF3
      if($donka3 = 1)
         $donka = 1
      else
         $donka = 0
      END_IF
   END_IF
END_SUB
//------------------------------------------------------------------------------

////////////////////////  клик при подсечке  ///////////////////////////////////
SUB(klik)
   MOVE($Xe2,175)
   WAITMS(50)
   LCLICK($Xe2,175)
   $poklevka = 1
   WAITMS(500)
END_SUB
//------------------------------------------------------------------------------

///////////////////////////// ЗАБРОС  //////////////////////////////////////////
SUB(zabros)
   KEYUP(#SPACE)
   uda()
   IF($TF = $wTF1)
      $LTF1 = 0
      $time1 = 0
   END_IF
   IF($TF = $wTF2)
      $LTF2 = 0
      $time2 = 0
   END_IF
   IF($TF = $wTF3)
      $LTF3 = 0
      $time3 = 0
   END_IF
   //-------------------------------- заброс авто
   IF($zabrosA = 2)
      MOVE($Xe2,$max) // max 435  дальность заброса
      WAITMS(100)
      LCLICK($Xe2,$max)
   END_IF
   IF(($zabrosA = 1)&($donka = 0)) // поплавок
      MOVE($Xe2,200)
      WAITMS(400+$TF) // задержка на махе
      LDOWN($Xe2,200)
      WAITMS(100)
      MOVER(0,700) // отпускание
      WAITMS(200)
      LUP($Xe2,700)
      WAITMS(10)
      MOVE($Xe2,900)
   END_IF
   IF(($zabrosA = 1)&($donka = 1)) // донка
      MOVE($Xe2,100)
      WAITMS(500) // задержка на махе
      LDOWN($Xe2,100)
      WAITMS(100)
      MOVER(0,700) // отпускание
      WAITMS(100)
      LUP($Xe2,700)
      MOVE($Xe2,900)
   END_IF
END_SUB
//-----------------------------------------------------------------------------

//////////////////////////// Подсечка  /////////////////////////////////////////
SUB(podsek1, $x,$y,$x2,$y2)
   GETSCREEN
   $ob1 = PXLCOUNT(40,10, 50, 20, 53248)
   $ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
   IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
      COLORMODE(6, $x,$y,$x2,$y2)
      $red = PXLCOUNT($x,$y,$x2,$y2, 4145151)
      $bel = PXLCOUNT($x,$y,$x2,$y2, 16777215)
      IF(($red > 2)&($LTF1 = 0))
         $LTF1 = 1
      END_IF
      IF(($LTF1 = 1)&($red < 1)&($bel < 1))
         uda()
         SWITCH($topit)
         CASE(0) // всё
            IF($TF ! $wTF1)
               KEYPRESS(#1)
               WAITMS(50)
            END_IF
            klik()
            $LTF1 = 0
         CASE(1)// топит
            WAITMS(500)
            GETSCREEN
            $red2 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 255) // красный
            $col1 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 0)  // чёрный
            IF(($red2 < 1)&($col1 < 1))
               IF($TF ! $wTF1)
                  KEYPRESS(#1)
                  WAITMS(50)
               END_IF
               klik()
            END_IF
         CASE(2)// ложит
            WAITMS(500)
            GETSCREEN
            $red2 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 255) // красный
            $col1 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 0)  // чёрный
            IF(($red2 > 2)|($col1 > 2))
               IF($TF ! $wTF1)
                  KEYPRESS(#1)
                  WAITMS(50)
               END_IF
               klik()
            END_IF
         END_SWITCH
         GETSCREEN
         $ob11 = PXLCOUNT(40,10, 50, 20, 53248)
         $ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
         IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
            RCLICK($Xe2,175)
            $LTF1 = 0
            $VVV = 1
            $poklevka = 0
            SOUND ("data/sound/record")
         END_IF
      END_IF
   END_IF
END_SUB
//------------------------------------------------------------------------------

//////////////////////////// Подсечка 2 ////////////////////////////////////////
SUB(podsek2, $x,$y,$x2,$y2)
   GETSCREEN
   $ob1 = PXLCOUNT(40,10, 50, 20, 53248)
   $ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
   IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
      COLORMODE(6, $x,$y,$x2,$y2)
      $red = PXLCOUNT($x,$y,$x2,$y2, 4145151)
      $bel = PXLCOUNT($x,$y,$x2,$y2, 16777215)
      IF(($red > 2)&($LTF2 = 0))
         $LTF2 = 1
      END_IF
      IF(($LTF2 = 1)&($red < 1)&($bel < 1))
         uda()
         SWITCH($topit)
         CASE(0) // всё
            IF($TF ! $wTF2)
               KEYPRESS(#2)
               WAITMS(50)
            END_IF
            klik()
            $LTF2 = 0
         CASE(1)// топит
            WAITMS(500)
            GETSCREEN
            $red2 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 255) // красный
            $col1 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 0)  // чёрный
            IF(($red2 < 1)&($col1 < 1))
               IF($TF ! $wTF2)
                  KEYPRESS(#2)
                  WAITMS(50)
               END_IF
               klik()
            END_IF
         CASE(2)// ложит
            WAITMS(500)
            GETSCREEN
            $red2 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 255) // красный
            $col1 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 0)  // чёрный
            IF(($red2 > 2)|($col1 > 2))
               IF($TF ! $wTF2)
                  KEYPRESS(#2)
                  WAITMS(50)
               END_IF
               klik()
            END_IF
         END_SWITCH
         GETSCREEN
         $ob11 = PXLCOUNT(40,10, 50, 20, 53248)
         $ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
         IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
            RCLICK($Xe2,175)
            $LTF2 = 0
            $VVV = 1
            $poklevka = 0
            SOUND ("data/sound/record")
         END_IF
      END_IF
   END_IF
END_SUB
//------------------------------------------------------------------------------

//////////////////////////// Подсечка 3 ////////////////////////////////////////
SUB(podsek3, $x,$y,$x2,$y2)
   GETSCREEN
   $ob1 = PXLCOUNT(40,10, 50, 20, 53248)
   $ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
   IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
      COLORMODE(6, $x,$y,$x2,$y2)
      $red = PXLCOUNT($x,$y,$x2,$y2, 4145151)
      $bel = PXLCOUNT($x,$y,$x2,$y2, 16777215)
      IF(($red > 2)&($LTF3 = 0))
         $LTF3 = 1
      END_IF
      IF(($LTF3 = 1)&($red < 1)&($bel < 1))
         uda()
         SWITCH($topit)
         CASE(0) // всё
            IF($TF ! $wTF3)
               KEYPRESS(#3)
               WAITMS(50)
            END_IF
            klik()
            $LTF3 = 0
         CASE(1)// топит
            WAITMS(500)
            GETSCREEN
            $red2 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 255) // красный
            $col1 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 0)  // чёрный
            IF(($red2 < 1)&($col1 < 1))
               IF($TF ! $wTF3)
                  KEYPRESS(#3)
                  WAITMS(50)
               END_IF
               klik()
            END_IF
         CASE(2)// ложит
            WAITMS(500)
            GETSCREEN
            $red2 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 255) // красный
            $col1 = PXLCOUNT($x-30,$y,$x2+30,$y2+30, 0)  // чёрный
            IF(($red2 > 2)|($col1 > 2))
               IF($TF ! $wTF3)
                  KEYPRESS(#3)
                  WAITMS(50)
               END_IF
               klik()
            END_IF
         END_SWITCH
         GETSCREEN
         $ob11 = PXLCOUNT(40,10, 50, 20, 53248)
         $ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
         IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
            RCLICK($Xe2,175)
            $LTF3 = 0
            $VVV = 1
            $poklevka = 0
            SOUND ("data/sound/record")
         END_IF
      END_IF
   END_IF
END_SUB
//------------------------------------------------------------------------------

////////////////////////////  Подсечка донка  //////////////////////////////////
SUB(podsekD, $x,$y,$x2,$y2,$Batton)
   GETSCREEN
   $ob1 = PXLCOUNT(40,10, 50, 20, 53248)
   $ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
   IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
      COLORMODE(6, $x,$y,$x2,$y2)
      $zel = PXLCOUNT($x,$y,$x2,$y2, 4194111)
      IF($zel > 5)
         uda()
         SWITCH($Batton)
         CASE(1)
            IF($TF ! $wTF1)
               KEYPRESS(#1)
            END_IF
         CASE(2)
            IF($TF ! $wTF2)
               KEYPRESS(#2)
            END_IF
         CASE(3)
            IF($TF ! $wTF3)
               KEYPRESS(#3)
            END_IF
         END_SWITCH
         klik()
         SOUND ("data/sound/record")
         $VVV = 1
      END_IF
   END_IF
END_IF
END_SUB
//------------------------------------------------------------------------------

///////////////////////////////  засеклась /////////////////////////////////////
SUB(zaz)
IF(($VVV = 0)&($time1 > 25)&($Slot > 1))
   KEYPRESS(#1)
   $time1 = 0
END_IF
IF(($VVV = 0)&($time2 > 30)&($Slot > 1))
   KEYPRESS(#2)
   $time2 = 0
END_IF
IF(($VVV = 0)&($time3 > 35)&($Slot > 2))
   KEYPRESS(#3)
   $time3 = 0
END_IF
END_SUB

//------------------------------------------------------------------------------

////////////////////////////////////////////////////////////////////////////////
////////////////////////// ПРОДАЖА /////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
GETSCREEN
COLORMODE(6, $Xe2-30,$Ye-45, $Xe2+155, $Ye-35)
$col1 = PXLCOUNT($Xe2-30,$Ye-45, $Xe2-25, $Ye-35, 4144959)
$col2 = PXLCOUNT($Xe2+145,$Ye-45, $Xe2+155, $Ye-35, 4194303)
IF(($col1 > 5) & ($col2 > 5))
$VVV = 0
$pop = 0
$LTF1 = 0
$LTF2 = 0
$LTF3 = 0
$poklevka = 0
KEYUP(#SPACE)
WAITMS(100)// продажа
MOVE($Xe2-75,$Ye-40) // золото (энергия + 140)
WAITMS(50)
LCLICK($Xe2-75,$Ye-40)
WAITMS(100)
MOVE($Xe2,330)

//-------------------------------- // проверка области
FOR($Esc=0, $Esc < 50)
   GETSCREEN
   $ob1 = PXLCOUNT(40,10, 50, 20, 53248)
   $ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
   IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
      $Esc = 100
   END_IF
   WAITMS(100)
END_CYC

GETSCREEN
$ob1 = PXLCOUNT(40,10, 50, 20, 53248)
$ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
   zabros()// заброс
END_IF
WAITMS(100)
END_IF
//----------------------- ПРОДАЖА конец ----------------------------------------

////////////////////////////////////////////////////////////////////////////////
/////////////////////       окно лова      /////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
GETSCREEN
$ob1 = PXLCOUNT(40,10, 50, 20, 53248)
$ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
//-------------------------------- 1 удочка
GETSCREEN
COLORMODE(6, 36,$Ye-16, 56,$Ye-8)
$obTF1 = PXLCOUNT(36,$Ye-16, 56,$Ye-8, 4194111)
IF($obTF1 > 5)
   uda()
   IF($TF ! $wTF1)
      KEYPRESS(#1)
      WAITMS(50)
   END_IF
   MOVE($Xe2,330)
   WAIT(2)
   zabros()// заброс при обрыве
END_IF
//-------------------------------- 2 удочка
GETSCREEN
COLORMODE(6, 125,$Ye-16, 145,$Ye-8)
$obTF2 = PXLCOUNT(125,$Ye-16, 145,$Ye-8, 4194111)
IF($obTF2 > 5)
   uda()
   IF($TF ! $wTF2)
      KEYPRESS(#2)
      WAITMS(50)
   END_IF
   MOVE($Xe2,330)
   WAIT(2)
   zabros()// заброс при обрыве
END_IF
//-------------------------------- 3 удочка
GETSCREEN
COLORMODE(6, 215,$Ye-16, 235,$Ye-8)
$obTF3 = PXLCOUNT(215,$Ye-16, 235,$Ye-8, 4194111)
IF($obTF3 > 5)
   uda()
   IF($TF ! $wTF3)
      KEYPRESS(#3)
      WAITMS(50)
   END_IF
   MOVE($Xe2,330)
   WAIT(2)
   zabros()// заброс при обрыве
END_IF
//--------------------------------  засеклась
IF($topit = 0)
   zaz()
   $time1 = $time1+1
   $time2 = $time2+1
   $time3 = $time3+1
END_IF
//--------------------------------
WAITMS(100)
IF($topit ! 3)
   IF($donka1 = 0)
      podsek1(43,$Ye-64,52,$Ye-50)// подсечка
   ELSE
      podsekD(53,$Ye-58,63,$Ye-50,1)// подсечка
   END_IF
   IF($Slot > 1)
      WAITMS(100)
      IF($donka2 = 0)
         podsek2(130,$Ye-64,140,$Ye-50)// подсечка 2 удочка
      ELSE
         podsekD(140,$Ye-58,150,$Ye-50,2)// подсечка
      END_IF
   END_IF
   IF($Slot = 3)
      WAITMS(100)
      IF($donka3 = 0)
         podsek3(220,$Ye-64,230,$Ye-50)// подсечка 3 удочка
      ELSE
         podsekD(230,$Ye-58,240,$Ye-50,3)// подсечка
      END_IF
   END_IF
END_IF
END_IF
//-------------------------  окно лова конец  ----------------------------------

//--------------------------------  торможение
IF(ISKEYDOWN(#Tab) = 1)
LCLICK($Xe2,175)
WAITMS(300)
LCLICK($Xe2,175)
WAITMS(300)
LCLICK($Xe2,175)
WAITMS(300)
END_IF

//-------------------------------- АВТО - ВЫВАЖИВАНИЕ 1 УДОЧКА
IF(ISKEYDOWN(#Q) = 1)
KEYPRESS(#1)
WAITMS(50)
MOVE($Xe2,175)
WAITMS(50)
LCLICK($Xe2,175)
WAITMS(50)
RCLICK($Xe2,175)
$LTF1 = 0
$VVV = 1
SOUND ("data/sound/stop")
WAITMS(500)
END_IF

//-------------------------------- АВТО - ВЫВАЖИВАНИЕ 2 УДОЧКА
IF(ISKEYDOWN(#W) = 1)
KEYPRESS(#2)
WAITMS(50)
MOVE($Xe2,175)
WAITMS(50)
LCLICK($Xe2,175)
WAITMS(50)
RCLICK($Xe2,175)
$LTF2 = 0
$VVV = 1
SOUND ("data/sound/stop")
WAITMS(500)
END_IF
//-------------------------------- АВТО - ВЫВАЖИВАНИЕ 3 УДОЧКА
IF(ISKEYDOWN(#E) = 1)
KEYPRESS(#3)
WAITMS(50)
MOVE($Xe2,175)
WAITMS(50)
LCLICK($Xe2,175)
WAITMS(50)
RCLICK($Xe2,175)
$LTF3 = 0
$VVV = 1
SOUND ("data/sound/stop")
WAITMS(500)
END_IF

//-------------------------------- ВЫВАЖИВАНИЕ ---------------------------------
IF($VVV = 1)
IF(ISKEYDOWN(#D) = 1)
   $pop = 50 + $pop // поправка
   SOUND ("data/sound/stop")
END_IF
IF(ISKEYDOWN(#A) = 1)
   $pop = $pop - 50 // поправка
   SOUND ("data/sound/stop")
END_IF
GETSCREEN
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
   WAITMS(10)
   GETSCREEN
   COLORMODE(6, $Xe-45,$Ye2-120,$Xe-30,$Ye2+125)
   $ob1 = PXLCOUNT($Xe-45,$Ye2+50, $Xe-30,$Ye2+100, 16777215)
   $ob2 = PXLCOUNT($Xe-45,$Ye2+100, $Xe-30,$Ye2+125, 16777215)
   $ob3 = PXLCOUNT($Xe-35,$Ye2, $Xe-30,$Ye2+30, 4194303) // желтая зона
   $ob4 = PXLCOUNT($Xe-35,$Ye2-70, $Xe-30,$Ye2-60, 4161535) // оранжевая зона
   $ob5 = PXLCOUNT($Xe-35,$Ye2-100, $Xe-30,$Ye2-80, 4145151) // красная зона
   $ob6 = PXLCOUNT($Xe-35,$Ye2-120, $Xe-30,$Ye2-105, 4194303) // желтая зона превышения
   IF(($ob4 > 2) | ($ob5 > 2)) //превышение нагрузки
      MOVE($Xe2,175)
      WAITMS(10)
      LCLICK($Xe2,175)
      $NAG = 1
   END_IF
   IF($ob3 > 2)
      KEYDOWN(#SPACE)
      WAITMS(500)
   END_IF
   IF($ob6 > 2)
      KEYUP(#SPACE)
   END_IF
   IF(($ob3 < 2)&($NAG = 1))
      RCLICK($Xe2,175)
      $NAG = 0
   END_IF
   IF($ob1 > 2)
      MOVE($Xe2+$pop,175)
   END_IF
   IF($ob2 > 2)
      FOR($a=0, $a < 10)
         MOVER(0,-25)
         WAITMS(100)
      END_CYC
   END_IF
END_IF
END_IF
//-------------------------------- ВЫВАЖИВАНИЕ КОНЕЦ ---------------------------

//--------------------------------   ПОКЛЁВКА
IF($poklevka = 1)
GETSCREEN
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20) & ($VVV = 0)) // экран вываживания
   MOVE($Xe2,175)
   WAITMS(50)
   RCLICK($Xe2,175)
   $VVV = 1
   $poklevka = 0
END_IF
END_IF

//-------------------------------- АВТО - ВЫВАЖИВАНИЕ
IF(ISKEYDOWN(#V) = 1)
uda()
IF($TF = $wTF1)
   $LTF1 = 0
END_IF
IF($TF = $wTF2)
   $LTF2 = 0
END_IF
$VVV = 1
END_IF

IF(ISKEYDOWN(#C) = 1) // стоп ВЫВАЖИВАНИЕ
LCLICK($Xe2,175)
$VVV = 2
SOUND ("data/sound/stop")
END_IF

//--------------------------------  нет нагрузки
GETSCREEN
$obZel = PXLCOUNT($Xe-35,$Ye2+115, $Xe-30,$Ye2+125, 65315)
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
$VVV = 1
IF($obZel < 5)
   MOVE($Xe2,175)
   WAITMS(50)
   LCLICK($Xe2,175)
   WAITMS(50)
   RCLICK($Xe2,175)
END_IF
END_IF

WAITMS(300) // опрос скрипта





Модмейкер
Рыцарская Сага
 
RemmДата: Вторник, 18.08.2020, 12:19 | Сообщение # 2
Паладин
Группа: Администраторы
Сообщений: 153
Репутация: 9
Статус: Offline
Чисто для спининга и под одно разрешение экрана 1440*900

Код
/////////////////////////////////////////////////////////////////////
//////////////// Трофейная рыбалка 2 Спининг  ///////////////////////
/////////////////////////////////////////////////////////////////////

$zabrosA = 1 // автозаброс
$TF = 0 // 

////////////////////////////// ПОДСЕЧКА ////////////////////////////////////////
SUB(podsek)
IF((ISKEYDOWN(#V) = 1)
MOVE(820,450)
WAITMS(50)
LUP(820,450)
WAITMS(50)
LDOWN(820,450)
WAITMS(100)
MOVE(0,450)
WAITMS(50)
LUP(0,450)
WAITMS(500)
GETSCREEN
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания 
MOVE(720,450)
WAITMS(50)
RCLICK(720,450)
SOUND ("data/sound/record")
$provodka = 0  
$VVV = 1
END_IF
END_IF
END_SUB
//------------------------------------------------------------------------------

GETSCREEN
COLORMODE(6, 690,855, 875, 865)
$col1 = PXLCOUNT(690,855, 695, 862, 4144959)
$col2 = PXLCOUNT(865,855, 875, 865, 4194303)
IF(($col1 > 5) & ($col2 > 5))
$provodka = 0
$VVV = 0
$pop = 0
KEYUP(#SPACE)
WAIT(1) // продажа
MOVE(646,860)
WAITMS(50)
LCLICK(646,860)
WAITMS(100)
MOVE(720,330)

//-------------------------------- // проверка области 
FOR($Esc=0, $Esc < 10)
GETSCREEN
$ob1 = PXLCOUNT(40,10, 50, 20, 53248)
$ob2 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob1 > 5) & ($ob2 > 20)) // окно лова
$Esc = 100
END_IF
WAITMS(500)
END_CYC
WAIT(2)

//-------------------------------- заброс ручной
IF($zabrosA = 1)
MOVE(720,100)
WAITMS(500+$TF) // задержка на махе
LDOWN(720,100)
WAITMS(100)
MOVER(0,700) // отпускание
WAITMS(100)
LUP(720,700)
MOVE(720,900)
$provodka = 0
END_IF

//-------------------------------- заброс авто
IF($zabrosA = 2)
LCLICK(720,335)
$provodka = 0
END_IF
END_IF
////////////////////////////////////////////////////////////////////////////////
//-------------------------------- // проверка области при проводке
IF($provodka = 1)
GETSCREEN
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
$provodka = 0
SOUND ("data/sound/stop")
END_IF
END_IF

IF($zabrosA = 1)
//--------------------------------  СТОП проводка ВЫВАЖИВАНИЕ
IF(ISKEYDOWN(#C) = 1)// 
$provodka = 0
$VVV = 0
$pop = 0
SOUND ("data/sound/stop")
WAIT(1)
END_IF

IF($provodka = 1)
GETSCREEN
COLORMODE(6, 36,884, 56,892)
$obTF = PXLCOUNT(36,884, 56,892, 4194111)
IF($obTF > 5)
    MOVE(720,330)
    $provodka = 0
   SOUND ("data/sound/stop")   
END_IF
END_IF

//-------------------------------- заброс ручной
IF(ISKEYDOWN(#Z) = 1)
$provodka = 0
$VVV = 0
$pop = 0
KEYUP(#SPACE)
IF($zabrosA = 2)
LCLICK(720,335)
else
MOVE(720,100)
WAITMS(500+$TF) // задержка на махе
LDOWN(720,100)
WAITMS(100)
MOVER(0,700) // отпускание
WAITMS(100)
LUP(720,700)
MOVE(720,900)
END_IF
END_IF

//-------------------------------- скорость проводки 
IF((ISKEYDOWN(#B) = 1) & ($N < 8)) // больше
$speed = $speed + 50
$N = $N+1
SOUND ("data/sound/load") 
WAIT(1)
END_IF
IF((ISKEYDOWN(#M) = 1) & ($N > - 8))// меньше
$speed = $speed - 50
$N = $N-1 
SOUND ("data/sound/load")
WAIT(1) 
END_IF

//--------------------------------  БЛЕСНЕНИЕ
IF((ISKEYDOWN(#X) = 1)|($provodka = 1))
MOVE(720,400)
LDOWN(720,400)
FOR($a=0, $a < 4)
IF(($VVV = 0)&(ISKEYDOWN(#V) = 1))
$a=100
podsek()
ELSE
$var = RND(400, 500)+$speed
$provodka = 1
WAITMS($var)
END_IF
END_CYC
IF($provodka = 1)
LUP(720,400)
END_IF
END_IF

//--------------------------------  торможение
IF(ISKEYDOWN(#Tab) = 1)
LCLICK(720,450)
WAITMS(300)
LCLICK(720,450)
WAITMS(300)
LCLICK(720,450)
WAITMS(300)
END_IF

//-------------------------------- ВЫВАЖИВАНИЕ ---------------------------------
IF((($VVV = 1)|(ISKEYDOWN(#V) = 1))&($provodka = 0))
IF($VVV = 0)
MOVE(720,175)
WAITMS(30)
LCLICK(720,175)
WAITMS(30)
RCLICK(720,175)
SOUND ("data/sound/stop")
END_IF
$VVV = 1
IF(ISKEYDOWN(#D) = 1)
$pop = 50 + $pop // поправка
END_IF
IF(ISKEYDOWN(#A) = 1)
$pop = $pop - 50 // поправка
SOUND ("data/sound/stop")
END_IF
GETSCREEN
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
WAITMS(10)
GETSCREEN
COLORMODE(6, 1394,330,1410,575) 
$ob1 = PXLCOUNT(1394,500, 1410,550, 16777215)
$ob2 = PXLCOUNT(1394,550, 1410,575, 16777215)
$ob3 = PXLCOUNT(1405,450, 1410,480, 4194303) // желтая зона
$ob4 = PXLCOUNT(1405,380, 1410,390, 4161535) // оранжевая зона
$ob5 = PXLCOUNT(1405,350, 1410,370, 4145151) // красная зона
$ob6 = PXLCOUNT(1405,330, 1410,345, 4194303) // желтая зона превышения
IF(($ob4 > 2) | ($ob5 > 2)) //превышение нагрузки
MOVE(720,175)
WAITMS(10)
LCLICK(720,175)
$NAG = 1
END_IF
IF($ob3 > 10)
KEYDOWN(#SPACE)
WAITMS(500)         
END_IF
IF($ob6 > 2)
KEYUP(#SPACE)
END_IF
IF(($ob3 < 2)&($NAG = 1))
RCLICK(720,175)   
$NAG = 0      
END_IF
IF($ob1 > 2)
MOVE(710+$pop,175)
END_IF
IF($ob2 > 2)
FOR($a=0, $a < 10)
MOVER(0,-25)
WAITMS(100)
END_CYC
END_IF
END_IF
END_IF
//-------------------------------- ВЫВАЖИВАНИЕ КОНЕЦ ---------------------------

//-------------------------------- инвентарь
IF(ISKEYDOWN(#I) = 1)
MOVE(1410,475)
WAITMS(100)
LCLICK(1410,475) 
WAITMS(30)
MOVE(720,450)
WAIT(2)
END_IF
//--------------------------------

//--------------------------------  СМОТАТЬ
IF(ISKEYDOWN(#N) = 1)
$provodka = 0
$VVV = 0
$pop = 0
MOVE(720,350)
WAITMS(100)
LCLICK(720,350)
WAITMS(100)
RCLICK(720,350)
WAITMS(100)
SOUND ("data/sound/stop")
WAIT(1)
END_IF

//--------------------------------  нет нагрузки
GETSCREEN
$obZel = PXLCOUNT(1405,565, 1410,575, 65315)
$ob11 = PXLCOUNT(40,10, 50, 20, 53248)
$ob22 = PXLCOUNT(30,10, 40, 20, 16777215)
IF(($ob11 < 5) & ($ob22 < 20)) // экран вываживания
$VVV = 1
IF($obZel < 5)
   MOVE(720,175)
   WAITMS(50)
   LCLICK(720,175)
   WAITMS(50)
   RCLICK(720,175)
END_IF
END_IF

WAITMS(RND(200,300)) // опрос скрипта


Модмейкер
Рыцарская Сага
 
Форум Рыцарская Сага » Список форумов » Трофейная рыбалка 2 » Трофейная рыбалка 2 (браузерная игра одноклассники)
  • Страница 1 из 1
  • 1
Поиск:


Сайт создан: 24.04.2007 Rambler's Top100 Бесплатный конструктор сайтов - uCoz