mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 29 Eylül 2012, 20:24
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 32
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 40
Yapılan Teşekkür: 0
Standart Baloncuk Tarzı Whois

Yazan: L4roXyL - Hasan AYDENİZ
Tarih: 29 Eylül 2012 - Cumartesi
Not: mIRCScripting.net 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:



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
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
baloncuk, tarzı, whois

Seçenekler

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 raw Rohit Showcase - Hazır kodlar 0 14 Kasım 2011 00:51
Whois WeiLSiDe Help - Yardım 1 19 Ağustos 2009 02:15
Kanala girişte oto whois tonyukuk Help - Yardım 2 22 Temmuz 2009 13:50


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76