const
	Color=$FFB2F4;

function MyOnPlayerCommand(Player: TActivePlayer; Command: string): Boolean;
var
	TargetID: byte;
begin
	if ExecRegExpr('^/player(\s).+$', Command) then begin	
		TargetID:=strtoint(Copy(Command, 8, Length(Command)));
		Players.WriteConsole('Players['+inttostr(TargetID)+'].Active='+iif(Players[TargetID].Active, 'TRUE', 'FALSE'), Color);
		Players.WriteConsole('Players['+inttostr(TargetID)+'].Alive='+iif(Players[TargetID].Alive, 'TRUE', 'FALSE'), Color);
		Players.WriteConsole('Players['+inttostr(TargetID)+'].Human='+iif(Players[TargetID].Human, 'TRUE', 'FALSE'), Color);
		Players.WriteConsole('Players['+inttostr(TargetID)+'].Name='+Players[TargetID].Name, Color);
	end;
	Result:=FALSE;
end;

var
	i: byte;
begin
	for i:=1 to 32 do begin
		Players[i].OnCommand := @MyOnPlayerCommand;
	end;
end.