Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

3Beğeni(ler)
  • 3 Post By Toprak

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Nisan 2019, 01:41   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
!anket [Socket]



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


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
  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:   Kodu kopyalamak için üzerine çift tıklayın!
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ı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan reklamver
Alt 13 Temmuz 2019, 21:00   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !anket [Socket]



Eline sağlık kanka

__________________
Hüznümün en yükseğinden şöyle baksan manzarama gözlerini alamazdın. Gözlerini alırdılar..
 
Alıntı ile Cevapla

Cevapla

Etiketler
mirc anket, socket anket

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Anket sonuçlarına göre ittifaklar çok yakın! İşte en son anket sonuçları… Sanem Haber Arşivi 3 20 Haziran 2018 17:13
Socket Anket Bot System Che IRCd Botlar 0 09 Aralık 2016 12:20
Anket Nedir? Violent Sözlük 0 19 Mayıs 2014 20:00
Anket :) XcLusive Komik Loglar 3 04 Mart 2009 20:02




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. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet teması antalya haber takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc sohbet siteleri sohbet odaları sohbet odaları sohbet Aydın Haber Akyazı Haber Sitesi Siber Sesli Sohbet
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk