# init_anope.tcl 1.0 # # Auto-ident on NickServ (Anope) # # Author: CrazyCat # http://www.eggdrop.fr # irc.zeolia.net #eggdrop ## DESCRIPTION ## # # This TCL auto-ident the eggdrop when using Anope Services # ## CONFIGURATION ## # Name of the NickServ set ini_NS "nickserv" # Password on NickServ set botpass "mypass" ############################################################ # # The TCL begins here, if you don't know what to do, don't do anything :) # ############################################################ bind evnt - "init-server" evnt:init_server proc evnt:init_server {type} { putserv "MODE $::botnick +iB-ws" putquick "PRIVMSG $::ini_NS :IDENTIFY $::botpass" return 0 } bind notc - "*IDENTIFY*" init:ident proc init:ident {nick uhost handle text {dest ""}} { if {$dest == ""} { set dest $::botnick } putserv "PRIVMSG $::ini_NS :identify $::botpass" return 0 } putlog "Initialization loaded"