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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Aynı IP ten Özele Gelinirse Echo (https://www.ircforumlari.net/mirc-scripting-sorunlari/30466-ayni-ip-ten-ozele-gelinirse-echo.html)

Aynı IP ten Özele Gelinirse Echo

Selam arkadaşlar ozelıme bırı geldıgınde eger gelen kısı clone sokmussa veya aynı cafedeyse echo olarak Nick1 nick2 nick3 ... Aynı cafeden yada aynı kısıler olarak uyarı verdırmek ıstıyorum ama bunun ıcın malesef 0 bılgıye sahıbım :S yardımcı olabılırsenız mutlu olurum

Yanıt: Aynı IP ten Özele Gelinirse Echo

Kod:

Alıntı:

on 1:open:?:*: {
if ($address($nick,2) != $null) { qc $nick }
else { set %ial query | who $nick }
}
alias qc {
unset %qc*
if ($ial($address($1,2) , 0) < 2) { echo $1 $1 Ip adresi: $address($1,2) Clone Bulunamadı | halt }
:başla
inc %qc
if ($ial($address($1,2) , %qc ).nick == $1) { goto başla }
if ($ial( $address($1,2) , %qc ).nick == $null) { goto son }
set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
goto başla
:son
if %qc [ $+ [ $1 ] ] == $null halt
echo $1 14[0,4 UYARI 14,0] $1 ile " $+ %qc [ $+ [ $1 ] ] $+ " AYNI Cafeden Veya Ayni KisiLer $address($1,2)
unset %qc*
}
on ^*:close:?: { unset %cfnd [ $+ [ $target ] ] }
alias query { /query $1 | $qc($1) }

Not:Biryerde Bulmuştum , Yani Ben Yazmadım.Umarım İşine Yarar...