GreatPapillon wrote:Code: Select all
chattr [nick2hand $nick] +dk-p
Code: Select all
set hostban "*!*[string range $uhost [string first "@" $uhost] end]"Code: Select all
adduser $nick *!$uhost
chattr [nick2hand $nick] +d-p
set hostban "*!*[string range $uhost [string first "@" $uhost] end]"
set globban "newban $hostban nocolors.tcl nocolors 1440 sticky"
putkick $chan $nick "no colors !!!"
utimer 1 $globbanCode: Select all
set addhost [lindex [split $uhost @] 0]@[lindex [split [maskhost $uhost] @] 1]
adduser $nick *!$addhost
chattr [nick2hand $nick] +d-p
set hostban "*!*[string range $uhost [string first "@" $uhost] end]"thank youPapillon wrote:try thisCode: Select all
set addhost [lindex [split $uhost @] 0]@[lindex [split [maskhost $uhost] @] 1] adduser $nick *!$addhost chattr [nick2hand $nick] +d-p set hostban "*!*[string range $uhost [string first "@" $uhost] end]"
Code: Select all
boot [nick2hand $nick@*]