{$CLEO .cs}
{$INCLUDE SF}
0662: "by woksonal"
0662: "Запрещенно"
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 100
end
if
8AAB: not file_exists "cleo\_dmg.ini"
then
0AF1: write_int 82 to_ini_file "cleo\_dmg.ini" section "Damage" key "key"
0AF1: write_int 100 to_ini_file "cleo\_dmg.ini" section "Damage" key "delay"
end
0B34: samp register_client_command "kill" to_label @kl
while true
wait 0
if and
056D: actor 12@ defined
8118: not actor 12@ dead
15@ == 1
then
00A0: store_actor 12@ position_to 25@ 26@ 27@
0470: 16@ = actor $PLAYER_ACTOR current_weapon
if
16@ == 0
then
call @WeaponsUpdate 1 30@
call @Onfoot 2 494 32776
0BCB: samp send_give_damage playerid 30@ damage 6.60 weapon 0 bodypart 0
call @WeaponsUpdate 1 0xFFFF
0AF0: 16@ = get_int_from_ini_file "cleo\_dmg.ini" section "Damage" key "delay"
wait 16@
else
call @WeaponsUpdate 1 30@
call @Aim 2 25@ 26@
call @Onfoot1 0
call @Bullet 1 30@
call @DamageConvert 0 5@
0470: 16@ = actor $PLAYER_ACTOR current_weapon
0BCB: samp send_give_damage playerid 30@ damage 5@ weapon 16@ bodypart 3
call @WeaponsUpdate 1 0xFFFF
0AF0: 16@ = get_int_from_ini_file "cleo\_dmg.ini" section "Damage" key "delay"
wait 16@
end
else
15@ = 0
end
if and
8B21: not samp is_chat_opened
0AF0: 16@ = get_int_from_ini_file "cleo\_dmg.ini" section "Damage" key "key"
key_down 16@
then
for 0@ = 0 to 999
0B20: samp 4@ = actor_handle_by_samp_player_id 0@
if and
056D: actor 4@ defined
8118: not actor 4@ dead
then
00A0: store_actor 4@ position_to 25@ 26@ 27@
0470: 16@ = actor $PLAYER_ACTOR current_weapon
if
16@ == 0
then
call @WeaponsUpdate 1 30@
call @Onfoot 2 494 32776
0BCB: samp send_give_damage playerid 0@ damage 6.60 weapon 0 bodypart 0
call @WeaponsUpdate 1 0xFFFF
0AF0: 16@ = get_int_from_ini_file "cleo\_dmg.ini" section "Damage" key "delay"
wait 16@
else
call @WeaponsUpdate 1 0@
call @Aim 2 25@ 26@
call @Onfoot1 0
call @Bullet 1 0@
call @DamageConvert 0 5@
0470: 16@ = actor $PLAYER_ACTOR current_weapon
0BCB: samp send_give_damage playerid 0@ damage 5@ weapon 16@ bodypart 3
call @WeaponsUpdate 1 0xFFFF
0AF0: 16@ = get_int_from_ini_file "cleo\_dmg.ini" section "Damage" key "delay"
wait 16@
end
end
end
end
end
:kl
0B35: samp 20@ = get_last_command_params
if
0AD4: 20@ = scan_string 20@ format "%d" 30@
then
0B20: samp 12@ = actor_handle_by_samp_player_id 30@
if
056D: actor 12@ defined
then
15@ = 1
else
15@ = 0
end
end
samp.CmdRet()
:Onfoot
0B2B: samp 8@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 10@ = allocate_memory_size 68
0BBA: samp store_player 8@ onfoot_data 10@
0C0D: struct 10@ offset 64 size 2 = 2@
0C0D: struct 10@ offset 66 size 2 = 3@
0BC0: samp send_onfoot_data 10@
0AC9: free_allocated_memory 10@
0AB2: ret 0
:Onfoot1
0B2B: samp 8@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 10@ = allocate_memory_size 68
0BBA: samp store_player 8@ onfoot_data 10@
0C0D: struct 10@ offset 4 size 2 = 0x84
0BC0: samp send_onfoot_data 10@
0AC9: free_allocated_memory 10@
0AB2: ret 0
:Aim // в будущем допилю углы
0B2B: samp 9@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 11@ = allocate_memory_size 31
0BBE: samp store_player 9@ aim_data 11@
068D: get_camera_position_to 2@ 3@ 14@
0063: 2@ -= 0@ // (float)
0063: 3@ -= 1@ // (float)
0604: get_Z_angle_for_point 2@ 3@ store_to 4@
0C02: math 4@ = angle_to_radian 4@ // (float)
4@ *= -1.0
0C03: math 2@ = sine 4@ // (float)
0C05: math 3@ = cosine 4@ // (float)
005B: 0@ += 2@
005B: 1@ += 3@
0C0D: struct 11@ offset 13 size 4 = 0@
0C0D: struct 11@ offset 17 size 4 = 1@
repeat
wait 0
0208: 10@ = random_float_in_ranges -0.015 0.015
until 10@ <> 0.0
005B: 2@ += 10@ // (float)
0C0D: struct 11@ offset 21 size 4 = 2@
0BC3: samp send_aim_data 11@
0AC9: free_allocated_memory 11@
0AB2: ret 0
:Bullet
9@ = SAMP.GetActorHandleByPlayerID(0@)
0470: 16@ = actor $PLAYER_ACTOR current_weapon
041A: 4@ = actor $PLAYER_ACTOR weapon 16@ ammo
4@ -= 1
Actor.SetWeaponAmmo($PLAYER_ACTOR, 16@, 4@)
alloc 5@ 40
0C0D: struct 5@ offset 0 size 1 = 1
0C0D: struct 5@ offset 1 size 2 = 0@
Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
0C0D: struct 5@ offset 3 size 4 = 25@
0C0D: struct 5@ offset 7 size 4 = 26@
0C0D: struct 5@ offset 11 size 4 = 27@
Actor.StorePos(9@, 25@, 26@, 27@)
0C0D: struct 5@ offset 15 size 4 = 25@
0C0D: struct 5@ offset 19 size 4 = 26@
0C0D: struct 5@ offset 23 size 4 = 27@
0208: 28@ = random_float_in_ranges -0.075 0.075
0208: 29@ = random_float_in_ranges -0.075 0.075
0C0D: struct 5@ offset 27 size 4 = 28@
0C0D: struct 5@ offset 31 size 4 = 29@
0C0D: struct 5@ offset 35 size 4 = 0.5 // head
0C0D: struct 5@ offset 39 size 1 = 16@
0BC4: samp send_bullet_data 5@
free 5@
ret 0
<img src="/.s/sm/2/biggrin.gif" border="0" align="absmiddle" alt="biggrin" /> amageConvert // thx SR TEAM
0A96: 2@ = actor $PLAYER_ACTOR struct
2@ += 0x72C
0A8D: 2@ = read_memory 2@ size 1 virtual_protect 0
0470: 0@ = actor $PLAYER_ACTOR current_weapon
0085: 1@ = 0@
if 2@ == 2
then 1@ += 25
end
if 2@ == 3
then 1@ += 36
end
1@ *= 112
1@ += 13150904
1@ += 0x22
0A8D: 1@ = read_memory 1@ size 2 virtual_protect 0
0093: 1@ = integer 1@ to_float
if and
0@ >= 22
0@ <> 25
0@ <> 26
0@ <> 27
0@ <= 34
then 1@ /= 3.0434782608695652173913043478261
end
ret 1 1@
:WeaponsUpdate
0AC8: 4@ = allocate_memory_size 6
0C0D: struct 4@ offset 0 size 2 = 0@ // targetPlayerId
0A96: 1@ = actor $PLAYER_ACTOR struct
0a8e: 2@ = 1@ + 0x718
0A8D: 2@ = read_memory 2@ size 1 virtual_protect 0
0C0D: struct 4@ offset 2 size 1 = 2@ // slot
0470: 3@ = actor $PLAYER_ACTOR current_weapon
0C0D: struct 4@ offset 3 size 1 = 3@ // weapon
041A: 7@ = actor $PLAYER_ACTOR weapon 3@ ammo
0C0D: struct 4@ offset 4 size 2 = 7@ // ammo
0B3D: raknet 5@ = new_bit_stream
0B40: raknet bit_stream 5@ write PACKET_WEAPONS_UPDATE type BS_TYPE_BYTE size 1
0B40: raknet bit_stream 5@ write 4@ type BS_TYPE_ARRAY size 6
0B8B: raknet send bit_stream 5@
0B3E: raknet delete_bit_stream 5@
0AC9: free_allocated_memory 4@
0AB2: ret 0
