[Demande] Demande De tcl !

[aliasangelius]

Salut,

Si je comprend bien ta demande : pseudo rejoint le salon #accueil et si le bot reconnais il le mais +o automatiquement ?

Je pense que tu pourrais voir du côté d'un code que j'avais fait corrigé par CrazyCat :

tclcopier

#*************************************************************#
# Tcl Service en cour de Création pour le réseau **********   #
#                                                             #
# By alias_angelius.                                          #
#*************************************************************#
 
namespace eval ::robot {
    package require msgcat
    package require Tcl 8.5
    # Ici ont met le salon ou ont désire mettre le auto-op/voice.
    variable sal "#accueil"
    # Ici ont mets le temps d'opage et de voice en secondes.
    variable opsec 3
    # Ici ont met le message pour le/les Robot(s)/users en msgcat.
    ::msgcat::mcset fr m0 "\0034Auto-voice et Auto-op accepter pour le Robot.\0034"
    # Langue qu'ont désire mettre pour msgcat.
    ::msgcat::mclocale fr
    # Ici ont met le flag que les robot/users doivent avoir pour l'auto-op/voice.
    variable xflag "I|I"
    # Auteur.
    variable veraut "Service.tcl V1.0 by alias_angelius."
    putlog "\002\0034$::robot::veraut\002\0034"
    
    # Procédure de Join sur le salon défini.
    proc robotjoin {nick host hand chan} {
        if {$nick == $::botnick} { return 0 }
        if { [string tolower $chan] ne [string tolower $::robot::sal] } { return 0 }
        if {![botisop $chan]} { return 0 }
        putserv "privmsg $::robot::sal :[::msgcat::mc m0]"
        utimer $::robot::opsec [list ::robot::verif $nick $chan]
        return 1
    }
    
    # Procédure d'auto-Voice/Op Robot.
    proc verif {nick chan} {
       if {[isop $nick $chan]} {return}
            putserv "mode $chan +ov $nick $nick"
    }
    
    # Package.
    if {[catch {package require Tcl 8.5}]} {
       putlog "\002auto-op-voice.tcl\002 : Vous avez besoin de Tcl en version 8.5 au moins pour pouvoir utiliser ce script."
       return
    }
    # Les binds.
    bind join $::robot::xflag "$::robot::sal *" [namespace current]::robotjoin
}

Edit : Tu n'es pas obliger de mettre de majuscules d'un salon pour que le robot reconnaisse celui ci.
Il et même conseiller de ne pas en mettre