{$CLEO}
thread "fuck"
repeat
wait 0
until SAMP.Available()
0B34: "asat" @asat
call @GetSampBase 0 20@
20@ += 0x21683A
0DB6: 30@ = create_hook from_addr 20@ to_label @antisat pop_count 0 var_to_set_hook 30
0DB7: plant_hook 30@
while true
wait 0
end
:antisat
0DB9: get_hook 30@ last_param_pntr_to 29@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num -2 to 28@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num 1 to 27@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num 2 to 26@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num 3 to 24@
0AB1: call @GetPlayerHealth 0 to 25@
0AF8: samp add_message_to_chat "%f %f" color 0xFF61BB 25@ 26@
0063: 26@ -= 25@
if or
26@ > -0.9
26@ < -2.1
21@ == true
then
005B: 26@ += 25@
0DB8: unplant_hook 30@
0AA6: call_method 20@ struct 28@ num_params 3 pop 3 params 24@ 26@ 27@
0DB7: plant_hook 30@
end
0D98: callback_retn
:asat
if
21@ == false
then
21@ = true
0AD1: show_formatted_text_highpriority "ASAT ~R~OFF" time 3000
else
21@ = false
0AD1: show_formatted_text_highpriority "ASAT ~G~ON" time 3000
end
cmdret
:GetSampBase
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetModuleHandleA" library 0@
0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 2@
0AA3: free_library 0@
0ab2: ret 1 2@
:GetCallParam
0012: 1@ *= 4
005A: 0@ += 1@
0A8D: 2@ = read_memory 0@ size 4 virtual_protect 1
0AB2: ret 1 2@
:GetPlayerHealth
0A96: 0@ = actor $PLAYER_ACTOR struct
0@ += 0x540
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 0
0AB2: ret 1 0@
