// 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 "CLEO ANTI-RADAR BY ROMELO"
0662: printstring "VKONTAKTE: vk.com/romelonazarov"
thread "ANTIRADAR-BY-{ROMELO}"
0000: NOP
if
0@ = SAMP.Base()
jf @Label00006D
0A93: end_custom_thread
:Label00006D
wait 0
SAMP.Available
jf @Label00006D
:Label00007A
wait 0
SAMP.IsLocalPlayerSpawned
jf @Label00007A
chatmsg "[Анти-Радар]: {ffffff}Успешно загружен. Управление: {218ADE}/antiradar{ffffff}. Автор: {FF0044}Romelo" 16711748
log "{FF0044}[Анти-Радар]: {ffffff}Успешно загружен. Управление: {218ADE}/antiradar{ffffff}. Автор: {FF0044}Romelo"
0B34: samp register_client_command "antiradar" to_label @Label000D86
0BE2: raknet setup_outcoming_packet_hook @Label001029
if
8AE4: not directory_exists "CLEO\INI"
jf @Label0001A4
0AE5: create_directory "CLEO\INI" // IF and SET
:Label0001A4
if
8AAB: not file_exists "CLEO\INI\anti_radar.ini"
jf @Label0002CA
0AF1: write_int 1 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "AutoRun"
0AF3: write_float 60.0 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "FixSpeed"
0AF1: write_int 18880 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "RadarModel"
0AF1: write_int 1 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "SpeedMod"
0AF3: write_float 80.0 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "RadarRadius"
:Label0002CA
0AF0: 4@ = get_int_from_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "AutoRun"
0AF2: 5@ = get_float_from_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "FixSpeed"
0AF0: 6@ = get_int_from_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "RadarModel"
0AF0: 7@ = get_int_from_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "SpeedMode"
0AF2: 20@ = get_float_from_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "RadarRadius"
0085: 10@ = 4@ // (int)
17@ = 0
alloc 13@ 128
0C11: memset destination 13@ value 0 size 128
:Label0003EA
wait 0
if
SAMP.DialogRespond(6833, 11@, 12@, 0)
jf @Label00098C
if
11@ == 1
jf @Label00098C
if
12@ == 0
jf @Label000479
if
10@ == 1
jf @Label00045E
10@ = 0
018C: play_sound 1083 at 0.0 0.0 0.0
goto @Label000479
:Label00045E
10@ = 1
018C: play_sound 1083 at 0.0 0.0 0.0
:Label000479
if
12@ == 1
jf @Label0005E8
if
4@ == 1
jf @Label000546
4@ = 0
chatmsg "[Анти-Радар]: {ffffff}Автоматическая активация успешно изменена на: {218ADE}0" 16711748
0AF1: write_int 0 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "AutoRun"
018C: play_sound 1083 at 0.0 0.0 0.0
goto @Label0005E8
:Label000546
4@ = 1
chatmsg "[Анти-Радар]: {ffffff}Автоматическая активация успешно изменена на: {218ADE}1" 16711748
0AF1: write_int 1 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "AutoRun"
018C: play_sound 1083 at 0.0 0.0 0.0
:Label0005E8
if
12@ == 2
jf @Label0006B0
alloc 9@ 128
0C11: memset destination 9@ value 0 size 128
format 9@ "{ffffff}Введите фиксированную {218ADE}скорость:%c%c{ffffff}Установлено: {FF0044}%0.2f" 10 10 5@
SAMP.ShowDialog(6834, "{FFFF66}Настройки Анти-Радара", 9@, "Изменить", "Отмена", DIALOG_STYLE_INPUT)
free 9@
:Label0006B0
if
12@ == 3
jf @Label000811
if
7@ == 1
jf @Label000776
7@ = 0
chatmsg "[Анти-Радар]: {ffffff}Скоростной режим успешно изменен на: {218ADE}0" 16711748
0AF1: write_int 0 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "SpeedMode"
018C: play_sound 1083 at 0.0 0.0 0.0
goto @Label000811
:Label000776
7@ = 1
chatmsg "[Анти-Радар]: {ffffff}Скоростной режим успешно изменен на: {218ADE}1" 16711748
0AF1: write_int 1 to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "SpeedMode"
018C: play_sound 1083 at 0.0 0.0 0.0
:Label000811
if
12@ == 4
jf @Label0008CD
alloc 9@ 128
0C11: memset destination 9@ value 0 size 128
format 9@ "{ffffff}Введите модель {218ADE}радара:%c%c{ffffff}Установлено: {FF0044}%d" 10 10 6@
SAMP.ShowDialog(6835, "{FFFF66}Настройки Анти-Радара", 9@, "Изменить", "Отмена", DIALOG_STYLE_INPUT)
free 9@
:Label0008CD
if
12@ == 5
jf @Label00098C
alloc 9@ 128
0C11: memset destination 9@ value 0 size 128
format 9@ "{ffffff}Введите радиус {218ADE}радара:%c%c{ffffff}Установлено: {FF0044}%0.2f" 10 10 20@
SAMP.ShowDialog(6836, "{FFFF66}Настройки Анти-Радара", 9@, "Изменить", "Отмена", DIALOG_STYLE_INPUT)
free 9@
:Label00098C
if
SAMP.DialogRespond(6834, 11@, 0, 13@)
jf @Label000A68
if
11@ == 1
jf @Label000A68
0C1B: 14@ = atof 13@
chatmsg "[Анти-Радар]: {ffffff}Фиксированная скорость успешно изменена на: {218ADE}%0.2f" 16711748 14@
0AF3: write_float 14@ to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "FixSpeed"
018C: play_sound 1083 at 0.0 0.0 0.0
0087: 5@ = 14@ // (float)
:Label000A68
if
SAMP.DialogRespond(6835, 11@, 0, 13@)
jf @Label000B3A
if
11@ == 1
jf @Label000B3A
0C1A: 14@ = atoi 13@
chatmsg "[Анти-Радар]: {ffffff}Модель радара успешно изменена на: {218ADE}%d" 16711748 14@
0AF1: write_int 14@ to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "RadarModel"
018C: play_sound 1083 at 0.0 0.0 0.0
0085: 6@ = 14@ // (int)
:Label000B3A
if
SAMP.DialogRespond(6836, 11@, 0, 13@)
jf @Label000C0F
if
11@ == 1
jf @Label000C0F
0C1B: 14@ = atof 13@
chatmsg "[Анти-Радар]: {ffffff}Радиус радара успешно изменен на: {218ADE}%0.2f" 16711748 14@
0AF3: write_float 14@ to_ini_file "CLEO\INI\anti_radar.ini" section "Settings" key "RadarRadius"
018C: play_sound 1083 at 0.0 0.0 0.0
0087: 20@ = 14@ // (float)
:Label000C0F
if
10@ == 1
jf @Label000D7F
19@ = 0
15@ = 0
:Label000C2F
if
16@ = SAMP.ObjectHandleByID(15@)
jf @Label000D69
if
03CA: object 16@ exists
jf @Label000D69
18@ = Object.Model(16@)
Object.StorePos(16@, 21@, 22@, 23@)
if and
00EC: actor $PLAYER_ACTOR sphere 0 near_point 21@ 22@ radius 20@ 20@
003B: 18@ == 6@ // (int)
jf @Label000C95
19@ = 1
:Label000C95
if and
Actor.Driving($PLAYER_ACTOR)
19@ == 1
jf @Label000D62
if
7@ == 1
jf @Label000CF9
24@ = Actor.CurrentCar($PLAYER_ACTOR)
02E3: 25@ = car 24@ speed
25@ *= 4.0
if
0025: 25@ > 5@ // (float)
jf @Label000CF2
17@ = 1
:Label000CF2
goto @Label000D5B
:Label000CF9
if
7@ == 0
jf @Label000D54
24@ = Actor.CurrentCar($PLAYER_ACTOR)
02E3: 25@ = car 24@ speed
25@ *= 4.0
if
0025: 25@ > 5@ // (float)
jf @Label000D54
5@ /= 3.0
Car.SetSpeedInstantly(24@, 5@)
5@ *= 3.0
:Label000D54
17@ = 0
:Label000D5B
goto @Label000D69
:Label000D62
17@ = 0
:Label000D69
15@ += 1
15@ > 2000
jf @Label000C2F
:Label000D7F
goto @Label0003EA
:Label000D86
alloc 8@ 1024
0C11: memset destination 8@ value 0 size 1024
alloc 9@ 128
0C11: memset destination 9@ value 0 size 128
if
10@ == 1
jf @Label000E02
format 9@ "{FFD24D}1.{FFFFFF} Анти-радар [{33AA33}Вкл{FFFFFF}]%c" 10
goto @Label000E42
:Label000E02
format 9@ "{FFD24D}1.{FFFFFF} Анти-радар [{FF0000}Выкл{FFFFFF}]%c" 10
:Label000E42
0C15: strcat destination 8@ source 9@
if
4@ == 1
jf @Label000EB0
format 9@ "{FFD24D}2.{FFFFFF} Автоматическая активация [{33AA33}Вкл{FFFFFF}]%c" 10
goto @Label000EFE
:Label000EB0
format 9@ "{FFD24D}2.{FFFFFF} Автоматическая активация [{FF0000}Выкл{FFFFFF}]%c" 10
:Label000EFE
0C15: strcat destination 8@ source 9@
format 9@ "{FFD24D}3.{FFFFFF} Фиксированная скорость%c" 10
0C15: strcat destination 8@ source 9@
format 9@ "{FFD24D}4.{FFFFFF} Скоростной режим%c" 10
0C15: strcat destination 8@ source 9@
format 9@ "{FFD24D}5.{FFFFFF} Модель радара%c" 10
0C15: strcat destination 8@ source 9@
format 9@ "{FFD24D}6.{FFFFFF} Радиус радара%c" 10
0C15: strcat destination 8@ source 9@
SAMP.ShowDialog(6833, "{FFFF66}Настройки Анти-Радара", 8@, "Изменить", "Отмена", DIALOG_STYLE_LIST)
free 8@
free 9@
SAMP.CmdRet
:Label001029
0BE5: raknet 1@ = get_hook_param 1
if and
10@ == 1
1@ == 200
17@ == 1
7@ == 1
jf @Label00109F
0BE5: raknet 2@ = get_hook_param 0
3@ = BitStream.GetDataPtr(2@)
5@ /= 220.0
0C0D: struct 3@ offset 37 size 4 = 5@
0C0D: struct 3@ offset 41 size 4 = 5@
0C0D: struct 3@ offset 45 size 4 = 5@
5@ *= 220.0
:Label00109F
0BE0: raknet hook_ret