Помогите пожалуйста, со скриптом

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

sovaga

Известный
Автор темы
76
10
Помогите плиз
{$CLEO .cs}
0000: NOP

const
// --- Vars ---
STRINGS_RESPONSE = 0 // [VAR] Указатель на строки для ответа
CURRENT_NUM_STRING = 1 // [VAR] Номер текущей строки
// --- Constants ---
RPC_SCRCLIENTMESSAGE = 93 // [ID RPC] сообщение в чат
PATH_TO_INI_FILE = "cleo\AR_Settings.ini" // Путь к файлу с сообщениями
end

// Обнуляем текущую строку...
0AB3: var CURRENT_NUM_STRING = 0

// Ждём SAMP...
repeat
wait 100
until SAMP.Available()

// Читаем количество строк...
0AF0: 0@ = get_int_from_ini_file PATH_TO_INI_FILE section "Messages" key "count"

// Выделяем память под указатели на строки
0085: 1@ = 0@
1@ *= 4
alloc 2@ 1@
0AB3: var STRINGS_RESPONSE = 2@ // Сохраняем указатель в глобальную переменную

// Подготавливаем буфер...
alloc 5@ 256

// Читаем строки...
0@--
for 3@ = 0 to 0@
// Получаем строку из .ini файла
format 4@s "msg_%d" 0@
0AF4: 5@ = read_string_from_ini_file PATH_TO_INI_FILE section "Messages" key 4@s

// Выделяем место строке и копируем её
0C17: 6@ = strlen 5@
alloc 7@ 6@
0C13: strcpy destination 7@ source 5@

// Записываем в массив указатель на строку
0085: 8@ = 3@
8@ *= 4
0C0D: struct 2@ offset 8@ size 4 = 7@
end

// Очищаем буфер...
free 5@

0BE3: raknet setup_incoming_rpc_hook @HOOK_MSG
0BDE: pause_thread 0

:HOOK_MSG

0BE5: raknet 21@ = get_hook_param 1
if 21@ == RPC_SCRCLIENTMESSAGE
then
// Пришло сообщение в чат
0BE5: raknet 22@ = get_hook_param 0
0BF3: raknet 22@ = bit_stream 22@ get_data_ptr
0A8D: 23@ = read_memory 22@ size 4 virtual_protect 0
22@ += 8
if 23@ == -26299
then
// Сообщение от админа в репорт (22@ = строка сообщения)
// Отвечаем наглому одмену...
0AB4: 24@ = var CURRENT_NUM_STRING
0AB4: 25@ = var STRINGS_RESPONSE
24@ *= 4
0C0C: 26@ = struct 25@ offset 24@ size 4
0AF9: samp process_chat_input 26@
end
end

0BE0: raknet hook_ret TRUE
 
Статус
В этой теме нельзя размещать новые ответы.