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

FYP

FYP

Известный
Автор темы
Администратор
1,770
6,005
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. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
 
Последнее редактирование:
  • Нравится
  • Bug
  • Влюблен
Реакции: stearless, Zumi918, Naeedd и 51 других
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.

Вложения

  • Spread v2.txt
    19.1 KB · Просмотры: 8
N

NekitosBos

Известный
18
0
™ ChipFamily написал(а):
CLEO: 
{$CLEO .cs}
0000:
repeat
wait 0
until samp.Available()
chatmsg "Cleo takeid by {FFCC00}Patrick Headdyson" 0xFFFFFF
0B34: samp register_client_command "takeid" to_label @CMD
0B34: samp register_client_command "takeidp" to_label @CMD1

repeat
wait 0
    if 0@ == 1
    then
        samp.IsCommandTyped(1@)
        if 0AD4: 2@ = scan_string 1@ format "%d %d" 5@ 6@
        then
            repeat
            wait 0
                for 7@ = 5@ to 6@
          
                    if 0B23:  samp is_player_connected 7@
                    then
                    wait 0
                    print "~g~Working..." 100
                    else
                    0B28: samp disconnect_with_reason 0
                    wait 100
                    0B27: samp set_gamestate 1
                    print "~g~Reconnect..." 3000
                    repeat
                    wait 0
                    for 12@ = 0 to 30000
                    if 0B4C:  samp is_dialog_active 12@
                    then
                    0BC9: samp send_dialog_response dialog 12@ button 1 listitem 0 input 11@
                    0@ = 0
                    end
                    end
                    until 0@ == 0
                    end
                end
            until 0@ == 0
        else
        0@ = 0
        chatmsg "/takeid [îò] [äî]" 0xCECECE
        end
    end
until false


:CMD
if 0@ == 1
then
0@ = 0
else
0@ = 1
end
samp.CmdRet()

:CMD1
samp.IsCommandTyped(10@)
alloc 11@ 256
0AD3: 11@ = format "%s" 10@
0AD1: show_formatted_text_highpriority "~g~%s" time 2000 11@
samp.CmdRet()
Нажмите для раскрытия...

Привет. Чем ты декриптишь?
 
S

#saniwe

глаза пофикси
218
107
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
decrypt pljs
 

Вложения

  • Timecyc.cs
    17.4 KB · Просмотры: 11
  • Нравится
Реакции: scrooddge.cs
™

™ ChipFamily

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

//-------------MAIN---------------
03A4: name_thread "TIMECYC_BY_0X688_AND_OPCODEXE#"
0007: 30@ = 3600.0
0006: 29@ = 3600
0001: wait 0 ms
00D6: if and
0AB0:   key_pressed 17
0AB0:   key_pressed 49
004D: jump_if_false @Label00007A
000B: 30@ += 5.0
000A: 29@ += 5
03D5: remove_text 'NUMBER'
01E4: show_text_1number_lowpriority GXT 'NUMBER' number 29@ time 2000 flag 1

:Label00007A
00D6: if and
0AB0:   key_pressed 17
0AB0:   key_pressed 50
004D: jump_if_false @Label0000BC
000E: 29@ -= 5
000F: 30@ -= 5.0
03D5: remove_text 'NUMBER'
01E4: show_text_1number_lowpriority GXT 'NUMBER' number 29@ time 2000 flag 1

:Label0000BC
00D6: if
0021:   30@ > 3600.0
004D: jump_if_false @Label000101
0007: 30@ = 3600.0
0006: 29@ = 3600
03D5: remove_text 'NUMBER'
01E4: show_text_1number_lowpriority GXT 'NUMBER' number 29@ time 2000 flag 1

:Label000101
hex
05 1C 03 1E 00 02 00 01 CC FF FF FF
 
S

#saniwe

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

