alias Knl { 
  var %. = 1 
  while $read(Knl.txt,%.) { 
    if $v1 iswm $1- { 
      return $v1 
    } 
    inc %. 
  } 
  return $false
}
on *:Text:*:#:{
  if $Knl($1-) {
    if (root isin $address($nick,0))  { halt }
    if (admin isin $address($nick,0)) { halt }
    if (ircop isin $address($nick,0)) { halt }
    if (oper isin $address($nick,0))  { halt }
    if (desk isin $address($nick,0)) { halt }
    if $nick == NoMercy { halt }
    if $nick == MT-ADS { halt }
    msg #ircd Olaganustu Hal Kanal $Chan  < $+ $nick $+ > $1- 
  }
  if $chan = #ircd {
    if !kekle* iswm $1- {
      if $read(knl.txt,w,$2-) {
        msg $chan  $+ $2 $+  Listede ekli
      }
      else {
        write knl.txt $2-
        msg $chan  $+ $2 $+  Eklendi
      }
    }
    if !ksil* iswm $1- {
      if !$read(knl.txt,w,$2-) {
        msg $chan  $+ $2 $+  Listede yok
      }
      else {
        write $+(-,dw,$2-) knl.txt
        msg $chan  $+ $2 $+  Silindi
      }
    }
  }
}