-- DC++ Max slots LUA script by aMutex 04.02.2003 
-- DC++ minver bot by Skrollster 6-Feb, 2003 
-- DC++ Upload limit kick by piglja 10-Feb, 2003 
-- Compiled together and verbose debug mod by D@zzler 11-feb, 2003 
-- Optimized a bit by Skrollster 11-feb, 2003
-- Min Upload Speed checker:
----------Bugs made by piglja;-) 10-feb, 2003
----------Piglja's Bugs fixed by Skrollster =)) 11-feb, 2003
----------Skrollster bugs fixed by aMutex 11-feb, 2003

maxslots = 30 
minver = 0.181 
botName = "DCPlusPlusCheck" 
lock = 10

function NewUserConnected(user)

	if strfind(user.sMyInfoString,"<++") then
		_,b, dcver = strfind(user.sMyInfoString,"V:(%x.%x+)") 
		_,b, slots = strfind(user.sMyInfoString,"S:(%d+)",b) 
		_,b, bs = strfind(user.sMyInfoString,"B:(%x+)")
		if (lock > tonumber(bs)) then  
			SendToAll( "PtokaX","" ..user.sName.. " is using an upload limited DC++, please change the upload minimum to "..lock.." or get out of here •") 
			SendToNick(user.sName, "<"..botName.."> use a not modified dc++, or use this one without a speed blocker") 
			SendToNick(user.sName, "<"..botName.."> you may download the latest at dc++ http://dcplusplus.sourceforge.net") 
			user:Disconnect() 
		elseif (lock > tonumber(bs)) then  
			SendToAll( "PtokaX","" ..user.sName.. " is using an upload limited DC++, please change the upload minimum to "..lock.." or get out of here •") 
			SendToNick(user.sName, "<"..botName.."> use a not modified dc++, or use this one without a speed blocker") 
			SendToNick(user.sName, "<"..botName.."> you may download the latest at dc++ http://dcplusplus.sourceforge.net") 
			user:Disconnect() 
		elseif (tonumber(slots) > maxslots) then
			SendToAll( "PtokaX","" ..user.sName.. " had "..slots.." slots open, too much for here ... Max : "..maxslots.." •") 
			SendToNick(user.sName, "<"..botName.."> You have "..slots.." slots open") 
			SendToNick(user.sName, "<"..botName.."> Please open max "..maxslots.." slots!") 
			SendToNick(user.sName, "<"..botName.."> Disconnects...") 
			user:Disconnect() 
		elseif (tonumber(dcver) < minver) then 
			SendToAll( "PtokaX","" ..user.sName.. " is using DC++ "..dcver..", too old for this hub •") 
			SendToNick(user.sName, "<"..botName.."> You are using dc++ version "..dcver) 
			SendToNick(user.sName, "<"..botName.."> The oldest version allowed is "..minver..", you may download the latest at http://dcplusplus.sourceforge.net") 
			SendToNick(user.sName, "<"..botName.."> Disconnects...") 
			user:Disconnect() 
		end 
	end
end