IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü anket kodu (https://www.ircforumlari.net/mirc-scripting-sorunlari/702526-anket-kodu.html)

merhabalar öncelikle böyle bir kod varmidir hic rastlamadım eger elinde olan varsa paylaşırsa sevinirim Kod anket üzerine sorusu ve 4-5 maddesi olan her nickin 1 oy kullandigi bir anket kodu yardımcı olan arkadaşlara simdiden tşk ederim

Cevap: anket kodu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Merhabalar ... Kodu ne için ıstıyorsun birazdaha acıklayıcı olabilirmisin nerde kullanacaksın ?

Mirc için istiyorsanız [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Burda Bir addon var ... bu değil ise yardımcı olmaya çalışalım ...

Cevap: anket kodu

Anketi user ler için düşünüyorum mrc entegre edeceğim bir şey misal bir soru ve abcd gibi 5 seçeneği olan ve nickin 1 oy kullandigi bir sey suan verdiğiniz linki inceliyorum

Cevap: anket kodu

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

Burasi cok karisik değiştirilmesi gereken kisimlar nelerdir bu kod hakkında bilgi verecek arkdaslar varmi

Cevap: anket kodu

Alıntı:

Kimimben Nickli Üyeden Alıntı (Mesaj 1041688896)

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

Burasi cok karisik değiştirilmesi gereken kisimlar nelerdir bu kod hakkında bilgi verecek arkdaslar varmi

bot özelinde
if ($1 == !Anket) { Anket }
!anket Komutunu Kullandığında Soruyu Gösterir
-
if ($1 == !Oy)
yine bot özelinde !oy (cevapnumarası)
yaparsanız oy vermiş olursunuz
-
if ($1 == !Sonuc) { Sonuclar }
yine bot özelinde !sonuc yaptığınızda verilen oyları gösterir.

Cevap: anket kodu

Tamam da bu kodu remoteye atıp f1 yaptım ve f1 de çıkan kısımları doldurduğum halde anket işini yapmadı bot özelinde derken bu kodu herhangi bir bota yerleştirmedim kendi kullandığım mirce yerleştirdim ve !Anket gibi komutları da denedim hiç bir cevap vermedi

Cevap: anket kodu

Alıntı:

Kimimben Nickli Üyeden Alıntı (Mesaj 1041688988)

kendi kullandığım mirce yerleştirdim

kendi mircine yerleştirip kendin kullanacaksan ;
on *:text:*:?: {
gibi olan satırları ;
on *:input:*: {
yapmalısın

Cevap: anket kodu

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

Simdi bastan Başlayalım herhangi bir kanalda @ yetkılı olan bir mirc icinde calıstırabilirsiniz ...

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Arkadasımın dedigi gibi Sizden haric bir Nick Bot ozeline

bot özelinde
if ($1 == !Anket) { Anket }
!anket Komutunu Kullandığında Soruyu Gösterir
-
if ($1 == !Oy)
yine bot özelinde !oy (cevapnumarası)
yaparsanız oy vermiş olursunuz
-
if ($1 == !Sonuc) { Sonuclar }
yine bot özelinde !sonuc yaptığınızda verilen oyları gösterir.

Mirc icinde Liste.txt klasorune kaydeder sonuclari

Almıs oldugunuz hatayı soylersenız dahada yard. olabilirim Saygılarım ile ..

Cevap: anket kodu

Peki bu salonda olmaz mı özelde değil de salonda !Anket yazınca sorusunu ve Şıklarını verecek ve Userler ise oy kullanacak şekilde olmaz mı

Cevap: anket kodu

Alıntı:

Kimimben Nickli Üyeden Alıntı (Mesaj 1041688999)

Peki bu salonda olmaz mı özelde değil de salonda !Anket yazınca sorusunu ve Şıklarını verecek ve Userler ise oy kullanacak şekilde olmaz mı

On *:Text:*:?: {
kısmını
on *:text:*:#KANAL: {
şeklinde yaparsan Belirttiğin Kanalda Uygulanır