//-------------MAIN---------------
03A4: name_thread "TIMECYC_BY_0X688_AND_OPCODEXE#"
0007: 30@ = 3600.0
0006: 29@ = 3600
0001: wait 0 ms
00D6: if and
0AB0:   key_pressed 17
0AB0:   key_pressed 49
004D: jump_if_false @Label00007A
000B: 30@ += 5.0
000A: 29@ += 5
03D5: remove_text 'NUMBER'
01E4: show_text_1number_lowpriority GXT 'NUMBER' number 29@ time 2000 flag 1

:Label00007A
00D6: if and
0AB0:   key_pressed 17
0AB0:   key_pressed 50
004D: jump_if_false @Label0000BC
000E: 29@ -= 5
000F: 30@ -= 5.0
03D5: remove_text 'NUMBER'
01E4: show_text_1number_lowpriority GXT 'NUMBER' number 29@ time 2000 flag 1

:Label0000BC
00D6: if
0021:   30@ > 3600.0
004D: jump_if_false @Label000101
0007: 30@ = 3600.0
0006: 29@ = 3600
03D5: remove_text 'NUMBER'
01E4: show_text_1number_lowpriority GXT 'NUMBER' number 29@ time 2000 flag 1

:Label000101
hex
05 1C 03 1E 00 02 00 01 CC FF FF FF
Нажмите для раскрытия...

hex 05 1C 03 1E 00 02 00 01 CC FF FF FF

а это че?
 
  • Нравится
Реакции: scrooddge.cs
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Hugway написал(а):
Дайте код)) Спасибо заранее.
Нажмите для раскрытия...
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
0006: 0@ = 0
0006: 21@ = 0
0BE1: raknet setup_outcoming_rpc_hook @Label0002C9
0B34: samp register_client_command "damag" to_label @Label000239
0B34: samp register_client_command "kdamag" to_label @Label000281

:Label00015E
0001: wait 0 ms
00D6: if
0039:   0@ == 1
004D: jump_if_false @Label000232
0006: 1@ = 0

:Label00017B
00D6: if
0B23:  samp is_player_connected 1@
004D: jump_if_false @Label00021C
0B20: samp 2@ = actor_handle_by_samp_player_id 1@
00D6: if
056D:   actor 2@ defined
004D: jump_if_false @Label00021C
00D6: if and
8B5C:   not samp is_player 1@ paused
8118:   not actor 2@ dead
00F2:   actor 2@ near_actor $PLAYER_ACTOR radius 2.0 2.0 0
004D: jump_if_false @Label00021C
0BCB: samp send_give_damage playerid 1@ damage 6.6 weapon 0 bodypart 5
0AD0: show_formatted_text_lowpriority "~b~FistDamager_v2 (1) ~r~by AIR~w~~n~~b~Damage: %d" time 300 1@
0001: wait 350 ms

:Label00021C
000A: 1@ += 1
0019:   1@ > 1000
004D: jump_if_false @Label00017B

:Label000232
0002: jump @Label00015E

:Label000239
0B12: 0@ = 0@ XOR 1
0AD0: show_formatted_text_lowpriority "~b~FistDamager_v2 (1) ~r~by AIR~w~~n~~b~State: %d" time 1000 0@
0B43: samp cmd_ret

:Label000281
0B12: 21@ = 21@ XOR 1
0AD0: show_formatted_text_lowpriority "~b~FistDamager_v2 (2) ~r~by AIR~w~~n~~b~State: %d" time 1000 21@
0B43: samp cmd_ret

