mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - mIRC Scripting Hazır Kodlar

Gevezeyiz Sohbet

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 02 Nisan 2019, 21:02   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 576
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 84
Post !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) .+\: (.+) \(.+@.+\)/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 }
}





 Che isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
anket, socket

Seçenekler
Stil

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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:21.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.