mIRC Home    About    Download    Register    News    Help

Page 1 of 2 1 2 >
Topic Options
#107539 - 11/01/05 07:43 AM Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
Hi im in desperate need of help im looking to make a swear word ban system for irc what i would like it to do is warn the user twice and then ban them for 24 hours i just need someone to point me in the right direction thanks

Top
#107540 - 11/01/05 08:12 AM Re: Swear warn/ban
Mentality Offline
Planetary brain

Registered: 01/06/03
Posts: 5024
Loc: London, England
You can see a simple swear word kicker here. You can then incorporate the Reaction Levels tutorial from the same page.

You may also wish to see /help on text and /help if then else.

Regards,
_________________________
Mentality/Chris

Top
#107541 - 11/01/05 09:26 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
very neat but how do i make it a program and run it in irc and what type of program do i make it?

Top
#107542 - 11/01/05 09:40 AM Re: Swear warn/ban
Mentality Offline
Planetary brain

Registered: 01/06/03
Posts: 5024
Loc: London, England
That is mIRC script. It's a language unique to mIRC (For now anyway *cough*). I'm assuming you're using mIRC.

You can use mIRC's Script Editor to paste code. Press ALT+R to access it.

You could also search some of these mIRC-script-related sites to find ready-made addons if you prefer:

www.mirc.net
www.mircscripts.com
www.hawkee.com
www.mircscripts.org

Regards,
_________________________
Mentality/Chris

Top
#107543 - 11/01/05 07:15 PM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
well i found one but how do i use it i mean how can i set it up for what i want it to do here is the link to the one i got http://www.irc-lounge.com/index.php?page=scripts&script=swear

Top
#107544 - 11/01/05 08:05 PM Re: Swear warn/ban
Mentality Offline
Planetary brain

Registered: 01/06/03
Posts: 5024
Loc: London, England
You would paste that in the ALT+R editor as I said above.

However, it apparently needs some other addon/script to work, so you'll have to use that. If you stuck to the websites I advised you to search on, it is unlikely you'd have to go through such hassle.

Regards,
_________________________
Mentality/Chris

Top
#107545 - 11/01/05 08:22 PM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
ya i know but a guy i know is the maker of this file and it does exactly what i want with the warnings and then 24 hour ban i already have the file loaded but i need to know how to add words and make adjustments like add words and set priority ect. ect.

Top
#107546 - 11/01/05 08:35 PM Re: Swear warn/ban
SladeKraven Offline
Planetary brain

Registered: 19/12/02
Posts: 3547
Loc: Kent, England
From what I can make out of that script you can't add them unless using hadd -m swear.words <swear word>.

I don't think you know what that does, basically that creates a hash table (database) if you like to store your data. The hash table swear.words is the table name. <swear word> would obviously be the item.

Alternatively, if you are on the channel #supermods-op and the value for $swear.add is "1", then you may add them. But it'd have to be a bot or something as there's no other command you can actually type to add words, it'd be someone else typing it. You say you know the author, so get him to write an On Input section of that code.

Hope this helps.

Top
#107547 - 11/01/05 08:39 PM Re: Swear warn/ban
Mentality Offline
Planetary brain

Registered: 01/06/03
Posts: 5024
Loc: London, England
If you know the author, you should ask *them* for help with *their* script.

Regards,
_________________________
Mentality/Chris

Top
#107548 - 12/01/05 06:59 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
ight well the author dont understand why it wont work on my channel so i tried typing one up from that link you provided earlyer wanted to know if this will work all help is apreciated



on @*:TEXT:*:#:{
if ($nick !isop #) {
if ([censored] isin $1-) || (dick isin $1-) || ([censored] isin $1-) {
;The above if statement is what actually checks for the swear words
set -u3600 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
;the -u3600 makes the variable unset after 1hr without being used
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) .notice $nick Please don't! - this is your first warning!
if (%rl. [ $+ [ $address($nick,2) ] ] == 2) .notice $nick Please don't! - this is your second warning next time you will be banned!
if (%rl. [ $+ [ $address($nick,2) ] ] >= 3) ban -u60 # $nick 11 {
kick # $nick You were warned. You are not allowed to swear in this irc channel!
}
}
}


Edited by confuzzed (12/01/05 07:32 AM)

Top
#107549 - 12/01/05 07:29 AM Re: Swear warn/ban
SladeKraven Offline
Planetary brain

Registered: 19/12/02
Posts: 3547
Loc: Kent, England
Are you sure you wrote that?

Top
#107550 - 12/01/05 07:31 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
sorry i typed it up from this i will go back and edit my other post http://helpdesk.vakuum.nu/documents/protection.htm#1 will that work tho?

Top
#107551 - 12/01/05 07:39 AM Re: Swear warn/ban
SladeKraven Offline
Planetary brain

Registered: 19/12/02
Posts: 3547
Loc: Kent, England
Well I prefer the $numtok one...

