Как провести цикл?

iframe

Известный
Автор темы
40
11
Как тут провести цикл, чтобы 0 писал всё время, пока я не написал /stop.

CLEO:
{$CLEO}
{$INCLUDE SF}
0000:
0AC8: 23@ = allocate_memory_size 256
0C11: memset destination 23@ value 0 size 256
0BE3: raknet setup_incoming_rpc_hook @hook
0BDE: pause_thread 0


:hook
0BE5: raknet 5@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 6@ = get_hook_param PARAM_PACKETID
if
6@ == RPC_ScrClientMessage
then   
0BE7: raknet 7@ = bit_stream_read 5@ type BS_TYPE_INT
    0BE7: raknet 8@ = bit_stream_read 5@ type BS_TYPE_INT
       0C11: memset destination 23@ value 0 size 256
    0BE8: raknet bit_stream 5@ read_array 23@ size 8@
    if 0C18: 10@ = strstr string1 23@ string2 "1"
    then
     0AF9: samp say_msg "0"
      0C11: memset destination 23@ value 0 size 256
    end
end
0BE0: raknet hook_ret true
 
Последнее редактирование:

hnnssy

Известный
Друг
2,684
2,751
@hnnssy, помоги, пожалуйста :с
ну поч я? :с
CLEO:
{$CLEO}
{$INCLUDE SF}
0000:

31@ = 0
0AC8: 23@ = allocate_memory_size 256
0C11: memset destination 23@ value 0 size 256
0BE3: raknet setup_incoming_rpc_hook @hook

0B34: "stop" @stop

while true
    wait 0
    if 31@ == 1
    then
        0AF9: "0"
    end
end

:stop
31@ = 0
0B43:

:hook
0BE5: raknet 5@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 6@ = get_hook_param PARAM_PACKETID
if
6@ == RPC_ScrClientMessage
then  
    0BE7: raknet 7@ = bit_stream_read 5@ type BS_TYPE_INT
    0BE7: raknet 8@ = bit_stream_read 5@ type BS_TYPE_INT
    0C11: memset destination 23@ value 0 size 256
    0BE8: raknet bit_stream 5@ read_array 23@ size 8@
    if 0C18: 10@ = strstr string1 23@ string2 "1"
    then
        31@ = 1
    end
end
0BE0: raknet hook_ret true
 
  • Нравится
Реакции: iframe

Unnecess4ry

Известный
875
482
ну поч я? :с
CLEO:
{$CLEO}
{$INCLUDE SF}
0000:

31@ = 0
0AC8: 23@ = allocate_memory_size 256
0C11: memset destination 23@ value 0 size 256
0BE3: raknet setup_incoming_rpc_hook @hook

0B34: "stop" @stop

while true
    wait 0
    if 31@ == 1
    then
        0AF9: "0"
    end
end

:stop
31@ = 0
0B43:

:hook
0BE5: raknet 5@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 6@ = get_hook_param PARAM_PACKETID
if
6@ == RPC_ScrClientMessage
then
    0BE7: raknet 7@ = bit_stream_read 5@ type BS_TYPE_INT
    0BE7: raknet 8@ = bit_stream_read 5@ type BS_TYPE_INT
    0C11: memset destination 23@ value 0 size 256
    0BE8: raknet bit_stream 5@ read_array 23@ size 8@
    if 0C18: 10@ = strstr string1 23@ string2 "1"
    then
        31@ = 1
    end
end
0BE0: raknet hook_ret true
Ох ебать ты отзывчивый :D
@hnnssy сделай мне приват чит на рак головного мозга на ахк желательно