Code:
### SCRIPT##proc sorry:kick {nick host handle channel target reason} { global sorry if {![isbotnick $target]} { set target-host "$target![getchanhost $target]" set sorry($channel) "kick,$target,${target-host},[clock seconds],$reason" set sorry(kick:$channel) "$target,${target-host},[clock seconds],$reason" putloglev 1 * "sorry.tcl: added kick on $channel for '${target-host}' ($reason)" return }}proc sorry:mode {nick host handle channel mode target} { global sorry set target-nick [findnicks "$target" "$channel"] if {(${target-nick} != "") && (![isbotnick ${target-nick}])} { set target-host "${target-nick}![getchanhost ${target-nick}]" set sorry($channel) "ban,{$target-nick},${target-host},$target,[clock seconds],$nick" set sorry(ban:$channel) "${target-nick},${target-host},$target,[clock seconds],$nick" putloglev 1 * "sorry.tcl: added ban on $channel for '${target-host}' ($target)" return }}proc sorry:raw {from key text} { global sorry set _target [lindex [split $text] 1] if {[info exists sorry(invite:$_target)]} { puthelp "PRIVMSG $sorry(invite:$_target) :\001ACTION detected that $_target has left\001" putloglev 1 * "sorry.tcl: recived 401 from server, invite of $_target to $sorry(invite:$_target) has failed." return }}proc sorry:pub {nick host handle channel text} { global sorry if {![info exists sorry($channel)]} { puthelp "NOTICE $nick :Sorry, i have not been able to detect any kicks or bans in $channel" return 0 } if {[llength $text] == 0} { regsub -all "," "$sorry($channel)" " " string switch -- [lindex $string 0] { "kick" { set a [lindex $string 1]; set b [lindex $string 3]; set c [join [lrange $string 4 end]] puthelp "NOTICE $nick :inviting $a to $channel after being kicked [duration [expr {[clock seconds]-$b}]] ago for $c" set sorry(invite:$a) "$channel" puthelp "INVITE $a $channel" return 1 } "ban" { set a [lindex $string 1]; set b [lindex $string 3]; set c [lindex $string 4]; set d [lindex $string 5] puthelp "NOTICE $nick :inviting $a to $channel after being banned by $b [duration [expr {[clock seconds]-$c}]] ago by $d" if {[sorryBAN "$b" "$channel"]} { set sorry(invite:$a) "$channel" putserv "INVITE $a $channel" return 1 } else { puthelp "NOTICE $nick :unable to remove the ban $b" return 0 } } } } switch -- [lindex $text 0] { "-kick" { if {[info exists sorry(kick:$channel)]} { regsub -all "," "$sorry(kick:$channel)" " " string set _nick [lindex $string 0]; set _ktime [lindex $string 2]; set _kwhy [join [lrange $string 3 end]] puthelp "NOTICE $nick :Inviting $_nick to $channel after being kicked [duration [expr {[clock seconds]-$_ktime}]] ago for $_kwhy" set sorry(invite:$_nick) "$channel" putserv "INVITE $_nick $channel" return 1 } else { puthelp "NOTICE $nick :I was unable to detect the last kick on $channel, sorry." return 0 } } "-ban" { if {[info exists sorry(ban:$channel)]} { regsub -all "," "$sorry(ban:$channel)" " " string set _nick [lindex $string 0]; set _btime [lindex $string 3]; set _bmask [lindex $string 2]; set _bby [lindex $string 4] puthelp "NOTICE $nick :Inviting $_nick to $channel after they have been banned by $_bmask [duration [expr {[clock seconds]-$_btime}]] ago by $_bby" if {[sorryBAN "$_bmask" "$channel"]} { set sorry(invite:$_nick) "$channel" putserv "INVITE $_nick $channel" return 1 } else { puthelp "NOTICE $nick :sorry, i have not been able to remove the ban $_bmask. You try removing it!" return 0 } } else { puthelp "NOTICE $nick :I was unable to detect the last ban on $channel, sorry." return 0 } } default { puthelp "NOTICE $nick :Syntax: \002!sorry\002 <-kick/-ban>" puthelp "NOTICE $nick :Removes the last kick or ban and invites the user to join the channel" puthelp "NOTICE $nick :if you use the \002-kick\002 option, only the last user kicked will be invited" puthelp "NOTICE $nick :if you use the \002-ban\002 option, only the last user banned will be invited" return 1 } }}proc sorryBAN {host channel} { if {[isban "$host"]} { if {[killban "$host"]} { return 1 } else { return 0 } } elseif {[isban "$host" "$channel"]} { if {[killchanban "$channel" "$host"]} { return 1 } else { return 0 } } elseif {[ischanban "$host" "$channel"]} { pushmode $channel -b $host return 1 } else { # we are just going to assume its been removed by someone else return 1 }} bind pub o|o !sorry sorry:pub bind raw - 401 sorry:raw bind mode - "*+b*" sorry:mode bind kick - "*" sorry:kick putlog "loaded sorry.tcl version 1.0(b) by TCL_no_TK" return
could be betta 
Statistics: Posted by TCL_no_TK — Sun Jul 26, 2009 3:59 pm
]]>