19/12/2009, 01:39
tcl
bind pub - !tbm tbm
proc tbm {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
set timeb [lindex $args 2]
if {![onchan $vnick $chan]} { putquick "NOTICE"}
set vhost [lindex [split [getchanhost $vnick $chan] "@"]]
putquick "MODE $chan +b $vhost"
putquick "mode $chan -v $vnick"
timer $timeb [list eban $vhost]
return
} else {
puthelp "NOTICE"
return
}
}
Je ne trouve pas le moyen de deban avec le timer apres le temps donner avec $timeb
?? :/