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

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

- - anket kodu yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/769465-anket-kodu-yardim.html)

anket kodu yardım

Arkadaşlar Bu bu anket kodu if de hazır kodlarda yaplasılmıs [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Konu altında yine buna eklenecek ıstedıqmı yazdımı ama sanım eskı bır paylasım olduqu ıcın sonuc alamadım
bu anket koduna ben sadece anket oylamaısn kayıtlı nıcklerın oy kullana bılmesını ıstıyorum
!oy 1 yazdıqında kayıtsız nıck Nickiniz Kayıtsızdır Anketmıze Kayıtlı uyeler katılabılır gibi bir uyarı vermesnı ıstıyorum yarcımcı olurmusnz

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 : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


 

 

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 }

}

Cevap: anket kodu yardım

Kod:

if %kayıtlımı == hayır { msg %Oyveren nickiniz kayıtsız oldugu için siz oy kullanamazsınız. | halt }

Kod:

raw 352:*: {

  haltdef

  if r isin $7 { set %kayıtlımı Evet  

  }

  else { set %kayıtlımı Hayır }

}

bir kaç sorgu koymalısın Ns status Nick ordan donen cevapla Kayıtlı nick == 3 kayıtsız nick == 0 gibi de sorgulatıp yapabılırsın

buna bakarak yapmaya calıs bakalım..

Cevap: anket kodu yardım

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041845890)

Kod:

if %kayıtlımı == hayır { msg %Oyveren nickiniz kayıtsız oldugu için siz oy kullanamazsınız. | halt }

Kod:

raw 352:*: {

  haltdef

  if r isin $7 { set %kayıtlımı Evet  

  }

  else { set %kayıtlımı Hayır }

}

bir kaç sorgu koymalısın Ns status Nick ordan donen cevapla Kayıtlı nick == 3 kayıtsız nick == 0 gibi de sorgulatıp yapabılırsın

buna bakarak yapmaya calıs bakalım..

[COLOR=Red]Ns status Nick [COLOR=Black] bu kısımdan cok bırsey anlamadım ama bu evet hayır yerlerını 3 veya 0 olarakmı deqıstırmem lazım
birde bu anket sonucları nasıl sifirlayacagız kodda gecen hafta baska anket yaptım suan farklı bır anket ama anket sonucları oyları suankı yaptıqım anketın ustune sayıyor

Cevap: anket kodu yardım

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yıllar önce ben, feragat, toprak, l4, cocorico vs.. Yaptığı hatayı şuanda sen yapıyorsun.. :) Balık tutmayı öğretmek yerine balık veriyorsun. Yakında balık tutmaktan sıkılıcaksın. :)

Cevap: anket kodu yardım

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
eksik parca parca yazdım
raw dan sonuc alması için who vs cekmesi lazım
yolunu gosterdim bunlarla birleştir arastır bısıler yapmaya calısır die.
Ama haklısın, hazır verince zaten alıyoz istediğimizi die, öğrenmekte istemiyolar.

Cevap: anket kodu yardım

Bu kod için demedim canim genel olarak :)

Cevap: anket kodu yardım

Alıntı:

SeydiCan Nickli Üyeden Alıntı (Mesaj 1041845905)

Selam kod olayından anlamıyorum fakat Kul arkadastan aldıgım not gönderme kodunda sifreli sifresiz sorgusu yapan bi kısım var belki bunu degiserek kendi anket kodunuza entegre edebilirsiniz.

on *:text:*:?:{
if $nick ison #kanal || $nick ison #kanal {
if $1 == !komut {
.set %sifresiz on
.set %mesaj $3-
if !$2 { msg $nick Eksik Bilgi girdiniz. | return }
if $nick == $2 { msg $nick ... | return }
if $2 && ($2 != yardim) && !$3 { msg $nick Eksik Bilgi girdiniz. | return }
if $2 && ($2 != yardim) && $3 { .enable #sifresiz | timer 1 1 ns status $nick }
if $2 == yardim {
.play $nick yardim.txt 100
}
}

.set %sifresiz on

#sifresiz off
on *:notice:*:*: {
if (Status isin $1-) && ($3 == 0) { msg %nick Nickiniz Kayitsiz, Komutu Kullanmak icin Kayitli Nickiniz olmasi gerekiyor. | .set %sifresiz off | .disable #sifresiz }
if (Status isin $1-) && ($3 == 3) { disable #sifresiz | enable #kontroledelim | ns info %nick2 | .timer 1 1 disable #kontroledelim }
}
#sifresiz end

#kontroledelim off
on *:notice:*:?: {
if (*kay?tl??bir?nick?de?i* iswm $1-) { msg %nick Malesef Nick KAYITSIZ, sadece Kayitli nicklere gönderebilirsiniz. }
if (*t?registere* iswm $1-) { msg %nick Malesef sadece Kayitli nicklere gönderebilirsiniz. }
}
#kontroledelim end