Проверка скриптов и плагинов на вредоносное ПО

lemonager

;)
Автор темы
Всефорумный модератор
809
1,717
Версия SA-MP
  1. Любая
nX15Ep5.png

eNo5cSj.png

Общая тема для просьб о помощи проверки скриптов, плагинов и приложений.
Теперь не нужно создавать много отдельных тем о помощи с проверкой.

Рекомендации:
  1. Ставить к себе в игру что-либо с темы крайне не рекомендуется, если файл не был проверен опытным пользователем или Вы в нём сомневаетесь.
  2. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
eNo5cSj.png

qJTRxhB.png
 

G102

Участник
63
9
Чисты?
 

Вложения

  • DMG INFORMER 2.cs
    21.2 KB · Просмотры: 2
  • DamageInfo.cs
    16.7 KB · Просмотры: 3

The Spark

Известный
656
689
Исходник, чист

CLEO:
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
 
  • Нравится
Реакции: G102

congic

Известный
330
106
чекните пожалуйста
 

Вложения

  • cottonlinenbot-Cracked (1).luac
    46.2 KB · Просмотры: 4