sub spectate
{
	my %args = %{@_[ ARG0 ]};

	if ( !$args{arg1} )
	{
		my $syntaxvalue = $args{settings}->{syntax}->{value};
		$message = "Usage: $syntaxvalue";
		return;
	}

	my ( $result, %player ) = plugin::getPlayerData( $args{'arg1'} );
	if ( $result == 1 )
	{
		# Player found, spectate them
		plugin::RenRemCMD("r_spec $player{id}"); #console command
		plugin::ircmsg ("10[Spectate] Player $player{name} is now in spectate mode.",'A');
	}
	else
	{
		if ( $args{nicktype} == 1 ) { plugin::ircmsg ( "Player $args{arg1} not found ingame", $args{'ircChannelCode'} ); }
		else { plugin::pagePlayer ( $args{'nick'}, "Player $args{arg1} not found ingame" ); }
	}
}

open (ConsoleCommand, '>>C:\Westwood\RenegadeFDS\Server\ConsoleCommand.txt');
print ConsoleCommand "command flymode ObjectID\n";
close (ConsoleCommand);