241
News:
Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
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.
242
Предложения / Re: Раздел "Красивые решения"
« on: October 24, 2018, 02:16:53 AM »
Можете закидать меня сочными помидорами. 
ИМХО, Кликер не обладает достаточным функционалом для немонотонного (разнообразного) решения задач и красивого оформления кода. Но, справедливости ради стоит повторить слова, сказанные многажды раз до меня. Текущего функционала достаточно для выполнения большинства задач.
Напоследок добавлю. Кликер уникален тем, что не обременяет пользователя перегруженным синтаксисом и функционалом, что прямо указывает на причинно-следственную связь.
ИМХО, Кликер не обладает достаточным функционалом для немонотонного (разнообразного) решения задач и красивого оформления кода. Но, справедливости ради стоит повторить слова, сказанные многажды раз до меня. Текущего функционала достаточно для выполнения большинства задач.
Напоследок добавлю. Кликер уникален тем, что не обременяет пользователя перегруженным синтаксисом и функционалом, что прямо указывает на причинно-следственную связь.
243
Общие вопросы / Re: Подпрограмма закрывается до выполнения IF_PICTURE_IN
« on: October 08, 2018, 01:27:16 PM »Code: (clickermann) [Select]
SUB(подпрограмма) // подпрограмма
WAITMS(100)
LCLICK(109,154)
WAIT($y)
$check = 0
WHILE($check = 0) // Цикл ожидания картинки
GETSCREEN(758, 215, 1341, 491)
IF_PICTURE_IN (758, 215, 1341, 491, "007.bmp") //Условие 1
PRINT("Картинка найдена")
$check = 1 // Выход из цикла ожидания картинки
WAITMS(100)
LCLICK(827,553)
WAITMS(200)
KEYPRESS(#DELETE)
WAITMS(100)
KEYPRESS(#DELETE)
WAITMS(100)
KEYPRESS(#DELETE)
WAITMS(100)
KEYPRESS(#DELETE)
WAITMS(200)
KEYSTRING($x)
WAITMS(100)
LCLICK(1200,640)
WAITMS(200)
LCLICK(1500,150)
ELSE
PRINT("Картинка не найдена")
END_IF
WAITMS(15)
END_CYC
WAITMS(100)
END_SUB
244
Общие вопросы / Re: Как поднять слово букву в верхний регистр и наоборот?
« on: October 03, 2018, 03:24:20 PM »
Русские буквы подсвечены красным
https://yadi.sk/d/BleDaN8KVlWZYQ
З.Ы. Проблема в 64 битной версии кликера. Но суть проблема не ясна, он почему то не видит разницы между большой и маленькой буквой E
https://yadi.sk/d/BleDaN8KVlWZYQ
З.Ы. Проблема в 64 битной версии кликера. Но суть проблема не ясна, он почему то не видит разницы между большой и маленькой буквой E
245
Общие вопросы / Re: Как поднять слово букву в верхний регистр и наоборот?
« on: October 03, 2018, 03:08:16 PM »
Не понимаю, почему у меня английскую букву E игорит?
Code: (clickermann) [Select]
SUB(STRTOUPPER, $input_string)
IF($len_letters != 59)
STRSEPARATE("А:Б:В:Г:Д:Е:Ё:Ж:З:И:Й:К:Л:М:Н:О:П:Р:С:Т:У:Ф:Х:Ц:Ч:Ш:Щ:Ъ:Ы:Ь:Э:Ю:Я:A:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z", ":", $arraylist_upperLetters)
$len_letters = ARRSIZE($arraylist_upperLetters)
END_IF
FOR($i = 1, $i < STRLEN($input_string) + 1)
$cut = STRCUT($input_string, $i, 1)
$pos = STRPOS("АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ", $cut)
IF($arraylist_upperLetters[$pos-1] != $cut)
$input_string = STRCONCAT(STRCUT($input_string, 1, $i-1), $arraylist_upperLetters[$pos-1], STRCUT($input_string, $i+1, STRLEN($input_string)))
END_IF
END_CYC
$return_string = $input_string
END_SUB
STRTOUPPER("test")
PRINT($return_string) // Результат 15:04:45 TeST
HALT
246
Общие вопросы / Re: Как заставить кликер делать 100 кликов с интервалом в минуту???
« on: September 25, 2018, 04:21:21 PM »Code: (clickermann) [Select]
$time = $_time_t + 29
WHILE($time > $_time_t)
LCLICK(400,150)
WAITMS(50)
END_CYC
WAIT(60)
247
Общие вопросы / Re: Почему цикл в цикле не работает?
« on: September 21, 2018, 10:33:31 PM »Code: (clickermann) [Select]
FOR($i = 0, $i < 3) //должен запускать вложенный цыкл 3 раза и остановиться
LCLICK(970,870)
WAIT(1)
FOR($a = 0, $a < 28) //вложеный цыкл. делает 28 нажатий, и завершаеться
LCLICK(1000,500)
WAIT(1)
END_CYC
END_CYC
HALT
248
Прочее / Re: Юмор по теме и не только
« on: September 20, 2018, 11:07:12 PM »
Кто-то должен был это сделать
249
Использование / Re: Движение синей точки в противоположную от карасной
« on: September 20, 2018, 09:22:39 PM »не убежит так бот от игроков, поверь моему опыту,
только сразу к телепортироваться на другую карту и пережидать пока улетят или в невидимости фармить.
На обычных картах у меня сразу же бежит на порт и телепортируется, но на пвп можно сделать похитрее. Смысл в том, что радиус поражения пушек ниже чем радиус видимости на миникарте. Соответственно, мы еще можем себе позволить отлететь в сторону, пока красная точка не вошла в указанный радиус. Если всё же красная точка вошла в радиус, то можно использовать Ультра камуфляж и спокойно сменить карту.
250
Использование / Re: Движение синей точки в противоположную от карасной
« on: September 20, 2018, 08:47:24 PM »а зачем от красных убегать, этож мобы их фармят?на обычных картах да, но на пвп картах только живые враги
а убегают только от вражеских игроков и ещё отсиживаются пока они карту не покинут.
Или я уже, что-то забыл?
251
Использование / Re: Движение синей точки в противоположную от карасной
« on: September 20, 2018, 07:35:47 PM »лучше сразу честно признаться для какой это игры и выложить скрины,
а то окажется что это очередной давно и многократно написанный DarkOrbit или ещё что-то уже готовое.
да, и код выкладывайте сразу, на код компания быстрее составится.
Игру угадал, но я решил не акцентировать внимание на игре, что бы не усложнять тему игровыми особенностями и не привязывать тему к самой игре, но, видимо, получился обратный эффект.
Кода касающегося данной темы у меня еще нету. Есть пустышка, в которой всё должно происходить.
Code: (clickermann) [Select]
IF( ( ($flee_from_enemy & $pvp_maps) == 1) & ( ($actual_map & $work_map) == STRCONCAT(4, $id_company) ) )
#include "data\include\ship_position.cms" // Получение координат корабля на миникарте
IF(PXLCOUNT($_xpos - 15, $_ypos - 15, $_xpos + 15, $_ypos + 15, 204) > 0)
SCANPXL($array_coord, $_xpos - 15, $_ypos - 15, $_xpos + 15, $_ypos + 15, 204)
$check_out = 0
$len = ARRSIZE($array_coord)
IF($len > 0)
FOR($i = 0, ($i < $len, 2) & ($check_out = 0))
IF( ($_xpos - $array_coord[$i])*($_xpos - $array_coord[$i])+($_ypos - $array_coord[$i+1])*($_ypos - $array_coord[$i+1]) <= (8*8) ) // тут совершенно другая история
$check_out = 1
END_IF
END_CYC
UNDEFINE($array_coord)
END_IF
END_IF
END_IF
P.S. что то вроде такого если для одного пикселя, но как тогда избежать выхода за пределы карты, т.е. сделать смещение, что бы кликал вдоль/поперёк границы?
Code: (clickermann) [Select]
$X_run = INT($_xpos - $array_coord[$i]) * 2
$Y_run = INT($_ypos - $array_coord[$i+1]) * 2
MOVE($_xpos + $X_run, $_ypos + $Y_run)
252
Использование / Движение синей точки в противоположную от карасной
« on: September 20, 2018, 07:08:31 PM »
Есть прямоугольная 2D карта, на ней есть одна синяя точка с ограниченной квадратной областью видимости и неизвестное кол-во красных точек.
Цель задачи:
Если в радиус синей точки попала красная, то совершать клики на N количество пикселей в противоположную сторону от красной точки, что бы красная точка вышла из радиуса видимости синей. Т.е. образно говоря, что бы синяя точка убегала от красных.
В чем, собственно, сама проблема.
Область карты ограниченна и это тоже нужно как то учитывать перед кликами. Не ясно как быть с красными точками, брать одну ближайшую или как то учитывать все, применять какие то шаблонны?
В общем, я буду рад, если мне кто-то составит компанию в решении данной задачи...
Цель задачи:
Если в радиус синей точки попала красная, то совершать клики на N количество пикселей в противоположную сторону от красной точки, что бы красная точка вышла из радиуса видимости синей. Т.е. образно говоря, что бы синяя точка убегала от красных.
В чем, собственно, сама проблема.
Область карты ограниченна и это тоже нужно как то учитывать перед кликами. Не ясно как быть с красными точками, брать одну ближайшую или как то учитывать все, применять какие то шаблонны?
В общем, я буду рад, если мне кто-то составит компанию в решении данной задачи...
253
Общие вопросы / Re: Как сделать чтобы GETSCREEN IF_PIXEL_IN работал до...
« on: September 19, 2018, 06:51:34 PM »Code: (clickermann) [Select]
$pxl_count = 0
WHILE($pxl_count = 0)
GETSCREEN
$pxl_count = PXLCOUNT(0,0, $_xmax,$_ymax, 255)
WAITMS(15)
END_CYC
254
Общие вопросы / Re: Поиск нескольких картинок поочередно
« on: September 17, 2018, 02:58:40 AM »
Обычно все делают вот так
Code: (clickermann) [Select]
$check = 0
FOR($a = 11, ($a < 13) & ($check = 0))
GETSCREEN
IF_PICTURE_IN (790, 365, 1110, 390, STRCONCAT("Image_", $a, ".bmp"), -1, 60) //если Image_11.bmp не находиться искать Image_12.bmp
$check = 1
END_IF
END_CYC
255
Предложения / Re: По поводу так горяче просимой и ожидаемой компиляции.
« on: September 09, 2018, 12:34:17 PM »Я обсуждаю - как это сделать, не отметая кликер.
В Вашем понимании, я некорректно выразился, сказав, что не нужно будет его таскать за собой? Какие то двойные стандарты. Это вовсе не означает, что не обфусцированный код скрипта и файлы кликера не будут лежать в папке скрипта, или не должен вылазить логотип при запуске скрипта. Вообще, если компиляция хоть в каком то виде не нужна, то защита тоже не нужна.