Bonjour je cherche a faire que mon bot me demande en ctcp chat
bind msg - link dem-dcc
proc dem-dcc {nick host hand arg} {
listen 3341 users $host
set idx [connect $host 3341]
control $idx connection
}
proc connection {idx} {
}
voila mon souci je ne sait pas si je vais sur le bon chemin ou pas et je ne sait pas du tout comment crée la connection
Pourquoi pas simplement:
tclcopier
bind msg - link dcc:dem
proc dcc:dem { nick uhost handle text} {
puthelp "DCC CHAT $nick"
}
Et je ne vois pas l'intérêt de faire une telle procédure en fait. Tu as deux commandes pour joindre la party-line:
/dcc chat eggdrop <-- tu instancies une demande de connexion
/ctcp eggdrop chat <-- tu demandes à l'eggdrop d'instancier la connexion. C'est exactement ce que tu veux faire avec ton script.
en fait je veux que mon bot me demande la pl lors du /msg bot auth login pass . c'est donc pour cela que je veux faire ce genre de chose .
puthelp "DCC CHAT $nick" n'a pas l'air de fonctionné
peut tu nous montré la parti code du auth du TCL ?
voici mon code de auth : je précise que c'est en socket .
nick correspond a $user
tclcopier
"auth" {
############
### AUTH ###
############
set login [ lindex $arg 2 ]
set pass [ lindex $arg 3 ]
set curtime [ clock seconds]
set expdatestr [ clock format $curtime -format "%d/%m/%Y à %H:%M:%S" ]
set com "Auth"
set com1 "AUTH"
if { $pass == "" } {
putdcc $scb ( idx) ":$scb(pseudo) NOTICE $user :Syntaxe : /msg $scb(pseudo) $com <Pseudo> <Pass>"
if { $scb ( retour-cmds) == "OUI" } {
putdcc $scb ( idx) ":$scb(pseudo) PRIVMSG $scb(salonretour) :$com : $user Utilise $com1 Refusé => Mauvaise Syntaxe)"
}
return
}
if { [ validuser $login ] } {
if { [ matchattr $login E] } {
putdcc $scb ( idx) ":$scb(pseudo) NOTICE $user :$com1 Refusé => (Déjà $com1)"
if { $scb ( retour-cmds) == "OUI" } {
putdcc $scb ( idx) ":$scb(pseudo) PRIVMSG $scb(salonretour) :$com : $user Utilise $com1 (Refusé => Déjà $com1)"
}
return
}
if { ! [ passwdok $login $pass ] } {
putdcc $scb ( idx) ":$scb(pseudo) NOTICE $user :$com1 Refusé => (Pass Incorect)"
if { $scb ( retour-cmds) == "OUI" } {
putdcc $scb ( idx) ":$scb(pseudo) PRIVMSG $scb(salonretour) :$com : $user Utilise $com1 (Refusé => Mot De Pass Incorect)"
}
return
}
putdcc $scb ( idx) ":$scb(pseudo) SVSMODE $user +Wh"
if { $scb ( retour-cmds) == "OUI" } {
putdcc $scb ( idx) ":$scb(pseudo) PRIVMSG $scb(salonretour) :$com : $com1 De $user"
putdcc $scb ( idx) ":$scb(pseudo) PRIVMSG $scb(salonretour) :UserMode : Je Met $user Helpeur (+Wh)"
}
setuser $login xtra UPTIME $expdatestr
chattr $login +E
if { ! [ info exists uminfo( $user ) ] } {
set uminfo( $user ) $login
} else {
set uminfo( $user ) $login
}
if { ! [ info exists logins( $user ) ] } {
set logins( $user ) $login
}
if { [ info exists logins( $user ) ] } {
set logins( $user ) $login
}
putdcc $scb ( idx) ":$scb(pseudo) NOTICE $user :$com1 Réussie => (Bienvenue Sur $scb(pseudo) Service)"
} else {
putdcc $scb ( idx) ":$scb(pseudo) NOTICE $user :$com1 Refusé => (Aucun Acces)"
if { $scb ( retour-cmds) == "OUI" } {
putdcc $scb ( idx) ":$scb(pseudo) PRIVMSG $scb(salonretour) :$com : $user Se $com1 (Refusé => Aucun Acces)"
}
return
}
}