antiopenhub.V1.lua

[balblub]

HI

Can anybody help me please, this script work fine, but it checks only when new user connect to hub.I want that the script check all the time if any user is in a hub as guest.
??? ???

tBadOnes = {}
iTimeAfter = 15 -- how many seconds before disconnecting

function Main()
	SetTimer( 1000 )
	StartTimer()
end

function NewUserConnected(user)
	if user.iNormalHubs then
		if user.iNormalHubs > 0 then
			tBadOnes[user.sName] = iTimeAfter
			user:SendData( "Helvetia", "Du bist in Open Hubs. Dies verst?sst gegen unsere Regeln. Deshalb wird die Verbindung in "..iTimeAfter.." Sekunden zur?ckgesetzt!!!")
		end
	end
end

function OnTimer()
	for nick, v in tBadOnes do
		local user = GetItemByName( nick )
		if user.iNormalHubs then
			if user.iNormalHubs == 0 then
				tBadOnes[nick] = nil
				user:SendData( "Helvetia", "Danke, daf?r dass du die Open Hubs geschlossen hast und nun ganz Regelkonform mitmachst." )
			elseif user.iNormalHubs > 0 then
				tBadOnes[nick] = tBadOnes[nick] - 1
				if tBadOnes[nick] == 0 then
					tBadOnes[nick] = nil
					user:SendData( "Helvetia", "Du wirst jetzt Disconnected weil du in Open Hubs rumlungerst. Komm bitte erst wieder wenn du sie geschlossen hast." )
					user:Disconnect()
				elseif tBadOnes[nick] == math.floor( iTimeAfter / 2 ) then
					user:SendData ( "Helvetia", " Wir bitten euch inst?ndig, euch nicht in den offnen File-Sharing-Plattformen zu bewegen. Das ist n?mlich auch f?r uns gef?hrlich. Du hast noch "..math.floor( iTimeAfter / 2 ).." Sekunden ?brig bis zu Trennung.." )
				end
			end
		end
	end
end

function UserDisconnected(user)
	if tBadOnes[user.sName] then
		tBadOnes[user.sName] = nil
		collectgarbage();
	end
end

[jiten]

Here goes a quick one:

--[[

	Anti-Open Hub by Herodes

]]--

tBad = {}
Settings = {
	-- Bot Name
	sBot = frmHub:GetHubBotName(),
	-- How many seconds before disconnecting
	iTimeAfter = 15,
}

Main = function()
	SetTimer(1000); StartTimer()
end

NewUserConnected = function(user)
	if user.iNormalHubs then
		if user.iNormalHubs > 0 then
			tBad[user.sName] = Settings.iTimeAfter
			user:SendData( "Helvetia", "Du bist in Open Hubs. Dies verst?sst gegen unsere Regeln. "..
			"Deshalb wird die Verbindung in "..Settings.iTimeAfter.." Sekunden zur?ckgesetzt!!!")
		end
	end
end

OnTimer = function()
	for i,v in ipairs(frmHub:GetOnlineNonOperators()) do
		if v.iNormalHubs and v.iNormalHubs > 0 and not tBad[v.sName] then tBad[v.sName] = Settings.iTimeAfter end
	end
	for nick,v in pairs(tBad) do
		local user = GetItemByName(nick)
		if user.iNormalHubs then
			if user.iNormalHubs == 0 then
				tBad[nick] = nil
				user:SendData(Settings.sBot, "Danke, daf?r dass du die Open Hubs geschlossen hast und nun ganz "..
				"Regelkonform mitmachst.")
			elseif user.iNormalHubs > 0 then
				tBad[nick] = tBad[nick] - 1
				if tBad[nick] == 0 then
					tBad[nick] = nil
					user:SendData(Settings.sBot,"Du wirst jetzt Disconnected weil du in Open Hubs rumlungerst. "..
					"Komm bitte erst wieder wenn du sie geschlossen hast.")
					user:Disconnect()
				elseif tBad[nick] == math.floor(Settings.iTimeAfter/2) then
					user:SendData (Settings.sBot," Wir bitten euch inst?ndig, euch nicht in den offnen "..
					"File-Sharing-Plattformen zu bewegen. Das ist n?mlich auch f?r uns gef?hrlich. Du hast noch "..
					math.floor(Settings.iTimeAfter/2).." Sekunden ?brig bis zu Trennung..")
				end
			end
		end
	end
end

UserDisconnected = function(user)
	if tBad[user.sName] then tBad[user.sName] = nil; collectgarbage(); end
end

[6Marilyn6Manson6]

Here goes a quick one:

--[[

	Anti-Open Hub by Herodes

]]--

tBad = {}
Settings = {
	-- Bot Name
	sBot = frmHub:GetHubBotName(),
	-- How many seconds before disconnecting
	iTimeAfter = 15,
}

Main = function()
	SetTimer(1000); StartTimer()
end

NewUserConnected = function(user)
	if user.iNormalHubs then
		if user.iNormalHubs > 0 then
			tBad[user.sName] = Settings.iTimeAfter
			user:SendData( "Helvetia", "Du bist in Open Hubs. Dies verst?sst gegen unsere Regeln. "..
			"Deshalb wird die Verbindung in "..Settings.iTimeAfter.." Sekunden zur?ckgesetzt!!!")
		end
	end
end

