{$CLEO .cs}
0000: NOP

0662: script "VALDAN"
0662: script "Для тех,кто покупал бота шахтера, грузчика на ARP и DRP - vk.com/valdan33"

gosub @provSF
repeat
wait 0
until 0AFA: is_samp_available
0AB4: 0@ = var 274
0@ == 0
jf @TEXT
gosub @provCS  
0AB3: var 274 = 1
0A92: create_custom_thread "Far_Chat.cs"
wait 3000
gosub @scan

:4FCHAT
0AF0: 26@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "col_st"
0AB3: var 536 = 26@
repeat
wait 0
0AB4: 0@ = var 148
0AB4: 1@ = 741
if 0AB0: key_pressed 1@
then
gosub @FCHONOFF
end
until 0@ == 1
alloc 0@ 5000
alloc 10@ 300
alloc 11@ 300
alloc 22@ 50
alloc 24@ 200
repeat
wait 0
until 0B61: samp is_local_player_spawned
SAMP.GetScreenResolution(17@, 0)
17@ /= 2
0085: 28@ = 26@
28@ += 1
0BE3: raknet setup_incoming_rpc_hook @4FAR_CHAT

:4start
repeat
wait 0
gosub @4skrin
0AB4: 25@ = var 148
if 25@ >= 1
then
gosub @4PosXY1
gosub @4INTF
else
0AB3: var 148 = 0
goto @4exit
end
if 25@ == 2
then
0AB3: var 148 = 1
goto @4exit
end
if 25@ == 3
then
call @4IN 0 12@ 13@ 16@
0AB3: var 148 = 1
goto @4start
end
until 8B61: samp is_local_player_spawned
0AB3: var 148 = 0

:4exit
free 0@
free 8@
free 10@
free 11@
free 22@
free 24@
0BE3: raknet setup_incoming_rpc_hook @4FAR_CHAT_OFF
goto @4FCHAT

:4INTF
0AB4: 14@ = var 534
0AB4: 15@ = var 535
0AB4: 26@ = var 536
0085: 19@ = 14@
if 802D: 28@ >= 26@
then
for 21@ = 28@ to 26@
0C1F: 11@ = string_array 0@ element 21@ size 200
0C0E: 30@ = array 22@ element 21@
23@ = SAMP.GetActorHandleByPlayerID(30@)
gosub @F_VR
005A: 15@ += 13@
if and
056D:   actor 23@ defined
0B21: samp is_chat_opened
then
if call @ZOOM 4 14@ 15@ 20@ 13@
then
Render.DrawText(16@, 11@, 14@, 15@, -16711706)
gosub @camera1
else
Render.DrawText(12@, 11@, 14@, 15@, -1)
end
else
Render.DrawText(12@, 11@, 14@, 15@, -1)
end
end
end
0AB4: 23@ = var 564
if and
0AB0:  key_pressed 4
23@ == 1
then
02EB: restore_camera_with_jumpcut
0B79: samp set_chat_input_enabled 0
0B5D: samp toggle_cursor 0
0AB3: var 564 = 0
end
if 8B21: samp is_chat_opened
then
27@ = 0
end
return

