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 08 Ocak 2012, 18:51
Avatar Yok
 Coders 

mS Puan: 621
mS Derece: Difuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon Çalışkan
 
Üyelik tarihi: 16 Temmuz 2009
Bulunduğu yer: code talks!
Mesajlar: 83
Konular: 36
Eklentiler: 4
Alınan Teşekkür: 5
Yapılan Teşekkür: 0
Standart !arsiv [IP|Nick]

Merhabalar,

Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice -- Client connecting on port 6667: Cenk (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice -- Cenk (paramilite@94.123.128.183) has changed his/her nickname to Dify

Sunucuda IRCop düzeyinde buluyor ve yukarıdaki snotice satırlarını görebiliyorsanız aşağıdaki kodu scriptinizin remote kısmına eklemeniz halinde;sunucuya giriş yapan veya sunucuda nick değiştiren nicki,ident bilgisini ve ip numarasını kayıt altına alacaktır.
Bir nevi giriş yapan tüm nick ve ip noları arşivleyecektir.

Bu kayıtlar bir metin belgesine yazdırılıp istem halinde
(#KANAL'da uygulanacak komutlar)
!arsiv IP
veya
!arsiv Nick
komutlarını belirttiğiniz #kanal da uyguladığınızda istemde bulunan verileri filtreleyip size sunacaktır.

Kod:
on *:snotice:*:{
  if (*client*connect* iswm $1-) { 
    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyip %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date) 
  }
  elseif (*changed*his*her*nickname* iswm $1-) {
    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 
  }
}
;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz
on *:input:#: { 
  if $1 == !arsiv {
    if $regex($2,/^\d+.\d+/) {
      if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 
        msg $chan $2 arşivi listeleniyor 
        filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 
        play $chan depo.txt 750
      }
      else { msg $chan $2 arşivde bulunmuyor 
      }
    }
    if $regex($2,/^[^\d]/) {
      if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 
        msg $chan $2 arşivi listeleniyor 
        filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 
        play $chan depo.txt 750 
      }
      else { msg $chan $2 arşivde bulunmuyor }
    }
  }
}
Uygulama Sonuçları:

[22:09] <@Difuzyon> !arsiv eCe
[22:09] <@Difuzyon> eCe arşivde bulunmuyor

[22:10] <@Difuzyon> !arsiv seref06
[22:10] <@Difuzyon> seref06 arşivi listeleniyor
[22:10] <@Difuzyon> 94.123.128.183 Seref06 Ident: trsohbet Son Girişi: 22:01:20-28/01/2011

[22:10] <@Difuzyon> !arsiv 85.102.42.208
[22:10] <@Difuzyon> 85.102.42.208 arşivi listeleniyor
[22:10] <@Difuzyon> 85.102.42.208 deneme12345 Ident: Cenk Son Girişi: 21:37:39-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 deneme123 Ident: Cenk Son Girişi: 21:41:04-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 deneme1234 Ident: Cenk Son Girişi: 21:49:58-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 Cenk Ident: Cenk Son Girişi: 22:07:49-28/01/2011


Hoşca paylaşımlar...
__________________
Koli
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 29 Ocak 2012, 18:38
Avatar Yok

mS Puan: 1
mS Derece: EvilGirl
 
Üyelik tarihi: 27 Ocak 2012
Bulunduğu yer: http://insaneboard.comeze.com
Mesajlar: 2
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

Neden benim için çalışmıyor ? hiçbir şey Veri depolama değil
Alıntı ile Cevapla
  #3  
Alt 30 Ocak 2012, 09:53
Avatar Yok
 Coders 

mS Puan: 621
mS Derece: Difuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon Çalışkan
 
Üyelik tarihi: 16 Temmuz 2009
Bulunduğu yer: code talks!
Mesajlar: 83
Konular: 36
Eklentiler: 4
Alınan Teşekkür: 5
Yapılan Teşekkür: 0
Standart

Bulunduğunuz server snotice mesajları yukarıda yazdığımdan farklıysa kodu ona göre düzenlemek gerekir.
__________________
Koli
Alıntı ile Cevapla
  #4  
Alt 30 Ocak 2012, 21:23
Avatar Yok

mS Puan: 1
mS Derece: EvilGirl
 
Üyelik tarihi: 27 Ocak 2012
Bulunduğu yer: http://insaneboard.comeze.com
Mesajlar: 2
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

Bana yardımcı olabilir Bunu yapmak için ? Biz QuakeNet vardır
Alıntı ile Cevapla
  #5  
Alt 31 Ocak 2012, 20:06
Avatar Yok
 Coders 

mS Puan: 621
mS Derece: Difuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon Çalışkan
 
Üyelik tarihi: 16 Temmuz 2009
Bulunduğu yer: code talks!
Mesajlar: 83
Konular: 36
Eklentiler: 4
Alınan Teşekkür: 5
Yapılan Teşekkür: 0
Standart

Elbette yardım ederim
-----------
Command: /mode Difuzyon
Me answer: Difuzyon +i

-----------
Command: /mode EvilGirl
You answer: ?
__________________
Koli
Alıntı ile Cevapla
Cevapla

Etiketler
arsiv, ip|nick

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
ON Nick CesuryureK mIRC events - Olaylar 0 28 Temmuz 2009 03:40


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