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

FYP

Известный
Автор темы
Администратор
1,758
5,732
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. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
 
Последнее редактирование:

imring

Ride the Lightning
Всефорумный модератор
2,355
2,518
код открыт.
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
thread "osk"
if
0@ = SAMP.Base()
else_jump @osk_27
0A93: end_custom_thread

:osk_27
wait 400
   SAMP.Available
else_jump @osk_27
chatmsg "AUTODEATHMSG by SAMPHACK" 16711680
0B34: samp register_client_command "osk" to_label @osk_179

:osk_87
wait 0
if and
  17@ == 1
   Actor.Dead($PLAYER_ACTOR)
else_jump @osk_172
0AF4: 0@v = read_string_from_ini_file "CLEO\AUTODEATHMSG.INI" section "OSK" key "OSK"
wait 200
say "%s" 0@v
wait 3500

:osk_172
jump @osk_87

:osk_179
if
  17@ == 0
else_jump @osk_243
17@ = 1
chatmsg "AUTODEATHMSG ACTIVATED" 16711680
jump @osk_284

:osk_243
17@ = 0
chatmsg "AUTODEATHMSG DEACTIVATED" 16711680

:osk_284
SAMP.CmdRet

отсосу возможна
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0@ = -28721
gosub 0@
0000: NOP

:Noname_17
wait 0
   SAMP.Available
else_jump @Noname_17
if
8AAB:   not file_exists "CLEO\AutoLock.ini"
else_jump @Noname_624
0AF1: write_int 1 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoLock [0/1]"
0AF1: write_int 1 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoLockInCar [0/1]"
0AF1: write_int 113 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "LockOnTheButton [VirtualKeyCodes]"
0AF1: write_int 114 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "KeyOnTheButton [VirtualKeyCodes]"
0AF1: write_int 1 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoEngine [0/1]"
0AF1: write_int 50 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "Delay [ms]"
0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_2"
0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_3"
0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_4"
0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_5"
0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_6"

:Noname_624
alloc 0@ 512
alloc 1@ 512
SAMP.GetCurrentServerAddress(0@, 1@)
if
  1@ == 7777
else_jump @Noname_1272
if or
0C14: strcmp string1 0@ string2 "185.169.134.3"
0C14: strcmp string1 0@ string2 "185.169.134.4"
0C14: strcmp string1 0@ string2 "185.169.134.43"
0C14: strcmp string1 0@ string2 "185.169.134.44"
0C14: strcmp string1 0@ string2 "185.169.134.45"
0C14: strcmp string1 0@ string2 "185.169.134.5"
0C14: strcmp string1 0@ string2 "185.169.134.59"
else_jump @Noname_1113

:Noname_822
wait 0
if
   SAMP.IsLocalPlayerSpawned
else_jump @Noname_1099
wait 10
chatmsg "" -1
chatmsg "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}AutoLock by Ro0oma çàïóùåí!" -1
0AF0: 19@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
if
  19@ == 0
else_jump @Noname_1052
chatmsg "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}Óêàæèòå ID ìîäåëè Âàøåãî Ò/Ñ äëÿ ðàáîòû ñêðèïòà!" -1

:Noname_1052
0C6A: 31@ = create_custom_thread_at_label @Noname_1767 
0C6A: 30@ = create_custom_thread_at_label @Noname_2213 
0C6A: 29@ = create_custom_thread_at_label @Noname_2342 
0BE3: raknet setup_incoming_rpc_hook @Noname_2469
jump @Noname_1106

:Noname_1099
jump @Noname_822

:Noname_1106
jump @Noname_1265

:Noname_1113
wait 0
if
   SAMP.IsLocalPlayerSpawned
else_jump @Noname_1258
wait 10
chatmsg "" -1
chatmsg "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}Âû íå íà Arizona Role Play!" -1
chatmsg "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}AutoLock îòêëþ÷åí!" -1
end_thread

:Noname_1258
jump @Noname_1113

:Noname_1265
jump @Noname_1274

:Noname_1272
end_thread

:Noname_1274
free 0@
free 1@

:Noname_1284
wait 0
if and
   not Actor.Driving($0[3])
key_down 70
   not SAMP.ChatInputOpened
   not SAMP.IsDialogActive(-1)
