HepForum.Com


Geri Git   HepForum.Com > mIRC Scripting > mIRC Hazır Kodlar
mIRC Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

Kullanıcı Etiket Listesi

 
LinkBack Seçenekler
Alt 12.Nisan.2019   #1
DurumuÇevrimdışı
Önce hayaller ölür,
sonra insan...
Aytac - ait Kullanıcı Resmi (Avatar)
Üye No: 1
Üyelik tarihi: 03.Ekim.2018
Şehir: 08 Artvin
Mesaj Sayısı: 589
Konu Sayısı: 349
Beğendikleri: 80
Alınan Beğeni: 127
HF Ticaret Sayısı: (0)
HF Ticaret Yüzdesi: (%)
Ruh Hali
Keyifli
Kan Grubum: 0 RH +

Standart !anket [Socket]

Merhaba,
Bir kişinin isteği üzerine yapmıştım arşivde duruyormuş..



Kod:
  if $regex($2,/^NOTICE$/Si) && !$regex($3,/^#/Si) {
    if $regex($4-,/Client connecting (on port|at) .+\: (.+) \([email protected]+\)/Si) {
      var %_nick = $regml(2)
      $iif(%:_anket == on,sockwrite -nt $sockname privmsg %_nick :Mrb %_nick Anketimize katilmak istermisiniz? 4!anket yazarak özelimde sizde anketimize katilabilirsiniz.)
    }
    elseif ($remove($gettok($1,1,33),:) == NickServ) {
      if $regex($4-,/: (.+) isim\:/Si) && $hget(Oyver,$regml(1)) { set %:_nerv $regml(1) }
      elseif $regex($4-,/Toplam Online Süresi\: (.+) Gun/Si) { 
        if ($regml(1) >= 10) {
          sockwrite -nt $sockname privmsg %:_nerv :---4 Oy Kullanim. ---
          sockwrite -nt $sockname privmsg %:_nerv :- 
          sockwrite -nt $sockname privmsg %:_nerv :4Sectiginiz oy: $hget(Oyver,%:_nerv) -> $hget(Anket,$hget(Oyver,%:_nerv))
          sockwrite -nt $sockname privmsg %:_nerv :-
          sockwrite -nt $sockname privmsg %:_nerv :Oy kullandginiz icin tsk ederiz., Anket sonuclarini gormek icin4 !anketsonuc yazabilirsiniz.
          sockwrite -nt $sockname privmsg %:_nerv :Saygilar sayin %:_nerv ,7 Muhabbet.Org
          sockwrite -nt $sockname privmsg %:_nerv :-
          .hinc -ms AnketOy $hget(Oyver,%:_nerv) 1
          .hsave -o AnketOy AnketOy.tprk
          .hdel -ms Oyver %:_nerv
        }
        else {
          sockwrite -nt $sockname privmsg %:_nerv :---4 Oy Kullanim. ---
          sockwrite -nt $sockname privmsg %:_nerv :-
          sockwrite -nt $sockname privmsg %:_nerv :Oy verebilmek için online süreniz en az 10 gün olması gerekmektedir.
          .hdel -ms Oyver %:_nerv
        }
      }
    }
  }
  if $regex($2,/352/) && $hget(Oyver,$8) {
    if !$regex($9,/r/) { 
      sockwrite -nt $sockname privmsg $8 :---4 Oy Kullanim. ---
      sockwrite -nt $sockname privmsg $8 :-
      sockwrite -nt $sockname privmsg $8 :Oy verebilmek için nickiniz kayıtlı(+R) olması ve en az 10 gün online süreniz olması gerekmektedir.
      .hdel -ms Oyver $8 
    }
    else { sockwrite -nt $sockname ns info $8 all }
  }
  if $regex($2,/(PRIVMSG)/i) {
    if $regex($3,/^#Opers$/Si) {
      if $regex($remove($4,:),/^[!.&-]anketkomut$/Si) {
        sockwrite -nt $sockname privmsg $3 :-- 4Anket komutlar --
        sockwrite -nt $sockname privmsg $3 :-
        sockwrite -nt $sockname privmsg $3 :4!anket yazarak bugunki anketi ögrenebilirsiniz.
        sockwrite -nt $sockname privmsg $3 :4!anketsonuc yazarak sonuclari gorebilirsiniz.
        sockwrite -nt $sockname privmsg $3 :4!anketon yazarak anket sistemini aktif edebilirsiniz 4!anketoff yaparak kapatabilirsiniz.
        sockwrite -nt $sockname privmsg $3 :4!anketsoru AnketSorusu yaparak anket sorusu belirtebilirsiniz-> 4!anketsoru Ayın Dj'sini seciyoruz.
        sockwrite -nt $sockname privmsg $3 :4!anketekle Harf Soru seklinde yapabilirsiniz -> !anketekle A Toprak <- gibi.
        sockwrite -nt $sockname privmsg $3 :4!anketreklamekle Reklam yazarak reklam metni ekleyebilirsiniz.
        sockwrite -nt $sockname privmsg $3 :4!anketreklam yazarak butun herkesin ozeline anket reklami atabilirsiniz.
        sockwrite -nt $sockname privmsg $3 :4!anketsifirla yazarak butun herseyi sifirlayabilirsiniz.
        sockwrite -nt $sockname privmsg $3 :4!sonucsifirla yazarak butun oy'lari sifirlayabilirsiniz
        sockwrite -nt $sockname privmsg $3 :-
        sockwrite -nt $sockname privmsg $3 :--4Son--
      }
      elseif $regex($remove($4,:),/^[!.&-]anketon$/Si) {
        if (%:_anket == on) { sockwrite -nt $sockname privmsg $3 :Anket sistemi zaten aktif }
        else { sockwrite -nt $sockname privmsg $3 :Anket sistemi aktif edildi. | set %:_anket on }
      }    
      elseif $regex($remove($4,:),/^[!.&-]anketoff$/Si) {
        if (%:_anket == off) { sockwrite -nt $sockname privmsg $3 :Anket sistemi zaten kapalı }
        else { sockwrite -nt $sockname privmsg $3 :Anket sistemi kapatıldı. | set %:_anket off }
      }
      elseif $regex($remove($4,:),/^[!.&-]anket$/Si) {
        if !$hget(AnketSoru,0).data { sockwrite -nt $sockname privmsg $3 :Anket sorusu bulunmamaktadır. }
        elseif !$hget(Anket,0).data { sockwrite -nt $sockname privmsg $3 :Anket sorusuna hiç bir şık eklenmemiş. }
        else {
          sockwrite -nt $sockname privmsg $3 :---4Anket bilgilendirme---
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :4Anket Sorumuz: $hget(AnketSoru,1)
          sockwrite -nt $sockname privmsg $3 :-
          var %:anket = 1 | while %:anket <= $hget(Anket,0).data {
            sockwrite -nt $sockname privmsg $3 $+(:4,$hget(Anket,%:anket).item) : $hget(Anket,%:anket).data
            inc %:anket
          }
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :Oy vermek icin özelimde 4 !oy A gibi kullanabilirsiniz.
        }
      }
      elseif $regex($remove($4,:),/^[!.&-]anketsonu[cçÇ]$/Si) {
        if !$hget(AnketSoru,0).data { sockwrite -nt $sockname privmsg $3 :Anket sorusu bulunmamaktadır. }
        elseif !$hget(Anket,0).data { sockwrite -nt $sockname privmsg $3 :Anket sorusuna hiç bir şık eklenmemiş. }
        else {
          sockwrite -nt $sockname privmsg $3 :---4Anket bilgilendirme---
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :4Anket Sorusu: $hget(AnketSoru,1)
          sockwrite -nt $sockname privmsg $3 :-
          var %:anket = 1 | while %:anket <= $hget(Anket,0).data {
            sockwrite -nt $sockname privmsg $3 $+(:4,$hget(Anket,%:anket).item) : $hget(Anket,%:anket).data 4Oy: $iif($hget(AnketOy,$hget(Anket,%:anket).item),$hget(AnketOy,$hget(Anket,%:anket).item),0)
            inc %:anket
          }
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :Sonuclari siralanmistir.
        }
      }
      elseif $regex($remove($4,:),/^[!.&-]anketsoru$/Si) {
        if !$5 { sockwrite -nt $sockname privmsg $3 : Lütfen anket sorusu belirtiniz. }
        elseif $len($strip($5-)) <= 10 { sockwrite -nt $sockname privmsg $3 :Lütfen anket sorusunu 10 harfden fazla belirtiniz. }
        else {
          .hadd -ms AnketSoru 1 $5-
          .hsave -o AnketSoru AnketSoru.tprk
          sockwrite -nt $sockname privmsg $3 :---4Anket sistem--
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :4Anket Soru: $5-
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :Olarak değistirilmiştir.
        }
      }
      elseif $regex($remove($4,:),/^[!.&-]anketekle$/Si) {
        if !$hget(AnketSoru,0).data { sockwrite -nt $sockname privmsg $3 :Anket sorusu olmadığından seçenek eklenemez lütfen önce anket sorusu ekleyiniz. }
        elseif !$regex($5,/^[a-zA-ZĞğıİöÖüÜşŞçÇWQX]$/Si) { sockwrite -nt $sockname privmsg $3 :Lutfen Anket secenekleri belirtirken duzgun ekleme yapiniz.->4 !anketekle A Nick <- }
        elseif !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135`}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { sockwrite -nt $sockname privmsg $3 :Lutfen Anket secenekleri belirtirken duzgun ekleme yapiniz.->4 !anketekle A Nick <- }
        elseif $hfind(Anket,$strip($6),1,W).data { sockwrite -nt $sockname privmsg $3 $+(:,$strip($6)) nicki anket listesinde ekli. }
        elseif $hget(Anket,$upper($5)) { 
          sockwrite -nt $sockname privmsg $3 :4Eski Secenek: $hget(Anket,$upper($5)) (2Degistirildi)
          sockwrite -nt $sockname privmsg $3 :---4Anket secenek ekleme--
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :4Secenek: $upper($5)
          sockwrite -nt $sockname privmsg $3 :4Anket: $strip($6)
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :Olarak değistirilmistir.
          .hadd -ms Anket $upper($5) $strip($6)
          .hsave -o Anket Anket.tprk
        }
        else {
          .hadd -ms Anket $upper($5) $strip($6)
          .hsave -o Anket Anket.tprk
          sockwrite -nt $sockname privmsg $3 :---4Anket secenek ekleme--
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :4Secenek: $upper($5)
          sockwrite -nt $sockname privmsg $3 :4Anket: $strip($6)
          sockwrite -nt $sockname privmsg $3 :-
          sockwrite -nt $sockname privmsg $3 :Olarak eklenmiştir.
        }    
      }
      elseif $regex($remove($4,:),/^[!.&-]anketreklamekle$/Si) {
        if !$5 { sockwrite -nt $sockname privmsg $3 :Lutfen reklam metni belirtiniz.->4 !anketreklamekle Reklam <- }
        else { .write anketreklam.txt $5- | sockwrite -nt $sockname privmsg $3 :Reklam metni eklenmiştir. }
      }
      elseif $regex($remove($4,:),/^[!.&-]anketreklam$/Si) {
        if ($lines(anketreklam.txt) == 0) { sockwrite -nt $sockname privmsg $3 :Reklam listesi boş. }
        else {
          var %:rkm = $read(anketreklam.txt)
          sockwrite -nt $sockname privmsg $3 :Reklam metni herkese atilmistir.
          sockwrite -nt $sockname privmsg $3 $+(:,%:rkm)
          sockwrite -nt $sockname allsend all private global Duyuru %:rkm
        }
      }
      elseif $regex($remove($4,:),/^[!.&-]sonu[cçÇ]s[ıiİ]f[ıiİ]rla$/Si) {
        .hfree -sw AnketOy
        .hmake AnketOy
        .hsave AnketOy AnketOy.tprk
        sockwrite -nt $sockname privmsg $3 :Bütün sonuçlar sıfırlanmıştır.
      }
      elseif $regex($remove($4,:),/^[!.&-]ankets[ıiİ]f[ıiİ]rla$/Si) {
        .hfree -sw Anket*
        .hmake Anket | .hmake AnketOy | .hmake AnketSoru
        .hsave AnketOy AnketOy.tprk
        .hsave Anket Anket.tprk
        .hsave AnketSoru AnketSoru.tprk
        .write -c anketreklam.txt
        .unset %:_anket
        sockwrite -nt $sockname privmsg $3 :Bütün anket işlemleri sıfırlanmıştır.(Soru-Seçenekler-Oylar-Reklam)
      }
    }
    elseif !$regex($3,/^#.+/Si) {
      if $regex($remove($4,:),/^[!.&-]anket$/Si) {
        if !$hget(Anket,0).data { sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Anket bulunmamaktadır. }
        else {
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :---4Anket bilgilendirme---
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :-
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :4Anket Sorumuz: $hget(AnketSoru,1)
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :-
          var %:anket = 1 | while %:anket <= $hget(Anket,0).data {
            sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) $+(:4,$hget(Anket,%:anket).item) : $hget(Anket,%:anket).data
            inc %:anket
          }
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :-
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Oy vermek icin 4 !oy A gibi kullanabilirsiniz.
        }
      }
      elseif $regex($remove($4,:),/^[!.&-]anketsonu[cçÇ]$/Si) {
        if !$hget(Anket,0).data { sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Anket bulunmamaktadır. }
        else {
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :---4Anket bilgilendirme---
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :-
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :4Anket Sorusu: $hget(AnketSoru,1)
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :-
          var %:anket = 1 | while %:anket <= $hget(Anket,0).data {
            sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) $+(:4,$hget(Anket,%:anket).item) : $hget(Anket,%:anket).data 4Oy: $iif($hget(AnketOy,$hget(Anket,%:anket).item),$hget(AnketOy,$hget(Anket,%:anket).item),0)
            inc %:anket
          }
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :-
          sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Sonuclari siralanmistir.
        }
      }
      elseif $regex($remove($4,:),/^[!.&-]oy$/Si) {
        if !$regex($5,/^[a-zA-ZĞğıİöÖüÜşŞçÇWQX]$/Si) { sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Lütfen Anket secenekleri belirtirken duzgun oylama yapiniz.->4 !oy A <- }
        elseif !$hget(Anket,$upper($strip($5))) { sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Böyle bir seçenek bulunmamaktadır. ->4 !anket <-  yazarak listeye bilirsiniz. }
        elseif $hget(AnketNick,$remove($gettok($1,1,33),:)) { sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) :Mrb4 $remove($gettok($1,1,33),:) ,Eskiden oy kullanma islemi gerceklestirmişsiniz,Her ankette sadece 1 oy kullanma hakkiniz vardir. }
        else {
          .hadd -ms Oyver $remove($gettok($1,1,33),:) $upper($strip($5))
          sockwrite -nt $sockname who $remove($gettok($1,1,33),:)
        }
      }
    }
  }
Son olarak, mIRC açıldığında anket verilerini yüklemek için bunu da ekleyiniz;

Kod:
on *:start:{
  if $isfile(Anket.tprk) { .hmake Anket | .hload Anket Anket.tprk }
  if $isfile(AnketOy.tprk) { .hmake AnketOy | .hload AnketOy AnketOy.tprk }
  if $isfile(AnketSoru.tprk) { .hmake AnketSoru | .hload AnketSoru AnketSoru.tprk }
}






  Alıntı

Aytac Üyenin Son 5 Konusu
Baslik Kategori Son Yazan Cevaplar Okunma Son Mesaj
RANDOM Nick/Ident Koruması mIRC Hazır Kodlar Aytac 0 123 12.Nisan.2019 23:23
AWAY iken Bildiri mIRC Hazır Kodlar Aytac 0 90 12.Nisan.2019 23:21
!anket [Socket] mIRC Hazır Kodlar Aytac 0 92 12.Nisan.2019 23:19
Namaz/Ramazan Imsakiye 2019 mIRC Hazır Kodlar Aytac 0 93 12.Nisan.2019 23:18
.nerden [IP|Nick] Yeni.. mIRC Hazır Kodlar Aytac 0 80 12.Nisan.2019 23:15


Bookmarks

Etiketler
anket kodu , mirc anket kodu

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 kodu 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 Cevap Son Mesaj
mIRC Anket Kodu ( Bot Için) Seth mIRC Hazır Kodlar 0 17.Ocak.2019 23:35
CityBOT - Socket Botu Aytac mIRC Hazır Kodlar 0 30.Aralık.2018 16:31
mIRC Socket !burc Kodu Aytac mIRC Hazır Kodlar 0 30.Aralık.2018 16:25


Yukarı Çık