Profile-prefix
 

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

Profile-prefix

Started by Djdirect, 21 February, 2007, 16:27:20

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Djdirect

-- Made by dEFiNE
-- Mod by nErBoS asked by Robban
-- Modded by Madman on request by exlepra

BotName = "-Bot-"

ISP = {
	"[Reg]",
	"[VIP]",
}

CheckProfiles = { --//Set the profiles you want to check to 1
	[-1] = 0,	-- Users (Unregged)
	[0] = 0,	-- Masters
	[1] = 0,	-- Operators
	[2] = 0,	-- VIP
	[3] = 1,	-- 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 (strlen(curUser.sName) >= strlen(value) and strsub(strlower(curUser.sName),1,strlen(value)) == strlower(value)) then
				return 1
			end
		end
		curUser:SendData(BotName, "Your nick should include one of this Prefix")
		ISPList(curUser)
		curUser:SendData(BotName, "For Example [REG]" ..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



a have this error  ptokax0351.lua\scripts\reg.lua:28: attempt to call a table value

Madman

Code: lua
-- Made by dEFiNE
-- Mod by nErBoS asked by Robban
-- Modded by Madman on request by exlepra
-- Upgraded to Lua 5.1

BotName = "-Bot-"

ISP = {
	"[Reg]",
	"[VIP]",
}

CheckProfiles = { --//Set the profiles you want to check to 1
	[-1] = 0,	-- Users (Unregged)
	[0] = 0,	-- Masters
	[1] = 0,	-- Operators
	[2] = 0,	-- VIP
	[3] = 1,	-- 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 pairs(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 [REG]" ..curUser.sName)
		curUser:Disconnect()
	end
end

OpConnected = NewUserConnected

function ISPList(curUser)
	local names = ""
		for index, value in pairs(ISP) do
		names = names.." "..value.."\r\n\t"
	end
	curUser:SendData("\r\n\t" ..names)
end
We suffer in silence, we lurk in the shadows, we kill in the night
Site currently down, ETA of returning online is 2099 ;p

Djdirect


SMF spam blocked by CleanTalk