Giriş Çıkışlarda IP Gösteren hazır kod

Bir kişi mirce girince mirc üzerinden giren kişinin kanalda ipini göremiyoruz. tabi telnetten ayarlanmadığı sürece.
Bilindiği üzere mirc te adminler ipleri snotice mesajı ile görebilmektedirler. Bende (CesuryureK) Kanal giriş çıkışlarda olsun, sunucu çıkışlarda olsun işlemi gerçekleştiren nickin ipini yansıtmayı düşündüm ve aşağıda vereceğim kodu yaptım.. Görünüm olarak mircte şu şekildedir.

*** Giriş: Nick (ident@Ipadresi)
*** Part: Nick (ident@ipadresi)
*** Çıktı: Nick (ident@ipadresi)

Kod remoteye eklenilirken aşağıdak işlemlere göre eklenilmesi önerilir.
mIRC açıkken “ALT+R” yapın
Çıkan mirc remote panelinin sol üst köşesinde “Dosya(File)” var. Ona tıklayıp,
Çıkan sekmelerden “Yeni(New)” kısmını tıklayın. Çıkan boş mirc remote sayfasına aşağıdaki kod aynen kopyalayıp tamam diyiniz.

#IPGoster on
on *:snotice:*: {
if (Client connecting isin $1-) {
if (!$hget(Giris)) { hmake giris 100 }
hadd Giris $9 $10
}
if (Client exiting isin $1-) {
if !$hget(Giris,$6) { hadd Giris $6 $7 }
}
}
on ^*!:Join:#: {
haltdef
if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(Giris,$nick) }
elseif (!$hget(Giris,$nick)) { set -u3 %gnick $nick | set -u3 %gchan $chan | giris | .timer 1 1 .userip $nick }
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.

on ^*:quit: {
haltdef
var %i = 1, %t = $comchan($nick,0)
while (%i <= %t) {
echo $comchan($nick,%i) $+($chr(3),$color(quit)) $timestamp *** IRC’den Çıktı: $nick $hget(Giris,$nick)
inc %i
}
hdel Giris $nick
}

raw 340:*: {
haltdef
hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}

on ^*!:Part:#: {
haltdef
if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(part)) $timestamp *** Ayrıldı: $nick $hget(Giris,$nick) }
elseif (!$hget(Giris,$nick)) { set -u5 %pnick $nick | set -u %pchan $chan | cikis | .timer 1 1 .userip $nick }
}
;Bu kod CesuryureK tarafından mlRC.Net.tr sitesinde paylaşıldı.
alias giris { echo %gchan %gnick $hget(Giris,%gnick) }
alias cikis { echo %pchan %pnick $hget(Giris,%pnick) }
#IPGoster End

on *:Exit: { disable #IPGoster }

raw 381:*: { enable #IPGoster }