alias _ykontrol {
  var %i 1 , %ret
  %yfile = yabanci textlerin oldugu dosya
  while %i <= $numtok($1-,32) {
    if $read(%yfile,w,$+(*,$gettok($1-,%i,32),*),1) {
      %ret = $calc(%ret + 1)
    }
    inc %i
  }
  if %ret >= 3 {
    return $true
  }
}

on *:text:*:#: {
  if $_ykontrol($strip($1-)) != $null {
    kick # $nick Yabanci dil konusmak yasaktir...
  }
}