Çözüldü anket kodu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kimimben · 14 Ekim 2015, 15:51

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

WaLek · 14 Ekim 2015, 17:37

@[Ü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 ...

Kimimben · 14 Ekim 2015, 17:51

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

Kimimben · 14 Ekim 2015, 23:58

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

YouMyCure · 15 Ekim 2015, 15:24

Kimimben Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Kimimben · 15 Ekim 2015, 15:29

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

YouMyCure · 15 Ekim 2015, 15:37

Kimimben Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kendi kullandığım mirce yerleştirdim

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

WaLek · 15 Ekim 2015, 15:41

@[Ü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 ..

Kimimben · 15 Ekim 2015, 16:39

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ı

YouMyCure · 16 Ekim 2015, 16:06

Kimimben Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.