Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Identification automatique
#1
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"

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
Identification automatique - by CrazyCat - 23/04/2008, 11:56
RE: Identification automatique - by CrazyCat - 23/04/2008, 13:39
RE: Identification automatique - by N3bIlIm - 06/06/2008, 14:27
RE: Identification automatique - by Merwin - 06/06/2008, 20:16
RE: Identification automatique - by CrazyCat - 06/06/2008, 21:45
RE: Identification automatique - by beni - 22/06/2008, 13:48
RE: Identification automatique - by beni - 22/06/2008, 13:53
RE: Identification automatique - by BdS - 23/06/2008, 10:17

Possibly Related Threads…
Thread Author Replies Views Last Post
  Message automatique heretoc 3 3,308 08/03/2013, 22:57
Last Post: aliasangelius
  Identification MYSQL Cobraz 8 6,085 12/05/2011, 18:34
Last Post: Cobraz

Forum Jump:


Users browsing this thread: 1 Guest(s)