RO-fan

Код: Выделить всё

sub ai_route {
	my $map = shift;
	my $x = shift;
	my $y = shift;
	my %args = @_;
	debug "On route to: $maps_lut{$map.'.rsw'}($map): $x, $y\n", "route";

	# I can't use 'use' because of circular dependencies.
	require Task::Route;
	require Task::MapRoute;

	my $task;
	my @params = (
		x => $x,
		y => $y,
		maxDistance => $args{maxRouteDistance},
		maxTime => $args{maxRouteTime},
		distFromGoal => $args{distFromGoal},
		pyDistFromGoal => $args{pyDistFromGoal},
		avoidWalls => !$args{noAvoidWalls},
		notifyUponArrival => $args{notifyUponArrival}
	);
	if ($args{noMapRoute}) {
		$task = new Task::Route(@params);
	} else {
		$task = new Task::MapRoute(map => $map, @params);
	}
	$task->{attackID} = $args{attackID};
	$task->{attackOnRoute} = $args{attackOnRoute};
	$task->{noSitAuto} = $args{noSitAuto};
	$task->{LOSSubRoute} = $args{LOSSubRoute};

	AI::queue("route", $task); #<-- тут должна пихаться ссылка на аргументы route, а не сам объект.
}