{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
thread 'FAKE'

:FAKE_13
wait 0
if
   SAMP.Available
else_jump @FAKE_13
12@ = SAMP.Base()
0B34: samp register_client_command "farrest" to_label @FAKE_446
0AC8: 3@ = allocate_memory_size 70
0AC8: 4@ = allocate_memory_size 70
0AC8: 5@ = allocate_memory_size 70  
0AF4: 3@ = read_string_from_ini_file "CLEO\farrest.ini" section "farrest" key "player"
0AF4: 4@ = read_string_from_ini_file "CLEO\farrest.ini" section "farrest" key "timekpz"
0AF4: 5@ = read_string_from_ini_file "CLEO\farrest.ini" section "farrest" key "you"

:FAKE_435
wait 0
jump @FAKE_435

:FAKE_446
wait 0
0AF4: 3@ = read_string_from_ini_file "CLEO\farrest.ini" section "farrest" key "player"
0AF4: 4@ = read_string_from_ini_file "CLEO\farrest.ini" section "farrest" key "timekpz"
0AF4: 5@ = read_string_from_ini_file "CLEO\farrest.ini" section "farrest" key "you"
0AF8: samp add_message_to_chat "Вы посадили в тюрьму %s на %s секунд" color 0x6BA7FF 3@ 4@
0AF8: samp add_message_to_chat "<< Офицер %s арестовал %s >>" color 0xF16764 5@ 3@
SAMP.CmdRet
jump @FAKE_446

hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end

/*
0@ - p1cador.mp3
1@ - get_hook_param PARAM_BITSTREAM
2@ - RPC_GIVETAKEDAMAGE
3@ - 0 = give / 1 =take
4@ - Player ID
5@ - ammount damage(FLOAT)
6@ - GUN -> BodyPart
7@ - handle
8@ - nickname
9@ - COUNTER
10@ - прицел INGAME X
11@ - прицел INGAME Y
12@ - прицел WINDOW X
13@ - прицел WINDOW Y
14@ - 4@
15@ - 5@
16@ - 4@
17@ - 5@
18@ - nickname(2)
19@ - MAIN TRIGGER 0-600ms
20@ - ACTOR X
21@ - ACTOR Y
22@ - ACTOR Z
23@ - length 31@ 29@
24@ - font 30@ высота
25@ - TRIGGER 1
26@ - TRIGGER 2
27@ - length 31@  <-------------------
28@ - alloc dmg                      |
29@ - alloc name                     |
30@ - FONT dmg                       |
31@ - FONT name  <--------------------
32@ -
*/
{$CLEO}  
{$INCLUDE SF}    
0000:
    
while not SAMP.Available()
wait 100
end

////////////////////////////////////////
/*alloc 30@ 128

0b6d: render 31@ = create_font "Arial" height 15 flags 12

0B5A: get_screen_resolution 1@ 2@
0062: 1@ -= 1@
//0062: 2@ -= 2@
2@ -= 25

while true
    wait 0           
    format 30@ "{ffffff}DMG Informer 0.3.7 RC2 {BEBEBE}v 0.1"
    0B6F: render font 31@ draw_text 30@  pos 1@ 2@ color 0xFFffffff
     //0B6C: render 3@ = font 31@ draw_height  
    0062:    2@ -= 3@
        format 30@ "{ffffff}by {ff0000}p{ffffff}1cador"
    0B6F: render font 31@ draw_text 30@  pos 1@ 2@ color 0xFFffff
    005a:     2@ += 3@
    

    
   
     
    if 0B61: samp is_local_player_spawned
        then break
    end
end
*/
0AF8: samp add_message_to_chat "DMG Informer {ff0000}v 0.1 {ffffff}(0.3.7 RC2) by {ff0000}p1cador" color 0xffffff

/////////////////////////////////////

9@ = 0
3@ = -1
25@ = 0
26@ = 0           
14@ = 0
15@ = 0
16@ = 0
17@ = 0
0952: load_soundtrack 1149
//qoloqol3.mp3
0AAC: 0@ = load_audiostream "CLEO\p1cador.mp3"   
//0AC1: 9@ = load_audiostream_with_3d_support "CLEO\qoloqol3.mp3"
0B78: log "{F44336}[p1cador] > Audio Loaded!"

0b6d: render 31@ = create_font "Arial" height 10 flags 12
0b6d: render 30@ = create_font "Arial" height 21 flags 13
alloc 29@ 48
alloc 28@ 48

10@ = 339.0  // ПРИЦЕЛ //10@ += 45.0  
11@ = 174.0  // ПРИЦЕЛ

    
0BE1: raknet setup_outcoming_rpc_hook @outRPC   
//thread "qol"

//0085: 13@ = 11@ // (int)
//0087: 17@ = 3@ // (float)

//003B:   12@ == 21@  // (int)
//0045:   85@ == 69@  // (float)

while true
    wait 0
     
    
    if 25@ == 9         
        then
        9@ += 1
        10@ = 384.0
        0B60: convert_game_screen_coords 10@ 11@ to_window_screen_coords 12@ 13@  
        if SAMP.IsPlayerPaused(4@)
            then
            format 28@ "{FFFFFF}AFK"
            else
                if Actor.Dead(7@)
                    then
                    format 28@ "{ff0000} ВЫЕБАН" 15@
                    else
                    format 28@ "-%.2f" 15@
                end
            end
        0b6f: render font 30@ draw_text 28@ pos 12@ 13@ color 0x8fff0000
        0B6C: render 24@ = font 30@ draw_height
        005a: 24@ -= 13@ //error opcode   
                    
        
        format 29@ "%s[%d]" 8@ 14@          
        0b6f: render font 31@ draw_text 29@ pos 12@ 24@ color 0xf0ffffff //ff00ff00
                     
        else
    end
    
    if 26@ == 10  
        then
        9@ += 1
        10@ = 294.0
        
        0B60: convert_game_screen_coords 10@ 11@ to_window_screen_coords 12@ 13@     
        0B6B: render 23@ = font 31@ draw_text 29@ length
        0063: 12@ -= 23@
        
        if or
            actor.dead($PLAYER_ACTOR)
            not player.Defined($PLAYER_ACTOR)
            then
            format 28@ ""
            format 29@ ""
            else
            format 28@ "- %.2f" 17@
            format 29@ "%s[%d]" 18@ 16@
        end
        0b6f: render font 30@ draw_text 28@ pos 12@ 13@ color 0x7fff0000  
        0B6C: render 24@ = font 30@ draw_height
        005a: 24@ -= 13@//error opcode
        
        //format 29@ "%s[%d]" 18@ 16@               //TAKE         
        0b6f: render font 31@ draw_text 29@ pos 12@ 24@ color 0xf0FFBFBF
          
                 
        else
    end  
  
        
    if 9@ == 450
    then
    25@ = -1
    26@ = -1
    //0AF8: samp add_message_to_chat "GAVENDA" color 0xFFF000
    else
    end

end
                    

//0BDE: pause_thread 0

:outRPC     
0BE5: raknet 2@ = get_hook_param PARAM_PACKETID
IF 0039: 2@ == RPC_GIVETAKEDAMAGE
    THEN
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 3@ = bit_stream_read 1@ type BS_TYPE_BOOL      //give/take
    0BE7: raknet 4@ = bit_stream_read 1@ type BS_TYPE_SHORT     //Player
    0BE7: raknet 5@ = bit_stream_read 1@ type BS_TYPE_INT       //ammount(FLOAT)
    0BE7: raknet 6@ = bit_stream_read 1@ type BS_TYPE_INT       //GUN
    0BE7: raknet 6@ = bit_stream_read 1@ type BS_TYPE_INT       //BodyPart
    9@ = 0                    
    if 3@ == 0
        then  
        25@ = 9
        0085: 14@ = 4@
        0085: 15@ = 5@
        0B20: samp 7@ = actor_handle_by_samp_player_id 14@  
        0B36: samp 8@ = get_player_nickname 14@
        0AAD: set_mp3 0@ perform_action 1
          
        //0B78: log "{F44336}[MyTestScript] > Audio Action Changed."     
        //0AF8: samp add_message_to_chat "GIVE %d %.2f" color 0x00ff00 4@ 5@ //%.1f             
        else
    end
    
    if 3@ == 1
        then
        26@ = 10
        0085: 16@ = 4@
        0085: 17@ = 5@
        //0B20: samp 7@ = actor_handle_by_samp_player_id 14@  
        0B36: samp 18@ = get_player_nickname 16@
        //0AAD: set_mp3 0@ perform_action 1    
        //0B78: log "{F44336}[MyTestScript] > Audio Action Changed."     
        //0AF8: samp add_message_to_chat "TAKE %d %.2f" color 0xff0000 4@ 5@ //%.1f              
        else
    end
        
        
    
    0BE0: raknet hook_ret true
    ELSE 0BE0: raknet hook_ret TRUE  
END