TagCheck
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

TagCheck

Started by Cêñoßy†ê, 04 May, 2005, 16:16:20

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Cêñoßy†ê

Allow entry with chosen tags only.

-- Made by dEFiNE
-- Mod by nErBoS asked by Robban
-- Modded by Madman on request by exlepra
-- Converted to lua 5 by C??o?y??

BotName = frmHub:GetHubBotName()

ISP = {
	"[PB]",
	"[DB]",
	"[pb]",
	"[db]",
}

CheckProfiles = { --//Set the profiles you want to check to 1
	[-1] = 1,	-- Users (Unregged)
	[0] = 0,	-- Masters
	[1] = 0,	-- Operators
	[2] = 0,	-- VIP
	[3] = 0,	-- Reg
	[4] = 0,	-- Moderator
	[5] = 0,	-- NetFounder
}


function Main()
	frmHub:RegBot(BotName)
end

function NewUserConnected(curUser)
	if CheckProfiles[curUser.iProfile]==1 then
		for key, value in ISP do
			if (string.len(curUser.sName) >= string.len(value) and string.sub(string.lower(curUser.sName),1,string.len(value)) == string.lower(value)) then
				return 1
			end
		end
		curUser:SendData(BotName, "Your nick should include one of this Prefix")
		ISPList(curUser)
		curUser:SendData(BotName, "For Example [PB]" ..curUser.sName)
		curUser:Disconnect()
	end
end

OpConnected = NewUserConnected

function ISPList(curUser)
	local names = ""
		for index, value in ISP do
		names = names.." "..value.."\r\n\t"
	end
	curUser:SendData("\r\n\t" ..names)
end
Powered By Leviathan™ 2nd Generation v. 1.9

SMF spam blocked by CleanTalk