22/06/2008, 13:48
CrazyCat a écrit :On demande souvent un script d'identification automatique sur les services Anope... Voici ce que j'utilise:
tcl
# 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"