Ident Yasaklama / MsL

[AkrepX]

on *:input:#kanal: {
    ; Event içindeki #kanal kısmı hangi kanalda ekleme/silme/listeleme yapacağınızı belirler.
  if $regex($1-,/^[\.!]dkaydet/Si) {
    if (!$2) || !$regex($3,/^\d/Si) || $read(hatirlatici.ini,w,$+(*,$2,*))  {
      msg # Hatalı kullanım veya zaten ekli .dkaydet nick tarih olarak deneyin.
    }
    else {
      writeini hatirlatici.ini Dogumgunu $2  $replace($3,.,/)
      msg # $2 nicki için $3 tarihi ayarlandı.
    }
  }
  if $regex($1-,/^[\.!]ds[ıi]l/Si) {
    if (!$2) || !$read(hatirlatici.ini,w,$+(*,$2,*)) {
      msg # Hatalı kullanım veya $2 ekli değil. .dsil nick olarak deneyin.
    }
    else {
      remini hatirlatici.ini Dogumgunu $2
      msg # $2 nicki hatirlaticidan silindi.
    }
  }
  if $regex($1-,/^[\.!]dl[ıi]st/Si) {
    msg # Eklenen bütün tarihler listeleniyor...
    .play # hatirlatici.ini 1000
  }
}
on *:join:#: {
  var %:t $gettok($date,1-2,47) | var %:my $gettok($read(hatirlatici.ini,w,$+(*,%:t,*)), 1, 61) | var %:life $gettok($read(hatirlatici.ini,w,$+(*,%:t,*)), 2-, 61)
  if $read(hatirlatici.ini,w,$+(*,%:t,*)) {
    ; Ben kanala yazması için ayarladım ama dilerseniz kendinize özel mesaj da attırabilirsiniz. Privmsg $me olarak değiştirmeniz gerekir.
    msg # Bugün Doğum günü: %:my Doğum tarihi: %:life
  }
  else {
    return
  }
}

Kullanım;

.ident yasaklanacakident => Yasaklı ident ekler

.identsil yasağıkaldırılacakident => Yasaklı ident listesinden belirtilen identi siler

.identlist => Yasaklanan ident listesini görmenizi sağlar.


Not: Yasaklanan ident listesinde olan bir değer eğer herhangi bir kanala girerse gzline atarak sunucudan uzaklaştırır. Bunu ban ve kick olarak da kullanabilirsiniz hazırladığım kişi xline olarak istediği için öyle bıraktım ben. Kullanırken dikkatli olmanızda fayda var.