Merhaba arkadaşlar. Wordpress'te anket sistemi ararken aklıma mirc için yapılmış anket addonu var mıdır diye düşündüm. Google'da aradım anket addonu yok, ircforumlari.net adresinde farklı kelimeler ile aradım yok.
Şu an bu mesajı yazmadan önce tekrar bir arayayım dedim ve yine yok...
Karşınızda anket addonu.

Kodu çalıştırmak için mirc'e yükleyip, f1 tuşuna basmanız yeterlidir.


;Anket Addonu.
;Tüm kodlar kullanılabilir.
;Tek ricam bu addonu kalkıp başka bir nick altında "ben yazdım diye yayınlamayın lütfen.
;Güle güle kullanın.
;Iletişim MSN : admin@chatix.org


On *:Join:#: {
if ($nick !== $me) {
if ($chan == %anketkanal) { .msg $nick Anketimize katılmak ister misiniz? | .msg $nick Anketimize katılmak için lütfen !Anket yazınız. | .msg $nick Anket sonuçlarını görmek içinse !Sonuc yazınız. | AnketleriBirArttir }
if ($chan !== %anketkanal) { Halt }
}
}
On *:Text:*:?: {
if ($1 == !Sonuc) { Sonuclar }
if ($1 == !Anket) { Anket }
if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar {
if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 sonucunun aldığı oy sayısı %sonucoy1 }
if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun aldığı oy sayısı %sonucoy2 }
if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun aldığı oy sayısı %sonucoy3 }
if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun aldığı oy sayısı %sonucoy4 }
}
Alias Anket {
.msg $nick Anketimize hoşgeldiniz.
.msg $nick Anket sorumuz şöyledir.
.msg $nick 
.msg $nick %anketsoru
.msg $nick 
.SonucOzel
}
Alias SonucOzel {
if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 }
if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 }
if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 }
if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 }
.msg $nick 
.msg $nick Anketimize katılmak için lütfen !Oy Seçtiğiniz şıkkın numarası. Örn : !Oy 1
}
Alias Denetleme {
if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanmışsınız. | halt }
if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap }
}
Alias OylamaYap {
if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçtiğiniz anket cevabının numarasını giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt }
if (%VerdigiOy == 1) { inc %sonucoy1 }
if (%VerdigiOy == 2) { inc %sonucoy2 }
if (%VerdigiOy == 3) { inc %sonucoy3 }
if (%VerdigiOy == 4) { inc %sonucoy4 }
.msg $nick Oyunuz kaydedilmiştir. Oylama yaptığınız anket cevap numarası %VerdigiOy
.write Liste.txt %OyAdresi
.halt
}
Alias AnketleriBirArttir {
inc %ilkanketgiris
if (%ilkanketgiris == 1) {
if (%sonuc1 !== $null) { inc %sonucoy1 }
if (%sonuc2 !== $null) { inc %sonucoy2 }
if (%sonuc3 !== $null) { inc %sonucoy3 }
if (%sonuc4 !== $null) { inc %sonucoy4 }
}
if (%ilkanketgiris !== 1) { return }
}
Alias f1 {
set %anketkanal $$?="Anket kanalını başında # olarak yazınız." | TestKanal
}
Alias TestKanal {
if (%anketkanal == $null) { echo -a Anket sistemi anket kanalı olmadan maalesef çalışmaz. | halt }
if (%anketkanal !== $null) { set %anketsoru $$?"Anketin sorusunu açık bir dille yazınız." | AnketSoruTest }
}
Alias AnketSoruTest {
if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç? | echo -a Lütfen ankete soru girin. | halt }
if (%anketsoru !== $null) { Set %sonuc1 $$?="Anket cevap 1 yazınız" | Cevapbirtest }
}
Alias CevapbirTest {
if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc1 !== $null) { set %sonuc2 $$?="Anket cevap 2 yazınız" | Cevapikitest }
}
Alias CevapikiTest {
if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc2 !== $null) { set %sonuc3 $$?="Anket cevap 3 yazınız" | Cevapuctest }
}
Alias CevapucTest {
if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc3 !== $null) { set %sonuc4 $$?="Anket cevap 4 yazınız" | Cevapdorttest }
}
Alias CevapdortTest {
if (%sonuc4 == $null) { halt }
if (%sonuc4 !== $null) { halt }
}

Dosya olarak indirmek isteyen varsa, aşağıdaki linkten de indirebilirler.
Güle güle kullanın arkadaşlar.

http://www.chatix.org/zipfiles/Anket_Addon.zip

Sadakat Ayın Güneşe Olan Bağlılığı Gibi Ebedi,Keskin Bir kılıçı Avuçlarının Arasında Tutmak Kadar Tehlikeli Ve Zor Bir Erdemdir.Bu Erdem İse Sadece Asil Kanlar Taşıyanlara Mahsustur.