169 похожих чатов

@Fwant Я тут дописал условие, глянь пж, вроде как все

работает, но хочу чтоб ты посмотрел)) Кстати без Down и Up нажатие через раз работает, так что я с Down и Up сделал


#persistent

SetBatchLines, -1
x:= 1048
y:= 108

f4::
settimer, check, % (toggle:=!toggle) ? 100 : "off"
return

check:
{
pixelgetcolor, color, x, y
if substr(color, 5, 1) > 6
{
send {enter Down}
send {enter Up}
Sleep 5000
Send {sc12 Down}
Send {sc12 Up}
}
—————————————————————-
else
{
Send {sc12 Down}
Send {sc12 Up}
}
}
return

И еще вопрос. Можно ли добавить скорость реакции, а так же чтоб substr(color, 5, 1) > 6 не только темный фон был, но и какие нибудь светлые, например голубой или белый ?
А так все работает, просто хочется усовершенствовать))

2 ответов

6 просмотров

Ps: код лучше заворачивать в моноспейс

вот этот код заверни

Похожие вопросы

Обсуждают сегодня

Такой вопросец - есть функция function MySuperDuperConcat(const a: array of AnsiString): AnsiString; Как мне в её теле сделать вот так? Result:=Concat(a); А не грустный вариан...
notme
15
Есть какой-нибудь для Delphi/FPC T*Compression(Decompression)Stream на базе LZ4/Zstd/любой другой быстрый(и хорошо сжимающий) алгоритм А ещё лучше в pure pascal А ещё лучше од...
notme
48
type TObj = object procedure Init; virtual; end; TObj1 = object(TObj) procedure Init; override; end; procedure TObj1.Init; begin inherited; end; procedur...
Alexander 👋
29
А чем вам питонисты не угодили?😂
.
79
Вот смотрите у меня есть два стрима сейчас fs, cs: TStream; fs := TFileStream.Create('filename'); cs := TCompressionStream.Create(compression_level, fs); Я хочу сделать так: ...
notme
5
Всем привет, написал код ниже, но он выдает сегфолт, в чем причина? #include <stdio.h> #include <stdlib.h> #include <string.h> struct product { char *name; float price; };...
buzz базз
83
Можно ли загрузить скрипт py в бота чтобы он работал по нему? как это сделать?
huskadam #RCC Фанат? @hitlerpvp
13
Всем здравствуйте! Я хотел узнать сколько стоит средняя месячная зарплата у Electron js разработчиков? Мне очень это важно и нужно, плиз помогите узнать эту инфу! Для Джунио...
U.K.
10
Hello. Could you please help me with finding all coordinates within a radius using a spatial index, given that I have a table with coordinates? SET @lng = 37.57925; SET @lat ...
Rinchin G
8
free(NULL) это UB?
#
8
Карта сайта