Riders of icarus (euro), Чат на русском Опции

[dron4938]

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

код

Код

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, кто знает почему?)

[cirus]

код

Код

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

[dron4938]

Спасибо, все круто, можно наверное в любых играх пользовать где нельзя писать по русски.
100милисек только много, если быстро печатать, то проглатывает некоторые буквы, поставил 10