:4FAR_CHAT
0BE5: raknet 1@ = get_hook_param 0
0BE5: raknet 2@ = get_hook_param 1
if 2@ == 59
then
0BE7: raknet 3@ = bit_stream_read 1@ type 2
0BE7: raknet 4@ = bit_stream_read 1@ type 3
0BE7: raknet 5@ = bit_stream_read 1@ type 4
0BE7: raknet 6@ = bit_stream_read 1@ type 4
0BE7: raknet 7@ = bit_stream_read 1@ type 0
alloc 8@ 300
0C11: memset destination 8@ value 0 size 300
0BE8: raknet bit_stream 1@ read_array 8@ size 7@
call @IGNORE 1 8@ 31@
if and
8B5C: samp is_player 3@ paused
8039: 31@ == 1
then
0085: 9@ = 26@
9@ -= 1
for 18@ = 1 to 9@
18@ += 1
0C1F: 10@ = string_array 0@ element 18@ size 200
0C0E: 6@ = array 22@ element 18@
18@ -= 1
0C20: string_array 0@ element 18@ size 200 = 10@
0C0F: array 22@ element 18@ = 6@
end
29@ = SAMP.GetPlayerNickname(3@)
31@ = SAMP.GetPlayerScore(3@)
4@ = SAMP.GetPlayerColor(3@)
if 4@ == -1
then
4@ = -3815995
end
format 10@ "%s {FFC000}| {%X}%s {C5C5C5}[%d] lvl %d" 8@ 4@ 29@ 3@ 31@
0C20: string_array 0@ element 18@ size 200 = 10@
0C0F: array 22@ element 18@ = 3@  
if not 28@ == 1
then
28@ -= 1
end                    
end
end
0BE0: raknet hook_ret 1

:IGNORE
alloc 1@ 50
for 10@ = 1 to 10
format 11@v "%d" 10@
0AF4: 1@ = read_string_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "IGNORE" key 11@v
if 0C29: 31@ = strstr string1 0@ string2 1@
then
4@ = 1
ret 1 4@
end
end
ret 1 4@

:4PosXY1   
if and
0AB0:  key_pressed 77
0AB0:  key_pressed 32
then
0B5D: samp toggle_cursor 1  
repeat
wait 0
gosub @4INTF
0B5E: get_cursor_pos 14@ 15@
0AB3: var 534 = 14@
0AB3: var 535 = 15@
until 8AB0:  key_pressed 32
0AF1: write_int 14@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "PosX"
0AF1: write_int 15@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "PosY"
0B8D: samp set_cursor_mode 0       
end
return

:F_VR
20@ = Render.FontDrawLength(12@, 11@)
if 001D: 19@ > 17@
then
0A8F: 14@ = 19@ - 20@
end
return

:4skrin
0AB4: 5@ = var 741
if 0AB0:  key_pressed 5@
then
gosub @FCHONOFF
end
if 0AB0:  key_pressed 119
then
wait 2000
end
return

:ZOOM
0B5E: get_cursor_pos 4@ 5@
if and
001D: 4@ > 0@
001D: 5@ > 1@
then
005A: 0@ += 2@
005A: 1@ += 3@
if and
001D: 0@ > 4@
001D: 1@ > 5@
then
ret 0 1
end
end
ret 0

:camera1
if and
0AB0:  key_pressed 1
27@ == 0
then
if 00DF: actor 23@ driving
then
03C0: 24@ = actor 23@ car
0158: camera_on_car 24@ mode 18 switchstyle 1
else
0159: camera_on_ped 23@ mode 4 switchstyle 1
end
0AB3: var 564 = 1
27@ = 1
end
return

:4IN
if or
8AF0:  1@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "size"
8AF0:  2@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "stile"
8AF0:  3@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "flags"
then
1@ = 9
2@ = 7
3@ = 0
0AF1: write_int 1@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "size"
0AF1: write_int 2@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "stile"
0AF1: write_int 3@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "flags"
end
if 3@ == 0
then
0@ = Render.CreateFont("Arial", 1@, 2@)
1@ += 2
4@ = Render.CreateFont("Arial", 1@, 2@)
end
if 3@ == 1
then
0@ = Render.CreateFont("Verdana", 1@, 2@)
1@ += 2
4@ = Render.CreateFont("Verdana", 1@, 2@)
end
if 3@ == 2
then                    
0@ = Render.CreateFont("Tahoma", 1@, 2@)
1@ += 2
4@ = Render.CreateFont("Tahoma", 1@, 2@)
end
5@ = Render.FontDrawHeight(0@)
ret 3 0@ 5@ 4@

