PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: wulfy21uk on 24 December, 2003, 01:24:15

Title: Random regme script
Post by: wulfy21uk on 24 December, 2003, 01:24:15
Could someone code a !regme script with someone way of asking for a random inputo stop bots from auto registering themselves ie a random number gen or something
Title:
Post by: BlazeXxX on 28 December, 2003, 16:44:33
I think rathar than making a script like this, why not try a spam blocker? which asks for a generated no to be typed in order to activate the main chat and pm?
Title:
Post by: raz on 28 December, 2003, 18:24:57
BlazeXxX
QuoteI think rathar than making a script like this, why not try a spam blocker? which asks for a generated no to be typed in order to activate the main chat and pm?

    This does dat exact thing with dis script u can't talk in pm or main.u can even set it so operators and regged userz will have 2 put a 4 digit number. :D

BotName = "{C2TM}?"  
TestReggedUsers = 0  -- Set to 1 if you want to require validation from registered users.
TestOperators = 0  -- Set to 1 if you want to require validation from operators.
NoChatUsers = { }

--// This function is fired at the serving start
function Main()
end

--// This function is fired when a new data arrives
function DataArrival(curUser, sData)
sData = strsub(sData, 1, strlen(sData)-1)
if curUser.iProfile == -1 or TestReggedUsers == 1 then
if NoChatUsers[curUser.sName] ~= nil then
if NoChatUsers[curUser.sName] == 1 then
NoChatUsers[curUser.sName] = random(1000, 9999)
SendToNick(curUser.sName, "<"..BotName.."> Spam protect: To enable full hub functionality, reply with the following key: "..NoChatUsers[curUser.sName] )
return 1
else
_,_,keystring = strfind(sData, "%b<>%s+(%S+)")
if tostring(keystring) == tostring(NoChatUsers[curUser.sName]) then
NoChatUsers[curUser.sName] = nil
SendToNick(curUser.sName, "<"..BotName.."> Spam protect: Hub Unlocked")
else
SendToNick(curUser.sName, "<"..BotName.."> Spam protect: To enable full hub functionality, reply with the following key: "..NoChatUsers[curUser.sName] )
end
return 1
end
end
end
end


--// This function is fired when a new user finishes the login
function NewUserConnected(curUser)
NoChatUsers[curUser.sName] = 1
end


--// This function is fired when an operator enters the hub
function OpConnected(curUser)
if TestOperators == 1 then
NoChatUsers[curUser.sName] = 1
end
end

--// This function is fired when an user disconnects
function UserDisconnected(curUser)
NoChatUsers[curUser.sName] = nil
end

--// This function is fired when an operator disconnects
function OpDisconnected(curUser)
NoChatUsers[curUser.sName] = nil
end