Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Karabas

Pages: 1 2 [3] 4 5 6
31
Использование / Re: Трофейная рыбалка
« on: June 08, 2018, 01:57:45 AM »
Code: (clickermann) [Select]
/ 2699234

MOVE(567,289)
WAIT(1)
lDown(783,247)
waitms(1400)
lUp(783,247)
waitms(3835)// заброс донки полет нормальный

LOGWRITE ("Начинаю цикл")
$check = 0
WHILE($check = 0) // цикл ожидания
   GETSCREEN
   IF_PICTURE_IN (629,418,694,478, "ввв.bmp", -1, 100)   //определение   кивка донки в зоне поклевки
      LOGWRITE ("Пиксел найден")
      LCLICK(783,247)    // подсечка
      WAIT(1)
      KEYDOWN(#space)//Энергия
      LDOWN(783,247)    // подтяжка
      WAIT(120)            // длинная пауза для того что бы дотянуть рыбу ну очень длинная
      LUP(783,247)      // перестает мотать
      WAIT(4)
      MOVE(567,289)
      WAIT(1)
      lDown(783,247)
      GETSCREEN
      IF_PICTURE_IN (871,681, $_xmax,$_ymax, "sell.bmp", -1, 100)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      END_IF
      // продажа рыб
      WAIT(10)
      $check = 1
   ELSE
      WAITMS(50)
   END_IF
END_CYC

LOGWRITE ("Конец")но немного не удобно большая пауза на подтяжке рыбы все портит... тратится много времени
вопрос; можно ли подтяжку сделать с условием  что то типа такого
Code: (clickermann) [Select]
GETSCREEN
   IF_PICTURE_IN (629,418,694,478, "ввв.bmp", -1, 100)   //определение   кивка донки в зоне поклевки
      LOGWRITE ("Пиксел найден")
      LCLICK(783,247)    // подсечка
      WAIT(1)
      KEYDOWN(#space)//Энергия
      LDOWN(783,247)    // подтяжка убрать длинную паузу а вместо нее поставить  вот это
Code: (clickermann) [Select]
GETSCREEN
      IF_PICTURE_IN (871,681, $_xmax,$_ymax, "sell.bmp", -1, 100)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      END_IF
      // продажа рыб т.е. удочка тянет (зажата ЛКМ) до тех пор пока не появится окно продажи с кнопкой продать

32
Использование / Re: Трофейная рыбалка
« on: June 04, 2018, 11:00:52 AM »
вопрос решил так
Code: (clickermann) [Select]
lDown(783,247)
waitms(1400)
lUp(783,247)
waitms(3835)// заброс донки полет нормальный вот эту часть вставил туда где прерывается подтяжка рыбы

33
Использование / Re: Трофейная рыбалка
« on: June 04, 2018, 10:18:39 AM »
Добрый день. есть ещё вопрос. В принципе скрипт работает безупречно, но есть одно "НО" если попадается большая рыба рвется леска и прерывается процесс подтяжки. Удочка становится в положении "начало"  лог. но
Code: (clickermann) [Select]
LUP(783,247)      // перестает мотать
      WAIT(4)
      LCLICK(955,588)    // продажа рыб вот тут засада удочка реагирует на этот клик
      WAIT(1)
      $check = 1
   ELSE
      WAITMS(50)
   END_IF
END_CYCи на момент начало уже находится в воде

34
Использование / Re: Трофейная рыбалка
« on: May 31, 2018, 08:10:51 AM »
спасибо увеличил паузу так как после продажи рыбы идет соединение с сервером а это 2-х секундный провис поставил 3 и все начало работать

35
Использование / Re: Трофейная рыбалка
« on: May 30, 2018, 12:55:03 PM »
12:51:31 Начало
12:51:36 Начинаю цикл
12:51:53 Пиксел найден
12:53:19 Конец
12:53:19 Начало
12:53:24 Начинаю цикл

36
Использование / Re: Трофейная рыбалка
« on: May 30, 2018, 12:25:24 PM »
ок спс попробую

37
Использование / Re: Трофейная рыбалка
« on: May 30, 2018, 11:18:25 AM »
в том то и дело что цвет определяет иначе не подсекало бы и цикл доходит до конца иначе рыба бы не продавалась


если я правильно понимаю вот это

 не сработает если не сработает это

 и если можно объясните назначение этой фунции

38
Использование / Трофейная рыбалка
« on: May 30, 2018, 09:57:37 AM »
 ;D и снова здравствуйте... по прошествии многих дней решил снова трофейную рыбалку посетить но скрипт по чему то не робит может кто под правит... вернее робит все делает но не повторяет после последнего действия стоит как вкопанная  а должен снова сделать заброс и ждать поклевки
Code: (clickermann) [Select]
lDown(783,247)
waitms(1400)
lUp(783,247)
waitms(3835)// заброс донки полет нормальный

$check = 0
WHILE($check = 0) // цикл ожидания
   GETSCREEN
   IF_PIXEL_IN(688,308,759,355,2370797)   //определение пикселя  кивка донки в зоне поклевки
      LCLICK(783,247)    // подсечка
      WAIT(1)
      LDOWN(783,247)    // подтяжка
      WAIT(80)            // длинная пауза для того что бы дотянуть рыбу
      LUP(783,247)      // перестает мотать
      WAIT(4)
      LCLICK(955,588)    // продажа рыб
      WAIT(1)
      $check = 1
   ELSE
      WAITMS(50)
   END_IF
END_CYCскрипт писал  Oraven

39
Использование / Re: скрипт для НГ ивента "небеса"(проект)
« on: September 08, 2016, 08:45:27 AM »
скажите кто знает. на 64битках (проц) работает нормально? у меня на 32 битном норм а на 64 сбивается

40
Использование / Re: использование кликера в браузерной игре танки онлайн
« on: March 02, 2016, 01:09:52 PM »
если только для этого то вот под старую графику но вполне рабочий  бот для ТО
итак код настройки параметров вашей пушки
Code: (clickermann) [Select]
$w =2000    //Меняем это значение и калибруем пушку что бы при включении скрипта башня поворачивалась на 90 градусов, затем полученное значение  водим в следующий код напротив вашей пушки
waitms ($w)
keydown (#z)
waitms ($w)
keyup (#z)и теперь сам бот
Code: (clickermann) [Select]
// $w - время поворота башни на угол 90 градусов (в миллисекундах)сюда вводим значение полученное в коде настройки
//$w=1785  // смоки м0 убираем  двойной слеш(//) у пушки которую мы выбрали и меняем на наше значение
//$w=1442  // смоки м2
//$w=1130  // смоки м3 
//$w=1328  // твинс м1
//$w=1164  // твинс м
//$w=1030  // твинс м3
//$w=2900  // рельса м0 
//$w=2525  // рельса м1
//$w=1556 // рельса м3
//$w=1836  // рик м0
//$w=1241  // рик м3
//$w=2200  // гром м0
//$w=2030  // гром м1

$x0=0
$yt=0
$x3=1020   
$yb=800   
 
$h = wndfind("FlashEx Client v2.1.2  ( forum333.com )")
//$h = wndfind("Tanki Online - Google Chrome")

$x1=$x3/3
$x2=$x1+$x1
$pcolor= 1883722
$t=$_time_t
//$ycolor=1034712
IF($h > 0)
wndpos($h, $x0,$yt)
wndsize($h, $x3, $yb)
WNDSTATE ($h,0)
WNDSTATE ($h,1)
LCLICK ($x3/2, $yb/2)
END_IF
LOGCLEAR

while ($h>0)
//---------------------------------------------
SUB(tg)
$r=$w/18
IF ($xc<$x3/2)
$tg=1000*($x3/2-$xc)/($yb-$yc)
else
$tg=1000*($xc-$x3/2)/($yb-$yc)       
END_IF
IF ($xc=$x3/2)
$tg=0
$r=0
$abc=0
END_IF
IF ($tg>0 & $tg<45)
$r=$r/2
$abc=2
END_IF
IF ($tg>44 & $tg<88)
$r=$r
$abc=5
END_IF
IF ($tg>87 & $tg<133)
$r=$r+$r/2
$abc=7
END_IF
IF ($tg>132 & $tg<177)
$r=$r*2
$abc=10
END_IF
IF ($tg>176 & $tg<269)
$r=$r*3
$abc=15
END_IF
IF ($tg>268 & $tg<365)
$r=$r*4
$abc=20
END_IF
IF ($tg>364 & $tg<467)
$r=$r*5
$abc=25
END_IF
IF ($tg>466 & $tg<578)
$r=$r*6
$abc=30
END_IF
IF ($tg>577 & $tg<701)
$r=$r*7
$abc=35
END_IF
IF ($tg>700 & $tg<840)
$r=$r*8
$abc=40
END_IF
IF ($tg>839 & $tg<1001)
$r=$r*9
$abc=45
END_IF
IF ($tg>1000 & $tg<1193)
$r=$r*10
$abc=50
END_IF
IF ($tg>1192 & $tg<1429)
$r=$r*11
$abc=55
END_IF
IF ($tg>1428 & $tg<1733)
$r=$r*12
$abc=60
END_IF
IF ($tg>1732 & $tg<2146)
$r=$r*13
$abc=65
END_IF
IF ($tg>2145 & $tg<2748)
$r=$r*14
$abc=70
END_IF
IF ($tg>2747 & $tg<3733)
$r=$r*15
$abc=75
END_IF
IF ($tg>3732 & $tg<5672)
$r=$r*16
$abc=80
END_IF
IF ($tg>5671 & $tg<11431)
$r=$r*17
$abc=85
END_IF
IF (($tg>11430 )  | ($tg<0))
$r=$r*18
$abc=90
END_IF
end_sub
//---------------------------------------------
SUB(target)
while  (($xc<$x3/2) | ($xc>$x3/2) & ($xc>0))
IF  (($xc<$x3/2) & ($xc>0))
GOSUB(tg)
keydown (#z)
waitms ($r)
keyup (#z)
  Getscreen
IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
$xc=$_return1+10
$yc=$_return2
else
$xc=0
END_IF
END_IF
IF  (($xc>$x3/2) & ($xc>0))
GOSUB(tg)
keydown (#x)
waitms ($r)
keyup (#x)
  Getscreen
IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
$xc=$_return1+10
$yc=$_return2
else
$xc=0
END_IF
END_IF
IF ($abc < 10 )
keydown (#SPACE)
else
keyup (#SPACE)
End_IF
end_cyc
end_sub
//----------------------------------------------
m1:
keyup (#SPACE)
IF ($_time_t-$t>60)
$t=$_time_t
wndpos($h, $x0,$yt)
wndsize($h, $x3, $yb)
WNDSTATE ($h,0)
WNDSTATE ($h,1)
LCLICK ($x3/2, $yb/2)
END_IF
Getscreen
$zone_l=pxlcount ($x0,$yt,$x1,$yb, $pcolor)
$zone_c=pxlcount ($x1,$yt,$x2,$yb, $pcolor)
$zone_r=pxlcount ($x2,$yt,$x3,$yb, $pcolor)
IF (($zone_c=0) & ($zone_l>0))
IF_PIXEL_IN ($x0,$yt,$x1,$yb, $pcolor)
$xc=$_return1+10
$yc=$_return2
GOSUB(tg)
END_IF
keydown (#z)
waitms ($r)
keyup (#z)
goto(m1)
END_IF
IF (($zone_c=0) & ($zone_r>0))
IF_PIXEL_IN ($x2,$yt,$x3,$yb, $pcolor)
$xc=$_return1+10
$yc=$_return2
GOSUB(tg)
END_IF
keydown (#x)                             
waitms ($r)
keyup (#x)
goto(m1)
END_IF
IF ($zone_c>0)
IF_PIXEL_IN ($x1,$yt,$x2,$yb, $pcolor)
$xc=$_return1+10
$yc=$_return2
$i=0
END_IF
IF_PIXEL_IN ($x1,$yb/3,$x2,$yb, $pcolor)
$xc=$_return1+10
$yc=$_return2
$i=0
END_IF
GOSUB(target)
END_IF

IF (($zone_c=0) & ($zone_r=0) & ($zone_l=0))
$zx=RNDFROM (67,88, 90)
$ad=RNDFROM (65,68)
IF ($i<3)
$i=$i+1
keydown (#w)
keydown ($zx)
keydown ($ad)
waitms ($w/18*12)
keyup ($ad)
keyup ($zx)
waitms ($w/18*9) 
keyup (#w)
else
$i=0
keydown (#s)
keydown (#c)
keydown ($ad)
waitms ($w+$w/2)
keyup ($ad)
keyup (#s)
keyup (#c)
END_IF
END_IF
goto(m1)   
end_cyc

41
Использование / Re: Нужна помощь в написании кода для ТР(трофейная рыб)
« on: January 12, 2016, 09:44:57 PM »
увеличил время и все робит
 ;D

42
Использование / Re: Нужна помощь в написании кода для ТР(трофейная рыб)
« on: January 12, 2016, 06:46:32 PM »
не много не работает.
Code: (clickermann) [Select]
getscreen
 
if_pixel_in(426, 213, 640, 290, 2370797)
   // когда кивок(пиксель красного цвета) донки опускается в нужные координаты нажимается ЛКМ
 
 
нужно разделить если выполнится условия поиска пикселя то тогда это
[code=clickermann]   
  LCLICK(600,393)
   WAIT(1)
   MOVE(600,393)
   WAITMS(65)
   MOVE(72,457)
end_if WAIT(1)
   MOVE(600,393)
   WAITMS(65)
   MOVE(72,457)
end_if ато сразу после заброса начинает дергать удилище

43
Использование / Re: Нужна помощь в написании кода для ТР(трофейная рыб)
« on: January 12, 2016, 03:58:40 PM »
ща попробую ;D

44
Использование / Нужна помощь в написании кода для ТР(трофейная рыб)
« on: January 12, 2016, 03:05:57 PM »
Задолбался сидеть на водопое и тягать кроков. проскочила шальная мысль а что если с помощью кликера автоматизировать процесс
сделал код на заброс но...
Code: (clickermann) [Select]
move(483,151) 
waitms(50)
LDOWN(174,312)
waitms(1300)
LUP(174,312)
wait(1)
halt   //если не ставить хальт, то после заброса леска начинает подтягиваться т.к. повторяет код   но хальт полностью останавливает работу кликера вопрос: как остановить после 6 строки и приэтом что бы кликер оставался в активном состоянии?
дальше вообще туго авто подсечка отдельно от заброса робит нормально вопрос № 2 как соединить этих два кода алгоритм следующий.
1 заброс
2. ожидание поклевки
3. поклевка, подсечка и подтяжка
вот код для авто подсечки
Code: (clickermann) [Select]
getscreen

if_pixel_in(426, 213, 640, 290, 2370797)
   // когда кивок(пиксель красного цвета) донки опускается в нужные координаты нажимается ЛКМ
   
   LCLICK(600,393)
   
   WAIT(1)
   MOVE(600,393)
   WAITMS(65)
   MOVE(72,457)
end_ifИгра находится в вк называется трофейная рыбалка. с донкой нюанс на первых лвл её нету. поэтому помощь нужна хотябы гипотетически.

45
Использование / Re: скрипт для НГ ивента "небеса"(проект)
« on: December 24, 2015, 01:30:18 AM »
теперь все путем

Pages: 1 2 [3] 4 5 6