// 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
:Label000002
wait 0
SAMP.Available
jf @Label000002
if
$707 == 0
jf @Label000023
0A93: end_custom_thread
:Label000023
if
0AAB: file_exists "cleo\save_settings\settings.ini"
jf @Label000058
goto @Label000090
:Label000058
chatmsg "{919191}[Error] Файл settings.ini не найден!" 9539985
0A93: end_custom_thread
:Label000090
0B34: samp register_client_command "nhelp" to_label @Label00056A
0B34: samp register_client_command "nkey" to_label @Label000673
0B34: samp register_client_command "npos" to_label @Label00073E
0B34: samp register_client_command "ntime" to_label @Label000871
0B34: samp register_client_command "nsbiv" to_label @Label00094E
0B34: samp register_client_command "nalomka" to_label @Label000A3E
log "USEDRUGS >> ACTIVE [by Alllss]"
:Label000107
wait 0
if
056D: actor $PLAYER_ACTOR defined
jf @Label00055A
alloc 1@ 64
alloc 2@ 64
alloc 3@ 64
alloc 4@ 64
alloc 5@ 64
alloc 6@ 64
0AF0: 1@ = get_int_from_ini_file "cleo\save_settings\settings.ini" section "SelectKey" key "Key"
0AF2: 2@ = get_float_from_ini_file "cleo\save_settings\settings.ini" section "Position" key "X"
0AF2: 3@ = get_float_from_ini_file "cleo\save_settings\settings.ini" section "Position" key "Y"
0AF0: 4@ = get_int_from_ini_file "cleo\save_settings\settings.ini" section "SelectTime" key "Time"
0AF0: 5@ = get_int_from_ini_file "cleo\save_settings\settings.ini" section "Sbiv" key "Active"
0AF0: 6@ = get_int_from_ini_file "cleo\save_settings\settings.ini" section "AutoUsedrugs" key "Active"
0@ = Render.CreateFont("Arial", 11, 5)
:Label000299
wait 0
0B60: convert_game_screen_coords 2@ 3@ to_window_screen_coords 7@ 8@
alloc 9@ 64
alloc 10@ 260
format 9@ "Можно юзать!"
Render.DrawText(0@, 9@, 7@, 8@, -16724992)
SAMP.GetChatString(99, 10@, 11@, 11@, 11@)
free 9@
free 10@
12@ = Actor.Health($PLAYER_ACTOR)
if and
6@ == 1
0C29: 13@ = stristr string1 10@ string2 "Принять наркотик - /usedrugs"
jf @Label000383
say "/usedrugs 1"
if
5@ == 1
jf @Label00036E
wait 250
0687: clear_actor $PLAYER_ACTOR task
goto @Label00036E
:Label00036E
14@ = 1
15@ = 1
goto @Label00040A
:Label000383
if
key_down 1@
jf @Label00040A
if
not SAMP.ChatInputOpened
jf @Label00040A
if and
12@ >= 151
not 12@ > 160
jf @Label000403
say "/usedrugs 1"
if
5@ == 1
jf @Label0003EE
wait 250
0687: clear_actor $PLAYER_ACTOR task
goto @Label0003EE
:Label0003EE
14@ = 1
15@ = 1
goto @Label00040A
:Label000403
14@ = 1
:Label00040A
14@ == 1
jf @Label000299
14@ = 0
0C74: 16@ = create_timer_interval 1000 on_label @Label000561
12@ = Actor.Health($PLAYER_ACTOR)
17@ = 160
0062: 17@ -= 12@ // (int)
17@ /= 10
if
17@ >= 16
jf @Label000464
17@ = 15
:Label000464
if
not 15@ == 1
jf @Label0004BD
say "/usedrugs %d" 17@
if
5@ == 1
jf @Label0004B6
if
not Actor.Driving($PLAYER_ACTOR)
jf @Label0004B6
wait 250
0687: clear_actor $PLAYER_ACTOR task
:Label0004B6
goto @Label0004BD
:Label0004BD
15@ = 0
:Label0004C4
wait 0
alloc 18@ 64
0C7C: 19@ = get_timer 16@ time_left
19@ /= 100
format 18@ "Осталось %d.%dсек." 4@ 19@
Render.DrawText(0@, 18@, 7@, 8@, -1)
free 18@
not 4@ > -1
jf @Label0004C4
0C78: set_timer 16@ active 0
018C: play_sound 1057 at 0.0 0.0 0.0
free 1@
free 2@
free 3@
free 4@
free 5@
free 6@
:Label00055A
goto @Label000107
:Label000561
4@ -= 1
SAMP.CmdRet
:Label00056A
0AC6: 20@ = label @Label00059D offset
SAMP.ShowDialog(3222, "{FF8C00}Информация", 20@, "Выход", "", DIALOG_STYLE_MSGBOX)
SAMP.CmdRet
// строки, а не крипт
:Label00059D
hex
2F 6E 6B 65 79 20 2D 20 D3 F1 F2 E0 ED EE E2 E8
F2 FC 20 EA EB E0 E2 E8 F8 F3 20 E0 EA F2 E8 E2
E0 F6 E8 E8 0A 2F 6E 74 69 6D 65 20 2D 20 D3 F1
F2 E0 ED EE E2 E8 F2 FC 20 E8 ED F2 E5 F0 E2 E0
EB 20 F2 E0 E9 EC E5 F0 E0 2E 0A 2F 6E 70 6F 73
20 2D 20 D3 F1 F2 E0 ED EE E2 E8 F2 FC 20 EF EE
E7 E8 F6 E8 FE 20 F2 E5 EA F1 F2 E0 20 ED E0 20
FD EA F0 E0 ED E5 2E 0A 2F 6E 73 62 69 76 20 2D
20 D1 E1 E8 E2 E0 F2 FC 20 E0 ED E8 EC E0 F6 E8
FE 3F 20 5B 31 2D C4 E0 7C 30 2D CD E5 F2 5D 0A
2F 6E 61 6C 6F 6D 6B 61 20 2D 20 D3 EF EE F2 F0
E5 E1 EB FF F2 FC 20 ED E0 F0 EA EE 20 EF F0 E8
20 EB EE EC EA E5 3F 20 5B 31 2D C4 E0 7C 30 2D
CD E5 F2 5D A0 00
end
:Label000673
SAMP.IsCommandTyped(21@)
if
0AD4: 22@ = scan_string 21@ format "%d" 1@
jf @Label00070F
chatmsg "{FF8C00}Клавиша активации была изменена на [ID:%d]" 16747520 1@
0AF1: write_int 1@ to_ini_file "cleo\save_settings\settings.ini" section "SelectKey" key "Key"
goto @Label00073C
:Label00070F
chatmsg "{FF8C00}Используйте /nkey - [keyID]" 16747520
:Label00073C
SAMP.CmdRet
:Label00073E
SAMP.IsCommandTyped(21@)
if
0AD4: 22@ = scan_string 21@ format "%d %d" 2@ 3@
jf @Label00083C
0093: 2@ = integer 2@ to_float
0093: 3@ = integer 3@ to_float
chatmsg "{FF8C00}Кординаты текста на экране были изменены на [PosX - %f | PosY - %f]" 16747520 2@ 3@
0AF3: write_float 2@ to_ini_file "cleo\save_settings\settings.ini" section "Position" key "X"
0AF3: write_float 3@ to_ini_file "cleo\save_settings\settings.ini" section "Position" key "Y"
goto @Label00086F
:Label00083C
chatmsg "{FF8C00}Используйте /npos - [PosX] [PosY]" 16747520
:Label00086F
SAMP.CmdRet
:Label000871
SAMP.IsCommandTyped(21@)
if
0AD4: 22@ = scan_string 21@ format "%d" 4@
jf @Label000920
4@ -= 1
0085: 23@ = 4@ // (int)
23@ += 1
chatmsg "{FF8C00}Время таймера было изменено на %dсек." 16747520 23@
0AF1: write_int 4@ to_ini_file "cleo\save_settings\settings.ini" section "SelectTime" key "Time"
goto @Label00094C
:Label000920
chatmsg "{FF8C00}Используйте /ntime - [sec]" 16747520
:Label00094C
SAMP.CmdRet
:Label00094E
SAMP.IsCommandTyped(21@)
if
0AD4: 22@ = scan_string 21@ format "%d" 5@
jf @Label0009FD
chatmsg "{FF8C00}Значение сбива анимации изменено на %d [1-Включено|0-Отключено]" 16747520 5@
0AF1: write_int 5@ to_ini_file "cleo\save_settings\settings.ini" section "Sbiv" key "Active"
goto @Label000A3C
:Label0009FD
chatmsg "{FF8C00}Используйте /nsbiv - [1-Включено|0-Отключено]" 16747520
:Label000A3C
SAMP.CmdRet
:Label000A3E
SAMP.IsCommandTyped(21@)
if
0AD4: 22@ = scan_string 21@ format "%d" 6@
jf @Label000B07
chatmsg "{FF8C00}Значение автоупотребления нарко при ломке изменено на %d [1-Включено|0-Отключено]" 16747520 6@
0AF1: write_int 6@ to_ini_file "cleo\save_settings\settings.ini" section "AutoUsedrugs" key "Active"
goto @Label000B48
:Label000B07
chatmsg "{FF8C00}Используйте /nalomka - [1-Включено|0-Отключено]" 16747520
:Label000B48
SAMP.CmdRet