Name Length Restriction

Script by Spkka

//JOINTEAM
procedure OnJoinTeam(ID, Team: byte);
begin	
	//kick player if nickname is above 24 characters
	if GetPlayerStat(ID, 'Active' ) = true then
	begin
		if length(getPlayerStat( ID, 'name' )) > 24 then
		begin
			WriteConsole(ID,'...your name is over 24 characters, please change it.',$FFFF4444);
			KickPlayer(ID);
		end
	end
end;