lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting Hazır Kodlar


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 25 Ocak 2015, 23:57   #1
Bir umuttur yaşamak
 
Toprak - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya
Mesajlar: 323
WEB Sitesi: https://www.teklan.com.tr/
IRC Sunucusu: irc.teklan.com.tr
İlgi Alanı: mIRC Scripting
Alınan Beğeni: 211
Standart Baloncuk Tarzı Whois

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ı;



Olarak değiştirin.

-

Önizleme:



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





Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
 Toprak isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
baloncuk, tarzı, whois


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Whois Login dEathLeSs Unreal - 4 Parça Kodlar 78 12 Temmuz 2024 13:52
Sosyal Fotoğraf Paylaşım Scripti – İnstagram Tarzı Script kurumsalshop HTML - PHP vb Temalar 0 03 Şubat 2019 15:45
IRC'de WHOIS bilgileriniz.. Toprak Sunuculardan Son Gelişmeler 14 07 Ağustos 2018 00:17
Baloncuk Tarzi Whois Code Hazır Kodlar 0 15 Mart 2016 22:30
whois raw Rohit Hazır Kodlar 0 15 Mart 2016 02:30

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.