IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   Çözüldü anket kodu (https://www.ircforumlari.net/mirc-scripting-sorunlari/702526-anket-kodu.html)

Supernova 16 Ekim 2015 22:36
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...].net 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 } }
Ekle remotene f1 komutuyla on durumuna getir. Alinti bi koddur bir dene ben denemedim.

Kimimben 17 Ekim 2015 00:03
Cevap: anket kodu
 
Kod:
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 2sonucunun 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 }
}
Verdiğiniz kodu yaptım f1 bastım soruları ve seçenekleri sordu ama odada !Anket yazana herhangi bir yazı çıkarmadı

Feragat 17 Ekim 2015 08:06
Cevap: anket kodu
 
oda da cevap vermez, bu haliyle özelde tepki verir, tabi kodda bir hata yoksa.

On *:text:*:?: Özelde tetiklenir.
On *:text:*:#: kanalda tetiklenir.

Kimimben 17 Ekim 2015 16:41
Cevap: anket kodu
 
Bu kodda sorunsuz halde çalışmasında yardımcı olacak arkadaş var mı amaç userlere bizim seçtiğimiz sorular ve cevaplar ile anket yaptırmak.

Kimimben 21 Ekim 2015 00:47
Cevap: anket kodu
 
Yokmudur yardımcı olacak

Zalimsin 22 Kasım 2015 17:30
Cevap: anket kodu
 
arkadaşlar sonuçu göstermiyor özelde neden ola bilir

R3dLine 22 Kasım 2015 18:04
Cevap: anket kodu
 
