Etiketlenen üyelerin listesi

+ Yeni Konu aç
1 sonuçtan 1 ile 1 arası

Konu: !Anket -Socket-

  1. #1
    Hilfiger - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    17.04.2019
    Mesajlar
    132
    Mentioned
    6 Post(s)
    Tagged
    1 Thread(s)

    Standart !Anket -Socket-

    Bu !anket yaması Toprak yarafından yazılmıştır.
    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),:)
            }
          }
        }
      }
    Konu diEfoRyoU tarafından (07-08-19 Saat 21:08 ) değiştirilmiştir. Sebep: Kod paylaşırken lütfen kimin yazdığını eklemeyi unutmayalım. Emeğe saygı adına bu çok önemli bir husus.

+ Yeni Konu aç

Konu Bilgileri

Users Browsing this Thread

Şu an 1 kullanıcı var. (0 üye ve 1 konuk)

Bu Konudaki Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •  
Uyarı
Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir. Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. ForumIrc.Net hiçbir yasal sorumluluk kabul etmemektedir. Illegal herhangi bir faaliyet görülmesi durumunda iletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
sohbet muhabbet
SOSYAL MEDYA