{$CLEO}
IF 0038:   {SF_Av} $707 == FALSE
THEN 0A93:
END
IF 8AF7: NOT samp 0@ = get_base
THEN 0A93:
END
03A4: name_thread "IH"
0AC6: 0@ = label @Buffer0 offset
0AC6: 1@ = label @Buffer1 offset
0AC6: 2@ = label @Buffer2 offset
0AC6: 3@ = label @Buffer3 offset
0AC6: 4@ = label @Buffer4 offset

REPEAT
0001: WAIT 0 MS
UNTIL 0AFA:
0B6D: render 5@ = create_font "Segoe UI" height 10 flags 13
0BAF: samp 6@ = get_input_info_ptr // stInputInfo
0C0C: 6@ = struct 6@ offset {pDXUTEditBox}0x8 size 4 // stInputBox
alloc 10@ 512

WHILE TRUE
0001: WAIT 0 MS
    IF AND
    0B21:   samp is_chat_opened
    8BD5:   NOT samp is_scoreboard_opened
    8AB0:   NOT key__pressed {VK_F5}0x74
    8AB0:   NOT key__pressed {VK_F10}0x79
    THEN
    03F0: _enable_text_draw TRUE
    0C0C: 7@ = struct 6@ offset {dwPosChatInput1}0x8 size 4 // X
    0C0C: 8@ = struct 6@ offset {dwPosChatInput2}0xC size 4 // Y
    000A: 7@ += 2
    000A: 8@ += 45
    0AA7: call_function {__stdcall::GetKeyState}0x81E64C num_params 1 pop 0 | {nVirtKey}{CapsLock}0x14 | {state}9@ | // Статус Caps Lock'a .
    0AB1: call__scm_func @ConvertBoolToTF params 2 | {state}9@ {buff}0@ ||
    0AA7: call_function {__stdcall::GetKeyState}0x81E64C num_params 1 pop 0 | {nVirtKey}{NumLock}0x90 | {state}9@ | // Статус Num Lock'a .
    0AB1: call__scm_func @ConvertBoolToTF params 2 | {state}9@ {buff}1@ ||
    0AB1: call__scm_func @SCM_GetKeyboardLayoutName params 1 | {pwszKLID}2@ ||
    0C2F: 9@ = strtol 2@ radix 16 store_end_to 9@ // Адаптируем выражение под локаль.
        0C11: memset destination 10@ value 0 size 512
    0B77: samp get_chat_input_text_to 10@
    0C17: 11@ = strlen 10@
    0AA7: call_function {__stdcall::crtGetLocaleInfoA}0x8306FA num_params 4 pop 0 | {cchData}64 {lpLCData}3@ {LCType}0x00000002 {Locale}9@ | {_errorCode}9@ | // Получаем название языка.
    0AD3: 4@ = FORMAT "Символов: %d | Caps:{%X} %s{%X} | NumLock:{%X} %s{%X} | Язык:{%X} %s" 11@ {cL1}0x4CD964 {CapsLock}0@ {cL2}0xFFFFFF {cL3}0x4CD964 {NumLock}1@ {cL4}0xFFFFFF {cL5}0xFFFF7F {lng}3@
    0B6F: render font 5@ draw_text 4@ pos 7@ 8@ color 0xFFFFFFFF
    END
END

:Buffer0 // 12 + 1
HEX
    00 00 00 00 00 00 00 00 00 00 00 00
    0
END

:Buffer1 // 12 + 1
HEX
    00 00 00 00 00 00 00 00 00 00 00 00
    0
END

:Buffer2 // 32 + 1
HEX
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    0
END

:Buffer3 // 64 + 1
HEX
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    0
END

:Buffer4 // 256 + 1
HEX
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    0
END

:ConvertBoolToTF
IF 0039:   0@ == TRUE
THEN 0AD3: 1@ = FORMAT "{%X}ON" 0x4CD964
ELSE 0AD3: 1@ = FORMAT "{%X}OFF" 0xFF3B30
END
0AB2: RET 0 ||

:SCM_GetKeyboardLayoutName
0AA2: 25@ = load_library "User32.DLL"
0AA4: 26@ = get_proc_address "GetKeyboardLayoutNameA" library 25@
0AA7: call_function 26@ num_params 1 pop 0 | {pwszKLID}0@ | {_errorCode}27@ |  
0AA3: free_library 25@
0AB2: RET 0 ||