Kod:
on *:text:*:#anket,#Admin,#mt-desk: {
  if ($1 == !anketduyur && ($chan == #Opers || $chan == #mt-desk)) {
    if ($me !ison #anket) { join -n #anket }
    privmsg $ $+ *.Sunucu.com 0,2Bu haftaki Anket Sorunuz:0,3 $chr(91) %setanket $chr(93) 0,7: Oyunuzu kullanmak icin #anket kanalina girin.
    msg $chan >> Anket Duyurusu yapildi.
  }
  if ($1 == !anket && $2 == $null) {
    if (%setanket) {
      msg # Bir onceki Anket Sorunuzu:0,3 $chr(91) %setanket $chr(93) 0,7: !anketduyur komutu ile duyurabilirsiniz.
    } 
    msg # Anket Oluşturma Sihirbazı, size anket oluşturmanızda yardımcı olacak.
    msg # İlgili anketin sorusunu oluşturmak için, 4"2!Anketekle Anketinizin Sorusu4" şeklinde giriniz.
  }

  if ($1 == !anketekle && ($chan == #Opers || $chan == #mt-desk)) {
    if ($2 == $null) { msg # 4* 12Error : 4"2!anketekle Anketinizin Sorusu4" şeklinde giriş yapmalısınız. | return  } 
    if ($len($2-) < 15) { msg # 4* 12Error : Anket sorusu en az 15 karakterden oluşmalıdır.Tekrar deneyiniz. | return  }
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %hazıranket
    write -c cevap.txt   
    set %tamam YES
    set %setanket $2-
    var %i 1
    msg # Anket sorunuzun girişini 4" $2- 4" olarak yaptınız.
    msg # Şimdi de sirasiyla, ilgili anket cevaplarını 4"2!A cevap 4, 2!B cevap 4, 2!C cevap 4, 2!D cevap 4, 2!E cevap 2vs..4" şeklinde girip,
    msg # Tüm cevaplar girildikten sonra, anketi bitirmek için 4"2!Anketbitir" yazınız.
  }
  if ($regex($1,/^![A-Z]$/i) && ($chan == #Opers || $chan == #mt-desk)) {
    if ($2 == $null) { msg # 4* 12Error : İlgili anket cevaplarını 4"2!A cevap 4, 2!B cevap 4, 2!C cevap 4, 2!D cevap 4, 2!E cevap 2vs..4" şeklinde girmelisiniz. | return } 
    if (%tamam == $null) { msg # 4* 12Error : Anket cevaplarından önce, anketinizin sorusunu girmelisiniz. Kullanım: 2!anketekle Anketinizin Sorusu | return }
    var %xm $remove($1,!)
    set $+(%,ank,%xm) $upper(%xm) $+ ) $strip($2-)
    set $+(%,cevap,%xm) 0
    msg # $+(2,$upper(%xm),) Şıkının cevabı 4" $strip($2-) 4"  olarak girildi. 
  }

  if ($1 == !anketbitir && ($chan == #Opers || $chan == #mt-desk)) {
    if (%setanket == $null) { msg # 4* 12Error : Anket Sorusu girişi yapılmamış. 4"2!anketekle Anketinizin Sorusu4" şeklinde giriş yapmalısınız . | return  }
    if ($var(ank*,0) < 3) { msg # 4* 12Error : Anket oluşturulamadı.En az 3 cevap girmelisiniz ! | return }
    if (%bekletz) { notice $nick Bekleyin.. | return }
    msg # Tek soruluk anket başarıyla oluşturuldu.
    msg # 2Anket Sorusu : %setanket
    msg # 2[Anket Cevapları]
    var %i 1
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # Anket'i işleme koymak için 4"2!Ankethazır4", Anket'i iptal etmek için ise 4"2!Anketreset4" şeklinde giriş yapın.
    set $+(-eu,$calc(%i + 1)) %bekletz YES
  }
  if (!ankethaz?r iswm $1 && ($chan == #Opers || $chan == #mt-desk)) {
    if (%setanket == $null) { msg # 4* 12Error : Anket Sorusu girişi yapılmamış. 4"2!anketekle Anketinizin Sorusu4" şeklinde giriş yapmalısınız . | return  }
    if ($var(ank*,0) < 3) { msg # 4* 12Error : Anket oluşturulamadı.Girinler cevaplar yetersiz bulundu ! | return }
    if ($me !ison #anket) { join -n #anket }   
    topic #anket 14[2Sunucu Anket14]14[ %setanket 14]1 Cevapları görmek için !cevaplar, cevap vermek için, !cevap şık, anket sonuçlarına bakmak için ise !sonuçlar yazabilirsiniz. 
    msg # 2>4> 1Anket işlem'e koyuldu.
    privmsg $ $+ *.Sunucu.com 0,2Bu haftaki Anket Sorunuz:0,3 $chr(91) %setanket $chr(93) 0,7: Oyunuzu kullanmak icin #anket kanalina girin.
    set %hazıranket OK
  }
  if ($1 == !anketreset && ($chan == #Opers || $chan == #mt-desk)) {
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %hazıranket
    write -c cevap.txt
    msg # Girilen anket bilgileri sıfırlandı.4YENİ 1bir anket oluşturmak için 2!Anket1 yazabilirsiniz. 
    topic #anket 4YENİ 1anket sorusu düzenlemesi yapılıyor.. 
  }
  if (!sonu?lar iswm $1 && $chan == #anket) { 
    if $var(cevap*,0) == 0 { msg # 4* 12Error : Anket hazır değil ! | return  }
    if (%beklet) { notice $nick Bekleyin.. | return }
    var %i 1
    while %i <= $var(cevap*,0) {
      var %ml = %ml $+($var(cevap*,%i).value,.,$remove($var(cevap*,%i),%,cevap)) 
      inc %i
    }
    var %c 1
    msg #  2__3__4__14[Anket Sonuçları]9__6__10__
    while %c <= $gettok($sorttok(%ml,32,nr),0,32) {
      var %p = $gettok($sorttok(%ml,32,nr),%c,32)
      var %z = $round($calc(($gettok(%p,1,46) / %topcevap) * 100),1)
      ;msg # $+(,$+(%c,$chr(44),%c)) $str(|,$int($calc(%z / 2))) 0 $eval($chr(37),0) $eval($+,0) $calc(($gettok(%p,1,46) / %topcevap) * 100) 14 $gettok($($+(%,ank,$gettok(%p,2,46)),2),2-,32)
      msg # $+(,$+(%c,$chr(44),%c)) $str(|,$int($calc(%z / 2))) 0 $chr(37) $+ $round($calc(($gettok(%p,1,46) / %topcevap) * 100),2) 14 $gettok($($+(%,ank,$gettok(%p,2,46)),2),2-,32)

      inc %c
    }
    msg # 2__3__4__9__6__10__
    set $+(-eu,$calc(%c + 1)) %beklet YES
  }

  if ($1 == !cevaplar && $chan == #anket) {

    if ($var(ank*,0) == 0) { msg # 4* 12Error : Anket hazır değil ! | return  }
    if (%bekletc) { notice $nick Bekleyin.. | return }
    msg # 14[Anket Cevaplari]
    var %i 1
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # 6* Seçmek istediğiniz şıkı, 4"2!Cevap Şık4" şeklinde seçebilirsiniz.14[Örnek: 2!Cevap A14] 
    set $+(-eu,$calc(%i + 1)) %bekletc YES
  }

  if ($1 == !cevap && $chan == #anket) {
    if (!%hazıranket) { msg # 4* 12Error : Anket hazır değil. | return  }
    if ($2 == $null) { msg # 4* 12Error : Cevap vermek için, bir şık seçmelisiniz. | return  }
    if (!$regex($2,/^[A-Z]$/i)) { msg # 4* 12Error : Cevap vermek için, bir şık seçin.(4Örnek: 2!cevap A) | return  }
    if ($($+(%,ank,$2),2) == $null) {
      var %i 1
      while (%i <= $var(ank*,0)) {
        var %p = %p $upper($remove($var(ank*,%i),%,ank))
        inc %i
      }
      msg # 4* 12Error : Geçersiz şık. Lütfen 4" $replace(%p,$chr(32),$+(14,$chr(44),)) 4" şıklarından birini seçiniz.
      return 
    }
    if ($read(cevap.txt,w,$nick)) { msg #anket 4* 12Error : Cevap hakkınızı kullanmissiniz . | return  }
    if (%nickwh) { notice $nick 2Bekleyin 1.. | return }
    set %cevapne $2
    who $nick
    set -u2 %nickwh ok
  }
}

raw *:*: {
  if (%nickwh)  {
    if ($numeric == 352) {
      if (*r* !iswmcs $7) { msg #anket 4* 12Error : Cevap hakkini sadece kayitli nickler kullanabilir. | return }
      if (!$read(cevap.txt,w,$6)) {
        write cevap.txt $6
        inc $+(%,cevap,%cevapne)
        inc %topcevap
        msg #anket Teşekkürler, cevap hakkınızı 4"2 $($+(%,ank,%cevapne),2) 4" olarak kullandınız.Anket sonuçlarına 2!Sonuçlar yazarak bakabilirsiniz. 
      }

    }
    if ($numeric == 315) { unset %cevapne }
  }
}
birde bunu deneyin

Kimimben 22 Kasım 2015 18:48
Cevap: anket kodu
 
Bu nasil calisiyor R3dLine

Aytac 23 Kasım 2015 02:01
Cevap: anket kodu
 
Alıntı:
Kimimben Nickli Üyeden Alıntı (Mesaj 1041699183)
Bu nasil calisiyor R3dLine
  1. !Anket yaparak baslıyoruz.
  2. !Anketekle Anketsorusu (ör: !Anketekle FB-TS Macı ne olur?)
  3. Anketsorusunun cevaplarını hazırlamak için. !A cevap !B Cevap (ör: !A 1, !B 2)
  4. !Anketbitir komutuyla anket başarıyla oluşur.
  5. Anketi aktif etmek için !Ankethazır komutuyla anket aktif olur.
  6. Anketi duyurmak için !Anketduyur komutu kullancaksın.
  7. Kanalları kendi serverine göre ayarlamayı unutma.

resimli örnek :

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

Anketi cevaplamak için #anket kanalında bulunmak lazım.

Cevapları görmek için !cevaplar, cevap vermek için, !cevap şık, anket sonuçlarına bakmak için ise !sonuçlar yazabilirsiniz.

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

Kimimben 28 Kasım 2015 18:38
Cevap: anket kodu
 
Kod:
on *:text:*:#anket,#Admin,#mt-desk: {
  if ($1 == !anketduyur && ($chan == #Opers || $chan == #mt-desk)) {
    if ($me !ison #anket) { join -n #anket }
    privmsg $ $+ *Guzyeli.com Bu haftaki Anket Sorunuz: $chr(91) %setanket $chr(93) : Oyunuzu kullanmak icin #Anket kanalina girin.
    msg $chan >> Anket Duyurusu yapildi.
  }
  if ($1 == !anket && $2 == $null) {
    if (%setanket) {
      msg # Bir onceki Anket Sorunuzu: $chr(91) %setanket $chr(93) : !anketduyur komutu ile duyurabilirsiniz.
    } 
    msg # 2Anket Olusturma Sihirbazi4, 2size anket olusturmanizda yardimci olacak.
    msg # 2ilgili anketin sorusunu olusturmak için 4!Anketekle Anketinizin Sorusu 2Seklinde giriniz.
  }
  if ($1 == !anketekle && ($chan == #Anket || $chan == #mt-desk)) {
    if ($2 == $null) { msg # 4* 12Error : 4"2!anketekle Anketinizin Sorusu" Seklinde giris yapmalisiniz. | return  } 
    if ($len($2-) < 15) { msg # 4**Error : Anket sorusu en az 15 karakterden olusmalidir.Tekrar deneyiniz. | return  }
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %haziranket
    write -c cevap.txt   
    set %tamam YES
    set %setanket $2-
    var %i 1
    msg # 4Anket sorusunu " $2- " olarak yaptiniz.
    msg # 2Simdi de sirasiyla, ilgili anket cevaplarini !A cevap , !B cevap , !C cevap , !D cevap , !E cevap  vs.." Seklinde girip,
    msg # 4Tüm cevaplar girildikten sonra, anketi bitirmek için 2!Anketbitir yaziniz.
  }
  if ($regex($1,/^![A-Z]$/i) && ($chan == #Anket || $chan == #mt-desk)) {
    if ($2 == $null) { msg # ** Error : ilgili anket cevaplarini !A  cevap , !B cevap , !C cevap , !D cevap , !E cevap vs.." Seklinde girmelisiniz. | return } 
    if (%tamam == $null) { msg # ** Error : Anket cevaplarindan önce, anketinizin sorusunu girmelisiniz. Kullanim: !Anketekle Anketinizin Sorusu | return }
    var %xm $remove($1,!)
    set $+(%,ank,%xm) $upper(%xm) $+ ) $strip($2-)
    set $+(%,cevap,%xm) 0
    msg # $+(3,$upper(%xm),) SIKKININ cevabi " $strip($2-) "  olarak girildi. 
  }
  if ($1 == !anketbitir && ($chan == #Anket || $chan == #mt-desk)) {
    if (%setanket == $null) { msg # ** Error : Anket Sorusu girisi yapilmamis. 4!anketekle 1Anketinizin Sorusu Seklinde giris yapmalisiniz . | return  }
    if ($var(ank*,0) < 3) { msg # ** Error : Anket olusturulamadi.En az 3 cevap girmelisiniz ! | return }
    if (%bekletz) { notice $nick Bekleyin.. | return }
    msg # 4Tek soruluk anket basariyla olusturuldu.
    msg # 4Anket Sorusu : %setanket
    msg # 4Anket Cevaplar
    var %i 1
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # 2Anket'i isleme koymak için 4"!Ankethazir", 2Anket'i iptal etmek için ise 4"!Anketreset" 2Seklinde giris yapin.
    set $+(-eu,$calc(%i + 1)) %bekletz YES
  }
  if (!ankethaz?r iswm $1 && ($chan == #Anket || $chan == #mt-desk)) {
    if (%setanket == $null) { msg # ** Error : Anket Sorusu girisi yapilmamis. 4!anketekle 1Anketinizin Sorusu Seklinde giris yapmalisiniz . | return  }
    if ($var(ank*,0) < 3) { msg # ** Error : Anket olusturulamadi.Girinler cevaplar yetersiz bulundu ! | return }
    if ($me !ison #anket) { join -n #anket }   
    topic #anket 4[Sunucu Anket] [ %setanket ] Cevaplari görmek için !cevaplar, cevap vermek için, !cevap , anket sonuçlarina bakmak için ise !sonuçlar yazabilirsiniz. 
    msg # Anket islem'e koyuldu.
    privmsg $ $+ *Guzyeli.com Bu haftaki Anket Sorunuz: $chr(91) %setanket $chr(93) : Oyunuzu kullanmak icin #Anket kanalina girin.
    set %haz?ranket OK
  }
  if ($1 == !anketreset && ($chan == #Anket || $chan == #mt-desk)) {
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %haz?ranket
    write -c cevap.txt
    msg # Girilen anket bilgileri sifirlandi.YENi bir anket olusturmak için !Anket yazabilirsiniz. 
    topic #anket YENi anket sorusu düzenlemesi yapiliyor.. 
  }
  if (!sonu?lar iswm $1 && $chan == #anket) { 
    if $var(cevap*,0) == 0 { msg # ** Error : Anket hazir degil ! | return  }
    if (%beklet) { notice $nick Bekleyin.. | return }
    var %i 1
    while %i <= $var(cevap*,0) {
      var %ml = %ml $+($var(cevap*,%i).value,.,$remove($var(cevap*,%i),%,cevap)) 
      inc %i
    }
    var %c 1
    msg #  2__3__4__14[Anket Sonuçlari]9__6__10__
    while %c <= $gettok($sorttok(%ml,32,nr),0,32) {
      var %p = $gettok($sorttok(%ml,32,nr),%c,32)
      var %z = $round($calc(($gettok(%p,1,46) / %topcevap) * 100),1)
      ;msg # $+(,$+(%c,$chr(44),%c)) $str(|,$int($calc(%z / 2))) 0 $eval($chr(37),0) $eval($+,0) $calc(($gettok(%p,1,46) / %topcevap) * 100) 14 $gettok($($+(%,ank,$gettok(%p,2,46)),2),2-,32)
      msg # $+(,$+(%c,$chr(44),%c)) $str(|,$int($calc(%z / 2))) 0 $chr(37) $+ $round($calc(($gettok(%p,1,46) / %topcevap) * 100),2) 14 $gettok($($+(%,ank,$gettok(%p,2,46)),2),2-,32)
      inc %c
    }
    msg # 2__3__4__9__6__10__
    set $+(-eu,$calc(%c + 1)) %beklet YES
  }
  if ($1 == !cevaplar && $chan == #anket) {
    if ($var(ank*,0) == 0) { msg # ** Error : Anket hazir degil ! | return  }
    if (%bekletc) { notice $nick Bekleyin.. | return }
    msg # [Anket Cevaplari]
    var %i 1
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # 2Seçmek istediginiz SIKKI, !Cevap SIK" seklinde seçebilirsiniz. [Örnek: !Cevap A] 
    set $+(-eu,$calc(%i + 1)) %bekletc YES
  }
  if ($1 == !cevap && $chan == #anket) {
    if (!%haz?ranket) { msg # ** Error : Anket hazir degil. | return  }
    if ($2 == $null) { msg # ** Error : Cevap vermek için, bir SIK seçmelisiniz. | return  }
    if (!$regex($2,/^[A-Z]$/i)) { msg # ** Error : Cevap vermek için, bir SIK seçin.(Örnek: !cevap A) | return  }
    if ($($+(%,ank,$2),2) == $null) {
      var %i 1
      while (%i <= $var(ank*,0)) {
        var %p = %p $upper($remove($var(ank*,%i),%,ank))
        inc %i
      }
      msg # ** Error : Geçersiz SIK. Lütfen " $replace(%p,$chr(32),$+(14,$chr(44),)) " SIKLARINDAN birini seçiniz.
      return 
    }
    if ($read(cevap.txt,w,$nick)) { msg #anket ** Error : Cevap hakkinizi kullanmissiniz . | return  }
    if (%nickwh) { notice $nick 2Bekleyin .. | return }
    set %cevapne $2
    who $nick
    set -u2 %nickwh ok
  }
}
raw *:*: {
  if (%nickwh)  {
    if ($numeric == 352) {
      if (*r* !iswmcs $7) { msg #anket ** Error : Cevap hakkini sadece kayitli nickler kullanabilir. | return }
      if (!$read(cevap.txt,w,$6)) {
        write cevap.txt $6
        inc $+(%,cevap,%cevapne)
        inc %topcevap
        msg #anket Tesekkürler, cevap hakkinizi " $($+(%,ank,%cevapne),2) " olarak kullandiniz.Anket sonuçlarina !Sonuçlar yazarak bakabilirsiniz. 
      }
    }
    if ($numeric == 315) { unset %cevapne }
  }
}

!Anketduyuru yaptigim halde #Anket odasinda anket sorusunu geçirmedi salonda Userler anket sorusunu öğrenmesi için yapacagi komut nedir?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:37.
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

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