alias fn { 
  var %< $lines(reklam.txt)
  while (0 < %<) {
    if ($read(reklam.txt,%<) iswm $strip($1-)) { 
      msg #ali gzline $1 1w Reklam.    
} 
dec %<  
}
}
on !@*:join:#: { fn }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
  title "Fullname reklam takip"
  size -1 -1 113 41
  option dbu
  button "Çıkar", 1, 6 14 37 12, flat
  button "Ekle", 2, 6 1 37 12, flat
  combo 3, 51 1 60 39, size sort
  button "KAPAT", 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 reklam.txt }
on *:dialog:spam:sclick:2: {
  if (!$did(spam,3).text) {
  echo 2 -a Lütfen eklenecek reklamı yazınız. | halt }
  elseif $read(reklam.txt,w,$did(3).text) {
  echo 2 -a $did(spam,3).text listede zaten var.  }
  else {
    write reklam.txt $did(spam,3).text 
  did -a $dname 3 $did(spam,3).text }
}
on *:dialog:spam:sclick:1: { 
  if (!$did(spam,3).text) { 
  echo 2 -a Silinecek reklamı seçmelisiniz. | halt }
  elseif !$read(reklam.txt,w,$did(3).text) { 
  echo 2 -a $did(3).text reklam listesinde zaten yok. }
  else { write $+(-dw,",$did(3).text,") reklam.txt 
  did -d $dname 3 $did(3).sel }
}
menu * { 
  FRT:sp
}

on *:snotice:*client connect*:who $9
raw 352:*:kontrol $9- $6
alias kontrol var %1 1 | while %1 <= $lines(fullname.txt) { if $regex($1,$read(fullname.txt,%1)) { zline $2 :sebeb. | return $true } | inc %1 } | return $false

on !*:join:#:set %k # | set %n $nick | .enable #kn | who $nick
#kn off
raw 352:*:if (%k && %n == $6 && $6 ison %k) { var %o = 1 | while ($read(fullname.txt,%o)) { if ($regex($9,$v1)) { ban -k %k $6 2 Kick nedeni. | .disable #kn | unset %k %n | break } | inc %o }