IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/211090-yanlis-anlamazsaniz-turkiyede-bir-ilk-anket-addonu.html)

Yanlış anlamazsanız Türkiyede bir ilk... 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.;araba

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 "ben yazdım diye yayınlamayın lütfen.

;Güle güle kullanın.

;Iletişim MSN : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

 

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.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Güzel bir addon, mIRClarımıza yenilikler geliyor. Başarılar:)

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Eline sağlık, böyle yenilikler beni ve herkesi mutlu ediyor.

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Arkadaşlar addon için biraz açıklama yapayım.

4 seçeneğe kadar ekleme izni
Belirlediğiniz kanalda kanala girenlere mesaj atıp, anket bilgi vermesi.
1 oy kullananın tekrar oy kullanamaması. (hostları liste.txt'ye yazdırdım. ip değişirse maalesef yapılabilecek bir şey yok)

walla bunun için 3 saat uğraştım. teşekkür eden o 2 arkadaşıma emeğe saygı duydukları için ben teşekkür ederim. 36 defa bakıpta bir teşekkür etmeyene yazık diyorum.

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Harika Hocam tŞkler Emeğine Sağlık.ßaşarılar Dilerim.

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

On Numara Bir Paylaşım. Emeğinize Sağlık..

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Ilgi ve alakanıza çok teşekkür ederim arkadaşlar.
Sizler gibi düşünceli, emeğe değer veren insanların olduğunu bilmek çok güzel.
Sağlıcakla kalın, güle güle kullanın.

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

ne kadar güzel bir şey tşk ederiz kardeş emeğine sağlık kanallar için çok hoş ve ilgi çekici bir emek başarılarının devamını dileriz

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Alıntı:

mrdamned Nickli Üyeden Alıntı (Mesaj 715340)

Kardeş ben kullanamadım ama bak saat gece 4 :20 gecıyo bu kodu yaptıgın için teşekkur sana helal...
başarılaırın devamını dilerim...
Suçsuz yasaklı SabotaJ !

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Anket leri Yazıoruzda Hiç Birşey Olmuyor Sebebi Nedir?

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Emeğine sağlık dostum .

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Başarılar, güzel paylaşım...

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

yanlıs anlama ama galıba turkiyede ilk : D ilk kez anket addonuna rastlıyorum : ) elline emegine saglık.

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Bu addonu sen yaptiğina eminmisin kardeşim? :)

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Güzel bir paylaşım olmuş, emeğine sağlık, başarılarının devamını diliyorum.

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Emegine SaqLık Kardes Cok GüzeL Bir YeniLik oLmus iLk i Başarmana Sevindik. Fakat NasıL KuLLaniLacaqinida Nereye YükLeniLeceqini Vs. AnLatsaydin Fena oLmazdi YükLiyemiyen Veya NasıL Kullanacaqini BilmiyenLere Yardimci oLmuş oLurdun. Bunuda Yaparsan Cok qüzeL oLur. Tekrardan Emeqine SaqLik Üstad GüzeL Çalişma..

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Alıntı:

mrdamned Nickli Üyeden Alıntı (Mesaj 714923)

Kod:

 

;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 : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

 

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.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Arkadaşlar Guzel bir Kod Calısma olmus Ankete Sadece Nicki Kayıtlı Kişiler Katılsa Bunu nasıl ayarlarız

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Yanlış anlamazsanız Dünyada bir ilk buyurun ;s42 => [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Yanlış anlamazsanız Türkiyede bir ilk... Anket Addonu

Bazı Sunucularda Özelde rakam yazılmıyor. Öyle durumlarda Anketi böyle kullanırsınız.
Keyifli İF'ler.

Kod:

on *:Join:#KANAL: {

  if ($nick !== $me) {

    if ($chan == %anketkanal) { .msg $nick Merhaba, KANALIMIZ İçin Hazırlanan Anketimize Katılmak İster 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 $nick | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }

}

Alias Sonuclar {

  if (%sonucA !== $null) { .msg $nick 4 %sonucA sonucunun aldığı oy sayısı %sonucoyA }

  if (%sonucB !== $null) { .msg $nick 2 %sonucB 2sonucunun aldığı oy sayısı %sonucoyB }

  if (%sonucC !== $null) { .msg $nick 4 %sonucC 2sonucunun aldığı oy sayısı %sonucoyC }

  if (%sonucD !== $null) { .msg $nick 2 %sonucD 2sonucunun aldığı oy sayısı %sonucoyD }

}

Alias Anket {

  .msg $nick Anketimize hoşgeldiniz.

  .msg $nick Anket sorumuz şöyledir.

  .msg $nick 

  .msg $nick %anketsoru

  .msg $nick 

  .SonucOzel

}

Alias SonucOzel {

  if (%sonucA !== $null) { .msg $nick A) 4 %sonucA }

  if (%sonucB !== $null) { .msg $nick B) 4 %sonucB }

  if (%sonucC !== $null) { .msg $nick C) 4 %sonucC }

  if (%sonucD !== $null) { .msg $nick D) 4 %sonucD }

  .msg $nick 

  .msg $nick Anketimize katılmak için lütfen !Oy Seçtiğiniz şıkkın numarası. Örn : !Oy A

}

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 D | halt }

  if (%VerdigiOy == A) { inc %sonucoyA }

  if (%VerdigiOy == B) { inc %sonucoyB }

  if (%VerdigiOy == C) { inc %sonucoyC }

  if (%VerdigiOy == D) { inc %sonucoyD }

  .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 (%sonucA !== $null) { inc %sonucoyA }

    if (%sonucB !== $null) { inc %sonucoyB }

    if (%sonucC !== $null) { inc %sonucoyC }

    if (%sonucD !== $null) { inc %sonucoyD }

  }

  if (%ilkanketgiris !== 1) { return }

}

Alias f4 { 

  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 %sonucA $$?="Anket cevap 1 yazınız" | Cevapbirtest }

}

Alias CevapbirTest {

  if (%sonucA == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }

  if (%sonucA !== $null) { set %sonucB $$?="Anket cevap 2 yazınız" | Cevapikitest }

}

Alias CevapikiTest {

  if (%sonucB == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }

  if (%sonucB !== $null) { set %sonucC $$?="Anket cevap 3 yazınız" | Cevapuctest }

}

Alias CevapucTest {

  if (%sonucC == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }

  if (%sonucC !== $null) { set %sonucD $$?="Anket cevap 4 yazınız" | Cevapdorttest }

}

Alias CevapdortTest {

  if (%sonucD == $null) { halt }

  if (%sonucD !== $null) { halt }

}