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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

SeydiCan 01 Mart 2017 15:00

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


aLone 01 Mart 2017 18:19

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..

SeydiCan 01 Mart 2017 20:59

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

IrCbaStarD 01 Mart 2017 21:30

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. :)

aLone 01 Mart 2017 21:37

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.

IrCbaStarD 01 Mart 2017 21:49

Cevap: anket kodu yardım
 
Bu kod için demedim canim genel olarak :)

nikotin 01 Mart 2017 22:35

Cevap: anket kodu yardım
 
Alıntı:

SeydiCan Nickli Üyeden Alıntı (Mesaj 1041845905)
[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

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk