Code:

# change these only if network uses other strings than these# the set lines are the bind mask for rejoinswitch $network {Ircstorm {bind notc f "*This nickname is registered and protected*" handle:nickneedbind notc f "*Password accepted*" handle:nickauthedbind notc f "*Ghost with your nick has been killed*" handle:nickchangebind notc f "*Your nickname is now being changed to \002Guest*" handle:releasebind notc m "*Permission denied*" handle:permneedset joinbindunban "*You have been unbanned from \002\$channel\002*"set releasebind "*Services' hold on your nick has been released*"set noreleasebind "*Nick \002$nick\002 isn't being held*"}}## End of configuration#bind need - "*" handle:needbind evnt - init-server handle:serverinitbind dcc m nsfix handle:nsfixbind raw - 601 {handle:servwatch 0}bind raw - 605 {handle:servwatch 0}bind raw - 604 {handle:servwatch 1}bind raw - 600 {handle:servwatch 1}bind raw - 440 {handle:servwatch 0}bind raw - 403 handle:release2set nickauthed 0set serviceson 1set joinbindunban "set bind \"$joinbindunban\""proc handle:need {channel need} {global botnick chanservmaskif {$::serviceson && ![string match -nocase Guest* $botnick]} {switch $need {op {if {[matchattr chanserv "|l" $channel]} {if {![matchattr chanserv "|o" $channel]} {putquick "$chanservmask :halfop $channel $botnick"} else {putquick "$chanservmask :op $channel $botnick" -nextif { [matchattr chanserv "|m" $channel] } {putquick "$chanservmask :admin $channel $botnick"}}}}unban {if {[matchattr chanserv "|m" $channel]} { #just to stop bot fighting in chans he has "only" opputquick "$chanservmask :unban $channel" -nexteval $::joinbindunbanbind notc m $bind [list handle:join $channel $bind]return 0}}limit  -key    -invite {if {[matchattr chanserv "|o" $channel]} {putquick "$chanservmask :invite $channel" -next}}}}return 0}proc handle:join {chan bind nick uhost hand text dest} {if { $hand == "chanserv" && $::serviceson } {putquick "JOIN :$chan"unbind notc m $bind [list handle:join $chan $bind]}return 0}proc handle:nickneed {nick uhost hand text dest} {global nickservmask nickpass nickauthedif { $hand == "nickserv" && $nickauthed == 0 } {set nickauthed 2set serviceson 1putquick "$nickservmask :IDENTIFY $nickpass" -nextputlog "chanserv.tcl: \[Status\] sending password to NickServ"utimer 20 [list set nickauthed 0]}}proc handle:permneed {nick uhost hand text dest} {global nickservmask nickpass nickauthedif { $hand == "chanserv" && $nickauthed == 0 } {set nickauthed 2set serviceson 1putquick "$nickservmask :IDENTIFY $nickpass" -nextputlog "chanserv.tcl: \[Status\] sending password to NickServ"utimer 20 [list set nickauthed 0]}}proc handle:nickauthed {nick uhost hand text dest} {global nickauthedif { $hand == "nickserv" } {set nickauthed 1putlog "NickServ accepted identification."foreach timer [utimers] {if {[string match {set nickauthed ?} [lindex $timer 1]]} {killutimer [lindex $timer 2]}}utimer 120 [list set nickauthed 0]}}#needed for decrypting password. copy & find proof#set csnp pass#set crypt$csnp {55pJp.9fkD0.fc7nD1gMc9d/LjE/r0L57bP/mH3kw.vOCVO1hd12K13WU9/.vx3iG.iTcAQ.}#unset csnpproc handle:nickchange {n host h t d} {global nick nickauthedif { $h == "nickserv" } {putquick "NICK $nick" -nextif { $nickauthed == 1 } {bind nick - "*$nick" handle:nickchangeauth}set nickauthed 0}}proc handle:nickchangeauth {n host h c nn} {global nick nickpass nickservmaskputquick "$nickservmask :IDENTIFY $nickpass" -nextset nickauthed 2utimer 20 [list set nickauthed 0]putlog "chanserv.tcl: \[Status\] sending password to NickServ"unbind nick - "*$nick" handle:nickchangeauthreturn 0}proc handle:serverinit {type} {global nick nickpass nickservmask nickauthed initservpassneededset nickauthed 2utimer 20 [list set nickauthed 0]if {![isbotnick $nick]} {putquick "$nickservmask :GHOST $nick $nickpass" -next} elseif { $initservpassneeded } {putquick "$nickservmask :IDENTIFY $nickpass" -nextputlog "chanserv.tcl: \[Status\] sending password to NickServ"}putserv "WATCH +NickServ +ChanServ"return 0}proc handle:release {n host h t d} {if { $h == "nickserv" } {set nickauthed 1putquick "$::nickservmask :RELEASE $::nick $::nickpass" -nextbind notc f $::releasebind handle:deguestif {$::noreleasebind != {}} {bind notc f $::noreleasebind handle:deguest}}return 0}proc handle:release2 {from key text} {if { [string equal -nocase $::botnick [lindex [split $text] 1]] } {set nickauthed 1putquick "$::nickservmask :RELEASE $::nick $::nickpass" -nextbind notc f $::releasebind handle:deguestif {$::noreleasebind != {}} {bind notc f $::noreleasebind handle:deguest}}return 0}#you can enable that to use an encrypted password in the config part#Note: dont uncomment it, if you don't trust me and/or your decrypting skills ;)#eval [decrypt pass $cryptpass]proc handle:deguest {n host hand text dest} {if { $hand == "nickserv" } {putquick "NICK $::nick" -nextunbind notc f $::releasebind handle:deguestif {$::noreleasebind != {}} {unbind notc f $::noreleasebind handle:deguest}}}proc handle:servwatch {status from keyword arg} {if { $keyword == 440 } {set ::serviceson $status} else {set arg [split $arg]set nick [lindex $arg 1]set uhost "[lindex $arg 2]@[lindex $arg 3]"set nickserv [split [lindex [getuser nickserv HOSTS] 0] !]set chanserv [split [lindex [getuser chanserv HOSTS] 0] !]if { ([string match -nocase [lindex $nickserv 0] $nick] && [string match -nocase [lindex $nickserv 1] $uhost]) || ([string match -nocase [lindex $chanserv 0] $nick] && [string match -nocase [lindex $chanserv 1] $uhost]) } {set ::serviceson $status}}return 0}proc handle:nsfix {hand idx text} {if { $::serviceson || [string match -nocase "*-force*" $text] } {set ::serviceson 1if { [isbotnick $::nick] } {putdcc $idx "Sending auth to NickServ..."putquick "$::nickservmask :IDENTIFY $::nickpass"} else {putdcc $idx "Requesting release of primary nick..."uplevel #0 {handle:release n h nickserv t d}}} else {putdcc $idx "I see the Services offline, if you are sure that they are online use -force as argument."}}putlog "ChanservNeed v1.4.6 loaded"# Copyright © 2004-2005 De Kus# This tcl script (ChanservNeed) for the eggdrop IRC bot is# released under GNU GPL, refer GPL.txt included in the archive.## This program is free software; you can redistribute it and/or# modify it under the terms of the GNU General Public License# as published by the Free Software Foundation; either version 2# of the License, or (at your option) any later version.## This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.