otschet=false
_man = nearestObjects [ player , ["Man","Man"], 2] select 1

_pos=getpos player;
_pos2=getpos _man;
_angle=(((_pos2 select 0) - (_pos select 0)) atan2 ((_pos2 select 1)-(_pos select 1)));
player setdir _angle;

~0.001
?(primaryWeapon player == "" && secondaryWeapon player == ""): player switchmove "AmelPercMstpSnonWnonDnon_amaterUder3"; goto "loop"
player switchmove "AmelPercMstpSlowWrflDnon_StrokeGun"

~1
_man_damag = getdammage _man
_man_damag = _man_damag + 0.6
?(getdammage _man < 0.5): _man switchmove "AmelPercMstpSnonWnonDnon_zasah6hlava";
_man setdamage _man_damag
_man dotarget player
_man dofire player
~2.2
otschet=true
exit
#loop
~1
_man_damag = getdammage _man
_man_damag = _man_damag + 0.26
?(getdammage _man < 0.5): _man switchmove "AmelPercMstpSnonWnonDnon_zasah6hlava";
_man setdamage _man_damag
_man dotarget player
_man dofire player
~2.2
otschet=true
exit