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

[valet]

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

код

Код

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