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

Etiketlenen Kullanıcılar

16Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Ekim 2015, 22:36   #11
Supernova
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;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.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 17 Ekim 2015, 00:03   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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ı

__________________
Eğer mutluluk para olsaydı, mesleğiniz ne olurdu?

Konu Feragat tarafından (21 Ekim 2015 Saat 10:41 ) değiştirilmiştir. Sebep: mIRC Kodlarını "CODE" tagı ile paylaşın.
 
Alıntı ile Cevapla

Alt 17 Ekim 2015, 08:06   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 17 Ekim 2015, 16:41   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
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.

__________________
Eğer mutluluk para olsaydı, mesleğiniz ne olurdu?
 
Alıntı ile Cevapla

Alt 21 Ekim 2015, 00:47   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




Yokmudur yardımcı olacak

__________________
Eğer mutluluk para olsaydı, mesleğiniz ne olurdu?
 
Alıntı ile Cevapla

Alt 22 Kasım 2015, 17:30   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




arkadaşlar sonuçu göstermiyor özelde neden ola bilir

 
Alıntı ile Cevapla

Alt 22 Kasım 2015, 18:04   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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


Konu Feragat tarafından (22 Kasım 2015 Saat 21:06 ) değiştirilmiştir. Sebep: mIRC Kod'larını CODE Tagı içinde paylaşın.
 
Alıntı ile Cevapla

Alt 22 Kasım 2015, 18:48   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




Bu nasil calisiyor R3dLine

__________________
Eğer mutluluk para olsaydı, mesleğiniz ne olurdu?
 
Alıntı ile Cevapla

Alt 23 Kasım 2015, 02:01   #19
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




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


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
"Her Günahın Bir İntikam Meleği Olur.."
 
Alıntı ile Cevapla

Alt 28 Kasım 2015, 18:38   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: anket kodu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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?

__________________
Eğer mutluluk para olsaydı, mesleğiniz ne olurdu?
 
Alıntı ile Cevapla

Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hazir Kodu Sound kodu Lazim Pandorum mIRC Scripting Sorunları 2 22 Ekim 2010 12:00
selam status ekranına saat kodu koydum O Kodu NASIL SİLECEM ??? Y ofofyaRim mIRC Scripting Sorunları 5 31 Ağustos 2009 23:42
Anket :) XcLusive Komik Loglar 3 04 Mart 2009 20:02