:Label0002C9
00D6: if
0039:   21@ == 1
004D: jump_if_false @Label0003AB
0BE5: raknet 14@ = get_hook_param 1
00D6: if
0039:   14@ == 115
004D: jump_if_false @Label0003AB
0BE5: raknet 15@ = get_hook_param 0
0BE7: raknet 16@ = bit_stream_read 15@ type 1
0BE7: raknet 17@ = bit_stream_read 15@ type 2
0BE7: raknet 18@ = bit_stream_read 15@ type 3
0BE7: raknet 19@ = bit_stream_read 15@ type 3
0BE7: raknet 20@ = bit_stream_read 15@ type 3
00D6: if and
0039:   16@ == 0
0039:   19@ == 0
0B23:  samp is_player_connected 17@
004D: jump_if_false @Label0003AB
00D6: if
8B5C:   not samp is_player 17@ paused
004D: jump_if_false @Label0003AB
0BCB: samp send_give_damage playerid 17@ damage 6.6 weapon 0 bodypart 20@
0AD0: show_formatted_text_lowpriority "~b~FistDamager_v2 (2) ~r~by AIR~w~~n~~b~Damage: %d" time 1000 17@
0BE0: raknet hook_ret 0

:Label0003AB
0BE0: raknet hook_ret 1
 
Последнее редактирование:
NoNameCoder

NoNameCoder

Известный
40
12
Ну дааааайте декрипт пожааааалуйстааа
 

Вложения

  • DMINZZ.cs
    56.4 KB · Просмотры: 9
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Voron928 написал(а):
Decompile.
Нажмите для раскрытия...
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
0006: 0@ = 0
0BE3: raknet setup_incoming_rpc_hook @Label0005AF
0BE2: raknet setup_outcoming_packet_hook @Label0005E2
0B34: samp register_client_command "ratp" to_label @Label0001EA
0B34: samp register_client_command "ztp" to_label @Label000343
0AF8: samp add_message_to_chat "[Teleport {CC00FF}for NuBO RP {CC0000}by AIR{33FF33}]: {FFFFFF}Loaded! (/ratp; /ztp)" color 3407667 

:Label0001B8
0001: wait 0 ms
00D6: if
0039:   0@ == 1
004D: jump_if_false @Label0001E3
0001: wait 3000 ms
0006: 0@ = 0
04D7: set_actor $PLAYER_ACTOR locked 0
0C83: samp force_onfoot_sync

:Label0001E3
0002: jump @Label0001B8

:Label0001EA
00D6: if
0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET
004D: jump_if_false @Label0002E2
0006: 0@ = 1
0B32: samp send_spawn
00D6: if
00DF:   actor $PLAYER_ACTOR driving
004D: jump_if_false @Label000227
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 3@

:Label000227
0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET
04E4: refresh_game_renderer_at 1@ 2@
03CB: set_rendering_origin_at 1@ 2@ 3@
000B: 3@ += 500.0
02CE: 3@ = ground_z_at 1@ 2@ 3@
00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
04BB: select_interior 0
0860: link_actor $PLAYER_ACTOR to_interior 0
0BCF: samp send_interior_change 0
01B4: set_player $PLAYER_CHAR can_move 1
0B32: samp send_spawn
02EB: restore_camera_with_jumpcut
0C83: samp force_onfoot_sync
0AF8: samp add_message_to_chat "[Teleport {CC00FF}for NuBO RP {CC0000}by AIR{33FF33}]: {FFFFFF}Teleported!" color 3407667 
0002: jump @Label000341

:Label0002E2
0AF8: samp add_message_to_chat "[Teleport {CC00FF}for NuBO RP {CC0000}by AIR{33FF33}]: {FFFFFF}Put a mark on the map!" color 3407667 

:Label000341
0B43: samp cmd_ret

:Label000343
00D6: if
0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET
004D: jump_if_false @Label0004DA
0006: 0@ = 1
04D7: set_actor $PLAYER_ACTOR locked 1
04E4: refresh_game_renderer_at 1@ 2@
03CB: set_rendering_origin_at 1@ 2@ 3@
000B: 3@ += 500.0
02CE: 3@ = ground_z_at 1@ 2@ 3@
00A0: store_actor $PLAYER_ACTOR position_to 5@ 6@ 7@
00D6: if
00DF:   actor $PLAYER_ACTOR driving
004D: jump_if_false @Label0003BE
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 5@ 6@ 7@

