on *:SNOTICE:*You were forced to join*: {
  part $7
}

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    if $read(ident.txt,w,%_ident) { $iif(!$window(@Ident),window -e @Ident) | echo -t @Ident Giriş: Nick: %_nick - Ident: %_ident - IP: %_ip - $+($chr(40),%_port,$chr(41)) }
  }
}
alias ekle {
  if !$1 { echo -a Ident belirtiniz }
  elseif $read(ident.txt,w,$1) { echo -a $1 zaten listede ekli. }
  else { .write ident.txt $1 | echo -a $1 identi eklendi }
}
alias sil {
  if !$1 { echo -a Ident belirtiniz }
  elseif $read(ident.txt,w,$1) { .write $+(-dl,$readn) ident.txt | echo -a $1 identi silindi. }
  else { echo -a $1 ident listede ekli değil }
}
alias list {
  if !$lines(ident.txt) { echo -a Liste boş. }
  else { var %_t $lines(ident.txt) | while %_t { echo -a $read(ident.txt,%_t) | dec %_t } }
}