--------------------------------------------------------------------------------------------------------------------
-- -NICKBOTS-
-- Scripts for chek nick (allowed only letters) and symbols in nick and description
-- Latvian hub Alfa
--------------------------------------------------------------------------------------------------------------------
---specific name to allow
detektors = "-DETEKTORS-"
detektiivs = "-DETEKTIIVS-"
restart = "-RESTART-"
statbots = "-STATBOTS-"
ANTIWORDS = { "?","!","*","#"} --symbol nick or description
function ValidateNickArrival(curUser, Data)
local nick = curUser.sName
local aapsis = string.sub(nick,1,1)
local labs=nil
local goodies="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
local xxx=string.len(goodies)
for i=1,xxx do
if (aapsis == string.sub(goodies,i,i)) then labs=1 end
end
----------------------------------------------------------------------------------------------------------------------
if (labs==nil) and (curUser.sName ~= detektors ) and (curUser.sName ~= detektiivs ) and (curUser.sName ~= restart ) and (curUser.sName ~= statbots ) then
curUser:SendPM("<-NICKBOTS->","Nick only letter!")
-- SendToOps("<-NICKBOTS->","*** Users <"..curUser.sName.."> IP <" ..curUser.sIP.."> niks nesaakas ar burtu! Disconnect:)")
curUser:Disconnect()
end
if(string.len(curUser.sName) > 20) and curUser.iProfile == -1 then
curUser:SendPM("<-NICKBOTS->","Nick not long for 20 ziimeem!")
-- SendToOps("<-NICKBOTS->","*** Users <"..curUser.sName.."> IP <" ..curUser.sIP.."> niks par garu! Disconnect:)")
curUser:Disconnect()
end
if(string.len(curUser.sName) < 3) and curUser.iProfile == -1 then
curUser:SendPM("<-NICKBOTS->","Nick not short for 3 ziimeem!")
-- SendToOps("<-NICKBOTS->","*** Users <"..curUser.sName.."> IP <" ..curUser.sIP.."> niks par iisu! Disconnect:)")
curUser:Disconnect()
end
if((string.find (curUser.sName, " ", 1, 1) ) or (string.find (curUser.sName, "?", 1, 1) )) and curUser.iProfile == -1 then
curUser:SendPM("<-NICKBOTS->","Nick not space!")
-- SendToOps("<-NICKBOTS->","*** Users <"..curUser.sName.."> IP <" ..curUser.sIP.."> nikaa atstarpes! Disconnect:)")
curUser:Disconnect()
end
end
function MyINFOArrival(curUser, Data)
if (curUser.bOperator == nil) then
for i,v in ANTIWORDS do
Find = string.lower(Data)
if string.find(Find,v) then
curUser:SendPM("<-NICKBOTS->","Nick or description not symbols")
-- SendToOps("<-NICKBOTS->","*** Users <"..curUser.sName.."> IP <" ..curUser.sIP.."> nikaa hubsofta simboli! Disconnect:)")
curUser:Disconnect()
do return end
end
end
end
end