sub spectate_bi
{
	my ( $kernel, $session, $heap, $args ) = @_[ KERNEL, SESSION, HEAP, ARG0 ];
	my %args = %{$args};

	if ( $args{arg} =~ m/^\!\S+\s(.+)$/i )
	{
		my ( $result, %player ) = plugin::getPlayerData ( $1 );
		if ( $result == 1 )
                {
		plugin::RenRemCMD ( "spectate_bi $player{name}" );
				brIRC::ircmsg ( "spectate_bi mode set for $player{name}", "A");

		}
		else { brIRC::ircmsg ( "$1 was not found ingame, or is not unique", "A"); }

	else
	{
		brIRC::ircmsg ( "Usage: !spectate_bi <modname>", "A");
	}
}

sub unspectate_bi
{
	my ( $kernel, $session, $heap, $args ) = @_[ KERNEL, SESSION, HEAP, ARG0 ];
	my %args = %{$args};

	if ( $args{arg} =~ m/^\!\S+\s(.+)$/i )
	{
		my ( $result, %player ) = plugin::getPlayerData ( $1 );
		if ( $result == 1 )
		{
				plugin::RenRemCMD ( "unspectate_bi $player{name}" );
				brIRC::ircmsg ( "unspectate_bi mode unset for $player{name}", "A");

		}
		else { brIRC::ircmsg ( "$1 was not found ingame, or is not unique", "A"); }
	}
	else
	{
		brIRC::ircmsg ( "Usage: !unspectate_bi <modname>", "A");
	}
}