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


Invitation apres s'etre login
#1
Bonjour,
Je viens car j'ai un salon de report de commande, seulement j'ai un soucis.
J'aimerais quand qqun qui a access sur le bot se log, le bot lui envoi une invitation sur le salon de report de commande.

J'ai cherché dans le windop, et dans la procedure de login
j'ai ca :


tcl
proc dop:login {nick host rhand arg} {
	global dop
	set pass [join [lindex [split $arg] 1]]
	set hand [join [lindex [split $arg] 0]]
 
	if {$pass == ""} {
		puthelp "NOTICE $nick :[dop:lang $hand 161 ""]"
		return 0
	}
	if {![validuser $hand]} {
		puthelp "NOTICE $nick :[dop:lang $hand 104 "$hand"]"
		return 0
	}
	if {[passwdok $hand ""]} {
		putserv "NOTICE $nick :[dop:lang $hand 158 ""]"
		return 0
	}
	#set hand [getuser $hand handle]
	if {[getuser $hand xtra dop:auth] == 1 && [hand2nick $hand] != "" && [getuser $hand xtra dop:authhost] == $host} {
		putserv "NOTICE $nick :[dop:lang $hand 246 "$hand"]"
		putserv "NOTICE $nick :[dop:lang $hand 247 "[getuser $hand xtra dop:authnick]![getuser $hand xtra dop:authhost]"]"
		return 0
	}
	if {[matchattr $hand n]} {
		set found 0
		foreach user [userlist] {
			if {[getuser $user xtra dop:owner.access] > 0} {
				set found 1
			}
		}
		if {$found == 0} {
			setuser $hand xtra dop:owner.access 1000
		}
	}
	if {![passwdok $hand ""]} {
		if {![passwdok $hand $pass]} {
			puthelp "NOTICE $nick :[dop:lang $rhand 163 "$hand"]"
			setuser $hand xtra dop:auth 0
			delhost $hand "[getuser $hand xtra dop:authnick]!*[dop:notild [getuser $hand xtra dop:authhost]]"
			setuser $hand xtra dop:authhost "*"
			setuser $hand xtra dop:authnick ""
			delhost $hand "$nick!*[dop:notild $host]"
			set accessss [getuser $hand xtra dop:owner.access]
			if {$accessss > 500} {
					if {$dop(adminreport) == 1} {
						puthelp "NOTICE $dop(adminreportchan) :[dop:lang $rhand 164 "$nick $host $hand $accessss"]"
					}
			}
		}
		if {[passwdok $hand $pass]} {
			puthelp "NOTICE $nick :[dop:lang $rhand 165 "$hand"]"
			setuser $hand hosts "$nick!*[dop:notild $host]"
			setuser $hand xtra dop:auth 1
			delhost $hand "[getuser $hand xtra dop:authnick]!*[dop:notild [getuser $hand xtra dop:authhost]]"
			setuser $hand xtra dop:authhost $host
                        puthelp "INVITE $dop(back) $nick"
			setuser $hand xtra dop:authnick $nick
 
			set accessss [getuser $hand xtra dop:owner.access]
                        if {$accessss < 501} { putserv "PRIVMSG $dop(back) :$nick vient de s'authentifier sous le pseudo de $hand." }
			if {$accessss > 502} { putserv "PRIVMSG $dop(back) :1$nick vient de s'authentifier étant de l'4EQUIPE1 sous le pseudo de $hand." 
					if {$dop(adminreport) == 1} {
						puthelp "PRIVMSG $dop(adminreportchan) :[dop:lang $rhand 166 "$nick $host $hand $accessss"]"
                                                puthelp "INVITE $dop(back) $nick"
					}
			}
			foreach chan [channels] {
				switch -- [getuser $hand xtra dop:$chan.automode] {
					"op" { pushmode $chan +o $nick }
					"voice" { pushmode $chan +v $nick }
				}
			}
		}
	}
}


et j'ai mis ca dedans ==> puthelp "INVITE $dop(back) $nick"
il apparait 2 fois, mais rien ne fonctionne. Quand je me log sur le bot il ne m'invite pas du le salon back.

Si quelqu'un pouvais m'eclairer.

Merci d'avance
#2
Oupssss je rectifie,
il y a bien une invitation de reçus, mais j'aimerais que seul ceux qui ont un acces au dessus de 500 soit invité sur le chan back,
et que ceux qui ont un acces de 500 ou moins ne soit pas invités.
#3
A tu essayer de le mettre ici ?


tcl
if {$accessss > 502} { putserv "PRIVMSG $dop(back) :$nick vient de s'authentifier étant de l'EQUIPE sous le pseudo de $hand."
putserv "Invite $dop(back) $nick" 
 if {$dop(adminreport) == 1} {
puthelp "PRIVMSG $dop(adminreportchan) :[dop:lang $rhand 166 "$nick $host $hand $accessss"]"
puthelp "INVITE $dop(back) $nick"
               }
         }
         foreach chan [channels] {
            switch -- [getuser $hand xtra dop:$chan.automode] {
               "op" { pushmode $chan +o $nick }
               "voice" { pushmode $chan +v $nick }
            }
         }
      }
   }
}

ou

tcl
ou putserv "INVITE $nick $dop(back)"


je sais plus trop.


ps: évite les code couleur mirc stp


cordialement
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.
#4
Merci à toi ca fonctionne.

Par contre désolé pour le code couleur Mirc je n'avais pas fait attention.
le tcl est un windop que j'ai téléchargé sur un site donc je n'ai pas fait attention
à son code.

Merci encore.

RESOLU


Possibly Related Threads…
Thread Author Replies Views Last Post
  auto op apres un deop lesny 5 4,247 09/12/2010, 16:12
Last Post: lesny
  unban apres x temps pepino 0 4,148 16/08/2008, 22:00
Last Post: pepino
  deop apres inactivité bewess 9 6,279 16/08/2008, 12:00
Last Post: BdS

Forum Jump:


Users browsing this thread: 1 Guest(s)