CLEO Help Help

CLEO related
Status
Not open for further replies.

Edvincik

Well-known member
Joined
Mar 15, 2016
Messages
399
Reaction score
26
Hello i have a nice damage informer but its only for cleo 4.3, i need it to be for 4.1 or 4.4. How i can change it? Any suggestions?
Code:
hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end 

{$CLEO}  
{$INCLUDE SF}    
0000:

while not SAMP.Available()
wait 100
end


0B34: samp register_client_command "q3" to_label @p1_reload  

//10@ = 339.0 
//11@ = 174.0 
32@ = 1201
33@ = 1201 

28@ = 1
27@ = 1
26@ = 1
25@ = 1
8@ = 0

//alloc 2@ 64
alloc 29@ 64
//0C11: memset destination 2@ value 0 size 64 
0C11: memset destination 29@ value 0 size 64
0B6D: render 31@ = create_font "Arial Black" height 13 flags 12  //DAMAGE
0B6D: render 30@ = create_font "Arial Black" height 9 flags 13   //Nickname



0B34: samp register_client_command "dmghelp" to_label @p1_dmghelp
0B34: samp register_client_command "dmgi" to_label @p1_dmg_global               //28@ == 1  
0B34: samp register_client_command "dmgnames" to_label @p1_dmgnames             //27@ == 1
0B34: samp register_client_command "dmginc" to_label @p1_dmginc                 //26@ == 1
0B34: samp register_client_command "dmgoutc" to_label @p1_dmgoutc               //25@ == 1  
0B34: samp register_client_command "dmglol" to_label @p1_dmglol         //8@ == 0



0AF8: samp add_message_to_chat "p1cador: {ff0000}DMG Informer 2.0{ffffff}. Èñòðóêöèÿ {00BFFF}/dmghelp" color 0xffffff
while true
    wait 0
    if 0AAC: 0@ = load_audiostream "CLEO\p1_bell.mp3"   
        then         
        0B78: log "{ff0000}[p1cador] {fff000}> Audio Loaded!" 
        break
        else
        0AF8: samp add_message_to_chat "p1cador: {ff0000}DMG Informer 2.0{ffffff}. Àóäèîôàéë {00bfff}p1_bell.mp3 {ff0000}íå çàãðóæåí" color 0xffffff
        break
    end
end   




/*while true
    wait 100
    if 0B61: samp is_local_player_spawned
        then
        0B2B: samp 24@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        break
    end
end  */


0BE1: raknet setup_outcoming_rpc_hook @outRPC 


while true
    wait 0 
    
    while 28@ == 0
        wait 100
    end
            
    if and
    0029:   14@ >= 1
    25@ == 1
    
        then
        if 32@ <= 1200 //0->1200
            then                  
            0B60: convert_game_screen_coords 415.0 16@  to_window_screen_coords 18@ 20@            
            0AB1: call_scm_func @OUTC_DMG_RENDER 12 text0 29@ font1 31@ posX_2 18@ posY_3 20@ color4 0x5fc100 alpha5 14@ id6 10@ dmg7 6@ popad8 22@ last_id9 24@ rand10 3@ killmsg11 8@ | last_pop0 22@ last_id1 24@
            0B60: convert_game_screen_coords 415.0 182.0  to_window_screen_coords 18@ 20@
            if 27@ == 1
                then            
                0AB1: call_scm_func @OUTC_NICKNAME_RENDER 7 text0 29@ font1 30@ posX_2 18@ posY_3 20@ color4 12@ alpha5 255 id6 10@ 
            end
            14@ -= 2
            16@ -= 0.3
            32@ += 1  
            else
            free 10@
            free 6@
            free 14@
            free 16@           
        end
    end
      
    if and
    0029:   15@ >= 1 
    26@ == 1
        then        
        if 33@ <= 1200
            then     
            0B60: convert_game_screen_coords 240.0 17@  to_window_screen_coords 19@ 21@  
            0AB1: call_scm_func @INC_DMG_RENDER 8 text0 29@ font1 31@ posX_2 19@ posY_3 21@ color4 0xbb0000 /*13@*/ alpha5 15@ id6 11@ dmg7 7@ 
            0B60: convert_game_screen_coords 240.0 182.0  to_window_screen_coords 19@ 21@
            if 27@ == 1
            then
            0AB1: call_scm_func @INC_NICKNAMES_RENDER 8 text0 29@ font1 30@ posX_2 19@ posY_3 21@ color4 13@ alpha5 255 id6 11@ last_id7 23@ | last_id 23@  
            end
            15@ -= 2 
            17@ -= 0.2
            33@ += 1                                                                                                           
        end
    end   
end 

:OUTC_DMG_RENDER 
0B66: render argb 4@ to_a 15@ r 16@ g 17@ b 18@
0B20: samp 15@ = actor_handle_by_samp_player_id 6@

if or
001d: 9@ > 6@           //åñëè èä ïðåäûäóùåé öåëè
001d: 6@ > 9@           //íå ðàâåí èäó òåóùåé öåëè
    then    8@ = 1      //îáíóëèòü ñ÷åò÷èê ïîïàäàíèé
