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


Effectuer une demande de ctcp chat via l'egg
#1
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
#2
Pourquoi pas simplement:

tcl
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.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
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é :(
#4
peut tu nous montré la parti code du auth du TCL ?
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#5
voici mon code de auth : je précise que c'est en socket .
nick correspond a $user

tcl
"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
     }   
     }



Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] Script 'piège' (Kick à la demande avec compteur de victime) Utas 6 7,061 21/12/2011, 11:24
Last Post: loulou7593
  command ctcp sur un salon lesny 12 5,544 15/06/2011, 11:22
Last Post: fedora
  Mon bot me fais une demande de dcc chat loulou7593 7 3,710 08/12/2009, 14:19
Last Post: snoopy

Forum Jump:


Users browsing this thread: 1 Guest(s)