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 13 Temmuz 2009, 23:01
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 /inuser <nick> <sunucu.uzantısı>

Yazan: L4roXyL
Kullanım: /inuser <nick> <sunucu.uzantısı>
Örnek kullanım: /inuser l4roxyl eschat.net
İşlev: Belirlediğiniz nicki, belirlediğiniz sunucu üzerinde arar. Eğer aranan nick sunucuda mevcut ise, (whois)bilgilerine ulaşabilirsiniz. (bağlantı socket olarak gerçekleşir)

-

Kod:
alias inuser {
  $iif($hget(nick),hfree nick) | unset %net | var %e = echo $color(info text) -ste * /inuser: Hatalı veya eksik kullanım: 
  if (!$1 || !$2) { %e /inuser <nick> <network> | return }
  if ($regex($1,(?<=^\d)) && $regex($1,(\w{1,30}))) { %e IRC sunucularında herhangi bir nick <rakam> ile başlayamaz. | return }
  if (!$regex($2,(\w{3,})(\.{1})(\w{2,}))) { %e Sunucu adresini $+(%,80) oranında yanlış girdiniz. | return }
  var %irc = $+(irc.,$2) | set %net %irc | hadd -m nick $1 1 
  if (%irc != $sock(inuser).addr) { $iif($sock(inuser),sockclose inuser) | sockopen inuser %irc 6667 } | else sockwrite -n inuser ison $1
  echo $color(info text) -st * /inuser: $qt($1) rumuzu $qt(%irc) sunucusunda aranıyor.
}
on *:sockopen:inuser: {
  var %s = sockwrite -n $sockname,%n = $+($hget(nick,1).item,$r(0,99)),%id = $+(Kontrol,$r(1,9999))
  if ($sockerr) { echo $color(info text) -ste Sunucuya bağlanılamadı. Kontrol ederek tekrar deneyiniz. | return }
  %s NICK %n | %s USER mIRC * * $+(:,%id) | sockmark $sockname %n
}
on *:sockread:inuser: {
  if ($sockerr) { echo $color(info text) -ste Sunucuya bağlanılamadı. Kontrol ederek tekrar deneyiniz. | return }
  sockread %: | tokenize 32 %: | var %n: = $regsubex($token($1,1,33),:,)
  if ($regex($2,^PRIVMSG$) && $regex($3,$sock($sockname).mark) && $regex($4-,VERSION))  {
    sockwrite -n $sockname notice %n: : VERSION mIRC $version Khaled Mardam-Bey 
  }
  if ($regex($1,^PING$)) { sockwrite -n $sockname pong $2- }
  if ($regex($2,^JOIN$) && %n: == $sock($sockname).mark) { sockwrite -n $sockname part $regsubex($3,:,) }
  if ($regex($2,^001$)) { sockwrite -n $sockname ison $hget(nick,1).item } 
  if ($regex($2,^303$) && $3 == $sock($sockname).mark) {
    if ($regsubex($4,:,) == $hget(nick,1).item) { echo $color(info text) -ste * /inuser: Aradığınız $qt($hget(nick,1).item) rumuzu, $qt(%net) sunucusunda online. Bilgilerini görüntülemek için; $qt(tıklayın.) }
    else echo $color(info text) -ste * /inuser: Aradığınız $qt($hget(nick,1).item) rumuzu, $qt(%net) sunucusunda bulunmuyor. 
  }
  if ($3 == $sock($sockname).mark && $4 == $hget(nick,1).item) { 
    if ($regex($2,^401$)) { echo $color(info text) -st * /inuser: $qt($4) bilgileri alınamadı. (Nick değiştirmiş veya çıkmış olabilir) }
    if ($regex($2,^311$)) { echo -st Adresi: $+($chr(2),$4,!,$5,@,$6) | echo -st Gerçek isim: $+($chr(2),$right($8-,-1)) }
    if ($regex($2,^307$)) { echo -st Kayıt bilgisi: $+($chr(2),Kayıtlı ve kullanılamaz nick.) }
    if ($regex($2,^319$)) { echo -st Bulunduğu kanallar: $+($chr(2),$right($5-,-1)) }
    if ($regex($2,^313$)) { echo -st INFO: $+($chr(2),$7-) }
    if ($regex($2,^317$)) { echo -st Konuşmadığı süre: $+($chr(2),$duration($5)) | echo -st Bağlantı zamanı: $+($chr(2),$asctime($6,dd/mm/yy - hh:nn:ss)) }
    if ($regex($2,^318$)) { echo -ste $+($chr(2),$hget(nick,1).item,$chr(2)) rumuzunun bilgi sonu. } 
  }
}
on ^*:hotlink:*"tıklayın."*:status window:if ($1 == $qt(tıklayın.)) return
on *:hotlink:*"tıklayın."*:status window:if ($sock(inuser).status) { echo -ste $+($chr(2),$hget(nick,1).item,$chr(2)) rumuzunun bilgileri sıralanıyor. | sockwrite -n inuser whois $hget(nick,1).item }
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 31 Temmuz 2009, 23:26
Avatar Yok

mS Puan: 1
mS Derece: Silver Meraklı
 
Üyelik tarihi: 17 Temmuz 2009
Mesajlar: 5
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

Şu kod dünyada yazılmış gelmiş geçmiş en harika kod diğer yazılmış olan hazır kodlarda ona keza eşdeğer güzellikte bu işte şüphesiz 1 numarasın emeğine eline sağlık.
Alıntı ile Cevapla
  #3  
Alt 01 Ağustos 2009, 00:16
Avatar Yok

mS Puan: 1
mS Derece: absolut Meraklı
 
Üyelik tarihi: 14 Temmuz 2009
Mesajlar: 28
Konular: 8
Eklentiler: 0
Alınan Teşekkür: 1
Yapılan Teşekkür: 0
Standart

Geliştirmeye acık birşey istedigin kanali loglama v.s de yapilir aslında güzel bir düşünceymiş ellerine saglık.
__________________
mIRC Portalı mirc
Alıntı ile Cevapla
Cevapla

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



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