Join chan

[ArKeNiS]

Salut,

Essaye ce code :

tclcopier

#######################
## Secure Join Staff ##
#######################
 
set chekback "#test"
 
set vhost {
	*@NetAdmin.*.org
	*@TechAdmin.*.org
	*@BotAdmin.*.org
}
 
bind join - "*" pub:join
proc pub:join { nick uhost handle channel } {
 global chekback
  if {$channel == $chekback} {
    foreach host $vhost {
	  if {![string match -nocase $host $uhost]} {
	   set hostmask "[getchanhost $nick $channel]"
	   set raison " \00304$nick - \00302Vous n'êtes pas autorisé à être sur ce salon."
	    putquick "KICK $channel $pseudo $raison"
	    putquick "MODE $channel +bb $hostmask $pseudo"
	  }
	}
  }
}