mIRC.Net.tr

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 }