OnTimer = function()
	for i,v in ipairs(frmHub:GetOnlineNonOperators()) do
		if v.iNormalHubs and v.iNormalHubs > 0 and not tBad[v.sName] then tBad[v.sName] = Settings.iTimeAfter end
	end
	for nick,v in pairs(tBad) do
		local user = GetItemByName(nick)
		if user.iNormalHubs then
			if user.iNormalHubs == 0 then
				tBad[nick] = nil
				user:SendData(Settings.sBot, "Danke, daf?r dass du die Open Hubs geschlossen hast und nun ganz "..
				"Regelkonform mitmachst.")
			elseif user.iNormalHubs > 0 then
				tBad[nick] = tBad[nick] - 1
				if tBad[nick] == 0 then
					tBad[nick] = nil
					user:SendData(Settings.sBot,"Du wirst jetzt Disconnected weil du in Open Hubs rumlungerst. "..
					"Komm bitte erst wieder wenn du sie geschlossen hast.")
					user:Disconnect()
				elseif tBad[nick] == math.floor(Settings.iTimeAfter/2) then
					user:SendData (Settings.sBot," Wir bitten euch inst?ndig, euch nicht in den offnen "..
					"File-Sharing-Plattformen zu bewegen. Das ist n?mlich auch f?r uns gef?hrlich. Du hast noch "..
					math.floor(Settings.iTimeAfter/2).." Sekunden ?brig bis zu Trennung..")
				end
			end
		end
	end
end

UserDisconnected = function(user)
	if tBad[user.sName] then tBad[user.sName] = nil; collectgarbage(); end
end

Can uoi jiten post this script in english language? Thanks

[balblub]

Thank you it works perfect  ;D

[Psycho_Chihuahua]

Can uoi jiten post this script in english language? Thanks

I recognize this script - was mine once upon a time

Here ya go a (not so good) english version

--[[

	Anti-Open Hub by Herodes

]]--

tBad = {}
Settings = {
	-- Bot Name
	sBot = frmHub:GetHubBotName(),
	-- How many seconds before disconnecting
	iTimeAfter = 15,
}

Main = function()
	SetTimer(1000); StartTimer()
end

NewUserConnected = function(user)
	if user.iNormalHubs then
		if user.iNormalHubs > 0 then
			tBad[user.sName] = Settings.iTimeAfter
			user:SendData( "Helvetia", "You are in public hubs which is violating against our hubrules. "..
			"This is why your connection will be terminated in "..Settings.iTimeAfter.." seconds!!!")
		end
	end
end

OnTimer = function()
	for i,v in ipairs(frmHub:GetOnlineNonOperators()) do
		if v.iNormalHubs and v.iNormalHubs > 0 and not tBad[v.sName] then tBad[v.sName] = Settings.iTimeAfter end
	end
	for nick,v in pairs(tBad) do
		local user = GetItemByName(nick)
		if user.iNormalHubs then
			if user.iNormalHubs == 0 then
				tBad[nick] = nil
				user:SendData(Settings.sBot, "Thank you for closing the public hubs and are now following "..
				"our rules.")
			elseif user.iNormalHubs > 0 then
				tBad[nick] = tBad[nick] - 1
				if tBad[nick] == 0 then
					tBad[nick] = nil
					user:SendData(Settings.sBot,"Your connection was terminated because you were in public hubs. "..
					"Feel free to return once you have closed your public hub connections.")
					user:Disconnect()
				elseif tBad[nick] == math.floor(Settings.iTimeAfter/2) then
					user:SendData (Settings.sBot," Please don't hang around in public "..
					"File-Sharing-Platforms. This is dangerous for you and for us. You still have "..
					math.floor(Settings.iTimeAfter/2).." seconds left until your connection is terminated..")
				end
			end
		end
	end
end

UserDisconnected = function(user)
	if tBad[user.sName] then tBad[user.sName] = nil; collectgarbage(); end
end

[6Marilyn6Manson6]

Thanks Psycho_Chihuahua

[Psycho_Chihuahua]

your welcome

[jiten]

Can uoi jiten post this script in english language? Thanks

If my german was like Psycho's

[Psycho_Chihuahua]

Can uoi jiten post this script in english language? Thanks

If my german was like Psycho's

not that hard for me 

i've got almost 20 years practice in german

[Cêñoßy†ê]

My version  ;D

--// Disconnect publichub users
--// By C??o?y??

Check = {		-- 0=dont check 1=check
	[0] = 0,	-- Master
	[1] = 0,	-- Operator
	[2] = 1,	-- Vip
	[3] = 1,	-- Reg
	[4] = 0,	-- Extra profile
	[5] = 0,	-- Extra profile
	[-1] = 1,	-- Unregistered user
}

Message =	"Your connection was terminated because you were in public hubs. Feel free to return once you have closed your public hub connections."

CheckPublic = function(user)
	if Check[user.iProfile]== 1 then
	if user.iNormalHubs then
		if user.iNormalHubs > 0 then
			user:SendData(frmHub:GetHubBotName(),Message)
			user:Disconnect()
			end
		end
	end
end

NewUserConnected = CheckPublic
OpConnected = CheckPublic
SearchArrival = CheckPublic
ConnectToMeArrival = CheckPublic
MultiConnectToMeArrival = CheckPublic
RevConnectToMeArrival = CheckPublic
SRArrival = CheckPublic