end

//0AF8: samp add_message_to_chat "%d" color 0x00ff00 10@

if and
Actor.Dead(15@)           
11@ == 1
    then 
   // 0AD3: 0@ format "{ff0000}ÂÛÅÁÀÍ" 
    if 10@ == 1
        then
        0AD3: 0@ format "{b60000}ÎÏÓÙÅÍ"   //purpure  
        else
        if 10@ == 2
            then
            0AD3: 0@ format "{b60000}ÂÛÅÁÀÍ" //red    
            else
            if 10@ == 3
                then
                0AD3: 0@ format "{b60000}ÎÁÎÑÑÀÍ" //yellow         
                else
                if 10@ == 4                
                    then
                    0AD3: 0@ format "{b60000}ÓÍÈÆÅÍ" //green                 
                    else
                    if 10@ == 5
                        then
                        0AD3: 0@ format "{b60000}ÎÁÎÑÐÀÍ"  //blue                  
                        else  
                        0AD3: 0@ format "{b60000}ÂÛÅÁÀÍ" //red                          
                    end
                end
            end
        end
    end      
     
    else   
    if Samp.IsPlayerPaused(6@)
        then
        16@ = 255
        17@ = 255
        18@ = 255
        0AD3: 0@ format "afk"
        else
        0AD3: 0@ format "%.1f {bb0000}(x%d)" 7@ 8@
    end
    
end 

0B67: render a 5@ r 16@ g 17@ b 18@ to_argb 19@
0B6B: render 20@ = font 1@ draw_text 0@ length
0062: 2@ -= 20@ 
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 19@
0AB2: ret 2 8@ 6@ 

:OUTC_NICKNAME_RENDER
0B36: samp 15@ = get_player_nickname 6@
0AD3: 0@ format "%s[%d]" 15@ 6@
0B6B: render 20@ = font 1@ draw_text 0@ length
20@ /= 2
0062: 2@ -= 20@  
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 4@
0AB2: ret 0     

:INC_DMG_RENDER
0B66: render argb 4@ to_a 15@ r 16@ g 17@ b 18@
0B67: render a 5@ r 16@ g 17@ b 18@ to_argb 19@

0AD3: 0@ format "-%.2f" 7@
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 19@
0AB2: ret 0

:INC_NICKNAMES_RENDER
if Actor.Dead($PLAYER_ACTOR)
    then 0085: 6@ = 7@
    else
end
0B36: samp 15@ = get_player_nickname 6@  
0AD3: 0@ format "%s[%d]" 15@ 6@
0B6B: render 20@ = font 1@ draw_text 0@ length
20@ /= 2
0062: 2@ -= 20@  
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 4@
0AB2: ret 1 id 6@ 



:outRPC     
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
IF 0039: 1@ == RPC_GIVETAKEDAMAGE
    THEN    
    0BE5: raknet 2@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 3@ = bit_stream_read 2@ type BS_TYPE_BOOL      //give/take
    0BE7: raknet 4@ = bit_stream_read 2@ type BS_TYPE_SHORT     //Player
    0BE7: raknet 5@ = bit_stream_read 2@ type BS_TYPE_INT       //ammount(FLOAT) 
    //0BE7: raknet 6@ = bit_stream_read 2@ type BS_TYPE_INT       //GUN
    //0BE7: raknet 7@ = bit_stream_read 1@ type BS_TYPE_INT       //BodyPart 
     if 3@ == 0
        then 
        0AAD: set_mp3 0@ perform_action 1         
      
        32@ = 0
        0085: 10@ = 4@ //id 
        0087: 6@ = 5@ //dmg  
        0B37: samp 12@ = get_player_color 10@
        
        14@ = 255     //alpha
        16@ = 174.0     //Y 
        22@ += 1 //ïîïàäàíèÿ += 1
        if 8@ == 1
            then
            0209: 3@ = random_int_in_ranges 1 6
        end
//===================================        
        else    
//===================================    
        if 3@ == 1
            then            
          
            33@ = 0
            0085: 11@ = 4@ //id
            0087: 7@ = 5@ //dmg
            0B37: samp 13@ = get_player_color 11@
        
            15@ = 255    //alpha
            17@ = 174.0     //Y 
        end
    end 
    0BE0: raknet hook_ret true
    ELSE 0BE0: raknet hook_ret TRUE  
END 




:p1_dmghelp
0AF8: samp add_message_to_chat " " color 0xffffff
0AF8: samp add_message_to_chat "============== {ff0000}DMG Informer 2.0{ffffff} ============" color 0xffffff
0AF8: samp add_message_to_chat "Ïåðåä òåì, êàê ïèçäåòü, ÷òî êîëîêîëü÷èê íå çâèíèò" color 0xffffff
0AF8: samp add_message_to_chat "Âêëþ÷è çâóê ðàäèî è ïåðåçàéäè â èãðó." color 0xffffff
0AF8: samp add_message_to_chat ".mp3 ôàéë äîëæåí ëåæàòü â ïàïêå êëåî è èìåòü íàçâàíèå p1_bell.mp3" color 0xffffff
0AF8: samp add_message_to_chat " " color 0xffffff
if 28@ == 1
    then
    9@v = "{00ff00}âêë"
    else
    9@v = "{ff0000}âûêë"
