Anket Addonu

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.

Kod:
         
;Anket Addonu.
;Tüm kodlar kullan?labilir.
;Tek ricam bu addonu kalk?p ba?ka bir nick alt?nda \\&quot;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 $$?=\\&quot;Anket kanal?n? ba??nda # olarak yaz?n?z.\\&quot; | TestKanal
}
Alias TestKanal {
  if (%anketkanal == $null) { echo -a Anket sistemi anket kanal? olmadan maalesef çal??maz. | halt }
  if (%anketkanal !== $null) { set %anketsoru $$?\\&quot;Anketin sorusunu aç?k bir dille yaz?n?z.\\&quot; | 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 $$?=\\&quot;Anket cevap 1 yaz?n?z\\&quot; | Cevapbirtest }
}
Alias CevapbirTest {
  if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc1 !== $null) { set %sonuc2 $$?=\\&quot;Anket cevap 2 yaz?n?z\\&quot; | Cevapikitest }
}
Alias CevapikiTest {
  if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc2 !== $null) { set %sonuc3 $$?=\\&quot;Anket cevap 3 yaz?n?z\\&quot; | Cevapuctest }
}
Alias CevapucTest {
  if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc3 !== $null) { set %sonuc4 $$?=\\&quot;Anket cevap 4 yaz?n?z\\&quot; | Cevapdorttest }
}
Alias CevapdortTest {
  if (%sonuc4 == $null) { halt }
  if (%sonuc4 !== $null) { halt }
}


Kaynak: ?rcforumlari