Merhaba arkada?lar. WordPress\\\’te anket sistemi ararken akl?ima mirc için yapilmis anket addonu var midir diye düsündüm. Google\\\’da aradim anket addonu yok, ircforumlari.net adresinde farkli kelimeler ile aradim yok.
su an bu mesaji yazmadan önce tekrar bir arayayim dedim ve yine yok…

Kodu çalistirmak için mirc\\\’e yükleyip, f1 tusuna basmaniz yeterlidir.

Kod:
        
;Anket Addonu.
;Tüm kodlar kullanilabilir.
;Tek ricam bu addonu kalkip baska bir nick alt?nda  yazdim diye yayinlamayin lütfen.
;Güle güle kullan?n.
 
 
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 }
}
Kaynak: ?rcforumlari