Активацию можешь убрать.CLEO:{$CLEO} 0000: repeat wait 400 until samp.Available() 0BE3: raknet setup_incoming_rpc_hook @stroka 0AC8: 27@ = allocate_memory_size 144 0C11: memset destination 27@ value 0 size 144 WHILE TRUE wait 0 IF 5@ == 1 THEN say "/pm %d Welcome" 1@ 5@ = 0 END END :stroka 0BE5: raknet 30@ = get_hook_param 1 IF 30@ == 93 THEN 0BE5: raknet 29@ = get_hook_param 0 0BEB: raknet bit_stream 29@ ignore_bits 32 0BE7: raknet 28@ = bit_stream_read 29@ type 3 0BE8: raknet bit_stream 29@ read_array 27@ size 28@ 0C1E: array 27@ element 28@ el_size 1 = 0 IF 0C18: 28@ = strstr string1 27@ string2 "вступил в нашу фракцию" THEN IF 0AD4: 4@ = scan_string 27@ format "{01FCFF}[%d]" 1@ THEN 5@ = 1 ELSE 0AF8: samp add_message_to_chat "Опять какая-то хуйня" color 0xFFFFFF END END END 0BE0: raknet hook_ret 1
Не может отсканить ID в строке. sscanf юзал когда-то, там тоже такая дичь была. В чем причина?
CLEO:
{$CLEO}
{$INCLUDE SF}
0000:
repeat
wait 0
until 0AFA:
0B34: "cmd" @cmd
18@ = 0
17@ = 0
32@ = 0
alloc 31@ 256
WHILE TRUE
wait 0
0B75: samp get_chat_string 99 text_to 31@ prefix_to 0 color_to 0 prefix_color_to 0
IF AND
27@ == 1
0C18: 0 = strstr string1 31@ string2 "вступил в нашу фракцию"
THEN
0C2C: 22@ = strrchr 31@ char 0x5B
0C11: memset destination 22@ value 0x0 size 1
22@++
0C1A: 1@ = atoi 22@
SAY "/pm %d Welcome" 1@
wait 1000
END
0B43:
END
:cmd
00D6: if
0039: 27@ == 0
then
chatmsg "welc is ON" color 0x33AA33
0006: 27@ = 1
else
chatmsg "welc is OFF" color 0xFF6347
0006: 27@ = 0
end
0B43:
Последнее редактирование: