on $*:text:/^[.!]tblock/Si:#:{
  if ($nick isop $chan) && $2 {
    mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42))) 
  }
}

on *:input:#:{
  if ($me isop $chan) && $2 {
    if $regex($1,/^[!\.]tblock$/Si) {
      .timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42))) 
    }
  }
}

on *:input:#:{ 
 if $regex($1,/^[!\.]tblock$/Si) && $2 { 
.timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
 } 
}

alias tblock {
  var %nt = 1
  while %nt <= $comchan($me,0) {
    mode $comchan($me,%nt) +b ~T:block: $+ $iif($chr(42) isin $1,$1,$+($chr(42),$1,$chr(42)))
    inc %nt
  }
}

/alias f11 /mode # +b $+(~T:block:*,$$?="t.block.",*) 
F11'e basınca çıkan kutuya kelimeleri ekle yeterli. @& hariç yasakladığın kelimeyi kullanamazlar.

on *:text:*:#:{ 
  if $nick isop # {
  if $regex($1,/[!.]tblock/Si) { 
      mode #bizimmekan +b $+(~T:block:,*,$$2,*,)
       msg $chan  $$2  Kelimesi Blocklandı.
    }
  }
}