end 
0AF8: samp add_message_to_chat "{ff0000}/dmgi {ffffff}- âêë/âûêë {00BFFF}âåñü ñêðèïò{ffffff} (ñåé÷àñ: %s{ffffff})" color 0xffffff 9@v
if 26@ == 1
    then
    9@v = "{00ff00}âêë"
    else
    9@v = "{ff0000}âûêë"
end 
0AF8: samp add_message_to_chat "{ff0000}/dmginc {ffffff}- âêë/âûêë îòîáðàæåíèå {00BFFF}ïîëó÷àåìîãî {ffffff}óðîíà (ñåé÷àñ: %s{ffffff})" color 0xffffff 9@v
if 25@ == 1
    then
    9@v = "{00ff00}âêë"
    else
    9@v = "{ff0000}âûêë"
end 
0AF8: samp add_message_to_chat "{ff0000}/dmgoutc {ffffff}- âêë/âûêë îòîáðàæåíèå {00BFFF}íàíåñåííîãî {ffffff}óðîíà (ñåé÷àñ: %s{ffffff})" color 0xffffff 9@v  
if 27@ == 1
    then
    9@v = "{00ff00}âêë"
    else
    9@v = "{ff0000}âûêë"
end 
0AF8: samp add_message_to_chat "{ff0000}/dmgnames {ffffff}- âêë/âûêë îòîáðàæåíèå {00BFFF}íèêîâ{ffffff} (ñåé÷àñ: %s{ffffff})" color 0xffffff 9@v
if 8@ == 1
    then
    9@v = "{00ff00}âêë"
    else
    9@v = "{ff0000}âûêë"
end 
0AF8: samp add_message_to_chat "{ff0000}/dmglol {ffffff}- âêë/âûêë {00BFFF}ñîîáùåíèÿ ïðè óáèéñòâå{ffffff} (ñåé÷àñ: %s{ffffff})" color 0xffffff 9@v
0AF8: samp add_message_to_chat "============== by {ff0000}p1cador {ffffff}================" color 0xffffff 
0b43: samp cmd_ret

:p1_dmg_global
0AB1: call_scm_func @p1_trigger 1 28@ 28@
if 28@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: {00FF00}DMG Informer âêëþ÷åí" color 0xffffff 
end 

if 28@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: {FF0000}DMG Informer âûêëþ÷åí" color 0xffffff 
end 
0b43: samp cmd_ret

:p1_dmgnames
0AB1: call_scm_func @p1_trigger 1 27@ 27@ 
if 27@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: îòîáðàæåíèå íèêîâ {00ff00}âêëþ÷åíî" color 0xffffff 
end

if 27@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: îòîáðàæåíèå íèêîâ {ff0000}îòêëþ÷åíî" color 0xffffff 
end
0b43: samp cmd_ret


:p1_dmginc
0AB1: call_scm_func @p1_trigger 1 26@ 26@
if 26@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: îòîáðàæåíèå ïîëó÷àåìîãî óðîíà {00ff00}âêëþ÷åíî" color 0xffffff 
end

if 26@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: îòîáðàæåíèå ïîëó÷àåìîãî óðîíà {ff0000}îòêëþ÷åíî" color 0xffffff 
end
0b43: samp cmd_ret

:p1_dmgoutc
0AB1: call_scm_func @p1_trigger 1 25@ 25@ 
if 25@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: îòîáðàæåíèå íàíåñåííîãî óðîíà {00ff00}âêëþ÷åíî" color 0xffffff 
end

if 25@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: îòîáðàæåíèå íàíåñåííîãî óðîíà {ff0000}îòêëþ÷åíî" color 0xffffff 
end
0b43: samp cmd_ret


:p1_dmglol
0AB1: call_scm_func @p1_trigger 1 8@ 8@
if 8@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: ñîîáùåíèÿ ïðè óáèéñòâå {00FF00}âêëþ÷åíû" color 0xffffff 
end 

if 8@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: ñîîáùåíèÿ ïðè óáèéñòâå {FF0000}âûêëþ÷åíû" color 0xffffff 
end 
0b43: samp cmd_ret






 
:p1_trigger
if 0@ == 1
    then
    0@ = 0
    else
    if 0@ == 0
        then
        0@ = 1
        else
    end
end 
0AB2: ret 1 0@  
        
:p1_reload
free 29@
//free 2@
0B6E: render release_font 31@
0B6E: render release_font 30@
0A92: create_custom_thread "q3.CS"
0A93: end_custom_thread
0b43: samp cmd_ret    
 
Status
Not open for further replies.
Top