PHP Warning: log10() expects parameter 1 to be double, string given in ..../includes/class_postbit.php(294) : eval()'d code on line 51
!anket [Socket] - HepForum.Com




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
Aytac
Guest
Aytac - ait Kullanıcı Resmi (Avatar)
Üye No:
Şehir:
Mesaj Sayısı: n/a
Konu Sayısı: 1373
Beğendikleri:
Alınan Beğeni:

HF Ticaret Yüzdesi: (%)
Ruh Hali
Kan Grubum:

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) .+\: (.+) \(.+@.+\)/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ı

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
Celtabet interbahis Elexbet Hiltonbet ngsbahis giriş Betmatik giriş Sportotobet giriş safirbet avcılar escort Ataköy escort Avcılar escort goldenbahis giriş goldenbahis giriş ngsbahis güncel giriş ngs bahis Süpertotobet giriş mersin escort adana escort ankara escort istanbul escort