Декомпиляция скриптов

FYP

Известный
Автор темы
Администратор
1,758
5,730
GVWUrNJ.png
eNo5cSj.png


Общая тема для просьб о помощи в декомпиляциии и декриптованиии скриптов, плагинов и приложений.
Запрещено просить о декомпиляции/декриптовании софта, выставленного на продажу на нашем сайте.

Рекомендации:
  1. Сначала воспользуйтесь поиском по теме и по форуму, возможно его в декомпилированном виде или с исходным кодом уже выкладывали у нас на сайте.
  2. Попытайтесь декомпилировать самостоятельно: CLEO - декриптор, декомпилятор; AHK - распаковщик .exe; LuaJIT - декомпилятор1, декомпилятор2.
  3. Просить о декомпиляции .asi, .sf, .dll, .exe почти бесполезно, часто такие просьбы остаются без ответа и вряд ли вам это что-то даст. Можете попробовать сами, IDA Pro или Ghidra к вашим услугам.
    • Это не касается .exe, которые являются скомпилированными AutoHotKey-скриптами (.ahk).
  4. Добавьте название скрипта к сообщению, если оно известно - это поможет другим пользователям найти его с помощью поиска.
  5. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
 
Последнее редактирование:

™ ChipFamily

По ту сторону надежды.
5,144
1,981
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
CLEO:
hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end
{$CLEO}
{$INCLUDE SF}
wait 1
Samp.Available
0ac6: 0@ = label @text offset
0B34: samp register_client_command "xd" to_label @start
0B34: samp register_client_command "xdhelp" to_label @help
0B34: samp register_client_command "xdcontrol" to_label @control
0B34: samp register_client_command "xdscroll" to_label @scroll

1@ = 0
19@ = 0
20@ = 0

wait 2000
0C48: samp textdraw 228 create "A" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Au" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Aut" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_b" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_D" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DE" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEF" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFL" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLI" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK S" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SI" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SIL" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILE" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILEN" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_E" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_ED" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDI" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDIT" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITI" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITIO" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION U" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UP" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPD" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDA" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50                                                             
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDAT" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDATE" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDATE_V" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDATE_V_2" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDATE_V_2." pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
0C48: samp textdraw 228 create "Auto_+C_by_DEFLIK SILENT_EDITION UPDATE_V_2.0" pos 20.0 390.0
0C4C: samp textdraw 228 set_style 2
0C4E: samp textdraw 228 set_outline 1 color 0xFF000000
wait 50
wait 2000
0C5E: samp textdraw 228 delete

:v
if
    02D8: actor $PLAYER_ACTOR current_weapon == 24
then
    wait 0
    jump @d
else
    wait 0
    19@ = 0
    jump @d
end   

:d
if and
    02D8: actor $PLAYER_ACTOR current_weapon == 24
    1@ == 1
    0AB0:   key_pressed 82
    0AB0:   key_pressed 2
then
    wait 0
    gosub @scroll1
    jump @m
else
    wait 0
    jump @v
end

:m
if and
    20@ == 1
    19@ == 6
then
    wait 0
    0470: 21@ = actor $PLAYER_ACTOR current_weapon
    06AB: set_actor $PLAYER_ACTOR all_weapons_hidden 1
    wait 0
    01B9: set_actor $PLAYER_ACTOR armed_weapon_to 21@
    19@ = 0
    jump @k
else
    wait 0
    jump @k
end


:k
gosub @tp
if
    02E0:   actor $PLAYER_ACTOR firing_weapon
then
    wait 0
    jump @2
else
    wait 0
    jump @k
end



:2
if                                                                        
    19@ == 7
then
    wait 0
    19@ = 0
    jump @v
else
    wait 0                                                 
if
    0AB0:   key_pressed 2
then
    wait 0 
    jump @2
else
    wait 0
    0B56: set_game_key 18 state -128
    jump @v 
end
end


:tp
0B56: set_game_key 17 state 225                       
return

:scroll1
if
    19@ == 0
then
    wait 0
    19@ = 1
else
    wait 0
    if
        19@ == 1
    then
        wait 0
        19@ = 2
    else
        wait 0
        if
            19@ == 2
        then
            wait 0
            19@ = 3
        else
            wait 0
            if
                19@ == 3
            then
                wait 0
                19@ = 4
            else
                wait 0
                if
                    19@ == 4
                then
                    wait 0
                    19@ = 5
                else
                    wait 0
                    if
                        19@ == 5
                    then
                        wait 0
                        19@ = 6
                    else
                         if
                            19@ == 6
                        then
                            wait 0
                            19@ = 7
                        else
                            wait 0
                            19@ = 0
                        end
                    end
                end
            end
        end
    end
end
return

:start
0B12: 1@ = 1@ XOR 1
if
    1@ == 1
then
    wait 0
    018C: play_sound 1139 at 0.0 0.0 0.0
    0ACD: show_text_highpriority "~w~Auto +C by ~b~DEFLIK ~w~- ~g~Activated" time 1000
else
    wait 0
    018C: play_sound 1138 at 0.0 0.0 0.0
    0ACD: show_text_highpriority "~w~Auto +C by ~b~DEFLIK ~w~- ~r~Deactivated" time 1000
end
SAMP.CmdRet

:help
0B3B: samp show_dialog id 45 caption "Auto +C by DEFLIK [SILENT] v2.0" text 0@ button_1 "Ага" button_2 "Збс" style DIALOG_STYLE_MSGBOX
SAMP.CmdRet


:control
chatmsg "{ff0000}В разработке... [Auto +C by DEFLIK]"
Samp.CmdRet

:scroll
0B12: 20@ = 20@ XOR 1
if
    20@ == 1
then
    wait 0
    018C: play_sound 1139 at 0.0 0.0 0.0
    0ACD: show_text_highpriority "~w~+C Scroll by ~b~DEFLIK ~w~- ~g~Activated" time 1000
else
    wait 0
    018C: play_sound 1138 at 0.0 0.0 0.0
    0ACD: show_text_highpriority "~w~+C Scroll by ~b~DEFLIK ~w~- ~r~Deactivated" time 1000
end
SAMP.CmdRet

:text
hex
"{00bfff}Для активации {00bfff}, деактиваци {00bfff}пропишите {9acd32}/xd {00bfff}в чат\n"
"{00bfff}Для просмотра информации, пропишите {9acd32}/xdhelp {00bfff}в чат\n"
"{00bfff}Для контроля +C, пропишите {9acd32}/xdcontrol {00bfff}в чат {ff0000} (На данный момент отсутствует)\n"
"{00bfff}Для активации AutoScroll, пропишите {9acd32}/xdscroll {00bfff}в чат {ffd700} (Добавлено!)\n"
"{00bfff}Чтобы использовать Auto +c, зажмите {ffff00}R {00bfff}и нажимайте {ffff00}ПКМ {00bfff}для выстрела \n"
"{00bfff}Дополнительная информация на сайте {0000ff}blast.hk\0"
end
Samp.CmdRet
 
  • Нравится
Реакции: debil :))

Freym

Известный
487
203
Чек на вирусы / стриллеры . Очень важно.
 

Вложения

  • dd.sf
    381 KB · Просмотры: 12

™ ChipFamily

По ту сторону надежды.
5,144
1,981
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
CLEO:
{$CLEO .cs}

0000: NOP

:Noname_2
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @Noname_2
0B34: samp register_client_command "a" to_label @Noname_156
0B34: samp register_client_command "h" to_label @Noname_359
0B34: samp register_client_command "hcmds" to_label @Noname_555
0AF8: samp add_message_to_chat "a/h by vk.com/id495208414 " color 0xBA55D3
0006: 0@ = 0
0006: 2@ = 0

:Noname_145
0001: wait 0 ms
0002: jump @Noname_145

:Noname_156
0001: wait 0 ms
00D6: if
0039:  0@ == 0
004D: jump_if_false @Noname_278
0006: 0@ = 1
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 16711935 
0B2E: 1@ = read_samp_memory offset 94624 size 2
0B2D: write_samp_memory offset 94624 value 50064 size 2
018C: play_sound 1139 at 0.0 0.0 0.0
035F: actor $PLAYER_ACTOR armour += 100
0002: jump @Noname_357

:Noname_278
0006: 0@ = 0
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 -16776961 
0B2D: write_samp_memory offset 94624 value 1@ size 2
018C: play_sound 1139 at 0.0 0.0 0.0
035F: actor $PLAYER_ACTOR armour += 0

:Noname_357
0B43: samp cmd_ret

:Noname_359
0001: wait 0 ms
00D6: if
0039:  2@ == 0
004D: jump_if_false @Noname_481
0006: 2@ = 1
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 16711935 
0B2E: 3@ = read_samp_memory offset 88992 size 2
0B2D: write_samp_memory offset 88992 value 50064 size 2
018C: play_sound 1139 at 0.0 0.0 0.0
0223: set_actor $PLAYER_ACTOR health_to 100
0002: jump @Noname_553

:Noname_481
0006: 2@ = 0
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 -16776961 
0B2D: write_samp_memory offset 88992 value 3@ size 2
018C: play_sound 1139 at 0.0 0.0 0.0

:Noname_553
0B43: samp cmd_ret

:Noname_555
0001: wait 0 ms
0AF8: samp add_message_to_chat "a/h by vk.com/id495208414" color -1886416897 
0AF8: samp add_message_to_chat "/a" color 0xBA55D3
0AF8: samp add_message_to_chat "/h" color 0xBA55D3 
0B43: samp cmd_ret
 
  • Нравится
Реакции: thx killa

™ ChipFamily

По ту сторону надежды.
5,144
1,981
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
CLEO:
{$CLEO}

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end

wait 5000
0AF8: samp add_message_to_chat "[UGBASE.EU] {FFFFFF}Player Finder made by {00DE21}TH3RM4L-" color 0x0095FF
0B34: samp register_client_command "cfind" to_label @start
0B34: samp register_client_command "myfind" to_label @my_find
0B34: samp register_client_command "stopfind" to_label @stop
31@ = false
30@ = false

:cfind
wait 0 
if
31@ == true
jf @cfind
if
SAMP.IsPlayerConnected(2@)
jf @disconnected  
3@ = SAMP.GetActorHandleByPlayerID(2@)
if
856D:  actor 3@ defined
jf @find       
0B2F: samp get_streamed_out_player_pos 2@ to 9@ 10@ 11@
12@ = Marker.CreateIconAndSphere(41, 9@, 10@, 11@)
wait 750
Marker.Disable(12@)
wait 100    

:find
wait 0
if
056D:  actor 3@ defined
jf @cfind
Actor.StorePos(3@, 5@, 6@, 7@)
8@ = Marker.CreateIconAndSphere(41, 5@, 6@, 7@)
wait 750
Marker.Disable(8@)
wait 100
goto @cfind

:start
if
30@ == false
jf @finding_more_players
SAMP.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
jf @usage
if
SAMP.IsPlayerConnected(2@)
jf @invalid_id
30@ = true
31@ = true
0B36: samp 4@ = get_player_nickname 2@
0AF8: samp add_message_to_chat "Marker set on the player %s, ID %d. Use [/stopfind] to stop finding." color 0x6098D1 4@ 2@
SAMP.CmdRet
goto @cfind

:stop
if                                                     
31@ == true
jf @not_finding
30@ = false
31@ = false
Marker.Disable(8@)
0AF8: samp add_message_to_chat "The finding has been stopped succefully." color 0x6098D1
SAMP.CmdRet
goto @cfind

:my_find
if
31@ == true
jf @not_finding
0AF8: samp add_message_to_chat "You are finding %s, ID %d." color 0x6098D1 4@ 2@
SAMP.CmdRet
goto @cfind

:disconnected
0AF8: samp add_message_to_chat "The player which you were finding has disconnected." color 0xBF0000
30@ = false
31@ = false
goto @cfind

:finding_more_players
0AF8: samp add_message_to_chat "You can't find more players at the same time. Use [/stopfind] to stop finding." color 0xFBE29C
SAMP.CmdRet
goto @cfind

:usage
0AF8: samp add_message_to_chat "USAGE: /cfind <playerID>" color 0xBFBFBF
SAMP.CmdRet
goto @cfind

:invalid_id
0AF8: samp add_message_to_chat "Invalid ID." color 0xBF0000
SAMP.CmdRet
goto @cfind

:not_finding
0AF8: samp add_message_to_chat "You are not finding anyone." color 0xFBE29C
SAMP.CmdRet
goto @cfind
 
  • Нравится
Реакции: NoNameCoder

™ ChipFamily

По ту сторону надежды.
5,144
1,981
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Полный код.
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0662: printstring "==============================================================="
0662: printstring "My VK: vk.com/id138101483"
0662: printstring "My Skype: hackes8"
0662: printstring "Group VK: vk.com/by_air"
0662: printstring "My YouTube Channel: www.youtube.com/spacebmxair"
0662: printstring "All rights reserved ©"
0662: printstring "==============================================================="

:Label00011F
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @Label00011F

:Label00012C
0001: wait 0 ms
00D6: if and
0AB0:   key_pressed 82
8449:   not actor $PLAYER_ACTOR in_a_car
8B21:   not samp is_chat_opened
004D: jump_if_false @Label000189
01B4: set_player $PLAYER_CHAR can_move 1
00A0: store_actor $PLAYER_ACTOR position_to 8@ 9@ 10@
04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0 0 -1.0
00A1: put_actor $PLAYER_ACTOR at 8@ 9@ 10@
04D7: set_actor $PLAYER_ACTOR locked 0
02EB: restore_camera_with_jumpcut

:Label000189
00D6: if and
0AB0:   key_pressed 46
0449:   actor $PLAYER_ACTOR in_a_car
8B21:   not samp is_chat_opened
004D: jump_if_false @Label00020A
03C0: 0@ = actor $PLAYER_ACTOR car
0407: store_coords_to 8@ 9@ 10@ from_car 0@ with_offset 0.0 0.0 0.0
00AB: put_car 0@ at 8@ 9@ 10@
0A97: 12@ = car 0@ struct
0C0C: 13@ = struct 12@ offset 20 size 4
0C0D: struct 13@ offset 48 size 4 = 8@
0C0D: struct 13@ offset 52 size 4 = 9@
0C0D: struct 13@ offset 56 size 4 = 10@

:Label00020A
0002: jump @Label00012C
 
  • Нравится
Реакции: Dawidos

Berlusconi

Участник
36
2
Проверьте на стиллер/вирус плез, он закриптован +rep
 

Вложения

  • DMG INFORMER 2.cs
    33 KB · Просмотры: 10

™ ChipFamily

По ту сторону надежды.
5,144
1,981
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Проверьте на стиллер/вирус плез, он закриптован +rep
Чист.
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
 
  • Нравится
Реакции: Berlusconi

™ ChipFamily

По ту сторону надежды.
5,144
1,981
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
  • Нравится
Реакции: Sergiu Rotari и Welles