Notice Geldiginde Uyari ile Gönderenleri Listele

tarafından
27
Notice Geldiginde Uyari ile Gönderenleri Listele

Bu kod ile size notice geldiginde @Notices diye bir pencere açılıcaktir. Size Notice gönderen kişinin nick nick list bölümünde gözükcektir. Notice mesaji ve Notice zamani göstericektir. Diğer Noticelerden farklidir.

on ^*:notice:*:?:{
  if (!$window(@notices)) { window -mel20 @notices }
  if (. !isin $nick) && (????serv !iswm $nick) && ($network != $nick) {
    echo -m @Notices $+(5-,$nick,-) $1- Saat: $time Gün: $date | .linesep @notices | notices $nick
    halt
  }
}
alias ln return $line(@notices,$1,1)
alias notices {
  if ($ln(0) = 0) { aline -l @notices $1 | sline -l @notices 1 | halt }
  unset %notices2
  set %notices $ln(0)
  while (%notices) {
    if ($1 != $ln(%notices)) { inc %notices2 }
    if ($1 = $ln(%notices)) { sline -l @notices %notices | halt }
    dec %notices
  }
  if (%notices2 = $ln(0)) { aline -l @notices $1   }
}
on *:input:@notices:{
  if ($left($1,1) != /) {
    .notice $sline(@notices,1) $1- | echo -a 2* notice sent to $+(",$sline(@notices,1),") ->12 $1- | .linesep @notices
  }
}