--descriptioncheck by [NL]PUR with help from amutex and OpiumVolage
--and ripped by trucker :-)




forbiddenWords = { "mldonkey", "replika", "Pepek", "Echoes", "mldc", "[ws]", "_koala","_om","XKing", "0.233B", "0.233A", "0.181fr", "0.241A", "0.24A","dc-gui","ketelhot.de" }

function DataArrival(curUser,data)

-------- Forbidden words in descript check -------
  for key,checkWord in forbiddenWords do
		if strfind(data, checkWord, 1, 1) then	
                        curUser:TempBan() 
                        curuser:nickban()
			curUser:Disconnect()
                        
		end
  end

function NewUserConnected(curUser)

        _,b, dcver = strfind(curUser.sMyInfoString,"V:(%x.%x+)") 
--------- No Newtag but New dc++ kicker ----------
        if dcver ~= nil then
        if (tonumber(dcver) >= 0.24) then 
            b,e, hubo = strfind(curUser.sMyInfoString,"H:%x+/%x+/(%x+)") 
            if (hubo == nil) then
              hubocount = hubocount + 1
              curUser:Disconnect()
            end
            
        else
--------- Newtag old dc++ kicker ------------------
            b,e, hubo = strfind(curUser.sMyInfoString,"H:%x+/%x+/(%x+)") 
            if (hubo ~= nil) then
              hubocount2 = hubocount2 + 1
              curUser:Disconnect()
            end
        end
        end

end