Code:
on @*:TEXT:*:#:{
 if ($nick !isop #) {
  if ([censored] isin $1-) || (dick isin $1-) || ([censored] isin $1-) {
   ;The above if statement is what actually checks for the swear words
   ban -u60 # $nick 11
   kick # $nick Do not swear!
  }
 }
}


This one would be a poor example because you are going to have one long line of profanity when you can just store them in a variable, or hash table.

Top
#107552 - 12/01/05 07:46 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
so this is what it should be and will it wok to warn and then ban?

Code:
on @*:TEXT:*:#: {
 if ($nick !isop #) {
  var %i = 0
   while (%i &lt; $numtok(%swear.words,32)) {
    ; this while loops keeps going until its checked every word in %swear.words
    inc %i
    var %current.word = $gettok(%swear.words,%i,32)
    if ($istok($strip($1-),%current.word,32) == $true) {
     ;$istok returns $true if %current.word is in the text
set -u3600 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
;the -u3600 makes the variable unset after 1hr without being used
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) .notice $nick Please don't! - this is your first warning!
if (%rl. [ $+ [ $address($nick,2) ] ] == 2) .notice $nick Please don't! - this is your second warning next time you will be banned!
if (%rl. [ $+ [ $address($nick,2) ] ] &gt;= 3) ban -u60 # $nick 11 {
kick # $nick You were warned. You are not allowed to swear in this irc channel!
  }
 }
}
  

Top
#107553 - 12/01/05 07:51 AM Re: Swear warn/ban
SladeKraven Offline
Planetary brain

Registered: 19/12/02
Posts: 3547
Loc: Kent, England
That script basically warns the user twice then on the third time it will kickban the user. It seems fine, I'm not one for loading others scripts so you will have to test it.

Add the swear words by:
/set %swear.words word1 word2 word3 word4 word5
etc.

Top
#107554 - 12/01/05 08:04 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
ok tested but it kicked me other thin warn me what have i done wrong?

Top
#107555 - 12/01/05 08:56 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
also what does this mean and how do i do this i think this might be what is causing it to maess up? You would also need to clear your %rl.* variable list every time you connect to a server or start up mIRC:

on *:START: unset %rl.*
on *:CONNECT: unset %rl.*

Top
#107556 - 12/01/05 08:59 AM Re: Swear warn/ban
SladeKraven Offline
Planetary brain

Registered: 19/12/02
Posts: 3547
Loc: Kent, England
That simply unsets all users who have been warned. When mIRC starts and connects.

Top
#107557 - 12/01/05 09:08 AM Re: Swear warn/ban
confuzzed Offline
Babel fish

Registered: 11/01/05
Posts: 59
can you tell me what is wrong with the code and why it wont warn an then ban?

Code:
on @*:TEXT:*:#: {
  if ($nick !isop #) {
    var %i = 0
    while (%i &lt; $numtok(%swear.words,32)) {
      ; this while loops keeps going until its checked every word in %swear.words
      inc %i
      var %current.word = $gettok(%swear.words,%i,32){
      if ($istok($strip($1-),%current.word,32) == $true) {
        ;$istok returns $true if %current.word is in the text
        set -u3600 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
        ;the -u3600 makes the variable unset after 1hr without being used
        if (%rl. [ $+ [ $address($nick,2) ] ] == 1) .notice $nick Please don't! - this is your first warning!

        if (%rl. [ $+ [ $address($nick,2) ] ] == 2) .notice $nick Please don't! - this is your second warning next time you will be banned!

        if (%rl. [ $+ [ $address($nick,2) ] ] &gt;= 3) ban -u60 # $nick 11 {
          kick # $nick You were warned. You are not allowed to swear in this irc channel!
        }
      }
    }

Top
#107558 - 12/01/05 09:16 AM Re: Swear warn/ban
SladeKraven Offline
Planetary brain

Registered: 19/12/02
Posts: 3547
Loc: Kent, England
var %current.word = $gettok(%swear.words,%i,32){

needs to be..

var %current.word = $gettok(%swear.words,%i,32) {

Edit:

In the code you sent us you're also missing 3 } braces...

[code]
on @*:TEXT:*:#: {
if ($nick !isop #) {
var %i = 0
while (%i < $numtok(%swear.words,32)) {
; this while loops keeps going until its checked every word in %swear.words
inc %i
var %current.word = $gettok(%swear.words,%i,32) {
if ($istok($strip($1-),%current.word,32) == $true) {
;$istok returns $true if %current.word is in the text
set -u3600 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
;the -u3600 makes the variable unset after 1hr without being used
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) .notice $nick Please don't! - this is your first warning!
if (%rl. [ $+ [ $address($nick,2) ] ] == 2) .notice $nick Please don't! - this is your second warning next time you will be banned!
if (%rl. [ $+ [ $address($nick,2) ] ] >= 3) ban -u60 # $nick 11 {
kick # $nick You were warned. You are not allowed to swear in this irc channel!
}
}
}
}
}
}

Top
Page 1 of 2 1 2 >