:FCHONOFF
0AB4: 25@ = var 148
if 25@ == 0   
then
0AB3: var 148 = 1
0AD1: show_formatted_text_highpriority "~Y~Far Chat ~G~ON" time 3000
018C: play_sound 1083 at 0.0 0.0 0.0
else
0AB3: var 148 = 0
0AD1: show_formatted_text_highpriority "~Y~Far Chat ~R~OFF" time 3000
018C: play_sound 1052 at 0.0 0.0 0.0
end
samp.CmdRet()
repeat
wait 0
0AB4: 5@ = 741
until 8AB0: key_pressed 5@
return

:4FAR_CHAT_OFF
0BE0: raknet hook_ret 1

:TEXT
0AB4: 0@ = var 274
0@ == 1
jf @INTF
if 8AAB:   file_exists "CLEO\SHPORA.cs"
then
0AB3: var 274 = 2
0A92: create_custom_thread "Far_Chat.cs"
end
SAMP.GetScreenResolution(17@, 0)
17@ /= 2
call @4IN 0 12@ 13@ 16@

:0
repeat
wait 0
0AB4: 25@ = var 148
until 25@ == 1
alloc 11@ 15
format 11@ "Far Chat"
repeat
wait 0
0AB4: 25@ = var 148
0AB4: 14@ = var 534
0AB4: 15@ = var 535
0085: 19@ = 14@
gosub @F_VR
if 0B21: samp is_chat_opened
then
if call @ZOOM 4 14@ 15@ 20@ 13@
then
Render.DrawText(16@, 11@, 14@, 15@, -16711706)
if 0AB0:  key_pressed 1
then
018C: play_sound 1053 at 0.0 0.0 0.0
goto @1
end
else
Render.DrawText(12@, 11@, 14@, 15@, -1711292416)
end
else
Render.DrawText(12@, 11@, 14@, 15@, -1711292416)
end
if 0AB0:  key_pressed 119
then
wait 2000
end
until 25@ == 0
free 11@
goto @0
  
:1
alloc 0@ 5
SAMP.GetScreenResolution(30@, 31@)
30@ /= 2  
31@ /= 2
30@ -= 150
31@ -= 120
0B80: dialog 3@ = create "{02FFFF} Управление стр-ми, фоном, размером."
Dialog.SetRECT(3@, 30@, 31@, 300, 225)
0B82: dialog 3@ add_button id 1 text "{C0FF00}Количество строк" pos_XY 8 10 size 280 30
0B82: dialog 3@ add_button id 2 text "{C0FF00}Размер" pos_XY 40 50 size 220 30
0B82: dialog 3@ add_button id 3 text "{C0FF00}Стиль" pos_XY 55 90 size 190 30
0B82: dialog 3@ add_button id 4 text "{C0FF00}Фон" pos_XY 75 130 size 150 30  
0B82: dialog 3@ add_button id 5 text "{FF0000}e x i t" pos_XY 100 175 size 100 20
0B82: dialog 3@ add_button id 0 text "" pos_XY 20 55 size 5 130
0B82: dialog 3@ add_button id 0 text "" pos_XY 275 55 size 5 130

:2
0B5D: samp toggle_cursor 1
wait 0
0B81: dialog 3@ pop_event_to 4@ control_id_to 2@
if 2@ == 1
then
0AF0: 5@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "col_st"
21@ = 8
goto @3
end
if 2@ == 2
then
0AF0:  5@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "size"
21@ = 1
goto @3
end
if 2@ == 3
then
0AF0:  5@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "stile"
21@ = 7
goto @3
end
if 2@ == 4
then
0AF0:  5@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "flags"
21@ = 6
goto @3
end
if 2@ == 5
then
0B5D: samp toggle_cursor 0
0B86: dialog 3@ set_visible 0
free 0@
goto @0
end
goto @2