else_jump @Noname_1753
15@ = 0
0AB5: store_actor $0[3] closest_vehicle_to 25@ closest_ped_to $0[4]
0AF0: 22@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
0AF0: 23@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_2"
0AF0: 24@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_3"
0AF0: 11@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_4"
0AF0: 12@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_5"
0AF0: 13@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_6"
if
056E:   car 25@ defined
else_jump @Noname_1746
if or
   Car.Model(25@) == 22@
   Car.Model(25@) == 23@
   Car.Model(25@) == 24@
   Car.Model(25@) == 11@
   Car.Model(25@) == 12@
   Car.Model(25@) == 13@
else_jump @Noname_1746

:Noname_1641
wait 0
if
   not key_down 70
else_jump @Noname_1739
say "/lock"
if
   not 20@ == 1
else_jump @Noname_1732
wait 250
1@ = 0

:Noname_1700
wait 0
SAMP.SetGameKeyState(15, 255)
1@ += 1
  1@ > 30
else_jump @Noname_1700

:Noname_1732
jump @Noname_1746

:Noname_1739
jump @Noname_1641

:Noname_1746
jump @Noname_1760

:Noname_1753
15@ = 1

:Noname_1760
jump @Noname_1284

:Noname_1767
wait 0
if
   Actor.Driving($0[3])
else_jump @Noname_2206
0@ = Actor.CurrentCar($0[3])
0AF0: 22@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
0AF0: 23@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_2"
0AF0: 24@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_3"
if or
   Car.Model(0@) == 22@
   Car.Model(0@) == 23@
   Car.Model(0@) == 24@
else_jump @Noname_2206
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoLockInCar [0/1]"
if
  1@ == 1
else_jump @Noname_2081
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "Delay [ms]"
wait 1@
say "/lock"

:Noname_2081
wait 50
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoEngine [0/1]"
if
  1@ == 1
else_jump @Noname_2183
if
8ABE:   not vehicle 0@ engine_on
else_jump @Noname_2183
say "/engine"

:Noname_2183
   Actor.Driving($0[3])
else_jump @Noname_2206
wait 0
jump @Noname_2183

:Noname_2206
jump @Noname_1767

:Noname_2213
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "LockOnTheButton [VirtualKeyCodes]"

:Noname_2282
wait 0
if
key_down 1@
else_jump @Noname_2335
say "/lock"

:Noname_2312
key_down 1@
else_jump @Noname_2335
wait 0
jump @Noname_2312

:Noname_2335
jump @Noname_2282

:Noname_2342
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "KeyOnTheButton [VirtualKeyCodes]"

:Noname_2410
wait 0
if
key_down 1@
else_jump @Noname_2462
say "/key"

:Noname_2439
key_down 1@
else_jump @Noname_2462
wait 0
jump @Noname_2439

:Noname_2462
jump @Noname_2410

:Noname_2469
0BE5: raknet 9@ = get_hook_param 1
if
  9@ == 73
else_jump @Noname_2689
0BE5: raknet 9@ = get_hook_param 0
BitStream.ResetReadPointer(9@)
2@ = BitStream.Read(9@, 3)
3@ = BitStream.Read(9@, 3)
4@ = BitStream.Read(9@, 3)
alloc 5@ 512
BitStream.ReadArray(9@, 5@, 4@)
0C1E: array 5@ element 4@ el_size 1 = 0
if
0C29: 6@ = stristr string1 5@ string2 " LOCK"
else_jump @Noname_2679
20@ = 1
if
   not 15@ == 1
else_jump @Noname_2672
say "/lock"
wait 250
1@ = 0

:Noname_2640
wait 0
SAMP.SetGameKeyState(15, 255)
1@ += 1
  1@ > 30
else_jump @Noname_2640

:Noname_2672
20@ = 0

:Noname_2679
free 5@
BitStream.ResetReadPointer(9@)

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

imring

Ride the Lightning
Всефорумный модератор
2,355
2,518
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "Ещё больше скриптов ты найдёшь тут: vk.com/gangsterflowers"
wait 0
   SAMP.Available
else_jump NAN.0
0B34: samp register_client_command "teleport" to_label @Noname_160
0BE2: raknet setup_outcoming_packet_hook @Noname_365
chatmsg "[Teleport OnFoot] - By Voron928 succefull loaded" -1
0BDE: pause_thread 0

