| Aytac |
12.Nisan.2019 23:19 |
!anket [Socket]
Merhaba,
Bir kişinin isteği üzerine yapmıştım arşivde duruyormuş..
[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
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 }
}
|
