{$CLEO}
{$NOSOURCE}
0000:

thread "@roma_'caddy#"
repeat
wait 0
until SAMP.Available()

if 8AAB: not  file_exists "CLEO\RENDER_HP.cs"
then
    chatmsg "[RENDER_HP]: {ffffff} Âû ïîìåíÿëè íàçâàíèå ñêðèïòà.." 0x00ffff
    chatmsg "[RENDER_HP]: {ffffff} ×òîáû ñêðèïò çàðàáîòàë, ïîìåíÿéòå íàçâàíèå íà RENDER_HP" 0x00ffff
    0A93: end_custom_thread
end

if 8AAB: not  file_exists "CLEO\RENDER_HP.ini"
then
    0AF3: write_float 385.0 to_ini_file "CLEO\RENDER_HP.ini" section "HPPOS" key "XPos"
    0AF3: write_float 179.0 to_ini_file "CLEO\RENDER_HP.ini" section "HPPOS" key "YPos"
    0AF3: write_float 485.0 to_ini_file "CLEO\RENDER_HP.ini" section "ARMPOS" key "XPos"
    0AF3: write_float 279.0 to_ini_file "CLEO\RENDER_HP.ini" section "ARMPOS" key "YPos"
    0AF3: write_float 585.0 to_ini_file "CLEO\RENDER_HP.ini" section "CARPOS" key "XPos"
    0AF3: write_float 379.0 to_ini_file "CLEO\RENDER_HP.ini" section "CARPOS" key "YPos"
    0AF1: write_int 7 to_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Height"
    0AF1: write_int 5 to_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Flags"
    chatmsg "[RENDER_HP]: {ffffff} ×òîáû óçíàòü êîìàíäû äëÿ íàñòðîéêè ââåäèòå-/renderhelp" 0x00ffff
end

0AF0: 8@ = get_int_from_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Height"
0AF0: 9@ = get_int_from_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Flags"
0B6D: render 10@ = create_font "Tahoma" height 8@ flags 9@
0AC8: 11@ = allocate_memory_size 70
0AC8: 21@ = allocate_memory_size 70
0AC8: 12@ = allocate_memory_size 70
0AC8: 13@ = allocate_memory_size 70

0B34: samp register_client_command "hppos" to_label @hppos
0B34: samp register_client_command "armpos" to_label @armpos
0B34: samp register_client_command "carpos" to_label @carpos
0B34: samp register_client_command "t.size" to_label @text_h
0B34: samp register_client_command "t.flag" to_label @text_f
0B34: samp register_client_command "renderhelp" to_label @renderhelp

while true
wait 0
    if
    0B61:  samp is_local_player_spawned
    then
        0226: 0@ = actor $PLAYER_ACTOR health
        0AD3: 11@ = format "%d" 0@
        0AF2: 3@ = get_float_from_ini_file "CLEO\RENDER_HP.ini" section "HPPOS" key "XPos"
        0AF2: 4@ = get_float_from_ini_file "CLEO\RENDER_HP.ini" section "HPPOS" key "YPos"
        0B6F: render font 10@ draw_text 11@ pos 3@ 4@ color 0xFFFFFFFF
    end
    
    if
    0B61:  samp is_local_player_spawned
    then    
        04DD: 1@ = actor $PLAYER_ACTOR armour
        if not 1@ == 0
        then
            0AD3: 21@ = format "%d" 1@
            0AF2: 5@ = get_float_from_ini_file "CLEO\RENDER_HP.ini" section "ARMPOS" key "XPos"
            0AF2: 6@ = get_float_from_ini_file "CLEO\RENDER_HP.ini" section "ARMPOS" key "YPos"
            0B6F: render font 10@ draw_text 21@ pos 5@ 6@ color 0xFFFFFFFF
        end
    end
    
    if
    Actor.Driving($PLAYER_ACTOR)
    then    
        03C0: 1@ = actor $PLAYER_ACTOR car
        0227: 2@ = car 1@ health
        0AD3: 21@ = format "%d" 2@
        0AF2: 5@ = get_float_from_ini_file "CLEO\RENDER_HP.ini" section "CARPOS" key "XPos"
        0AF2: 6@ = get_float_from_ini_file "CLEO\RENDER_HP.ini" section "CARPOS" key "YPos"
        0B6F: render font 10@ draw_text 21@ pos 5@ 6@ color 0xFFFFFFFF
    end
    
    
    if
    25@ == 1
    then
        0B5D: samp toggle_cursor 1
        repeat
        wait 0     
        0B5E: get_cursor_pos 5@ 6@
        6@ -= 10
        0AD3: 13@ = format "arm"
        0B6F: render font 10@ draw_text 13@ pos 5@ 6@ color 0xFFFFFFFF
        until key_down 02
        0AF3: write_float 5@ to_ini_file "CLEO\RENDER_HP.ini" section "ARMPOS" key "XPos"
        0AF3: write_float 6@ to_ini_file "CLEO\RENDER_HP.ini" section "ARMPOS" key "YPos"
        25@ = 0
        0B5D: samp toggle_cursor 0
    end
    
    if
    26@ == 1
    then
        0B5D: samp toggle_cursor 1
        repeat
        wait 0
        0B5E: get_cursor_pos 3@ 4@
        4@ -= 10
        0AD3: 12@ = format "hp"
        0B6F: render font 10@ draw_text 12@ pos 3@ 4@ color 0xFFFFFFFF
        until key_down 02
        0AF3: write_float 3@ to_ini_file "CLEO\RENDER_HP.ini" section "HPPOS" key "XPos"
        0AF3: write_float 4@ to_ini_file "CLEO\RENDER_HP.ini" section "HPPOS" key "YPos"
        26@ = 0
        0B5D: samp toggle_cursor 0
    end
    
    if
    27@ == 1
    then
        0B5D: samp toggle_cursor 1
        repeat
        wait 0
        0B5E: get_cursor_pos 7@ 8@
        4@ -= 10
        0AD3: 12@ = format "carhp"
        0B6F: render font 10@ draw_text 12@ pos 7@ 8@ color 0xFFFFFFFF
        until key_down 02
        0AF3: write_float 7@ to_ini_file "CLEO\RENDER_HP.ini" section "CARPOS" key "XPos"
        0AF3: write_float 8@ to_ini_file "CLEO\RENDER_HP.ini" section "CARPOS" key "YPos"
        27@ = 0
        0B5D: samp toggle_cursor 0
    end
