alias rklm { 
  var %. = 1 
  while $read(rklm.txt,%.) { 
    if $v1 iswm $1- { 
      return $v1 
    } 
    inc %. 
  } 
  return $false
}
on *:Text:*:?:{
  if $rklm($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 }
       msg #ircd Bot/Inviter/Trojan $nick < $+ $nick $+ > $1- 
  }
}
on *:Text:*:#ircd:{
  if !ekle* iswm $1- {
    if $read(rklm.txt,w,$2-) {
      msg $chan  $+ $2 $+  Reklam Listesinde Var
    }
    else {
      write rklm.txt $2-
      msg $chan  $+ $2 $+  Reklam Listesine Eklendi
    }
  }
  if !sil* iswm $1- {
    if !$read(rklm.txt,w,$2-) {
      msg $chan  $+ $2 $+  Reklam Listesinde Yok
    }
    else {
      write $+(-,dw,$2-) rklm.txt
      msg $chan  $+ $2 $+  Reklam Listesinden Silindi
    }
  }
}