Гайд [SA:MP] Код аима

[EvilAkaZloy]

Всем привет выкладываю решебник по аимботам для сампа

Спойлер: 1

{$CLEO}
0000:

var
1@ :float
2@ :float
3@ :float
4@ :float
5@ :float
6@ :float
7@ :float
8@ :float
9@ :float
10@ :float
11@ :float
12@ :float
13@ :float
14@ :float
15@ :float
end

0ab1: @checkFile 0

while true
wait 0
0ab1: @getKeyAiming 0 16@ 17@
while key 17@
wait 0
0ab1: @getKeyAiming 0 16@ 17@
if and
//Actor.Defined($player_actor)
056D: actor $player_actor defined
not Actor.Driving($player_actor)
then
if 0AD2: 0@ = player $player_char targeted_actor
then
if not Actor.Dead(0@)
then
if and
0ab0: 16@
//Actor.Defined(0@)
056D: 0@
not Actor.Dead(0@)
not Actor.Driving(0@)
then
068D: get_camera_position_to 1@ 2@ 3@
Actor.StorePos(0@, 4@, 5@, 6@)
Actor.StorePos($player_actor, 7@, 8@, 9@)
1@ -= 4@
2@ -= 5@
0C00: math 1@ = abs 1@ // Aa
0C00: math 2@ = abs 2@ // Ab
10@ = 1@
11@ = 2@
10@ *= 10@
11@ *= 11@
10@ += 11@
01FB: 10@ = square_root 10@ // Ac
11@ = 1@ // Aa vrem
12@ = 10@ // Ac vrem
11@ /= 12@
0C04: math 12@ = arcsine 11@ // alpha
0C06: math 13@ = arccosine 11@ // beta
if 0ab1: @getSlotWeapon 0 16@
then if 0ab1: @getAngleForCam 7 4@ 5@ 7@ 8@ 12@ 13@ 16@ 15@
then if 0ab1: @checkObject 6 4@ 5@ 6@ 7@ 8@ 9@
then
15@ += 0.0389
0A8C: write_memory 0xB6F258 size 4 value 15@ virtual_protect 0
end
end
end
end
end
end
end
end

end

:checkObject
if 06BD: no_obstacles_between 3@ 4@ 5@ and 0@ 1@ 2@ solid 1 car 0 actor 0 object 1 particle 0
then 0485: return_true
else 059A: return_false
end
0ab2: 0

:getAngleForCam
var
0@ : float
end
if 6@ == 5
then
7@ = 0.0100
8@ = 0.0100
9@ = 1.5607
10@ = 1.5807
else if 6@ == 6
then
7@ = 0.0180
8@ = 0.0200
9@ = 1.5507
10@ = 1.5907
else
7@ = 0.0
8@ = 0.0
9@ = 1.5707
10@ = 1.5707
end
end

if and
2@ > 0@
3@ > 1@
then
5@ -= 8@
15@ = 5@
end

if and
2@ > 0@
3@ < 1@
then
5@ *= -1.0
5@ -= 7@
15@ = 5@
end

if and
2@ < 0@
3@ > 1@
then
4@ += 9@
15@ = 4@
end

if and
2@ < 0@
3@ < 1@
then
4@ *= -1.0
4@ -= 10@
15@ = 4@
end

0A8D: 11@ = read_memory 0xB6F258 size 4 virtual_protect 0
11@ -= 15@
if and
11@ < 0.1800
11@ > -0.1800
then 0485: return_true
else 059A: return_false
end
0ab2: 1 15@

:getSlotWeapon
0A96: 0@ = actor $player_actor struct
0@ += 0x718
0A8D: 1@ = read_memory 0@ size 1 virtual_protect 0
if or
1@ == 2
1@ == 3
1@ == 4
1@ == 5
1@ == 6
1@ == 7
then 0485: return_true
else 059A: return_false
end
0ab2: 1 1@

:getKeyAiming
0AF0: 0@ = get_int_from_ini_file "CLEO\set\aimbotsettings.ini" section "Settings" key "keyaiming"
0AF0: 1@ = get_int_from_ini_file "CLEO\set\aimbotsettings.ini" section "Settings" key "keyactivation"
0ab2: 2 0@ 1@

:checkFile
if 8AE4: not directory_exist "CLEO\set"
then
repeat
wait 0
until 0AE5: create_directory "CLEO\set"
end

if 8AAB: not file_exists "CLEO\set\aimbotsettings.ini"
then
0AF1: write_int 0x01 to_ini_file "CLEO\set\aimbotsettings.ini" section "Settings" key "keyaiming"
0AF1: write_int 0x79 to_ini_file "CLEO\set\aimbotsettings.ini" section "Settings" key "keyactivation"
end
0ab2: 0

Спойлер: 2

{$CLEO}
0000:

repeat
wait 0
until samp.Available()
chatmsg "{008cf0}[AimRey]{ffffff}Çàãðóæåí. Àâòîð: {ffa500}Jerry"
0AF0: 0@ = get_int_from_ini_file "cleo\Aim_Rey.ini" section "MAIN" key "delay"
0AF0: 1@ = get_int_from_ini_file "cleo\Aim_Rey.ini" section "MAIN" key "sharpness"

repeat
wait 0
if and
not actor.Driving($PLAYER_ACTOR)
0AB0: key_pressed 17
then
0C72: set_virtual_key 102 down true
wait 0@
0C72: set_virtual_key 102 down false
wait 1@
0C72: set_virtual_key 100 down true
wait 0@
0C72: set_virtual_key 100 down false
wait 1@
0C72: set_virtual_key 100 down true
wait 0@
0C72: set_virtual_key 100 down false
wait 1@
0C72: set_virtual_key 102 down true
wait 0@
0C72: set_virtual_key 102 down false
wait 150
end
until false