Statistics: Posted by LB_1981 — Sun Jun 21, 2009 5:59 pm

Statistics: Posted by speechles — Fri Jun 19, 2009 5:46 pm

Statistics: Posted by LB_1981 — Fri Jun 19, 2009 6:17 am

Statistics: Posted by speechles — Fri Jun 19, 2009 5:28 am

Many thanks for your reply and help the nicks are being added to the list but are not being tempshunned on connect i just need it to tempshun not akill

That is because I messed up on the regsub, which changes the %nick in your akillcommand line into the correct nickname. I've corrected it in the script above so using it now will work and tempshun that user.

Don't mistake the word "akillist" to mean it's going to akill them. This is merely a variable name. The action taken will be the command you put into akillcommand. As you notice, the exact command you gave is what is presently there.

Statistics: Posted by LB_1981 — Fri Jun 19, 2009 4:38 am

Statistics: Posted by speechles — Thu Jun 18, 2009 9:18 pm

Code:

# Shun fun v1.0 by speechles# egghelp.org version... yay!# if you like this script donate to slennox :P## SETTINGS BEGIN# change this to where the file should be created# which will keep a backup of the contents kept in# memory, so you can rehash, restart, die# and everything stored will be loaded back into# memory.# ---variable shunned "shunlist.txt"# what should be sent to the server when a user# is detected within your shunned list?# %nick will be replaced with the nickname of the# shunned user.# ---variable akillcommand "TEMPSHUN %nick :Auto Tempshun undesirable user detected"# what channel should new shun additions/removals# be echoed to? change this to "" if you dont want# to echo to a channel.# ---variable shunechochan "#cwstats"# -------------------------------------------------------------------# keep in mind ONLY masters/owners may add, remove or list the# shunned nicks. change the binds below from mn|mn to what you# wish them to be if this doesn't float your boat. It also works via# private message with the bot, and bot replies in notices.# !addshun !delshun !listshun are your commands available.# -------------------------------------------------------------------## SCRIPT BEGINS# does our memory backup file exist?if {![file exists $shunned]} {  # no create a blank one to start with  set shunfile [open $shunned w]  # blank our memory to match  set akilllist [list]  close $shunfile} else {  # yes, open the backup and read it into memory  set shunfile [open $shunned r]  set akilllist [split [read $shunfile] "\n"]   close $shunfile}# bindsbind raw - NOTICE client:connectbind msg mn|mn !addshun client:shunbind msg mn|mn !delshun client:deshunbind msg mn|mn !listshun client:listshun# connecting usersproc client:connect {from keyword text} {  # is the message the one we want?  if {[string match -nocase "*Client connecting on port*" $text]} {    # acquire the nickname    set usernick [string tolower [lindex [split $text] 9]]    # is this nickname to be akilled?    if {[lsearch -exact $::akilllist $usernick] != -1} {      # yes, correct the placeholder in akillcommand      regsub "%nick" $::akillcommand $usernick akill      # issue the akill      putserv "$akill"      if {[string length $::shunechochan]} {        putserv "privmsg $::shunechochan :$usernick has been autotempshunned - undesirable user detected."      }    }  }}# add shunproc client:shun {nick uhost hand text} {  if {![string length [set shun [string tolower [lindex [split $text] 0]]]]} {    putserv "notice $nick :Please supply a nickname to shun."    return  }  # append nickname to backup file  set shunfile [open $::shunned a]  puts $shunfile $shun  close $shunfile  # add the nickname to memory  lappend ::akilllist $shun  # report success  putserv "notice $nick :$shun was successfully added."  if {[string length $::shunechochan]} {    putserv "privmsg $::shunechochan :$nick has added $shun to the shun list."  }}# remove shunproc client:deshun {nick uhost hand text} {  if {![string length [set shun [string tolower [lindex [split $text] 0]]]]} {    putserv "notice $nick :Please supply a nickname to unshun."    return  }  # is the nick even in memory?  if {[set pos [lsearch -exact $::akilllist $shun]] != -1} {    # yes, remove it from memory    set ::akilllist [lreplace $::akilllist $pos $pos]    # write new backup file    open shunfile [open $::shunned w]    foreach nick $::akilllist {      puts $shunfile $nick    }    close $shunfile    # report success    putserv "notice $nick :$shun was successfully removed."    if {[string length $::shunechochan]} {      putserv "privmsg $::shunechochan :$nick has removed $shun from the shun list."    }  } else {    # no, the nickname isn't in our list.    putserv "notice $nick :$shun is not in the list. Use !listshun to see the list."    if {[string length $::shunechochan]} {      putserv "privmsg $::shunechochan :$nick attempted to remove $shun from the shun list but $shun is not in the shun list. "    }  }}# list shunproc client:listshun {nick uhost hand text} {  # build a header for our list response.  putserv "notice $nick :Shunlist is as follows:"  # recurse through the nicknames 10 per line and spam them.  for {set n 0} {$n<[expr {[llength $::akilllist] +1}]} {incr n 10} {    putserv "notice $nick :[join [lrange $::akilllist $n [expr {$n + 9}]] ", "]"  }}

Statistics: Posted by speechles — Thu Jun 18, 2009 6:12 pm

set akillnicks {   "nick1"   "nick2"   "nick3"   "etc." } bind raw - NOTICE client:connect proc client:connect {from keyword args} {   global akillnicks   if {[string match "*Client connecting on port*" $args]} {     set usernick [lindex [split $args] 9]     foreach nick $akillnicks {       if {[string equal -nocase $nick $usernick]} {         # your akill thing here         break       }     }   } } 

set tempnicks { "nickt" } bind raw - NOTICE client:connect proc client:connect {from keyword args} { global tempshunnicks if {[string match "*Client connecting on port*" $args]} { set usernick [lindex [split $args] 9] foreach nick $tempshunnicks { if {[string equal -nocase $nick $usernick]} { putserv "TEMPSHUN $nick :Auto Tempshun undesirable user detected"} } } } 

Statistics: Posted by LB_1981 — Thu Jun 18, 2009 9:16 am