30/07/2024, 11:16
Bonjour,
Je laisse un message pour une aide concernant mon tcl
Il bannit bien l'host, mais, je cherche a bannir l'ident également sous forme : *!blabla@*
Dans ce que je vais vous mettre ci-dessous, il bannit mon propre ident.
}
Si quelqu'un trouve l'erreur ou veut bien m'aider/guider..
Merci d'avance !
Je laisse un message pour une aide concernant mon tcl
Il bannit bien l'host, mais, je cherche a bannir l'ident également sous forme : *!blabla@*
Dans ce que je vais vous mettre ci-dessous, il bannit mon propre ident.
tcl
bind pub - !kbapp kbapp
proc kbapp {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE $nick tu n'as pas accés à cette commande"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
if {![onchan $vnick $chan]} { putquick "NOTICE $nick :\00312 [Erreur] $vnick n'est pas sur $chan"; return 0}
set vhost [lindex [split [getchanhost $vnick $chan] "@"] 1]
set uident [string trimleft [lindex [split $uhost "@"] 0]]
putserv "MODE $chan +b *!$uident@*"
putquick "PRIVMSG chanserv ban $chan $vnick Pas de pub pour les applications. ($nick)"
putquick "PRIVMSG BOTSERV say $chan Info: $vnick est banni(e) de $chan pour la raison suivante: Publicité Interdite. (Par $nick)"
putquick "PRIVMSG #Back-Tentation KickBan Applications Pseudo: $vnick sur $chan par $nick"
return
} else {
puthelp "NOTICE $nick Pseudo Incorrecte"
return
}
}
Si quelqu'un trouve l'erreur ou veut bien m'aider/guider..
Merci d'avance !