alias F5 {
cs ban #sohbet $$1
cs ban #muhabbet $$1
}

var %t = $chan(0) | while %t {
    mode $chan(%t) +b $$1
    kick $chan(%t) $$1 Yasak vs. vs.
   dec %t
}

var %t = $chan(0) | while %t {
  if $regex($nick($chan(%t),$me).pnick,/[%@&~.]/) {
    mode $chan(%t) +b $$1
    kick $chan(%t) $$1 Yasak vs. vs.
  }
  dec %t
}

var %t = $chan(0) | while %t {
  if $regex($nick($chan(%t),$me).pnick,/[%@&~.]/) && ($$1 ison $chan(%t)) {
    mode $chan(%t) +b $$1
    kick $chan(%t) $$1 Yasak vs. vs.
  }
  dec %t
}

alias f1 {
  var %t = $chan(0) | while %t {
    if $regex($nick($chan(%t),$me).pnick,/[%@&~.]/) && ($$1 ison $chan(%t)) {
      mode $chan(%t) +b $$1
      kick $chan(%t) $$1 Yasak vs. vs.
    }
    dec %t
  }
}

on 1:input:*:{ 
  if !$regex($1,/(\.|!|\/)/) || ($ctrlenter) {
    var %^ = 1, %'
    while %^ <= $0 { 
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+($chr(3),02,$chr(2),$gettok($1-,%^,32),$chr(2),$chr(3)),$iif($+(:,$chr(41),*) iswm $gettok($1-,%^,32),$+($chr(3),04,$left($gettok($1-,%^,32),1),$chr(3),$right($gettok($1-,%^,32),-1)),$gettok($1-,%^,32)))
      inc %^
    }
    say %'
    halt
  }
}