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 24 Ağustos 2011, 10:13
Avatar Yok

mS Puan: 301
mS Derece: WingmaN MeraklıWingmaN MeraklıWingmaN MeraklıWingmaN Meraklı
 
Üyelik tarihi: 29 Temmuz 2009
Mesajlar: 15
Konular: 11
Eklentiler: 1
Alınan Teşekkür: 3
Yapılan Teşekkür: 0
Standart /* Kanala girişte, Karşılama (Advanced / Gelişmiş ) */

/* Kullanımı */

Bot, mantığında çalışmaktadır. Yani kendi mIRC'ine eklersen eklediğin mirc üzerinden kendin komut giremezsin. Bot olarak hitab ettiğin bot mIRC'inin içerisine ekleyeceksin ve kullanacaksın.

Bot, Unreal IRCd sistemlerine göre eklenmiştir.

/* Komutlar */
Komutlar , #kontrol kanalında çalışmaktadır, komut listesi aşağıdaki gibidir.

!ekle nick mesaj : Eklenen nick'e karşılama mesajı ekler.
!sil nick : Ekli olan, kayıtlı nick'i silecektir.
!liste / !listele : Ekli olan kayıtlı nick'leri gösterir.

Not: Ekleme yaparken, mesaj kısmını " Sunucu ROOT adminlerinden osman kanala girdi. " şeklinde eklemelisin, veya kafana göre istediğin mesajı yazabilirsin, bot sadece mesajı okuyacak.

/* Muaf Bilgisi */
Kod:
 if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }
Kod satırında bulunan yerler, muaf nick ve kanalları işaretler, " Help|operhelp " muaf kanallardır, " muaf1|muaf2 " muaf nick'lerdir.

Ekleme yapmak istiyorsan , aynen devamına ekleyebilirsin. Kanal eklerken, # koymamalısın.

örnek muafnick (ahmet|mehmet|cansu)
örnek kanal (operhelp|help|yardim|chat)


/* Belirtilen Ana-Kod */
Kod:
on *:start:{ if (!$hget(greet)) { hmake greet 100 | hload -s greet greet.hash } }

on *:text:*:#:{
  var %_xs = hsave -s greet greet.hash
  if ($chan == #kontrol) {
    if $regex($1,/^!(ekle|sil|liste)/i) { var %_x = $regml(1)
      if (%_x == ekle) {
        if (!$2 || !$3-) { msg # $nick Eksik bir komut girdiniz, doğru kullanım; !ekle nick mesaj , şeklinde olmalıdır. | return }
        if (!$hget(greet)) { hmake greet 100 | hload -is greet greet.hash }
        hadd -m greet $2 $3-
        msg # Kayıtlarımıza, $2 nick'i başarıyla eklendi.
        msg # Karşılama Mesajı: $3-
        %_xs
      }
      if (%_x == sil) {
        if (!$2) { msg # $nick Eksik bir komut girdiniz, doğru kullanım; !sil nick , şeklinde olmalıdır. | return }
        if (!$hget(greet,$2)) { msg # Böyle bir kullanıcı zaten, bulunmamaktadır. | return }
        msg # Kayıtlarımızdan $2 , başarıyla silindi.
        hdel greet $2
        %_xs
      }
      if (liste isin %_x) {
        _wlist #
      }
    }
  }
}
alias _wlist {
  var %_wl = 1 | while %_wl <= $hget(greet,0).data { var %_w1 = $hget(greet,%_wl).item, %_w2 = $hget(greet,%_wl).data
    msg $1 Nick: %_w1 , Mesaj: %_w2
    inc %_wl
  }
  if (!$hget(greet,%_w1)) { msg $1 hiç bir kayıt bulunmamaktadır. | halt }
}

on *:join:#:{
  if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }
  set -eu5 %_wn $nick | set -eu5 %_wc #
  if ($hget(greet,$nick)) { var %_w2 = $hget(greet,$nick)  |  msg %_wc %_w2   | return }
  if $regex($address($nick,2),/(admin|ircop|oper)/i) {
    whois %_wn
  }
}
raw 313:*:{
  if (%_wn == $2) {
    if (!$6-) {
      if (!$hget(greet,$2)) { msg %_wc Sunucu IRC Operatörü (>> %_wn <<) , %_wc kanalına giriş yaptı. | return }
      else {
        var %_w1 = $2, %_w2 = $hget(greet,$2)
        msg %_wc %_w2
      }
    }
    if $regex($7-,/(Server|Services|Network|Co|Tech)/i) {
      var %_add = $regml(1)
      if (!$hget(greet,$2)) { msg %_wc Sunucu %_add Admin 'i (>> %_wn <<) , %_wc kanalına giriş yaptı. | return }
      else {
        var %_w1 = $2, %_w2 = $hget(greet,$2)
        msg %_wc %_w2
      }
    }
  }
}
Not: Kodu denemedim, ama %99 hatasız çalışacaktır
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
advanced, gelişmiş, girişte, kanala, karşılama

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