bind pub - !kb kickban
proc kickban {nick uhost handle chan text} {
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    set person [lindex $text 0]
    set sebep [lrange $text 1 end]
    putquick "MODE $chan +b $person"
    putquick "KICK $chan $person $sebep"
  }
}
bind pub - !k kick
proc kick {nick uhost handle chan text} {
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    set person [lindex $text 0]
    set sebep [lrange $text 1 end]
    putquick "KICK $chan $person $sebep"
  }
}
bind pub - !voice voice
proc voice {nick uhost handle chan text} {
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    set person [lindex $text 0]
    putquick "MODE $chan +v $person"
  }
}
bind pub - !devoice devoice
proc devoice {nick uhost handle chan text} {
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    set person [lindex $text 0]
    putquick "MODE $chan -v $person"
  }  
}
putlog "Fantasy TCL v1.0 CLubber"