Anti Swearing

[Pedro]

Dont tell me to use search, I already have a script but what it doesnt do is check main chat only, the one I am using checks main chat and PMs, but I believe the PMs should be kept private and users should be allowed to say what they want..so really all I need is a script to check for Swearing I Main Chat ONLY!!!

Can anyone help.. here is the script I use now

--Made By nErBoS 
--Fixed by plop 


botname = "??Helga??" 
trigs = {"bad words removed  to keep it clean in forum"} 

function Main() 
   frmHub:RegBot(botname) 
end 
    
function DataArrival(user, data) 
   if (not user.bOperator) then 
      if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then 
         for i=1,getn(trigs) do 
            if( strfind( strlower(data), trigs[i]) ) then 
            local word = strlower(data), trigs[i]
               SendToAll(botname, "The user "..user.sName.." was banned for Swearing." ) 
               user:SendData(botname, "You have been banned for Swearing.") 
               SendPmToOps(botname, "The user "..user.sName.." was banned for Swearing.") 
               SendPmToOps(botname, "The user IP "..user.sIP.." .") 
               SendPmToOps(botname, "He wrote : "..word) 
               user:Disconnect() 
               user:TempBan() 
               break 
            end 
         end 
      end 
   end
end

Thanx guys and good luck to you and make me a happy man

[nErBoS]

Hi,

Done...

--Made By nErBoS 
--Fixed by plop 


botname = "? Helga ?" 
trigs = {"bad words removed  to keep it clean in forum"} 

function Main() 
   frmHub:RegBot(botname) 
end 
    
function DataArrival(user, data) 
   if (not user.bOperator) then 
      if ( strsub(data, 1, 1) == "<" ) then 
         for i=1,getn(trigs) do 
            if( strfind( strlower(data), trigs[i]) ) then 
            local word = strlower(data), trigs[i]
               SendToAll(botname, "The user "..user.sName.." was banned for Swearing." ) 
               user:SendData(botname, "You have been banned for Swearing.") 
               SendPmToOps(botname, "The user "..user.sName.." was banned for Swearing.") 
               SendPmToOps(botname, "The user IP "..user.sIP.." .") 
               SendPmToOps(botname, "He wrote : "..word) 
               user:Disconnect() 
               user:TempBan() 
               break 
            end 
         end 
      end 
   end
end

Best regards, nErBoS

[Pedro]

Thanks m8, your a life saver.

this will help our network and can only make it better ( well at least it will stop the complaints) lol


HAPPIER DAYS