Code:

# Fully Automated Away Detection by speechles# Egghelp version v1.4 - tested and working.. yay!!# Donate to slennox @ egghelp.org if you like this script!# Fully automatic, you configure nothing.# The script will decide based upon the length of the nicklist# or the length of user input on which to scan with, it will# use whichever is shorter which makes it faster, enjoy.# MAKE SURE TO .chanset #yourchan +checkaway# afterwards the script will function in #yourchan# revision history# v1.4 - added a single config option to enter characters#        that need to be stripped from text that are#        placed up against nicknames.# v1.3 - added idle time duration to the away message reply# v1.2 - now wont react if that nickname is away and#        mentions their own nickname in channel. This prevents#        public away messages, etc from making this script#        spam channels.# v1.1 - now fully automated, no more checklist# v1.0 - scripted using checklist user sets in config.# set the characters you wish to strip when prefixed or# appended to nicknames# ----variable auto_strip ":;,.?"# SCRIPT begins: there is no config this is 100% automatic.# -------------# initialize the global variablesvariable checknick ""variable checkchan ""# flag to control behavior per channelsetudef flag checkaway# bind to raw reply concerning away status of whoisbind RAW  -|-  301 checkaway# bind to everything said in channelbind pubm -|- * checkcriteria# check which token to whois phrased from user input.# if we have a match, discern which token to evaluate as nick# and if they are indeed on the channel issue a whois requestproc checkcriteria {nick uhost hand chan text} {   if {[lsearch -exact [channel info $chan] +checkaway] == -1} { return }   set ::checkchan $chan   set ::checknick ""   if {[llength [chanlist $chan]] < [llength [split $text]]} {      foreach n [chanlist $chan] {         if {[lsearch [split [string tolower $text]] "*[string tolower $n]*"] != -1} {            if {[string equal [string length $n] [string length [string trim [lindex [split $text] [lsearch [split [string tolower $text]] [string tolower $n]]] $::auto_strip]]]} {               set ::checknick $n               break            }         }      }   } else {      foreach n [split $text] {         if {[lsearch [split [string tolower [join [chanlist $chan]]]] [string trim [string tolower $n] $::auto_strip]] != -1} {            set ::checknick [string trim $n $::auto_strip]            break         }      }   }   if {[string length $::checknick] && ![string equal -nocase $n $nick] && [onchan $::checknick $chan]} {      putserv "WHOIS $::checknick"   }}# interpret the whois request and make sure the nick requested matches# the whois reply we are searching for. If the person is not away, a 301# will not be sent, and the whois will be ignored as per requested.proc checkaway {from key text} {   if {![string match -nocase [lindex [split $text] 1] $::checknick]} { return }   putserv "privmsg $::checkchan :[lindex [split $text] 1] is away: [string range [join [lrange [split $text] 2 end]] 1 end] (idle: [duration [expr {[getchanidle $::checknick $::checkchan] * 60}]])"   set ::checknick ""}putlog "Automated away detection v1.4 has been loaded."

Code:

