IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

cesuryurek arkadasımızın kodu var mesela buna ek yapabilirmiyiz

[22:55:42] *** IRC’den Çıktı: metin (burak@176.45.62.0)

[22:55:42] Çıkış : *** Notice -- Client exiting: metin (burak@176.45.62.0) [Killed (NickServ (GHOST command used by dni))]

üstteki kodun oldugu mırc alttakı baska mırcten alıntı kişi ghost la kill atılarak cıkıyor

alttakı koda göre normal çıkış yapıor bunun gibi zline kill vs olayları göstermesini istiyorum bunu nasıl ayarlayabiliriz koda

;;;;;;;;;;;;;;;;;;,
Birde girişteki portunu göstere bilirmiyiz 6662 6667 gibi eğer mümkünse cocorico hocanın proxkiller kodunda olduğu gibi 80 1080 8080 gibi bağlantı kurduğu portuda aratıp kişinin girdiiği portu yazdırabilirsek cok güzel olur

[23:07:38] Giriş : *** Notice -- Client connecting on port 6662: serge (sohbet@176.30.254.48) [clients]

[23:07:40] Proxy girişvar : 176.30.254.48:1080 – Nicki bu: serge

*** Giriş : serge@176.30.254.48) on port 6662: 1080 bu şekilde yapabilirsek cok guzel olur

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,

Kod:

#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 }

}
 
 

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 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 }