Поиск ближайшего педа

:Search_start
VAR
    1@: Integer
    4@: Integer
    3@: Float
    5@: Float
END
2@ = 0
3@ = 0.0
4@ = 0

:Search_1
wait 0
04C4: store_coords_to 10@ 11@ 12@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
0AE1: 1@ = random_actor_near_point 10@ 11@ 12@ in_radius 50.0 find_next 2@ pass_deads 1
2@ = 1

if 1@ <> 0
jf @Search_2
04C4: store_coords_to 20@ 21@ 22@ from_actor 1@ with_offset 0.0 0.0 0.0
050A: 5@ = distance_between_XYZ 10@ 11@ 12@ and_XYZ 20@ 21@ 22@
if 5@ < 3@
jf @Search_1
4@ = 1@
3@ = 5@
jump @Search_1

:Search_2
if 4@ <> 0
jf @Search_end
// в 4@ получаем педа
// например, дадим ему много жизней
0223: set_actor 4@ health_to 99999

:Search_end