//$PLAYER_ACTOR $PLAYER_CHAR $PLAYER_GROUP $ONMISSION
{$CLEO}
const
STATE = 0@
STATE_GM = 1@
PARAM_PACKET = 2@
BUFFER = 3@
SOURCE_1 = 4@
SOURCE_2 = 5@
// 6@ - 11@ - hook variables
KEY_ACTIVATE = 12@
WAIT_ON = 13@
WAIT_OFF = 14@
PARAM_RPC = 15@
ENABLE_LAG = 16@
LAGS = 17@

PLAYER_DAT = 18@
PARAM_RPC = 19@
BUFFER_RPC = 20@
MINYS = 21@
ENABLE_TEXT = 22@
ENABLE_SOUND = 23@
ORIGIN = 24@
ORIGIN_NAME = 25@
ENABLE_INFO = 26@
end
0000:
thread "SILENTGM"
0662: printstring "SILENTGM BY GABRIEL_"
0662: printstring "VERSION 1.7"
0662: printstring "BLASTHACK.NET"
0662: printstring "blast.hk/threads/10808/"
{$INCLUDE SAMP_AV}
STATE = 0
0B34: samp register_client_command "gmini" to_label @cmd_readINI
gosub @ReadINI

:Main
wait 0
if and
0AB0: KEY_ACTIVATE
8B8C: not samp is_cursor_active
jf @GM
while 0AB0: KEY_ACTIVATE
wait 0
end
0B12: STATE = STATE XOR 1
if STATE == 1
then
0BE4: raknet setup_incoming_packet_hook @hook_bullet
0BE3: raknet setup_incoming_rpc_hook @hook_rpc
if ENABLE_SOUND == 1
then
018C: play_sound 1083 at 0.0 0.0 0.0
else
end

if ENABLE_TEXT == 1
then
0ACD: show_text_highpriority "~y~SilentGM ~s~by Gabriel ~g~Activated" time 1000
else
end

if ENABLE_LAG == true
then
SAMP.SetSendrate(1) = LAGS
else
end

else
0BE4: raknet setup_incoming_packet_hook @hook_ret_true
0BE3: raknet setup_incoming_rpc_hook @hook_ret_true
if ENABLE_SOUND == 1
then
018C: play_sound 1084 at 0.0 0.0 0.0
end

if ENABLE_TEXT == 1
then
0ACD: show_text_highpriority "~y~SilentGM ~s~by Gabriel ~r~Deactivated" time 1000
end

SAMP.SetSendrate(1) = 40
end

while 0AB0: KEY_ACTIVATE
wait 0
end

:GM
if STATE == 1
jf @Main
STATE_GM = 1
//======Блок отключения 1=======//
32@ = 0
:Wait
wait 0
if or
001D: 32@ > WAIT_ON // (int)
0AB0: KEY_ACTIVATE
jf @Wait
//==============================//
STATE_GM = 0
//======Блок отключения 2=======//
32@ = 0
:Wait1
wait 0
if or
001D: 32@ > WAIT_OFF // (int)
0AB0: KEY_ACTIVATE
jf @Wait1
//=============================//
jump @Main

:cmd_readINI
gosub @ReadINI
018C: play_sound 1052 at 0.0 0.0 0.0
SAMP.CmdRet()

:ReadINI
if
0AAB: file_exists "CLEO\SilentGm.ini"
then
0AF0: KEY_ACTIVATE = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "key_activate"
0AF0: WAIT_ON = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "time_on"
0AF0: WAIT_OFF = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "time_off"
0AF0: ENABLE_LAG = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_lag"
0AF0: LAGS = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "Lags"

0AF0: ENABLE_TEXT = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_text"
0AF0: ENABLE_SOUND = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_sound"
0AF0: ENABLE_INFO = get_int_from_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_info"
else
0AF1: write_int 187 to_ini_file "cleo\SilentGm.ini" section "Settings" key "key_activate"
0AF1: write_int 200 to_ini_file "cleo\SilentGm.ini" section "Settings" key "time_on"
0AF1: write_int 100 to_ini_file "cleo\SilentGm.ini" section "Settings" key "time_off"
0AF1: write_int 1 to_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_lag"
0AF1: write_int 300 to_ini_file "cleo\SilentGm.ini" section "Settings" key "Lags"
0AF1: write_int 1 to_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_text"
0AF1: write_int 1 to_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_sound"
0AF1: write_int 1 to_ini_file "cleo\SilentGm.ini" section "Settings" key "enable_info"
jump @ReadINI
end
return

:hook_rpc
if STATE_GM == 1
jf @hook_ret_true
0BE5: raknet PARAM_RPC = get_hook_param 1
if or
PARAM_RPC == 66
PARAM_RPC == 14
jf @hook_ret_true
if PARAM_RPC == 14
then
0226: PLAYER_DAT = actor $PLAYER_ACTOR health
else
04DD: PLAYER_DAT = actor $PLAYER_ACTOR armour
end
0BE5: raknet PARAM_RPC = get_hook_param 0
0BF3: raknet BUFFER_RPC = bit_stream PARAM_RPC get_data_ptr
0C0C: MINYS = struct BUFFER_RPC offset 0 size 4
0093: PLAYER_DAT = integer PLAYER_DAT to_float
if
0025: PLAYER_DAT > MINYS
jf @hook_ret_true
0BE0: raknet hook_ret 0

:hook_bullet
if STATE_GM == 1
jf @hook_ret_true
0BE5: raknet PARAM_PACKET = get_hook_param 1
if
PARAM_PACKET == 206
jf @hook_ret_true
0BE5: raknet PARAM_PACKET = get_hook_param 0
BUFFER = BitStream.GetDataPtr(PARAM_PACKET)
0C0C: 6@ = struct BUFFER offset 4 size 2 // Target ID
7@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
if
003B: 6@ == 7@
jf @hook_ret_true
0C0C: 6@ = struct BUFFER offset 18 size 4 // Target X
0C0C: 7@ = struct BUFFER offset 22 size 4 // Target Y
0C0C: 8@ = struct BUFFER offset 26 size 4 // Target Z

0C0C: 9@ = struct BUFFER offset 30 size 4 // Center X
0C0C: 10@ = struct BUFFER offset 34 size 4 // Center Y
0C0C: 11@ = struct BUFFER offset 38 size 4 // Center Z
//====Target XYZ===//
6@ += 6.0
7@ += 6.0
8@ += 1.5
//====fCenter XYZ===//
9@ += 1.5
10@ += 1.5
11@ += 1.5
//====Target XYZ===//
0C0D: struct BUFFER offset 18 size 4 = 6@
0C0D: struct BUFFER offset 22 size 4 = 7@
0C0D: struct BUFFER offset 26 size 4 = 8@
//====fCenter XYZ===//
0C0D: struct BUFFER offset 30 size 4 = 9@
0C0D: struct BUFFER offset 34 size 4 = 10@
0C0D: struct BUFFER offset 38 size 4 = 11@
//====Other===//
0C0D: struct BUFFER offset 3 size 1 = 0
//print "Blocked" 500
if ENABLE_INFO == 1
then
0C0C: ORIGIN = struct BUFFER offset 1 size 2 // Origin ID
0AC8: ORIGIN_NAME = allocate_memory_size 260
0B36: samp ORIGIN_NAME = get_player_nickname ORIGIN
0AD1: show_formatted_text_highpriority "%s[%d]" time 1000 ORIGIN_NAME ORIGIN
0AC9: free_allocated_memory ORIGIN_NAME
else
end

:hook_ret_true
0BE0: raknet hook_ret 1