end

:hppos
26@ = 1
chatmsg "[RENDER_HP]: {ffffff}Èçìåíåíèå ïîçèöèè ÎÇ âêëþ÷åíî. Äëÿ ñîõðàíåíèÿ ïîçèöèè íàæìèòå ÏÊÌ" 0x00ffff
samp.CmdRet()

:armpos
25@ = 1
chatmsg "[RENDER_HP]: {ffffff}Èçìåíåíèå ïîçèöèè áðîíè âêëþ÷åíî. Äëÿ ñîõðàíåíèÿ ïîçèöèè íàæìèòå ÏÊÌ" 0x00ffff
samp.CmdRet()    

:carpos
27@ = 1
chatmsg "[RENDER_HP]: {ffffff}Èçìåíåíèå ïîçèöèè ÎÇ àâòî âêëþ÷åíî. Äëÿ ñîõðàíåíèÿ ïîçèöèè íàæìèòå ÏÊÌ" 0x00ffff
samp.CmdRet()            

:renderhelp
chatmsg "[RENDER_HP]: {ffffff}/hppos - èçìåíåíèå ïîçèöèè î÷êîâ çäîðîâüÿ" 0x00ffff
chatmsg "[RENDER_HP]: {ffffff}/armpos - èçìåíåíèå ïîçèöèè ðåíäðà áðîíè" 0x00ffff
chatmsg "[RENDER_HP]: {ffffff}/carpos - èçìåíåíèå ïîçèöèè ðåíäðà êîë-âà ÎÇ àâòîìîáèëÿ" 0x00ffff
chatmsg "[RENDER_HP]: {ffffff}/t.size - èçìåíåíèå ðàçìåðà òåêñòà" 0x00ffff
chatmsg "[RENDER_HP]: {ffffff}/t.flag - èçìåíåíèå ôëàãà(ñòèëÿ) òåêñòà" 0x00ffff
chatmsg "[RENDER_HP]: {ffffff}Àâòîð: {00ffff}romacaddy" 0x00ffff
chatmsg "[RENDER_HP]: {ffffff}Îãðîìíàÿ áëàãîäàðíîñòü: {00ffff}DarkP1xel" 0x00ffff
samp.CmdRet()

:text_h
0B35: samp 0@ = get_last_command_params
if 0AD4: 0@ = scan_string 0@ format "%d" 1@
then
    0AF0: 8@ = get_int_from_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Height"
    0AF0: 9@ = get_int_from_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Flags"
    0AF1: write_int 1@ to_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Height"
    0B6D: render 10@ = create_font "Tahoma" height 1@ flags 9@  
end
samp.CmdRet()

:text_f
0B35: samp 0@ = get_last_command_params
if 0AD4: 0@ = scan_string 0@ format "%d" 1@
then
    0AF0: 8@ = get_int_from_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Height"
    0AF0: 9@ = get_int_from_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Flags"
    0AF1: write_int 1@ to_ini_file "cleo\RENDER_HP.ini" section "TextSettings" key "Flags"
    0B6D: render 10@ = create_font "Tahoma" height 8@ flags 1@  
end
samp.CmdRet()