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

Yazan: L4roXyL - Hasan AYDENİZ
Tarih: 29 Eylül 2012 - Cumartesi
Not: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]dökümanıdır.

Kodun amacı, kanalda herhangi bir kelimeye($1) tıklandığı zaman; eğer o kelime kanal içerisinde bulunan bir nick ise, o kişinin whois bilgilerini özel pic-win penceresi içerisinde gösterir. Facebook'daki kişinin üzerine geldiğinizde çıkan baloncuk tarzı bilgi penceresi gibi.

Yani kısacası kanalda <nick> veya text içerisinde geçen bir nick-e tıkladığınız zaman, o kişiye ait whois bilgisini online olarak görürsünüz.

Özellikler:

Pencere şeffafdır, arkası görülebilir. Bu özelliği kaldırmak istiyorsanız /setlayer-ı kaldırırsınız.
Mouse ile pencere üzerinden çıkarsanız, pencere otomatik kapanır.
Mouse ile pencere üzerinde çift tıklama yaparsanız, o kişinin özeline gidersiniz(/query nick)
Mouse ile pencere üzerinde sol tıklama yaparsanız, o kişinin bulunduğu kanalları aktif ekranda görebilirsiniz.
Tüm sonuçlar /whois komutuna ait raw numalarından gelen sonlandırma numarası ile(318) görüntülenir. Bu sizin lag durumunuza veya ircop vb. yetki erişimleri durumuna göre hızlılık gösterir. Yani kısacası pencerenin açılma hızı, muhtemelen 0.5 saniye ile 1.5 saniye arasında değişebilir.

Geliştirmeye açıktır. Renkleri vs. değiştirin isterseniz, ne yaparsanız yapın yani.

Not: HOTLINK olayından dolayı kanaldaki her text tıklanabilir olacaktır. Eğer siz sadece <nick> biçimleri tıklanabilsin istiyorsanız, on hotlink satırını;

Alıntı:

on ^*:hotlink:*<*>*:#:

Olarak değiştirin.

-

Önizleme:

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

Kodumuz:

Kod:

;written l4roxyl,,.

;date 29/09/2012

;,,.

on ^*:hotlink:*:#: {

  if ($mouse.key & 1) {

    if ($regsubex($1,/[ $+ $prefix $+ <>]/g,) ison #) { 

      sline # $v1

      .enable #___|___

      .whois $v1 

      $(,%__c = #)

      return

    }

    halt

  }

}

alias -l _cp return $+($chr(2),$1,$chr(2))

alias -l _tf {

  var %m = $chr(32) Dakika,%s = $chr(32) Saniye,%h = $chr(32) Saat

  return $replace($1-,mins,%m,min,%m,secs,%s,sec,%s,hrs,%h,hr,%h)

}

alias -l ___|___ { 

  $(,%3 = 250)

  while /____\ {

    dec -u %3 1

    window @_/ $window(@_/).dx $window(@_/).dy %3 $iif(%3 < 100,$v1,100)

    setlayer $calc(%3 -35) @_/

    if %3 = 0 { window -c @_/ | $iif($hget(%_w),hfree $v1) | break }

  }

}

alias -l sq {

  $(,%_w = $1)

  $iif($window(@_/),window -c $v1)

  window -pdBw0zo +bL @_/ $2 $3 0 0 

  while /?/?_\?\? { 

    inc -u %2 5

    window @_/ $calc($2 -10) $calc($3 -10) %2 $iif(%2 >= 100,100,%2)

    drawrect -rf @_/ $rgb(0,0,0) 1 0 0 %2 %2 

    setlayer $iif(%2 >= 215,215,%2) @_/

    if %2 = 250 break 

  }

  drawfill -r @_/ $rgb(0,0,0) - 0 0

  drawrect -rf @_/ $rgb(65,129,127) 1 0 0 250 7

  drawrect -r @_/ $rgb(65,129,127) 1 0 0 248 98

  var %_dt__: = drawtext -rop @_/ $rgb(255,255,255) Verdana 10 5

  var %_n = $token($hget($1,_id),3-,32)

  %_n = $iif($len(%_n) >= 32,$mid(%_n,1,32) $+ ..,%_n)

  %_dt__: 9 Ident: $_cp($token($hget($1,_id),1,32))

  %_dt__: 22 İsim: $_cp(%_n)

  %_dt__: 35 Kanallar: $_cp($token($hget($1,_chans),0,32)) $&

    - Prefix: $_cp($regex($hget($1,_chans),/([ $+ $prefix $+ ])#./g)) / Sol Tıkla.

  %_dt__: 48 Nick durumu: $_cp($iif($hget($1,_reg),$v1,Kayıtsız.))

  %_dt__: 60 Idle: $_cp($iif($hget($1,_idle),$regsubex($v1,/(\D+)/g,$chr(32) $_tf(\1) $chr(32)),Erişilemiyor.))

  %_dt__: 71 Bağlantı: $_cp($iif($hget($1,_sign),$v1,Erişilemiyor.))

  %_dt__: 83 Status: $_cp($iif($hget($1,_own),$v1,Normal kullanıcı.))

}

menu @_/ {

  leave:___|___

  rclick:!echo -ec info %__c - %_w rumunuzun bulunduğu kanallar: $_cp($hget(%_w,_chans))

  dclick:___|___ | query %_w

}

#___|___ off

raw *:*: {

  haltdef

  tokenize 32 $rawmsg

  var %_ = hadd -m $4

  if ($2 = 311) %_ _id $5-6 $strip($right($8-,-1))

  if ($2 = 307) %_ _reg Kayıtlı.

  if ($2 = 319) %_ _chans $right($5-,-1)

  if ($2 = 317) {

    %_ _idle $duration($5)

    %_ _sign $asctime($6,dd/mm/yy - hh:nn:ss)

  }

  if ($2 = 313) %_ _own $right($5-,-1)

  if ($2 = 318) { 

    sq $4 $mouse.dx $mouse.dy $active

    .disable #___|___

  }

}

#___|___ end