Nick Arama

Nick Arama

Hostu ayni olan yada farkli olan nickleri dosyaya kaydeder ve asagida yazilmis komut uygulandiginda o nickin girmis oldugu hostlari ve nickleri tarihli olarak @takip penceresinde gosterir.
–
Not1: Eger nick 2 kez ya da daha fazla girmisse, son girdigi tarihi verir.
Not2: Sunucunun vermis oldugu hostdan dolayi bazi nickleri karisik olarak gostermesi normal bir durumdur. (DJ, Admin vs.)
Not3: Herkes kullanabilir, herhangi bir yetki gerektirmez. Sunucunun giriste nickleri otomatik soktugu bir global kanalda bulunmaniz yeterlidir.
Not4: Belirli bir sureden sonra @takip penceresinde sag tik yaparak menuden “Nick takip listesini sil” secenegini secerek listeyi silebilirsiniz.
–
Komut: /nickara nick
–

on *:join:#:{
  if $regex($nick,/^(bot1|bot2|bot3)/i) {  halt }
  dosyayayaz $nick $token($address,2,64)
}
on *:nick:{
  if $regex($newnick,/^(bot1|bot2|bot3)/i) {  halt }
  dosyayayaz $newnick $token($address,2,64)
}
alias -l dosyayayaz {
  var %hstnick_ = $2
  var %np_ = /( $+ $1 $+ !(\d+)) $+ /i
  var %frst_ = $token($read(ipnicktakip.txt,w,$+(%hstnick_,*)),2-,32)
  write $+(-w,%hstnick_,*) ipnicktakip.txt  %hstnick_  $iif($regex(%frst_ ,%np_),$remove(%frst_,$regml(1)),%frst_) $+($1,!,$ctime)
}

alias nickara {
  if !$1 { echo $color(info) > Nick belirtmelisiniz | return }
  if ($1 == * || $1 == ? || $1 == .) { halt }
  if (!$window(@takip)) { window -ae @takip }
  if (!$window(@takip).title) { titlebar @takip [ Nick aramak icin /nickara nick komutunu kullaniniz. ]  } 
  clear @takip
  filter -fkg ipnicktakip.txt pencereyeyaz $+(/,$1,!,(\d+)/i) 
}
alias -l pencereyeyaz {
  echo @takip $str(-,50)
  echo @takip [HOST BILGISI] $token($$1,1,32)
  echo @takip $str(-,50)
  var %m_ = 2
  while ($token($$1,%m_,32)) {
    echo @takip  Nick: $token($v1,1,33)  Tarih: $asctime($token($v1,2,33),dd/mm/yy HH:nn)
    inc %m_
  }
  echo @takip $str(-,1)
}
menu @takip {
  Nick takip listesini sil :/write -c ipnicktakip.txt | echo $color(info) > Takip Listesi Silindi.
}

Bir önceki yazımda « Mirc Puzzle Oyunu yazım var.