:Noname_160
if
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET
else_jump NAN.0
0@ = 1
SAMP.SendSpawn
Actor.PutAt($PLAYER_ACTOR, 0.0, 0.0, 0.0)
call NAN.0 0
0@ = 0
jump NAN.0
chatmsg "[Teleport OnFoot By Voron928]: Поставьте метку на карте!" -1
SAMP.CmdRet
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
04E4: refresh_game_renderer_at 0@ 1@
Camera.SetAtPos(0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 500.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
ret 0

:Noname_365
0BE5: raknet 1@ = get_hook_param 1
if and
  0@ == 1
  1@ == 207
else_jump NAN.0
0BE0: raknet hook_ret 0
jump NAN.0
0BE0: raknet hook_ret 1
 

imring

Ride the Lightning
Всефорумный модератор
2,355
2,518
С Таким кодом скрипт не скомпилируется.
такой пойдет?
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "Ещё больше скриптов ты найдёшь тут: vk.com/gangsterflowers"
:Noname_120
wait 0
   SAMP.Available
else_jump @Noname_120
0B34: samp register_client_command "teleport" to_label @Noname_160
0BE2: raknet setup_outcoming_packet_hook @Noname_365
chatmsg "[Teleport OnFoot] - By Voron928 succefull loaded" -1
0BDE: pause_thread 0

:Noname_160
if
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET
else_jump @Noname_200
0@ = 1
SAMP.SendSpawn
Actor.PutAt($PLAYER_ACTOR, 0.0, 0.0, 0.0)
0@ = 0
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
04E4: refresh_game_renderer_at 0@ 1@
Camera.SetAtPos(0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 500.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
jump @Noname_240

:Noname_200
chatmsg "[Teleport OnFoot By Voron928]: Поставьте метку на карте!" -1

:Noname_240
SAMP.CmdRet

:Noname_365
0BE5: raknet 1@ = get_hook_param 1
if and
  0@ == 1
  1@ == 207
else_jump @Noname_405
jump @Noname_445

:Noname_405
0BE0: raknet hook_ret 1

:Noname_445
0BE0: raknet hook_ret 0
 
  • Нравится
Реакции: 1fs1

Lenin.rev

Новичок
6
0
Помогите пожалуйста. Сколько не пытаюсь - ничего не получается. Как это можно сделать?
+ вот файл.
Спасибо :3
 

Вложения

  • police.exe
    834.5 KB · Просмотры: 7

imring

Ride the Lightning
Всефорумный модератор
2,355
2,518
Ну чё пацаны 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---------------
0000: NOP
   not SAMP.Available
else_jump NAN.0
wait 50
jump NAN.0
if
8AAB:   not file_exists "CLEO\FastDrugs.ini"
else_jump NAN.0
0AF1: write_int 88 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "ActivationKey"
0AF1: write_int 1 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "Sbiv"
0AF1: write_int 1 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "Timer"
0AF1: write_int 60 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerTime"
0AF1: write_int 0 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "FixDrugs"
0AF1: write_int 125 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerPosX"
0AF1: write_int 700 to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerPosY"
alloc 26@ 64
format 26@ "usedrugs"
0AF5: write_string 26@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "CommandForUseDrugs"
free 26@
0AF0: 3@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "ActivationKey"
0AF0: 4@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "Sbiv"
0AF0: 5@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "Timer"
0AF0: 18@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerTime"
0AF0: 21@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "FixDrugs"
0AF0: 23@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerPosX"
0AF0: 24@ = get_int_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerPosY"
alloc 19@ 64
0AF4: 19@ = read_string_from_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "CommandForUseDrugs"
18@ *= 1000
17@ = Render.CreateFont("Arial", 9, 13)
0BE3: raknet setup_incoming_rpc_hook @NONAME_2856
0B34: samp register_client_command "drugsmenu" to_label @NONAME_3107
wait 0
if and
key_down 3@
   not SAMP.ChatInputOpened
else_jump NAN.0
key_down 3@
else_jump NAN.0
wait 0
jump NAN.0
29@ = 1
0@ = Actor.Health($PLAYER_ACTOR)
1@ = 160
0062: 1@ -= 0@ // (int)
0093: 1@ = integer 1@ to_float
1@ /= 10.0
0092: 1@ = float 1@ to_integer
1@ *= 10
0A8E: 2@ = 1@ + 0@ // int
1@ /= 10
if
   not 2@ >= 160
else_jump NAN.0
1@ += 1
if
  21@ == 0
else_jump NAN.0
if
  1@ > 15
else_jump NAN.0
say "/%s 15" 19@
jump NAN.0
say "/%s %d" 19@ 1@
jump NAN.0
say "/%s %d" 19@ 21@
wait 150
29@ = 0
  5@ == 1
else_jump NAN.0
if
  16@ == 1
else_jump NAN.0
if or
001D:   33@ > 18@ // (int)
  16@ == 0
else_jump NAN.0
16@ = 0
jump NAN.0
0085: 20@ = 18@ // (int)
0062: 20@ -= 33@ // (int)
20@ /= 1000
20@ += 1
alloc 9@ 28
format 9@ "Îñòàëîñü %d ñåê." 20@
Render.DrawText(17@, 9@, 23@, 24@, -1)
free 9@
jump NAN.0
Render.DrawText(17@, "Ìîæíî þçàòü!", 23@, 24@, -16742079)
  22@ == 1
else_jump NAN.0
wait 0
if
   not SAMP.IsDialogActive(2531)
else_jump NAN.0
0B5E: get_cursor_pos 25@ 27@
0085: 23@ = 25@ // (int)
0085: 24@ = 27@ // (int)
0AF1: write_int 25@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerPosX"
0AF1: write_int 27@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerPosY"
22@ = 0
jump NAN.0
0B5E: get_cursor_pos 25@ 27@
if
  16@ == 1
else_jump NAN.0
if or
001D:   33@ > 18@ // (int)
  16@ == 0
else_jump NAN.0
16@ = 0
jump NAN.0
0085: 20@ = 18@ // (int)
0062: 20@ -= 33@ // (int)
20@ /= 1000
20@ += 1
alloc 9@ 28
format 9@ "Îñòàëîñü %d ñåê." 20@
Render.DrawText(17@, 9@, 25@, 27@, -1)
free 9@
jump NAN.0
Render.DrawText(17@, "Ìîæíî þçàòü!", 25@, 27@, -16742079)
jump NAN.0
if
   SAMP.DialogRespond(2525, 6@, 7@, 0)
else_jump NAN.0
  6@ == 1
else_jump NAN.0
if
  7@ == 0
else_jump NAN.0
0AC6: 20@ = label @NONAME_3946 offset
SAMP.ShowDialog(2526, "DrugsMenu - êíîïêà àêòèâàöèè.", 20@, "Âûáðàòü", "Îòìåíà", DIALOG_STYLE_INPUT)
jump NAN.0
if
  7@ == 1
else_jump NAN.0
0B12: 4@ = 4@ XOR 1
0AF1: write_int 4@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "Sbiv"
gosub @NONAME_3116
jump NAN.0
if
  7@ == 2
else_jump NAN.0
0B12: 5@ = 5@ XOR 1
0AF1: write_int 5@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "Timer"
gosub @NONAME_3116
jump NAN.0
if
  7@ == 3
else_jump NAN.0
0AC6: 20@ = label @NONAME_4083 offset
SAMP.ShowDialog(2527, "DrugsMenu - âðåìÿ òàéìåðà.", 20@, "Âûáðàòü", "Îòìåíà", DIALOG_STYLE_INPUT)
jump NAN.0
if
  7@ == 4
else_jump NAN.0
0AC6: 20@ = label @NONAME_4117 offset
SAMP.ShowDialog(2528, "DrugsMenu - êîìàíäà.", 20@, "Âûáðàòü", "Îòìåíà", DIALOG_STYLE_INPUT)
SAMP.SetDialogInputBoxText(19@)
jump NAN.0
if
  7@ == 5
else_jump NAN.0
0AC6: 20@ = label @NONAME_4255 offset
SAMP.ShowDialog(2529, "DrugsMenu - ÔÊÍ.", 20@, "Âûáðàòü", "Îòìåíà", DIALOG_STYLE_INPUT)
jump NAN.0
if
  7@ == 6
else_jump NAN.0
16@ = 0
jump NAN.0
if
  7@ == 7
else_jump NAN.0
0AC6: 20@ = label @NONAME_5441 offset
SAMP.ShowDialog(2531, "DrugsMenu - ñìåíà ïîëîæåíèÿ òàéìåðà", 20@, "Ãîòîâî", "", DIALOG_STYLE_MSGBOX)
22@ = 1
jump NAN.0
0AC6: 20@ = label @NONAME_4492 offset
SAMP.ShowDialog(2530, "DrugsMenu - Èíôîðìàöèÿ.", 20@, "Ñïàñèáî", "", DIALOG_STYLE_MSGBOX)
jump NAN.0
alloc 8@ 256
if
   SAMP.DialogRespond(2526, 6@, 0, 8@)
else_jump NAN.0
if
  6@ == 1
else_jump NAN.0
0C1A: 8@ = atoi 8@
0085: 3@ = 8@ // (int)
0AF1: write_int 8@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "ActivationKey"
gosub @NONAME_3116
jump NAN.0
if
   SAMP.DialogRespond(2527, 6@, 0, 8@)
else_jump NAN.0
if
  6@ == 1
else_jump NAN.0
0C1A: 8@ = atoi 8@
0085: 18@ = 8@ // (int)
18@ *= 1000
0AF1: write_int 8@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "TimerTime"
gosub @NONAME_3116
jump NAN.0
if
   SAMP.DialogRespond(2528, 6@, 0, 8@)
else_jump NAN.0
format 19@ "%s" 8@
0AF5: write_string 8@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "CommandForUseDrugs"
gosub @NONAME_3116
jump NAN.0
if
   SAMP.DialogRespond(2529, 6@, 0, 8@)
else_jump NAN.0
0C1A: 8@ = atoi 8@
if
  8@ > -1
else_jump NAN.0
0085: 21@ = 8@ // (int)
0AF1: write_int 21@ to_ini_file "CLEO\FastDrugs.ini" section "Drugs" key "FixDrugs"
gosub @NONAME_3116
free 8@
jump NAN.0

:NONAME_2856
0BE5: raknet 1@ = get_hook_param 1
if or
  1@ == 152
  1@ == 86
  1@ == 29
else_jump NAN.0
if and
  29@ == 1
  4@ == 1
else_jump NAN.0
0BE0: raknet hook_ret 0
jump NAN.0
  1@ == 93
else_jump NAN.0
0BE5: raknet 10@ = get_hook_param 0
BitStream.IgnoreBits(10@, 32)
11@ = BitStream.Read(10@, 3)
alloc 12@ 256
BitStream.ReadArray(10@, 12@, 11@)
0C0D: struct 12@ offset 11@ size 1 = 0
13@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
14@ = SAMP.GetPlayerNickname(13@)
alloc 15@ 64
format 15@ " %s óïîòðåáèë(a) íàðêîòèê" 14@
if
0C14: strcmp string1 12@ string2 15@
else_jump NAN.0
33@ = 0
16@ = 1
free 15@
free 12@
0BE0: raknet hook_ret 1

:NONAME_3107
gosub @NONAME_3116
SAMP.CmdRet

:NONAME_3116
alloc 20@ 1024
if
  4@ == 1
else_jump NAN.0
format 20@ "Êíîïêà àêòèâàöèè:{ffb700} %d%c{ffffff}Ñáèâ: {00ff00}Âêëþ÷åí" 3@ 10
jump NAN.0
format 20@ "Êíîïêà àêòèâàöèè:{ffb700} %d%c{ffffff}Ñáèâ: {ff0000}Âûêëþ÷åí" 3@ 10
18@ /= 1000
if
  5@ == 1
else_jump NAN.0
format 20@ "%s%c{ffffff}Òàéìåð: {00ff00}Âêëþ÷åí%c{ffffff}Âðåìÿ òàéìåðà: {ffb700}%d {ffffff}ñåêóíä" 20@ 10 10 18@
jump NAN.0
format 20@ "%s%c{ffffff}Òàéìåð: {ff0000}Âûêëþ÷åí%c{ffffff}Âðåìÿ òàéìåðà: {ffb700}%d {ffffff}ñåêóíä" 20@ 10 10 18@
18@ *= 1000
format 20@ "%s%cÊîìàíäà äëÿ èñïîëüçîâàíèÿ íàðêîòèêîâ(áåç /): {ffb700}%s{ffffff}%c" 20@ 10 19@ 10
if
  21@ == 0
else_jump NAN.0
format 20@ "%sÔèêñèðîâàííîå êîëè÷åñòâî íàðêîòèêîâ: {ff0000}Âûêëþ÷åí" 20@
jump NAN.0
format 20@ "%sÔèêñèðîâàííîå êîëè÷åñòâî íàðêîòèêîâ: {ffb700}%d {ffffff}ãðàìì" 20@ 21@
format 20@ "%s%cÑáðîñèòü òàéìåð%cÈçìåíèòü ìåñòîïîëîæåíèå òàéìåðà%cÈíôîðìàöèÿ î ñêðèïòå" 20@ 10 10 10
SAMP.ShowDialog(2525, "DrugsMenu. Àâòîð: Vine", 20@, "Âûáðàòü", "Îòìåíà", DIALOG_STYLE_LIST)
free 20@
return

:NONAME_3946
hex
C2 E2 E5 E4 E8 F2 E5 20 49 44 20 EA EB E0 E2 E8
F8 E8 20 E0 EA F2 E8 E2 E0 F6 E8 E8 2C 20 F1 EB
E5 E4 F3 FF 20 FD F2 EE EC F3 20 EF F3 ED EA F2
F3 2E 0A 95 20 C4 EE F1 F2 F3 EF ED FB E5 20 49
44 20 EA EB E0 E2 E8 F8 3A 20 38 20 2D 20 32 32
32 2E 20 C5 F1 EB E8 20 C2 FB 20 E2 E2 E5 E4 E5
F2 E5 20 E4 F0 F3 E3 EE E5 20 F7 E8 F1 EB EE 2C
20 E0 EA F2 E8 E2 E0 F6 E8 FF 20 ED E5 20 F1 F0
E0 E1 EE F2 E0 E5 F2 2E 00 C2 E2 E5 E4 E8 F2 E5
20 E2 F0 E5 EC FF 20 F2 E0 E9 EC E5 F0 E0 20 E2
20 F1 E5 EA F3 ED E4 E0 F5 2E 00 C2 E2 E5 E4 E8
F2 E5 20 EA EE EC E0 ED E4 F3 20 E4 EB FF 20 E8
F1 EF EE EB FC E7 EE E2 E0 ED E8 FF 20 ED E0 F0
EA EE F2 E8 EA EE E2 2E 0A CF F0 E8 EC E5 F0 3A
20 75 73 65 64 72 75 67 73 20 28 45 76 6F 6C 76
65 20 52 50 2F 53 61 6D 70 20 52 50 29 2E 0A CF
F0 E8 EC E5 F7 E0 ED E8 E5 3A 20 EA EE EC E0 ED
E4 F3 20 E2 E2 EE E4 E8 F2 FC 20 E1 E5 E7 20 EF
E0 F0 E0 EC E5 F2 F0 EE E2 20 E8 20 F1 EB FD F8
E0 28 2F 29 00 C2 E2 E5 E4 E8 F2 E5 20 F4 E8 EA
F1 E8 F0 EE E2 E0 ED ED EE E5 20 EA EE EB E8 F7
E5 F1 F2 E2 EE 20 ED E0 F0 EA EE F2 E8 EA EE E2
2E 0A C2 E2 E5 E4 E8 F2 E5 20 30 2C 20 E5 F1 EB
E8 20 F5 EE F2 E8 F2 E5 20 E2 FB EA EB FE F7 E8
F2 FC 20 F4 F3 ED EA F6 E8 FE 2E 0A C5 F1 EB E8
20 F4 F3 ED EA F6 E8 FF 20 E2 FB EA EB FE F7 E5
ED E0 2C 20 F1 EA F0 E8 EF F2 20 E0 E2 F2 EE EC
E0 F2 E8 F7 E5 F1 EA E8 20 E1 F3 E4 E5 F2 20 EF
EE E4 F1 F7 E8 F2 FB E2 E0 F2 FC 20 EA EE EB E8
F7 E5 F1 F2 E2 EE 20 ED E0 F0 EA EE F2 E8 EA EE
E2 20 EA EE F2 EE F0 EE E5 20 ED F3 E6 ED EE 20
EF F0 E8 ED FF F2 FC 2C 20 F7 F2 EE 20 E1 FB 20
EF EE EF EE EB ED E8 F2 FC 20 E7 E4 EE F0 EE E2
FC E5 20 E4 EE 20 31 36 30 20 E5 E4 E8 ED E8 F6
2E 00
end

:NONAME_4492
hex
D1 EA F0 E8 EF F2 20 46 61 73 74 44 72 75 67 73
2E 20 C0 E2 F2 EE F0 3A 20 56 69 6E 65 2E 20 56
4B 3A 20 76 6B 2E 63 6F 6D 2F 6D 72 5F 6D 61 6B
73 5F 63 6F 6F 6C 0A 95 20 CA EE ED EF EA E0 20
E0 EA F2 E8 E2 E0 F6 E8 E8 20 2D 20 EA ED EE EF
EA E0 2C 20 EF F0 E8 20 ED E0 E6 E0 F2 E8 E8 20
ED E0 20 EA EE F2 EE F0 F3 FE 20 E1 F3 E4 E5 F2
20 F1 F0 E0 E1 E0 F2 FB E2 E0 F2 FC 20 E1 E8 ED
E4 2E 20 D3 EA E0 E7 FB E2 E0 E5 F2 FC F1 FF 20
E2 20 44 65 63 69 6D 61 6C 2E 20 CF EE 20 F3 EC
EE EB F7 E0 ED E8 FE 20 2D 20 38 38 20 28 EA ED
EE EF EA E0 20 58 29 0A 95 20 D1 E1 E8 E2 20 2D
20 F1 E1 E8 E2 20 E0 ED E8 EC E0 F6 E8 E8 20 F3
EF EE F2 F0 E5 E1 EB E5 ED E8 FF 20 ED E0 F0 EA
EE F2 E8 EA EE E2 2E 20 CD E0 20 F1 E0 EC EE EC
20 E4 E5 EB E5 2C 20 EE ED E0 20 F1 E1 E8 E2 E0
F2 FC F1 FF 20 ED E5 20 E1 F3 E4 E5 F2 2C 20 EE
ED E0 20 EF F0 EE F1 F2 EE 20 ED E5 20 E1 F3 E4
E5 F2 20 E4 E0 E6 E5 20 ED E0 F7 E8 ED E0 F2 FC
20 EF F0 EE E8 E3 F0 FB E2 E0 F2 F1 FF 2E 0A 95
20 D2 E0 E9 EC E5 F0 20 2D 20 F1 F7 E5 F2 F7 E8
EA 20 ED E0 E4 20 F2 E0 E9 EC E5 F0 EE EC 2C 20
EA EE F2 EE F0 FB E9 20 EF EE EA E0 E7 FB E2 E0
E5 F2 20 E2 F0 E5 EC FF 20 E4 EE 20 F1 EB E5 E4
F3 FE F9 E5 E3 EE 20 EF F0 E8 E5 EC E0 20 ED E0
F0 EA EE F2 E8 EA EE E2 2E 0A 95 20 C2 F0 E5 EC
FF 20 F2 E0 E9 EC E5 F0 E0 20 2D 20 F4 E8 EA F1
E8 F0 EE E2 E0 ED ED EE E5 20 E2 F0 E5 EC FF 20
E4 EE 20 F1 EB E5 E4 F3 FE F9 E5 E3 EE 20 EF F0
E8 E5 EC E0 20 ED E0 F0 EA EE F2 E8 EA EE E2 2C
20 F3 EA E0 E7 FB E2 E0 E5 F2 FC F1 FF 20 E2 20
F1 E5 EA F3 ED E4 E0 F5 2E 20 45 76 6F 6C 76 65
20 52 50 2F 53 61 6D 70 20 52 50 20 2D 20 36 30
20 F1 E5 EA F3 ED E4 2E 0A 95 20 CA EE EC E0 ED
E4 E0 20 E4 EB FF 20 E8 F1 EF EE EB FC E7 EE E2
E0 ED E8 FF 20 ED E0 F0 EA EE F2 E8 EA EE E2 20
2D 20 EA EE EC E0 ED E4 E0 20 ED E0 20 C2 E0 F8
E5 EC 20 F1 E5 F0 E2 E5 F0 E5 20 E4 EB FF 20 E8
F1 EF EE EB FC E7 EE E2 E0 ED E8 FF 20 ED E0 F0
EA EE F2 E8 EA EE E2 2E 20 C2 20 E1 EE EB FC F8
E5 ED F1 F2 E2 E5 20 F1 E5 F0 E2 E5 F0 EE E2 20
FD F2 EE 20 27 75 73 65 64 72 75 67 73 27 2E 0A
95 20 D4 E8 EA F1 E8 F0 EE E2 E0 ED ED EE E5 20
EA EE EB E8 F7 E5 F1 F2 E2 EE 20 ED E0 F0 EA EE
F2 E8 EA EE E2 20 2D 20 EA EE EB E8 F7 E5 F1 F2
E2 EE 20 ED E0 F0 EA EE F2 E8 EA EE E2 2C 20 EA
EE F2 EE F0 EE E5 20 E1 F3 E4 E5 F2 20 E8 F1 EF
EE EB FC E7 EE E2 E0 F2 FC F1 FF 20 E2 20 E1 E8
ED E4 E5 2E 20 2E 2E 2E 0A 2E 2E 2E 20 C5 F1 EB
E8 20 F3 F1 F2 E0 ED EE E2 E8 F2 FC 20 30 20 2D
20 F1 EA F0 E8 EF F2 20 E0 E2 F2 EE EC E0 F2 E8
F7 E5 F1 EA E8 20 E1 F3 E4 E5 F2 20 EF EE E4 F1
F7 E8 F2 FB E2 E0 F2 FC 20 EA EE EB E8 F7 E5 F1
F2 E2 EE 20 ED E0 F0 EA EE F2 E8 EA EE E2 20 EA
EE F2 EE F0 EE E5 20 ED F3 E6 ED EE 20 EF F0 E8
ED FF F2 FC 2C 20 F7 F2 EE 20 E1 FB 20 EF EE EF
EE EB ED E8 F2 FC 20 E7 E4 EE F0 EE E2 FC E5 20
E4 EE 20 31 36 30 20 E5 E4 E8 ED E8 F6 2E 0A D3
E4 E0 F7 E8 20 ED E0 20 EA E0 EF F2 F3 F0 E0 F5
21 20 3D 29 00 C4 EB FF 20 F2 EE E3 EE 2C 20 F7
F2 EE 20 E1 FB 20 E8 E7 EC E5 ED E8 F2 FC 20 EF
EE EB EE E6 E5 ED E8 E5 20 F2 E0 E9 EC E5 F0 E0
20 ED E0 20 FD EA F0 E0 ED E5 20 ED E5 20 E7 E0
EA F0 FB E2 E0 FF 20 FD F2 EE F2 20 E4 E8 E0 EB
EE E3 2E 2E 0A CD E0 E2 E5 E4 E8 F2 E5 20 EA F3
F0 F1 EE F0 20 ED E0 20 F2 EE 20 EC E5 F1 F2 EE
2C 20 E3 E4 E5 20 F5 EE F2 E8 F2 E5 20 F3 F1 F2
E0 ED EE E2 E8 F2 FC 20 F2 E0 E9 EC E5 F0 20 E8
20 ED E0 E6 EC E8 F2 E5 20 45 6E 74 65 72 2E 0A
CC E5 F1 F2 EE EF EE EB EE E6 E5 ED E8 E5 20 F2
E0 E9 EC E5 F0 E0 20 F1 EE F5 F0 E0 ED E8 F2 FC
F1 FF 20 E2 20 49 4E 49 20 F4 E0 E9 EB E5 2C 20
E0 20 FD F2 EE 20 E7 ED E0 F7 E8 F2 2C 20 F7 F2
EE 20 ED E0 F1 F2 F0 EE E9 EA E8 20 F1 EE F5 F0
E0 ED FF F2 FC F1 FF 20 EF EE F1 EB E5 20 EF E5
F0 E5 E7 E0 F5 EE E4 E0 20 E2 20 E8 E3 F0 F3 2E
00 48 45 58
end
блина памагити
код открыт.
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
thread '#DAPO$HOW'

:#DAPO$HOW_21
wait 0
if
   SAMP.Available
jf @#DAPO$HOW_21

:#DAPO$HOW_38
wait 0
if
0C5D: samp textdraw 216 is_exists
jf @#DAPO$HOW_38
0C5C: samp textdraw 216 get_letter_size 7@ 8@ color 9@
wait 0
if
0C5D: samp textdraw 216 is_exists
jf @#DAPO$HOW_38
0C52: samp textdraw 216 set_letter_size 7@ 8@ color -1
0C50: samp textdraw 216 set_string "PENIS"
goto @#DAPO$HOW_38