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

Kodun amacı:

+W modesine sahip (Helper,Oper,Admin vs vs) biri iseniz ve size whois çekildiğinde,
-irc.Sunucu.com- *** L4roXyL (asas@78.190.73.236) did a /whois on you.
şeklinde uyarı alıyorsanız koddan yararlanabilirsiniz.
Size whois çekenin ip no'sundan hareketle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden yerel bağlantı bilgilerini size sunacaktır.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İşte kod:

Kod:

on *:sockopen:whoiz:{

  sockwrite -n $sockname GET /index.php?query= $+ %difyipno  HTTP/1.1

  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $clrf   

}

on *:sockread:whoiz:{

  if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }

  else {

    var %difi 

    sockread %difi

    if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) }

    elseif (*Registry*Information* iswm %difi) { 

      sockclose whoiz

      if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {

        set %difuzyon $regml(1)

        if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... }

        else { window -a @Whois }

        aline @Whois 11,1Nick1...11:8 %difyyerelnick 1....................................................           

        aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1.....................................................

        aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................

        aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1.......................................

        aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1......................................

        aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1.................................................

        aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------

        unset %dif*

      }      

    }

  }

}

alias bağlantı {

  sockclose whoiz

  sockopen whoiz 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

}

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

on *:snotice:*whois*on*you*: { 

  if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { 

    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) 

    set -e %difyipno $remove($token($3,2,64),$chr(41)) 

    set -e %difyyerelnick $2  

    bağlantı 

    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...

  }

}

Size whois çeken nick için 1 defa işlem yapmaktadır(flood olayına engel olmak için).

Resimde 2 türlü görüntü bir aradır.Bir tanesi window(pencere) diğer ise tip(baloncuk).
Yukarıdaki kod sadece window(pencere) halinde görünüm sağlamaktadır.
Şayet mirciniz destekliyorsa tip(baloncuk) olarak görmek isterseniz kod içerisinde mavi kısmı siler aşağıdaki dizinleri yerine eklersiniz.
Her ikisinide görmek istiyorsanız mavi kısmın hemen üstüne aşağıdaki kodu ilave edersiniz.

Alıntı:

noop $tip(Whois,Yerel Bilgiler,Nick: %difyyerelnick,7)
noop $tip(Whois,Yerel Bilgiler,IP No: $token(%difuzyon,1,32),7)
noop $tip(Whois,Yerel Bilgiler,Ülke: $token(%difuzyon,2,32),7)
noop $tip(Whois,Yerel Bilgiler,Bölge: $token(%difuzyon,3,32),7)
noop $tip(Whois,Yerel Bilgiler,Şehir: $token(%difuzyon,4,32),7)
noop $tip(Whois,Yerel Bilgiler,Org.: $token(%difuzyon,5,32),7)

Görünüm seçeneklerini biraz daha arttırarak kendinize göre de düzenleyebilirsiniz.

İşinize yaraması dileğiyle...
Hoşca paylaşımlar.