Invisibilidad

{$CLEO}
{$INCLUDE SF}

THREAD "CADDY-SUDAK"
0000:
8028:   not $707 >= 16
jf @SAMPAv
0A93: end_custom_thread

:SAMPAv
wait 0
0AFA:  is_samp_available
jf @SAMPAv
wait 1000
0BE2: raknet setup_outcoming_packet_hook @PACKET_PLAYER_SYNC
0B34: samp register_client_command "invi" to_label @INVISIBLE
log "{00B1FC}INVISIBLE BY vk.com/romkacaddy | vk.com/alex_sudakov00."
log "{00B1FC}CHEAT CODE: BB | CMD: /INVI"
log "{00B1FC}FOR JUNIOR SQUAD - vk.com/junsqd"

WHILE TRUE
    wait 0
    IF 0ADC:   test_cheat "BB"
        THEN
        IF 0039:   0@ == 0
            THEN
            0006: 0@ = 1
            log "{00e600}> INVISIBLE ON <"
            ELSE
            0006: 0@ = 0
            log "{FF0000}> INVISIBLE OFF <"
        END
    END
    IF 0039:   0@ == 1
        THEN
        0B60: convert_game_screen_coords 40.0 430.0 to_window_screen_coords 2@ 3@
        0B69: render draw_box_pos 2@ 3@ size 3 3 color 0xFFFF0000
    END
END

:PACKET_PLAYER_SYNC
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
IF AND
0039:   1@ == 207
0039:   0@ == 1
    THEN
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    0BF3: raknet 1@ = bit_stream 1@ get_data_ptr
    0C0D: struct 1@ offset 63 size 2 = 2001
END
0BE0: raknet hook_ret TRUE

:INVISIBLE
IF 0039:   0@ == 0
    THEN
    0006: 0@ = 1
    log "{00e600}> INVISIBLE ON <"
    ELSE
    0006: 0@ = 0
    log "{FF0000}> INVISIBLE OFF <"
END
0B43: samp cmd_ret