:3
0B86: dialog 3@ set_visible 0
wait 0
if 21@ == 1
then
0B80: dialog 3@ = create "{02FFFF}Установка размера шрифта."
end
if 21@ == 6
then
0B80: dialog 3@ = create "{02FFFF}Установка фона шрифта."
end
if 21@ == 7
then
0B80: dialog 3@ = create "{02FFFF}Установка стиля шрифта."
end
if 21@ == 8
then
0B80: dialog 3@ = create "{02FFFF}Установка количества строк."
end
Dialog.SetRECT(3@, 30@, 31@, 300, 155)
if 21@ == 1
then
0B82: dialog 3@ add_button id 0 text "{C0FF00}Р а з м е р" pos_XY 75 15 size 150 30
end
if 21@ == 6
then
0B82: dialog 3@ add_button id 0 text "{C0FF00}Ф о н" pos_XY 75 15 size 150 30
end
if 21@ == 7
then
0B82: dialog 3@ add_button id 0 text "{C0FF00}С т и л ь" pos_XY 75 15 size 150 30
end
if 21@ == 8
then
0B82: dialog 3@ add_button id 0 text "{C0FF00}Кол-во строк" pos_XY 75 15 size 150 30
end
0B82: dialog 3@ add_button id 11 text "{008DFF}< < <" pos_XY 30 60 size 50 20
0B82: dialog 3@ add_button id 12 text "{008DFF}> > >" pos_XY 220 60 size 50 20
0B82: dialog 3@ add_button id 13 text "" pos_XY 130 60 size 40 30
0B82: dialog 3@ add_button id 15 text "{FF0000}н а з а д" pos_XY 100 105 size 100 20   
format 0@ "%d" 5@
Dialog.SetControlText(3@, 13, 0@)

:4
wait 0
0B5D: samp toggle_cursor 1
0B81: dialog 3@ pop_event_to 4@ control_id_to 2@
if 2@ == 12
then
if and
5@ < 15
21@ == 8
then
5@ += 1
end
if and
5@ < 15
21@ == 1
then
5@ += 1
end
if and
5@ < 2
21@ == 6
then
5@ += 1
end
if and
5@ < 30
21@ == 7  
then
5@ += 1
end
gosub @SC
end
if 2@ == 11
then
if and
5@ > 0
21@ == 8
then
5@ -= 1
end
if and
5@ > 0
21@ == 1
then
5@ -= 1
end
if and
5@ > 0
21@ == 6
then
5@ -= 1
end
if and
5@ > 0
21@ == 7
then
5@ -= 1
end
gosub @SC
end
if 2@ == 15
then
0B86: dialog 3@ set_visible 0
goto @1
end
goto @4

:SC
format 0@ "%d" 5@
Dialog.SetControlText(3@, 13, 0@)
if 21@ == 1
then
0AF1: write_int 5@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "size"
0AB3: var 148 = 3
end
if 21@ == 6
then
0AF1: write_int 5@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "flags"
0AB3: var 148 = 3
end
if 21@ == 7
then
0AF1: write_int 5@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "stile"
0AB3: var 148 = 3
end
if 21@ == 8
then
0AF1: write_int 5@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "col_st"
0AB3: var 148 = 2
end
return

:INTF
0AB3: var 274 = 0
if 8B61: samp is_local_player_spawned
then
0B6D: render 0@ = create_font "Arial" height 12 flags 14
SAMP.GetScreenResolution(11@, 12@)
11@ = 0
11@ += 40
12@ -= 120  
0087: 5@ = 11@
repeat
32@ = 0
repeat
wait 0
0087:  1@ = 11@
0087:  2@ = 12@
0087:  3@ = 1@
3@ += 300
0087:  4@ = 2@
4@ += 35
0B6F: render font 0@ draw_text "Far Chat" pos 1@ 2@ color 0xFF9AC9FF//C7E0FD//A6CAF3
2@ += 35
0B68: render draw_line_point1 1@ 2@ point2 3@ 4@ width 12 color 0xFF000000
3@ -= 4
if 803B:  5@ == 3@
then
0B68: render draw_line_point1 1@ 2@ point2 5@ 4@ width 8 color 0xFFE51F1F
else
0B68: render draw_line_point1 1@ 2@ point2 5@ 4@ width 8 color 0xFF04DA04
end
2@ += 14
0B6F: render font 0@ draw_text "VALDAN" pos 1@ 2@ color 0xFF0000FF
1@ += 140
0B6F: render font 0@ draw_text "BLAST{0077FF}HACK.NET" pos 1@ 2@ color 0xFF9AC9FF//C7E0FD//A6CAF3
until 32@ >= 10
if 803B:  5@ == 3@
then
5@ += 1
end
if 0AB0:  key_pressed 119
then
wait 2000
end
until 0B61: samp is_local_player_spawned
wait 1000
0B6E: render release_font 0@
end
0A93: end_custom_thread

