Identification automatique

[CrazyCat]

On demande souvent un script d'identification automatique sur les services Anope... Voici ce que j'utilise:

tclcopier

# CONFIGURATION
set nickserv "nickserv"; # Nick du NickServ
set pass "monpass"; # Pass du nick
 
bind evnt - "init-server" evnt:init_server
proc evnt:init_server {type} {
   global botnick nickserv pass username
   putserv "MODE $botnick +iB-ws"
   if {$botnick!=$username} {
      putquick "PRIVMSG $nickserv :GHOST $username $pass"
   }
   putquick "PRIVMSG $nickserv :IDENTIFY $pass"
   return 0
}
 
bind notc - "*IDENTIFY*" init:ident
proc init:ident {nick uhost handle text {dest ""}} {
   global botnick nickserv pass 
   if {$dest == ""} {
      set dest $botnick
   }
   putserv "PRIVMSG $nickserv :identify $pass"
   return 0
}
putlog "Initialization loaded"