Issues with setting up a Public ignore script..

**GrimReaper** · Fri Jun 29, 2012 2:21 pm

		Code 			
bind pub - !ignore PixDoIgnore
<br />

<br />
proc PixDoIgnore {nick host hand chan argv} {
<br />
  if {[lsearch -exact [channel info $chan] +PixieOps] != -1} {
<br />
    if {[lindex [split $argv] 0] == "list"} {
<br />
      set ignorelist [ignores]
<br />
      foreach entry $ignorelist {
<br />
        putserv "PRIVMSG $chan :Ignoring:"
<br />
        putserv "PRIVMSG $chan :[lindex $entry 0]\: [lindex $entry 1]"
<br />
      }
<br />
      return 0
<br />
    }
<br />
    if {[lindex [split $argv] 0] == "add"} {
<br />
      if {![lindex [split $argv] 1]} {
<br />
        putquick "PRIVMSG $chan :Please enter a Nick/Host to add to ignore."
<br />
        return 0
<br />
      } else { 
<br />
        set who "[lindex $argv 1]"
<br />
        .+ignore $who
<br />
        putquick "PRIVMSG $chan :$who has been added to my ignore list."
<br />
        return 0
<br />
      }
<br />
    }
<br />
    if {[lindex [split $argv] 0] == "del"} {
<br />
      if {![lindex [split $argv] 1]} {
<br />
        putquick "PRIVMSG $chan :Please enter a Nick/Host to remove from ignore."
<br />
        return 0
<br />
      } else {
<br />
        set who "[lindex $argv 1]
<br />
        .-ignore $who
<br />
        putquick "PRIVMSG $chan :$who has been removed from ignore."
<br />
        return 0
<br />
      }
<br />
    }
<br />
  }
<br />
}	

This is the current code I have worked on, the bot has the setudef flag set. But it's not doing anything.. I have tried many different way's of accomplishing this.. And none have worked, Any help would be greatly appreciated.

**Get_A_Fix** · Thu Jul 12, 2012 5:22 am

I don't know why you were using a userdefined flag, but this is the way I made my public ignore script.

		Code 			
<br />
# The trigger
<br />
set pubtrig "!"
<br />

<br />
# ---- EDIT END ----
<br />
proc getTrigger {} {
<br />
  global pubtrig
<br />
  return $pubtrig
<br />
}
<br />

