Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Anket Addonu

Ana Sayfa » internet » IRC » Anket Addonu
Anket Addonu

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

Anket Addonu - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

irc invex komutu

irc invex komutu 17 Ocak 2011

irc notify kullanımı

irc notify kullanımı 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

RASTGELE İÇERİKLER

Web Sohbet Güncellendi Çiller’in eski başdanışmanından flaş açıklamalar Aşklarını Dizi Setlerinde Seçtiler KÖMÜRÜ İLK BULAN KİŞİ AY KIRMIZI AYLAR KIRMIZI DÜNYA Göz kapağı ve konjonktiva hastalıkları

FACEBOOK'TA BİZ

Hoşgeldiniz

kelebek.gen.tr – kelebek mirc - Tüm Hakları Saklıdır