1
Предложения / Re: Анализ текста в окне
« : Март 25, 2022, 08:13:04 pm »Но подключил, попробовал, всё сработало.

Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Но подключил, попробовал, всё сработало.
LDOWN(500,500) wind_mouse(1500,500, 500, 1500) LUP($_xmouse,$_ymouse)
ШИКАРНЫЙ (и достаточно простой) симулятор человеческого движения мыши WindMouse.Там по ссылке очень много не понятного текста и столько же ссылок. Ты бы точно сказал что качать, и если какие-то нюансы по запуску, то тоже не хотелось бы самому разбираться.
Адаптировано под Clickermann отсюда: https://ben.land/post/2021/04/25/windmouse-human-mouse-movement/
$str = "7-67+345+876+86+7-67-56787+7898+6787+56789" $len = 1 arrpush($sign, 0) WHILE($len > 0) $len = STRPOS ($str, "+", $len) IF($len > 0) arrpush($sign, $len) $len = $len+1 END_IF END_CYC $len = 1 WHILE($len > 0) $len = STRPOS ($str, "-", $len) IF($len > 0) arrpush($sign, $len+0.00004) $len = int($len+1) END_IF END_CYC arrpush($sign, STRLEN ($str)+1) ARRSORT ($sign) $num = STRCUT2($str, int($sign[$a])+1, int($sign[$a+1])-1) FOR($a=1,$a<arrsize($sign)-1) IF(int($sign[$a])<$sign[$a]) $num = $num - STRCUT2($str, int($sign[$a])+1, int($sign[$a+1])-1) else $num = $num + STRCUT2($str, int($sign[$a])+1, int($sign[$a+1])-1) END_IF END_CYC print("ответ: ", $num) halt
FREADDATA ("Chat-game.log", $arr) FOR($a=0,$a<ARRSIZE($arr)) if($arr[$a]>191) //в win-1251 все буквы и цифры занимают по одному байту. поэтому вся таблица это 256 символов, и все, больше не влезет. в юникоде же используют два байта на символ, а это ооочень дофига 65535 вариантов вместо 256. я глянул для интереса таблицу, долго листал, а там она как оказалось еще не полная, то есть можно еще добавлять всякие символы там всякие языки новые. //так вот, в вин-1251 русские символы начинаются с 192 символа, а в юникоде с 1040 $arr[$a] = $arr[$a]+848 end_if IF($arr[$a] = 13) //смотрим когда у нас символ переноса строки $a = $a + 1 //прыгаем еще через один символ там есть такой ARRPUSH ($all_str, $str) //добавляем созданную ранее строку в массив undefine($str) //и избавляемся, на время ELSE $str = STRCONCAT($str,CHAR($arr[$a])) //тут без перерыва строчим в $str END_IF END_CYC FOR($a=0,$a<ARRSIZE($all_str)) //смотрим результат print($all_str[$a]) END_CYC HALT
FREADDATA ("Chat-game.log", $arr) FOR($a=0,$a<ARRSIZE($arr)) if($arr[$a]>191) $arr[$a] = $arr[$a]+848 end_if $str = STRCONCAT($str,CHAR($arr[$a])) END_CYC LOGWRITE ($str) HALT