Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 05/12/2013 19:24:15

bouba89
Nouveau IRCzien
Inscription : 31/07/2011
Messages : 48

probleme ajout user avec flag

bonjour a tous
j'essaye epertument de trouver la solution pour ajouter un user avec des flags par un tcl
celui-ci ne fonctionne pas et j'aimerai integrer l'ajout par host au lieu du nick met deja essayer plein de piste notamment le uhost mais cela n'a fait que ajouter mon host .

Code: TCL
 
 
set chanback "#back-radio"
set Nomback "radio"
 
 bind pub n .+anim Ajoutanim
proc Ajoutanim {nick uhost hand chan arg} {
   global botnick 
      set pseudo [lindex $arg 0]
    if {[validuser $pseudo]} {
      puthelp "NOTICE $hand :$pseudo est déja Ajouté Comme Anim"
      return 0
   }
   }
      adduser $nick $nick*!*@*
      chattr $nick +A
    putserv "PRIVMSG $::chanback : $nick fait maintenant partie de la Team Mid-Night $::Nomback ! Bienvenue. :) "
 
bind pub n .-anim Supressionanim
proc Supressionanim {nick host hand chan arg} {
   global botnick
      set pseudo [lindex $arg 0]
    if {![validuser $pseudo]} {
      puthelp "NOTICE $hand :$pseudo est déja supprimé"
      return 0
   }
      deluser [lindex $arg 0]
      chattr [lindex $arg 0] -A
      putquick "MODE $chan -o $pseudo"    
      putserv "PRIVMSG $::chanback : Deluse effectué $pseudo ne fait plus partie de la Team $::Nomback ! Bonne continuation."
}
 
 

Merci par avance

Cordialement

Dernière modification par bouba89 (05/12/2013 19:24:51)

Hors ligne

#2 05/12/2013 21:49:14

DnS
Nouveau IRCzien
Lieu : Dijon
Inscription : 20/06/2011
Messages : 13
Site Web

Re : probleme ajout user avec flag

Voici un bout de code que j'utilisé quand je m'occupé de ma webradio à l'époque. ce morceau est largement modifiable et améliorable.

Code: TCL
 
bind pub m .+dj AjoutDj
proc AjoutDj {nick uhost hand chan arg} {
	global botnick  
      set nick [lindex $arg 0]
	  if {$nick eq ""} {
	  putserv "PRIVMSG $chan :\002Erreur :\002 .+dj nick"; return}
      adduser $nick $nick*!*@*
      chattr $nick +D
      putserv "PRIVMSG $chan : $nick est maintenant Dj sur $::NomRadio ! Bienvenue. :) "
}
 
bind pub m .-dj SupressionDj
proc SupressionDj {nick uhost hand chan arg} {
	global botnick 
	if {![matchattr $hand mn]} {
	putserv "PRIVMSG $chan :Il ne vous est pas possible de suprimer un admin"
	return 0
	}
     set pseudo [lindex $arg 0]
	 if {$pseudo eq ""} {
	 putserv "PRIVMSG $chan :\002Erreur :\002 .-dj nick"; return}
	  deluser [lindex $arg 0] 
      putserv "PRIVMSG $chan : $pseudo n'est plus Dj sur $::NomRadio"
}
 

Cordialement

Hors ligne

#3 05/12/2013 23:32:15

Damien
Méchant Modérateur.
Lieu : Bruxelles
Inscription : 20/06/2011
Messages : 237
Site Web

Re : probleme ajout user avec flag

bouba89 a écrit :

celui-ci ne fonctionne pas et j'aimerai integrer l'ajout par host au lieu du nick met deja essayer plein de piste notamment le uhost mais cela n'a fait que ajouter mon host .

En français, ça donne ? "l'ajout par host" >> "notamment le uhost mais cela n'a fait que ajouter mon host ." c'est pas ce que tu voulais ? Ou j'ai pas compris.

Code: TCL
 
bind pub n .-anim Supressionanim
proc Supressionanim {nick host hand chan arg} {
   global botnick
      set pseudo [lindex $arg 0]
    [................]
      deluser [lindex $arg 0]
      chattr [lindex $arg 0] -A
      putquick "MODE $chan -o $pseudo"    
      putserv "PRIVMSG $::chanback : Deluse effectué $pseudo ne fait plus partie de la Team $::Nomback ! Bonne continuation."
}
 

Pourquoi tu set "pseudo" mais ensuite n'utilise plus "$pseudo" et mets des "[lindex $arg 0]" à la place, surtout pour réutiliser "$pseudo" ensuite?


En informatique il n'y a pas de mauvais outils, il n'y a que de mauvais utilisateurs. Le problème le plus récurrent est celui qui se trouve entre la chaise et le clavier.

Hors ligne

#4 06/12/2013 00:17:34

bouba89
Nouveau IRCzien
Inscription : 31/07/2011
Messages : 48

Re : probleme ajout user avec flag

merci a toi DnS smile

En français, ça donne ? "l'ajout par host" >> "notamment le uhost mais cela n'a fait que ajouter mon host ." c'est pas ce que tu voulais ? Ou j'ai pas compris.

ajout par host je voulais dire un .+adduser $nick!*@*$host  au lieu de $nick*!*@* mai cela ajouté mon "propre host" :x

et j'ai set pseudo pour " tester"

Dernière modification par bouba89 (06/12/2013 00:39:03)

Hors ligne

Pied de page des forums

455871 visites ( 271 aujourd'hui ) 6 visiteurs en ligne
Copyright © 2004 - 2013 IRCz