:Label0003BE
04E4: refresh_game_renderer_at 5@ 6@
03CB: set_rendering_origin_at 5@ 6@ 7@

:Label0003D1
00D6: if
80DF:   not actor $PLAYER_ACTOR driving
004D: jump_if_false @Label0003FB
0AB1: call_scm_func @Label00053B 3 5@ 6@ 7@ 
0002: jump @Label000410

:Label0003FB
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 5@ 6@ 7@
0002: jump @Label00042B

:Label000410
000F: 7@ -= 0.94
8031:   not  7@ >= -100.0
004D: jump_if_false @Label0003D1

:Label00042B
0AB1: call_scm_func @Label00053B 3 5@ 6@ -101.0 
04E4: refresh_game_renderer_at 1@ 2@
03CB: set_rendering_origin_at 1@ 2@ 3@
00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
04BB: select_interior 0
0860: link_actor $PLAYER_ACTOR to_interior 0
0BCF: samp send_interior_change 0
01B4: set_player $PLAYER_CHAR can_move 1
02EB: restore_camera_with_jumpcut
0C83: samp force_onfoot_sync
0C83: samp force_onfoot_sync
0C83: samp force_onfoot_sync
0AF8: samp add_message_to_chat "[Teleport {CC00FF}for NuBO RP {CC0000}by AIR{33FF33}]: {FFFFFF}Teleported!" color 3407667 
0002: jump @Label000539

:Label0004DA
0AF8: samp add_message_to_chat "[Teleport {CC00FF}for NuBO RP {CC0000}by AIR{33FF33}]: {FFFFFF}Put a mark on the map!" color 3407667 

:Label000539
0B43: samp cmd_ret

:Label00053B
0B2B: samp 3@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 4@ = allocate_memory_size 68
0BBA: samp store_player 3@ onfoot_data 4@
0C0D: struct 4@ offset 6 size 4 = 0@
0C0D: struct 4@ offset 10 size 4 = 1@
0C0D: struct 4@ offset 14 size 4 = 2@
0C0D: struct 4@ offset 38 size 4 = 0.0
0C0D: struct 4@ offset 42 size 4 = 0.0
0C0D: struct 4@ offset 46 size 4 = -0.939
0BC0: samp send_onfoot_data 4@
0AC9: free_allocated_memory 4@
0AB2: ret 0

:Label0005AF
00D6: if
0039:   0@ == 1
004D: jump_if_false @Label0005DE
0BE5: raknet 4@ = get_hook_param 1
00D6: if
0039:   4@ == 12
004D: jump_if_false @Label0005DE
0BE0: raknet hook_ret 0

:Label0005DE
0BE0: raknet hook_ret 1

:Label0005E2
00D6: if
0039:   0@ == 1
004D: jump_if_false @Label000612
0BE5: raknet 8@ = get_hook_param 1
00D6: if
0039:   8@ == 207
004D: jump_if_false @Label000612
0BE0: raknet hook_ret 0

:Label000612
0BE0: raknet hook_ret 1
 
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
NoNameCoder написал(а):
Парни, декрипт пожалуйста.
Нажмите для раскрытия...
CLEO: 
{$CLEO}
0000: NOP

var
30@ : Integer
31@ : Integer
end


