alias trduration { return $replace($duration($1),wks,$chr(32) $ince(Hafta),days,$chr(32) $ince(Gün),hrs,$chr(32) $ince(Saat),secs,$chr(32) $ince(Saniye),mins,$chr(32) $ince(Dakika),min,$chr(32) $ince(Dakika),hr,$chr(32) $ince(Saat),wk,$chr(32) $ince(Hafta),day,$chr(32) $ince(Gün),sec,$chr(32) $ince(Saniye)) }
alias ince { return $+($chr(2),$1-,$chr(2)) } 
on *:text:*:#: { 
  if $regex($1-,/^(.*[[:space:]]|)nickin([[:space:]].*|)/Si) { 
    .inc -u600 %:nickim [ $+ [ $nick ] ] 1
    if %:nickim [ $+ [ $nick ] ] == 4 { msg # Nickimi 4 kere yazdınız, eğer tekrar yazarsanız ignore edileceksiniz. Nickimi tekrar yazabilmek için $ince($trduration($var(:nickim [ $+ [ $nick ] ],1).secs)) daha beklemelisiniz. }
    elseif %:nickim [ $+ [ $nick ] ] == 5 {  msg # 2 $nick Nickimi 30 Dakika icersinde 5 sefer yazdığınız için Otomatik oLarak ignore edildiniz (: | ignore $nick | .timer -o 1 600 ignore -r $nick | .unset %:nickim [ $+ [ $nick ] ]  }
  } 
}

on *:open:?: {
  if $read(yasak.txt,w,$nick) { .ignore $nick | closemsg $nick }
}
alias ekle {
  if  $read(yasak.txt,w,$1) { echo -t 4 $+ $1 zaten listede ekli4 ! }
  else { echo -t 4 $+ $1 yasak listesine eklendi. | write yasak.txt $1 }
}
alias sil {
  if  !$read(yasak.txt,w,$1) { echo -t 4 $+ $1 listede yok4 ! }
  else { echo -t 4 $+ $1 Yasaklı listesinden silindi. | $iif($read(yasak.txt,w,$1),write $+(-dl,$readn) yasak.txt) }
}
alias list { 
  var %s = 1,%ss = $lines(yasak.txt)
  while %s <= %ss {  echo -t 4 $+ $read(yasak.txt,%s) | inc %s }
}