if {[string length $::checknick] && ![string equal -nocase $n $nick] && [onchan $::checknick $chan]} { 

Code:

# Fully Automated Away Detection by speechles# Egghelp version v1.1 - tested and working.. yay!!# Donate to slennox @ egghelp.org if you like this script!# Fully automatic, you configure nothing.# The script will decide based upon the length of the nicklist# or the length of user input on which to scan with, it will# use whichever is shorter which makes it faster, enjoy.# MAKE SURE TO .chanset #yourchan +checkaway# afterwards the script will function in #yourchan# revision history# v1.1 - now fully automated, no more checklist# v1.0 - scripted using checklist user sets in config.# SCRIPT begins# initialize the global variablesvariable checknick ""variable checkchan ""# flag to control behavior per channelsetudef flag checkaway# bind to raw reply concerning away status of whoisbind RAW  -|-  301 checkaway# bind to everything said in channelbind pubm -|- * checkcriteria# check checklist against user input# if we have a match, discern which token to evaluate as nick# and if they are indeed on the channel issue a whois requestproc checkcriteria {nick uhost hand chan text} {   if {[lsearch -exact [channel info $chan] +checkaway] == -1} { return }   set ::checkchan $chan   set ::checknick ""   if {[llength [chanlist $chan]] < [llength [split $text]]} {      foreach n [chanlist $chan] {         if {[lsearch [split [string tolower $text]] [string tolower $n]] != -1} {            if {[string equal [string length $n] [string length [lindex [split $text] [lsearch [split [string tolower $text]] [string tolower $n]]]]]} {               set ::checknick $n               break            }         }      }   } else {      foreach n [split $text] {         if {[lsearch [split [string tolower [join [chanlist $chan]]]] [string tolower $n]] != -1} {            set ::checknick $n            break         }      }   }   if {[string length $::checknick] > 0 && [onchan $::checknick $chan]} {      putserv "WHOIS $::checknick"   } }# interpret the whois request and make sure the nick requested matches# the whois reply we are searching for. If the person is not away, a 301# will not be sent, and the whois will be ignored as per requested.proc checkaway {from key text} {   if {![string match -nocase [lindex [split $text] 1] $::checknick]} { return }   putserv "privmsg $::checkchan :[lindex [split $text] 1] is away: [string range [join [lrange [split $text] 2 end]] 1 end]"   set ::checknick ""}putlog "*.Automated Away Detection v1.1* Loaded"

Code:

putserv "privmsg $::checkchan :[lindex [split $text] 1] is away [join [lrange [split $text] 2 end]]" 

Code:

putserv "privmsg $::checkchan :[lindex [split $text] 1] is away: [string range [join [lrange [split $text] 2 end]] 1 end]" 

Code:

":"

Code:

[join [lrange [split $text] 2 end]] ":"]"

Code:

# Fully Automated Away Detection by speechles# Egghelp version v1.0 - tested and working.. yay!!# Donate to slennox @ egghelp.org if you like this script!# Fully automatic, you configure nothing.# The script will decide based upon the length of the nicklist# or the length of user input on which to scan with, it will# use whichever is shorter which makes it faster, enjoy.# SCRIPT begins# initialize the global variablesvariable checknick ""variable checkchan ""# flag to control behavior per channelsetudef flag checknames# bind to raw reply concerning away status of whoisbind RAW  -|-  301 checkaway# bind to everything said in channelbind pubm -|- * checkcriteria# check which list is shorter, nicklist or text length# and use that to scan for similarity and issue the whoisproc checkcriteria {nick uhost hand chan text} {   if {![channel get $chan checknames]} { return }   set ::checkchan $chan   set ::checknick ""   if {[llength [chanlist $chan]] < [llength [split $text]]} {      foreach n [chanlist $chan] {         if {[lsearch [split [string tolower $text]] [string tolower $n]] != -1} {            if {[string equal [string length $n] [string length [lindex [split $text] [lsearch [split [string tolower $text]] [string tolower $n]]]]]} {               set ::checknick $n               break            }         }      }   } else {      foreach n [split $text] {         # the join and split are used to emulate the behavior         # of the -nocase switch which isn't allowed during lsearch         # you can't string tolower a list, hence the join and split ;)         if {[lsearch [split [string tolower [join [chanlist $chan]]]] [string tolower $n]] != -1} {            set ::checknick $n            break         }      }   }   if {[string length $::checknick] > 0 && [onchan $::checknick $chan]} {      putserv "WHOIS $::checknick"   } }# interpret the whois request and make sure the nick requested matches# the whois reply we are searching for. If the person is not away, a 301# will not be sent, and the whois will be ignored as per requested.proc checkaway {from key text} {   if {![string match -nocase [lindex [split $text] 1] $::checknick]} { return }   putserv "privmsg $::checkchan :[lindex [split $text] 1] is away: [string range [join [lrange [split $text] 2 end]] 1 end]"   set ::checknick ""}putlog "Fully Automated Away Detection loaded."