sBot = "Network-online-check-  "
Hub_Adress = { 
"puggles.no-ip.org", 
"412", 
"puggles.no-ip.org", 
"411", 

 }
HubPort = "411"
curenthub = 1
curentport = 2
mins = 1
function Main()
	hubcount = getn(Hub_Adress)
	SetTimer(1000 * 60 * mins)

end

function DataArrival(user, data)
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
	if cmd=="+neton" then
		SendToOps(sBot," netstats enabled ")
		StartTimer()
	elseif cmd=="+netoff" then
		SendToOps(sBot," netstats disabled ")
		  StopTimer()
	end
end

function OnTimer()
	if curentport == hubcount + 2 then
		curenthub = 1
		curentport = 2
	end
	displayhub(curenthub,curentport)
	curenthub = curenthub + 2
	curentport = curenthub + 1
end

function displayhub(curenthub,curentport)
	a = connect(Hub_Adress[curenthub],Hub_Adress[curentport])
	if a == nil then
		SendToOps(sBot,Hub_Adress[curenthub]..":"..Hub_Adress[curentport].."   Hub is Offline")
	else
		SendToOps(sBot,Hub_Adress[curenthub]..":"..Hub_Adress[curentport].."   hub is Online  ")
		a:close() 
	end
end