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.


Topics - Karabas

Pages: [1]
1
короч народ. надо запустить программу а через 2 часа ее выключить и сразу сново запустить
алгоритм примерно такой
адрес C:\Users\Петр\Desktop\INTRADE BAR PROGRAM имя прогр INTRADE_BAR_(EA)
после запуска программы надо нажать кнопку
картинки из сампа а потом кнопку ок а через 2 часа выключить и через 1 минуту опять запустить


2
есть старенький. но в условиях отсутствия. какой либо альтернативы, код для бота танкионлайн
помогите убрать из кода скрипт отвечающий за движение корпуса (єто клавиши "w""a""s""d" или стрелочки)
и еще башня крутится ориентируясь на цвет пикселя. не могу понять алгоритм работы
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

3
Использование / Трофейная рыбалка
« 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

4
Задолбался сидеть на водопое и тягать кроков. проскочила шальная мысль а что если с помощью кликера автоматизировать процесс
сделал код на заброс но...
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
Игра находится в вк называется трофейная рыбалка. с донкой нюанс на первых лвл её нету. поэтому помощь нужна хотябы гипотетически.

5
Скрипт скажем так ещё и не скрипт а проект. Итак идея:
1. авто нахождение нужного монстра
2. бой с ним(правда бой рассчитан  на перса 8-10 лвл или урон не меньше 100к, ну и дракон хаоса в питомцах) можно конечно же добавить пару эликов в рюкзак и прописать клики по ним
Code: (clickermann) [Select]
LCLICK(790,382)  //êëèê íà íîâûé îñòðîâ
wait(4)

//////////////ïîèñê ìîíñòðîâ/////////
getscreen 
if_pixel_in(130, 499, 300, 691, 7352850) //4149370, 12110298 

LCLICK(208,596)

LCLICK(229,580)

wait(2)
LCLICK(569,419)
LCLICK(565,450)

LCLICK(572,461)
LCLICK(759,199)

wait(20)

LCLICK(234,659)   //ìîëíèÿ
wait(1)

LCLICK(557,609)   //ñíåã
LCLICK(605,606)   //ñíåã

//////íà ñëó÷àé ïðîèãðûøà///////////
LCLICK(506,473)  //los
wait(2)
LCLICK(503,489)



LCLICK(447,493) //ïðîäàòü
wait(10)
LCLICK(564,513)  //otdat"
wait(3)
LCLICK(713,544)  //come back-åñëè êîìï çàòîðìîçèë
wait(2)
LCLICK(696,540)   //come back
wait(3)
LCLICK(704,543)   //come back
wait(1)
LCLICK(705,543)   //come back
wait(2)
LCLICK(709,544)   //come back
wait(2)
LCLICK(701,543)   //come back
wait(2)
LCLICK(570,516)   //come back


LCLICK(574,498)
wait(10)

LCLICK(569,492)
WAIT(2)
END_CYC
а вот дальше самое интересное есть задумка настроить в этом скрипте, сортировщик дропа.
ну что бы не продавать весь дроп так как он нужен для квеста. а сортировать его объеденяя уже с имеющимся и отправка в сундук а остальной шлак на слив торговцу.
с подключением под программ у меня сложности с переменными тоже поэтому идею изложу в таком виде:
1.после того как побежденный монстр кинет дроп включается поиск по рисунку.
так как монстры разные то и дроп с них тоже разный
2.нужный отправляем в рюкзак, объединяем и отправляем в сундук
3. не нужный дроп сливаем горбатому
в общем как то так...
 хотя судя по всему проще будет подготовить сундук(секцию) и сливать весь дроп туда а потом сортировать в ручную
че то я засомневался :-\

6
Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "file.bmp", -1, 100)
   LCLICK($_return1, $_return2)
   WAITMS(100)
END_IF
расшифруйте плиз эту строку.
Code: (clickermann) [Select]
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "file.bmp", -1, 100)
и ещё скажите какого разрешения должно быть изображение, и в какой папке хранится?

7
Устроить автопрогон с помощью программы clickermann для собирания кристаллов, опыта и прочих плюшек в пещере игры "небеса"достаточно прост даже для обычных юзеров(как я), не имеющих ни какого понятия в программировании( ну или на уровне информатики школьной программы). и вот вам доказательство, не замысловатый код с прогоном всех монстров пещеры...
Code: (clickermann) [Select]
1:
LCLICK(321,506)
wait (1)

LCLICK(700,446) // прогон червь
wait(1)

LCLICK(703,432) // прогон spider
wait(1)

LCLICK(703,417) // прогон spider2
wait(1)

LCLICK(703,463) // прогон scorpion
wait(1)

LCLICK(500,444) //клик ошибки
waitms(50)

end_if

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

Идея проста... надо вставить в это простейший  код который находит пиксель с цветом нашего "алтаря"
Code: (clickermann) [Select]
LCLICK(969,367)
wait(4)

getscreen

if_pixel_in(239, 468, 464, 698, 3163070)
 
  lclick($_return1, $_return2)
end_if
при определении нужного нам цвета программа кликера останавливается дожидаясь хозяина с ожидаемым уловом.
Но... самое большое но... как увязать это с предыдущим кодом(выше) и как заставит остановить дальнейший поиск
Не судите строго за простоту моих рассуждений и примитивизм данного скрипта. я не сколько не претендую на звание про и т.д.
 просто подкиньте мысль, причем как можно проще, дабы не привыкший к таким поворотам мозг не сломался

8
Использование / Помогите создать скрипт
« on: December 06, 2015, 01:26:23 PM »
Помогите создать скрипт, собственно, проблема в основном с таймером, однако и остальное делаю как мне кажется по колхозному, загружая комп процессами. так что если не трудно помогите.

Алгоритм следующий:
1. в 6:00 запускается гугл хром
2. запускается контакт
3. вводится лог и пас
2. в адресную строку вводится адрес http://vk....
3. производится LCLICK (964,338)
4. браузер закрывается

Pages: [1]