Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Riders of icarus (euro), Чат на русском
dron4938
сообщение 9.8.2017, 16:57
Сообщение #1


****

Apprentice
Сообщений: 256
Регистрация: 20.3.2017
Группа: Пользователи
Наличность: 0
Пользователь №: 18.395



скрипт позволит писать в чат игры на русском.

код

Код

log close
init_arr %code 70 188 68 85 76 84 192 186 80 66 81 82 75 86 89 74 71 72 67 78 69 65 219 87 88 73 79 83 221 77 222 190 90
init_arr %key а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ы ъ ь э ю я

set #icar FindWindow ("Icarus")
set workwindow #icar

:aaa
while GetLayout = 00000409
    wait 100
end_while
for #i 1 size(%code)
    if  KB.GetKeyStateByCode(%code[#i]) = 1
        send %key [#i]
        break
    end_if
end_for
wait 10
goto aaa



Просили выложить сразу готовое с запуском через батник, вот:
обновлено 11.08.17
https://yadi.sk/d/n8xiAuwF3LuLvE
скачать, положить папку "ProgramkaSn" с программой на диск С, запустить файл "ЗапускРусскогоЧата" от администратора.

Почему-то не работает в Windows 10, кто знает почему?)
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
valet
сообщение 9.8.2017, 20:25
Сообщение #2


*

Registred
Сообщений: 1
Регистрация: 9.8.2017
Группа: Пользователи
Наличность: 0
Пользователь №: 18.571
Возраст: 20



Цитата(dron4938 @ 9.8.2017, 16:57) *

скрипт позволит писать в чат игры на русском.

код

Код

set %handle FindWindow ("Icarus")
set #icar %handle [1 1]
set workwindow #icar
log close

:aaa
set $layout GetLayout
//hint $layout
if  $layout = 00000409
    while_not $layout = 00000419
        set $layout GetLayout
        wait 20
    end_while
end_if

if  KB.GetKeyState(q) = 1
    send й
    wait 10
end_if
if  KB.GetKeyState(w) = 1
    send ц
    wait 10
end_if
if  KB.GetKeyState(e) = 1
    send у
    wait 10
end_if
if  KB.GetKeyState(r) = 1
    send к
    wait 10
end_if
if  KB.GetKeyState(t) = 1
    send е
    wait 10
end_if
if  KB.GetKeyState(y) = 1
    send н
    wait 10
end_if
if  KB.GetKeyState(u) = 1
    send г
    wait 10
end_if
if  KB.GetKeyState(i) = 1
    send ш
    wait 10
end_if
if  KB.GetKeyState(o) = 1
    send щ
    wait 10
end_if
if  KB.GetKeyState(p) = 1
    send з
    wait 10
end_if
if  KB.GetKeyStateByCode(219) = 1
    send х
    wait 10
end_if
if  KB.GetKeyStateByCode(221) = 1
    send ъ
    wait 10
end_if
/////////////////////////////////////////////
if  KB.GetKeyState(a) = 1
    send ф
    wait 10
end_if
if  KB.GetKeyState(s) = 1
    send ы
    wait 10
end_if
if  KB.GetKeyState(d) = 1
    send в
    wait 10
end_if
if  KB.GetKeyState(f) = 1
    send а
    wait 10
end_if
if  KB.GetKeyState(g) = 1
    send п
    wait 10
end_if
if  KB.GetKeyState(h) = 1
    send р
    wait 10
end_if
if  KB.GetKeyState(j) = 1
    send о
    wait 10
end_if
if  KB.GetKeyState(k) = 1
    send л
    wait 10
end_if
if  KB.GetKeyState(l) = 1
    send д
    wait 10
end_if
if  KB.GetKeyStateByCode(186) = 1
    send ж
    wait 10
end_if
if  KB.GetKeyStateByCode(222) = 1
    send э
    wait 10
end_if
//////////////////////////////////////
if  KB.GetKeyState(z) = 1
    send я
    wait 10
end_if
if  KB.GetKeyState(x) = 1
    send ч
    wait 10
end_if
if  KB.GetKeyState(c) = 1
    send с
    wait 10
end_if
if  KB.GetKeyState(v) = 1
    send м
    wait 10
end_if
if  KB.GetKeyState(b) = 1
    send и
    wait 10
end_if
if  KB.GetKeyState(n) = 1
    send т
    wait 10
end_if
if  KB.GetKeyState(m) = 1
    send ь
    wait 10
end_if
if  KB.GetKeyStateByCode(188) = 1
    send б
    wait 10
end_if
if  KB.GetKeyStateByCode(190) = 1
    send ю
    wait 10
end_if
goto aaa
/////////////////////////////////



Просили выложить сразу готовое с запуском через батник, вот:
https://yadi.sk/d/zUCrrPPR3LrTw3

Просьба к знающим просмотреть и прооптимизировать скрипт)

Почему-то не работает в Windows 10, кто знает почему?)



Эскизы прикрепленных изображений
Прикрепленное изображение
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
cirus
сообщение 10.8.2017, 2:26
Сообщение #3


**********

Elder
Сообщений: 3.480
Регистрация: 18.8.2014
Группа: Пользователи
Наличность: 26576
Пользователь №: 16.971
Возраст: 29



Цитата
прооптимизировать скрипт

код
Код
init_arr %code 70 188 68 85 76 84 192 186 80 66 81 82 75 86 89 74 71 72 67 78 69 65 219 87 88 73 79 83 221 77 222 190 90
init_arr %key а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ы ъ ь э ю я

set #icar FindWindow ("Icarus")
set workwindow #icar

:aaa
    for #i 1 size(%code)
        if  KB.GetKeyStateByCode(%code[#i]) = 1
            send %key [#i]
            wait 10
        end_if
    end_for
    wait 100
goto aaa

Цитата
Почему-то не работает в Windows 10, кто знает почему?)

Запускать пилот и игру от админа.

Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
dron4938
сообщение 11.8.2017, 10:32
Сообщение #4


****

Apprentice
Сообщений: 256
Регистрация: 20.3.2017
Группа: Пользователи
Наличность: 0
Пользователь №: 18.395



Спасибо, а как правильно в код добавить, чтобы он работал только если раскладка клавиатуры включена на русский. И если на английский переключаешь скрипт не работал
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
cirus
сообщение 11.8.2017, 11:24
Сообщение #5


**********

Elder
Сообщений: 3.480
Регистрация: 18.8.2014
Группа: Пользователи
Наличность: 26576
Пользователь №: 16.971
Возраст: 29



код
Код
init_arr %code 70 188 68 85 76 84 192 186 80 66 81 82 75 86 89 74 71 72 67 78 69 65 219 87 88 73 79 83 221 77 222 190 90
init_arr %key а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ы ъ ь э ю я

set #icar FindWindow ("Icarus")
set workwindow #icar

:aaa
    while GetLayout = 00000409
        wait 100
    end_while
    for #i 1 size(%code)
        if  KB.GetKeyStateByCode(%code[#i]) = 1
            send %key [#i]
            break
        end_if
    end_for
    wait 100
goto aaa
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
dron4938
сообщение 11.8.2017, 13:07
Сообщение #6


****

Apprentice
Сообщений: 256
Регистрация: 20.3.2017
Группа: Пользователи
Наличность: 0
Пользователь №: 18.395



Спасибо, все круто, можно наверное в любых играх пользовать где нельзя писать по русски.
100милисек только много, если быстро печатать, то проглатывает некоторые буквы, поставил 10
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 29.3.2024, 10:43
Designed by Nickostyle