<br />
bind pub - ${pubtrig}ignore ignore:pub
<br />
proc ignore:pub {nick uhost hand chan text} {
<br />
  if {[matchattr [nick2hand $nick] o]} {
<br />
    if {[lindex [split $text] 0] == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />

<br />
    if {[lindex [split $text] 0] == "add"} {
<br />
      set addmask [lindex [split $text] 1]
<br />
      if {$addmask == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      if {[isignore $addmask]} {putquick "PRIVMSG $chan :\037ERROR\037: This is already a Valid ignore."; return}
<br />
      set duration [lindex [split $text] 2]
<br />
      if {$duration == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      set reason [join [lrange [split $text] 3 end]]
<br />
      if {$reason == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      newignore $addmask $hand "$reason" $duration
<br />
      putquick "PRIVMSG $chan :\002New Ignore\002: $mask - \002Duration\002: $duration minutes - \002Reason\002: $reason"
<br />
    }
<br />

<br />
    if {[lindex [split $text] 0] == "del"} {
<br />
      set delmask [lindex [split $text] 1]
<br />
      if {$delmask == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      if {![isignore $delmask]} {putquick "PRIVMSG $chan :\037ERROR\037: Ignore mask not valid."; return}
<br />
      killignore $delmask
<br />
      putquick "PRIVMSG $chan :\002Removed Ignore\002: $mask"
<br />
    }
<br />
  }
<br />
}
<br />
	

and then, you can use this to list them.. but beware.. if you have lots of ignores, this command will just flood you and it would be a LOT easier to get this information on the dcc/telnet/partyline.

		Code 			
<br />
# Command = !ignores <=- in channel.
<br />
bind pub - ${pubtrig}ignores ignore:list
<br />
proc ignore:list {nick uhost hand chan text} {
<br />
  if {[matchattr [nick2hand $nick] o]} {
<br />
    if {[ignorelist] == ""} {
<br />
      putquick "NOTICE $nick :\002There are no ignores\002"
<br />
      } else {
<br />
      putquick "NOTICE $nick :\002Current ignores\002"
<br />
      foreach ignore [ignorelist] {
<br />
        set ignoremask [lindex $ignore 0]
<br />
        set ignorecomment [lindex $ignore 1]
<br />
        set ignoreexpire [lindex $ignore 2]
<br />
        set ignoreadded [lindex $ignore 3]
<br />
        set ignorecreator [lindex $ignore 4]
<br />
        set ignoreexpire_ctime [ctime $ignoreexpire]
<br />
        set ignoreadded_ctime [ctime $ignoreadded]
<br />
        if {$ignoreexpire == 0} {
<br />
          set ignoreexpire_ctime "perm"
<br />
        }
<br />
        putserv "NOTICE $nick : "
<br />
        putserv "NOTICE $nick :\002Mask\002: $ignoremask - \002Set by\002: $ignorecreator."
<br />
        putserv "NOTICE $nick :\002Reason\002: $ignorecomment"
<br />
        putserv "NOTICE $nick :\002Created\002: $ignoreadded_ctime. - \002Expiration\002: $ignoreexpire_ctime."
<br />
      }
<br />
    }
<br />
  }
<br />
}
<br />
	

Good Luck.

**GrimReaper** · Sun Jul 15, 2012 12:06 pm

Get_A_Fix wrote

I don't know why you were using a userdefined flag, but this is the way I made my public ignore script.

		Code 			
<br />
# The trigger
<br />
set pubtrig "!"
<br />

<br />
# ---- EDIT END ----
<br />
proc getTrigger {} {
<br />
  global pubtrig
<br />
  return $pubtrig
<br />
}
<br />

<br />
bind pub - ${pubtrig}ignore ignore:pub
<br />
proc ignore:pub {nick uhost hand chan text} {
<br />
  if {[matchattr [nick2hand $nick] o]} {
<br />
    if {[lindex [split $text] 0] == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />

<br />
    if {[lindex [split $text] 0] == "add"} {
<br />
      set addmask [lindex [split $text] 1]
<br />
      if {$addmask == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      if {[isignore $addmask]} {putquick "PRIVMSG $chan :\037ERROR\037: This is already a Valid ignore."; return}
<br />
      set duration [lindex [split $text] 2]
<br />
      if {$duration == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      set reason [join [lrange [split $text] 3 end]]
<br />
      if {$reason == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      newignore $addmask $hand "$reason" $duration
<br />
      putquick "PRIVMSG $chan :\002New Ignore\002: $mask - \002Duration\002: $duration minutes - \002Reason\002: $reason"
<br />
    }
<br />

<br />
    if {[lindex [split $text] 0] == "del"} {
<br />
      set delmask [lindex [split $text] 1]
<br />
      if {$delmask == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]ignore add <*!*@host.mask.whatever> <duration:in:minutes> <your reasons whatever> - [getTrigger]ignore del <*!*@host.mask.whatever>"; return}
<br />
      if {![isignore $delmask]} {putquick "PRIVMSG $chan :\037ERROR\037: Ignore mask not valid."; return}
<br />
      killignore $delmask
<br />
      putquick "PRIVMSG $chan :\002Removed Ignore\002: $mask"
<br />
    }
<br />
  }
<br />
}
<br />
	

and then, you can use this to list them.. but beware.. if you have lots of ignores, this command will just flood you and it would be a LOT easier to get this information on the dcc/telnet/partyline.

		Code 			
<br />
# Command = !ignores <=- in channel.
<br />
bind pub - ${pubtrig}ignores ignore:list
<br />
proc ignore:list {nick uhost hand chan text} {
<br />
  if {[matchattr [nick2hand $nick] o]} {
<br />
    if {[ignorelist] == ""} {
<br />
      putquick "NOTICE $nick :\002There are no ignores\002"
<br />
      } else {
<br />
      putquick "NOTICE $nick :\002Current ignores\002"
<br />
      foreach ignore [ignorelist] {
<br />
        set ignoremask [lindex $ignore 0]
<br />
        set ignorecomment [lindex $ignore 1]
<br />
        set ignoreexpire [lindex $ignore 2]
<br />
        set ignoreadded [lindex $ignore 3]
<br />
        set ignorecreator [lindex $ignore 4]
<br />
        set ignoreexpire_ctime [ctime $ignoreexpire]
<br />
        set ignoreadded_ctime [ctime $ignoreadded]
<br />
        if {$ignoreexpire == 0} {
<br />
          set ignoreexpire_ctime "perm"
<br />
        }
<br />
        putserv "NOTICE $nick : "
<br />
        putserv "NOTICE $nick :\002Mask\002: $ignoremask - \002Set by\002: $ignorecreator."
<br />
        putserv "NOTICE $nick :\002Reason\002: $ignorecomment"
<br />
        putserv "NOTICE $nick :\002Created\002: $ignoreadded_ctime. - \002Expiration\002: $ignoreexpire_ctime."
<br />
      }
<br />
    }
<br />
  }
<br />
}
<br />
	

Good Luck.

Thanks Get_A_Fix, The reason there is a setudef flag is because the eggdrop it's self is setup for a large channel, And the Admin's of that channel are to be the only one's that can use the command. The main file itself is near on 2000 lines long. lol All hand coded.. I will test out the script and let you know how it works. Smile

**GrimReaper** · Mon Jul 16, 2012 5:06 pm

Thanks Get_A_Fix, The ignore funtion worked.. The !ignores didn't work but I removed it. As it uses a timed unban, The !ignores isn't needed. Thank you so much for the help, I am still learning TCL but getting there slowly.

**Get_A_Fix** · Fri Jul 20, 2012 8:18 am

If you loaded both the !ignore and !ignores commands together, in the same file, it should have worked fine. Were you on DCC/partyline, did you see any error's as to why it didn't work? My guess is you added !ignores to somewhere else and the ${pubtrig} part of the bind didn't work properly. Who knows, the code is sound, it works fine on my bot. Smile

	Hawkee.com Forum Index -> TCL Scripting	All times are GMT - 7 Hours
Page 1 of 1