нужен клео "акцент"

Статус
В этой теме нельзя размещать новые ответы.

ID_Heaven

Известный
Автор темы
812
294
Сделайте пожалуйста CLEO/LUA акцент, как в AutoCop.
Кто не понял, как это работает.
Ты пишешь просто, что-то в чат, например "Здравствуй", а потом добавляется акцент типа "[Мексиканский Акцент]: Здравствуй"
Может кто-то сделать такое с .ini файлом настроек, за бесплатно т.к. я жид.
 

kennex

Известный
69
26
хз что такое "AutoCop"
написал тут, работает немного кривовато(( вот что вышло
  • в *.ini - кнопка активации, и акцент, после первого запуска ini создается, можно свернуть игру и поменять акцент
  • При нажатии на кнопку активации раскладка клавиатуры так же поменяется на русский
CLEO:
{$CLEO .cs}
0000:
repeat
  wait 400
until samp.Available()

alloc 4@ 128
memset 4@ 0 128

While true
  wait 0
if 0AAB:  file_exists "cleo\config.ini"
then
0AF4: 4@ = read_string_from_ini_file "cleo\config.ini" section "Main" key "Text"
0AF0: 5@ = get_int_from_ini_file "cleo\config.ini" section "Main" key "Key"
else
0AF1: write_int 89 to_ini_file "cleo\config.ini" section "Main" key "Key"
0AF5: write_string "[Акцент]:" to_ini_file "cleo\config.ini" section "Main" key "Text"
end
  if and
  8B4C:  samp not is_dialog_active -1
  8B21:    samp not is_chat_opened
  0C89:  key_just_pressed 5@
  then
  alloc 24@ 128
  0B79: samp set_chat_input_enabled 1
  0AB1: call_scm_func @GetKeyboardLayout 0
  repeat
  wait 0
  0B77: samp get_chat_input_text_to 24@
  until key_down 13
  if 8C18: 2@ = strstr string1 24@ string2 "/"
  then
  say "%s %s" 4@ 24@
  format 24@ ""
  0B76: samp set_chat_input_text ""
  end
  free 24@
  end
End // While

:GetKeyboardLayout
0AA2: 25@ = load_library "User32.dll"
0AA4: 26@ = get_proc_address "GetKeyboardLayout" library 25@
0AA7: call_function 26@ num_params 1 pop 0 0 27@
if 27@ == 68748313
then
end
if 27@ == 67699721
then
0AB1: call_scm_func @ActivateKeyboardLayout 0
end
0AA3: free_library 25@
ret 0

:ActivateKeyboardLayout
0AA2: 25@ = load_library "User32.dll"
0AA4: 26@ = get_proc_address "ActivateKeyboardLayout" library 25@
0AA7: call_function 26@ num_params 2 pop 0 8 1 27@ // в переменной 27@ так же инфа о раскладке
0AA3: free_library 25@
ret 0

Что скажете?
 

Вложения

  • 2.cs
    19.4 KB · Просмотры: 369
Последнее редактирование:
  • Нравится
Реакции: Вадимка(Quenni)
Статус
В этой теме нельзя размещать новые ответы.