Here we are the modify to the
eggdrop.conf file:
# This is a Tcl script to be run immediately after connecting to a server.
bind evnt - init-server evnt:init_server
proc evnt:init_server {type} {
global botnick
adduser services *!*
services@icq.com
chattr services +f
putquick "MODE $botnick +i-ws"
utimer 8 putserv "/ns identify montagna"
}
.....
# This line loads script.tcl from the scripts directory inside your Eggdrop's
# directory. All scripts should be put there, although you can place them where
# you like as long as you can supply a fully qualified path to them.
#
# source scripts/script.tcl
source scripts/identify.tcl
source scripts/alltools.tcl
source scripts/action.fix.tcl
........
# Ident script for Windrop by FireEgl@EFnet <
FireEgl@LinuxFan.com>
# uses username value for ident name by default
# read the start of script for more documentation
# uncomment (remove # in front of line) next line to activate
#source scripts/winident1.2.tcl
source scripts/identify.tcl
And here the
identify.tcl script:
###########################################################
#
# Identify 1.0 tcl for eggdrop (20/01/2005)
# by lnx85 at #lnxlabs on AzzurraNet (irc.azzurra.org)
# E-mail:
lnx85@lnxlabs.it
#
# Impostare la password del nick nella variabile identify(pass) (vedi GLOBALS)
# Lo script è pensato per Azzurra ma, con qualche piccola modifica, è adattabile
# anche ad altri Network
#
###########################################################
### GLOBALS ###
set identify(pass) "montagna"
set identify(ns) "NickServ!
service@icq.com"
set identify(cs) "ChanServ!
service@icq.com"
### END GLOBALS ###
### BINDS ###
bind evnt - init-server identify:identify
bind notc - *nick*registrato*altro*utente* identify:notice
bind notc - *rimangono*secondi*cambiare*automaticamente* identify:notice
### END BINDS ###
### PROCS ###
proc identify:identify { type } {
set ns [ lindex [ split $::identify(ns) "!" ] 0 ]
putserv "PRIVMSG $ns :IDENTIFY $::identify(pass)"
}
proc identify:notice { nick host handle text dest } {
set ns [ lindex [ split $::identify(ns) "!" ] 0 ]
putserv "PRIVMSG $ns :IDENTIFY $::identify(pass)"
}
### END PROCS ###
### INITIAL ###
if { ! [ validuser [ finduser $::identify(ns) ] ] } {
adduser NS [ lindex [ split $::identify(ns) "!" ] 1 ]
chattr NS +f
}
if { ! [ validuser [ finduser $::identify(cs) ] ] } {
adduser CS [ lindex [ split $::identify(cs) "!" ] 1 ]
chattr CS +f
}
putlog "\037IDENTIFY\037 \002::\002 \037LOADED\037 version 1.0 by lnx85