Mart 19th, 2011 by 
admin mirc, mirc indir, mirc hazır kodlar, hazır kodlar, mırc, mirç mırç
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
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.
raw 340:*: {
haltdef
hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.
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 yapılıp ilkkez mIRC.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 }
