IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Nisan 2019, 21:02   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
!anket [Socket]


Reklam

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


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 } }

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


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

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
anket, socket
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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