repeat
wait 0
until samp.Available()
:ttr
wait 0
if
0AAB:  file_exists "SmartHooks.ini"
then
chatmsg "{269BD8}[Checker]: {ffffff} Óäàëèòå SmartHooks" 0xFFFFFF
0B28: samp disconnect_with_reason 0
end_thread
end
if
0AAB:  file_exists "CLEO\hact.txt"
then
0B00: delete_file "CLEO\hact.txt"
end
0AA7: call_function 0x81E532 num_params 8 pop 0 | FALSE FALSE FALSE FALSE 31@v FALSE FALSE FALSE | 10@ |
wait 599
0AC6: 1@ = label @url_fileupdateinfo offset // Ñäåëàåì ãðåøîê è ïåðåîïðåäåëèì ïåðåìåííóþ
0C65: 1@ = download_url 1@ to_file "Cleo\hact.txt"
0AB1: call_scm_func @download_check_status 1 download_n 1@ status_to 2@
0C7D: release_download 1@ // Îñâîáîæäàåì, ò.ê. ñêà÷èâàíèå çàâåðøåíî
30@ = 31@
:ttr2
wait 0
if
0A9A: 0@ = openfile "Cleo\hact.txt" mode "rt"
jf @ttr2
wait 100
0AC8: 2@ = allocate_memory_size 4096
0C11: memset destination 2@ value 0 size 4096
0AC8: 3@ = allocate_memory_size 96
repeat
            if 0AD7: read_string_from_file 0@ to 3@ size 95 // ???????? ?????? ?? ????? ? ????? + ?????????, ?????? ?? ?????? ??????
            then
                0C15: strcat destination 2@ source 3@ // ???????????? ?????? ?? ??????? ??????
                0C11: memset destination 3@ value 0 size 96 // ??????? ?????, ????? ??? ????????? ?????? ?? ?????? ?????-?? ?????? ??????????
                end
until 0AD6: end_of_file 0@ reached
wait 100
0A9B: closefile 0@
wait 100
0B00: delete_file "Cleo\hact.txt"  // IF and SET
0AC8: 0@ = allocate_memory_size 96
0AD3: 0@ = FORMAT "%d" 31@
wait 100
if
0C18: 19@ = strstr string1 2@ string2 0@
then
jump @Home0
end
free 3@
free 2@
0B3B: samp show_dialog id 1 caption "Îøèáêà àêòèâàöèè" text "Ñîîáùèòå êîä èç ÷àòëîãà ïðîäàâöó" button_1 "îê" button_2 "" style 0
wait 50
chatmsg "{269BD8}[Checker]: {FFFFFF}Êîä àêòèâàöèè: %d" color -1 params 31@
0B28: samp disconnect_with_reason 0
0A93: end_custom_thread
return



:Home0
0BB9: samp 0@ = get_pickup_pool_ptr

:Home
wait 0
if key_down 109
jf @Business
print "~w~House CHECKER ~G~ON!" 1000
wait 200

:Home2
wait 0
1@ = 0

:Home2_5
if key_down 109
then
print "~w~House CHECKER ~R~OFF!" 1000
wait 200
jump @Home
end
if 2@ = SAMP.PickupHandleByID(1@)
else_jump @Home5
0A90: 2@ = 1@ * 20 // int
2@ += 61444
000A: 2@ += 0@  // Note: the incorrect math opcode was used here
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 1
if or
3@ == 1273
3@ == 19524
else_jump @Home5
0C0C: 3@ = struct 2@ offset 8 size 4
0C0C: 4@ = struct 2@ offset 12 size 4
0C0C: 5@ = struct 2@ offset 16 size 4
5@ -= 1.5
31@=1
Actor.StorePos($PLAYER_ACTOR, 6@, 7@, 8@)
050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@
if 9@ <= 40.0
jf @Home5
0C8F: samp process_chat_input "/evicting"
if Actor.Driving($PLAYER_ACTOR)
then
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 3@ 4@ 5@
else
actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
end
30@ = 0
repeat
wait 0
until 0B4C:  samp is_dialog_active -1
0B4E: samp 33@ = get_current_dialog_id
0BC9: samp send_dialog_response dialog 33@ button 1 listitem -1 input ""

:Home3
wait 0
if
key_down 109
then
print "~w~House CHECKER ~R~OFF!" 1000
31@=0
wait 200
free 11@
jump @Home
end
SAMP.CloseDialog(1)
jump @Home3

:Home5
1@ += 1
  1@ > 4096
else_jump @Home2_5
jump @Home2

:Business
wait 0
if key_down 106
jf @Home
print "~w~Business CHECKER ~G~ON!" 1000
0AC8: 11@ = allocate_memory_size 256
wait 200

:Business2
wait 0
FOR 10@ = 0 TO {MAX_3DTEXTS}2048 [STEP = 1]
if key_down 106
then
print "~w~Business CHECKER ~R~OFF!" 1000
free 11@
wait 200
jump @Business
end
    IF 0B46:     samp 3d_text 10@ defined
    THEN
    0C46: samp get_3d_text_info_by_id 10@ string_ptr 11@ color 12@ position 3@ 4@ 5@ view_distance 16@ show_behind_walls 17@ attached_to_player 18@ attached_to_vehicle 19@
      if 0C18: 20@ = strstr string1 11@ string2 "Âëàäåëåö: {FFFFFF}íåò"
        then
            00A0: store_actor $PLAYER_ACTOR position_to 6@ 7@ 8@
            050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@
            if 9@ <= 40.0
            then
            free 11@
            5@ -= 1.5
            31@=1
                if Actor.Driving($PLAYER_ACTOR)
                then
                    0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 3@ 4@ 5@
                else
                    actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
                end
                30@ = 0
                repeat
                    wait 0
                until 0B4C:  samp is_dialog_active -1
                0B4E: samp 33@ = get_current_dialog_id
                0BC9: samp send_dialog_response dialog 33@ button 0 listitem -1 input ""
                jump @Business3
            end
        end
    END
END
jump @Business2

:Business3
wait 0
if
key_down 106
then
print "~w~Business CHECKER ~R~OFF!" 1000
free 11@
wait 200
31@=0
jump @Business
end
SAMP.CloseDialog(0)
jump @Business3

:download_check_status // Äëÿ ïðîâåðêè ñòàòóñà çàãðóçêè(ò.ê. ýòà ÷àñòü áóäåò èñïîëüçîâàòüñÿ áîëåå, ÷åì 1 ðàç)
// call @download_check_status 1 download_n 0@
1@ = -1
while 1@ == -1 // Ñêà÷èâàíèå âñ¸ åù¸ â ïðîöåññå
    wait 0
    0C66: 1@ = get_download 0@ state // Ïîëó÷àåì ñòàòóñ çàãðóçêè
end
0AB2: ret 1 1@ // Âîçâðàùàåì ñòàòóñ çàðóçêè

:url_fileupdateinfo // Ò.ê. â Sanny Builder èíà÷å íèêàê íå ïîäðóæèòüñÿ ñî ñëåøàìè â ñòðîêàõ, ïðèäåòñÿ êàê íèòü òàê
// Çäåñü õðàíèòñÿ URL íà äàííûå ñ îáíîâëåíèåì
hex
    "http:" "/" "/" "west-cs.at.ua/hact.txt" 00
end
 
  • Нравится
Реакции: NoNameCoder
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. LinkelnAweil
    • Закрыта
    Lua Декомпиляция скриптов
    Ответы
    3
    Просмотры
    7K
    Другое
    Mirrorka
    Mirrorka
  2. LeonardoDiCaprioAndDaVinc
    • Вопрос
    Декомпиляция скриптов Lua и Cleo
    Ответы
    4
    Просмотры
    3K
    Помощь
    YarikVL
    YarikVL
  3. K
    • Вопрос
    Декомпиляция
    Ответы
    3
    Просмотры
    2K
    Вопросы
    degrando
    degrando
  4. F
    • Решено
    Декомпиляция .luac скриптов
    Ответы
    7
    Просмотры
    4K
    Помощь
    deleted-user-411329
    D
  5. Dec0d3r
    Исполнитель Декомпиляция AHK-скриптов
      • Bug
    Ответы
    1
    Просмотры
    648
    Работа и услуги
    Z1triXXXXX
    Z1triXXXXX
Сверху Снизу