--MinShareCheck
--by Mutor The Ugly
--
--
--User Settings-------------------------------------------------------------------------------------
MinShare = 600	--Minimum share in Mb.
--MinShare = frmHub:GetMinShare()
Secs = 3	--Delay in seconds (allows for meassage to be received before disconnect)
--End User Settings----------------------------------------------------------------------------------
--
function Main()
	SetTimer(Secs*1000)
end

function NewUserConnected(curUser)
SendToAll(MinShare) 
local s, e, ShareSize = strfind(curUser.sMyInfoString, "%$%s*(%d+)%$"); 
ShareSize = ShareSize and tonumber(ShareSize) or 0; 
ShareSize = ShareSize / (1024 * 1024); 
	if(ShareSize < MinShare) then
		StartTimer() 
		curUser:SendData("Your share size of "..format(" %.2f Mb.", ShareSize).." does not meet our minimum share size of "..MinShare.." Mb.") 
		curUser:SendData("Please return when you can meet our minimums")
		curUser:SendData("Disconnecting..........")
		victim = curUser.sName
	end
end

function OnTimer()
	DisconnectByName(victim)
	StopTimer()
end