procedure CheckBadName(ID:Byte);
var 
	bType, wtf: TStringArray;
	i:integer;
	Nickname: String;
begin
	Nickname:= LowerCase(IDtoName(ID));
	for i:=0 to ArrayHigh(bNames) do begin
		SetArrayLength(bType,0);
		bType := xsplit(bNames[i],':');

		if MaskCheck(Nickname,bType[0]) then begin
			if Copy(bType[1],1,5) = 'kick;' then begin
				KickPlayer(ID);
			end;
			if Copy(bType[1],1,3) = 'ban' then begin
				wtf := xsplit(bType[2],';');
				if wtf[0] = '' then begin
					wtf[0] := '0';
				end;
				BanPlayer(ID, StrtoInt(wtf[0]));
			end;
		end;
	end;
end;