:scan
alloc 0@ 50
if or
8AF4: 0@ = read_string_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "Far_Chat" key "V_Chat"
8AF0: 1@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "Far_Chat" key "key"
8AF0: 14@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "PosX"
8AF0: 15@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "PosY"
8AF0: 16@ = get_int_from_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "VALDAN" key "INF"
then
0AE5: create_directory "CLEO\FAR_CHAT"
format 0@ "chat"
0AF5: write_string 0@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "Far_Chat" key "V_Chat"
1@ = 113
0AF1: write_int 1@ to_ini_file  "CLEO\FAR_CHAT\SETTINGS.ini" section "Far_Chat" key "key"
SAMP.GetScreenResolution(14@, 15@)
14@ -= 30
15@ -= 200
26@ = 10
0AF1: write_int 14@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "PosX"
0AF1: write_int 15@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "PosY"
0AF1: write_int 26@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "settings" key "col_st"
alloc 2@ 100
format 2@ "сообщение по рации"
0AF5: write_string 2@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "IGNORE" key "1"
format 2@ "sms"
0AF5: write_string 2@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "IGNORE" key "2"
format 2@ "+"
0AF5: write_string 2@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "IGNORE" key "3"
format 2@ "false"
for 12@ = 4 to 10
format 13@v "%d" 12@
0AF5: write_string 2@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "IGNORE" key 13@v
end
format 2@ "Инструкцию и описание найдете на сайте: BLASTHACK.NET [VALDAN]"
0AF5: write_string 2@ to_ini_file "CLEO\FAR_CHAT\SETTINGS.ini" section "VALDAN" key "INF"
free 2@
end
0B34: samp register_client_command 0@ to_label @FCHONOFF
call @4IN 0 12@ 13@ 16@
0AB3: var 534 = 14@
0AB3: var 535 = 15@
0AB3: var 741 = 1@
return

:provSF
if 0038: $707 <= 16
then
0AD1: show_formatted_text_highpriority "~y~NO SAMPFUNCS 5.3.1 ~r~error" time 10000
0A93: end_custom_thread
end
return

:provCS
if 8AAB:   file_exists "CLEO\Far_Chat.cs"
then
SAMP.Disconnect(0)
chatmsg "{FF1100} Внимание !!!" color 0x00FA9A
chatmsg "{FFC900} Скрипт {00FF00} Far_Chat.cs {FFC900} был переименован !" color 0x00FA9A
chatmsg "{FF1100} Он не будет работать, пока не вернете прежнее имя. {FFC900}Запуск не возможен !" color 0x00FA9A
0A93: end_custom_thread
end
if and
0AAB: file_exists "CLEO\admins\AC_FILES\color.ini"
0AAB: file_exists "CLEO\Admin_Checker.cs"
then
SAMP.Disconnect(0)
chatmsg "{FF1100} Внимание !!!" color 0x00FA9A
chatmsg "{FF1100} Функция Far_Chat {FFC900} есть в Admin_Checker !" color 0x00FA9A
chatmsg "{FFC900} Скрипт {00FF00} Far_Chat.cs {FFC900} работать не будет !" color 0x00FA9A
0A93: end_custom_thread
end
return