Oy Kullanma Remotesi Arıyorum - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Son_son · 03 Şubat 2012, 02:34

Selam Arkadaşlar mirc Botu için Oy Kullanma Remotesi arıyorum yani şu şekilde Örnegin : sizce en akıllı kimdir
ahmet
mehmet
ali
veli
ve sunucuya giren user !oy ahmet şeklinde oy kullanıcan bot üzerinden ve ben !sonuç yaptıgımda sonucları görücem yardımcı olursanız sevinirim şimdiden sagolun

SiLuet · 03 Şubat 2012, 14:50

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:Text:*:?:{
  if ($nick == KendiNickim) {
    if ($1 == !anketsoru) { set %anket.Soru $2- | msg $nick Anket Sorusu4  %anket.Soru Olarak Degisti. }
    elseif ($1 == !anketcevap) { set %anket.cevap $2- | msg $nick 4[Anket]  | s.c.anket $nick }
    elseif ($1 == !anket) { if ($2 == Açık) { set %anket. Açık | msg $nick Anket Açık. } | elseif ($2 == Kapalı) { set %anket. Kapalı) | write -c anket.txt | msg $1 Anket Kapatıldı. } }
  }
  if ($1 == !sonuç) { msg $nick 4[Anket Sonuçları] | anket.sonuc $nick }
  if ($1 == !oy) {
    if ((%anket. == Açık) && !$readini(anket.txt,Nickler,$nick)) {
      if !$regex(%anket.cevap,$2) { msg $Nick Oy Verdiğiniz Kelime Listede Yok! | msg $nick Lütfen Oyunuzu !oy < %anket.cevap > cevaplarından Biriyle Kullanınız. 4[Not] Büyük Küçük Harf Duyarlıdır! |  halt }
      else { writeini anket.txt Nickler $nick 1 | writeini anket.txt Sonuçlar $2 $calc($readini(anket.txt,Sonuçlar,$2) + 1) |  msg $nick Oy Kullandığınız İçin teşekkür ederiz. Sonuçları Görmek İçin !sonuç  Yazınız. }
    }
  }
}

alias s.c.anket {
  var %1. 1,%2. $numtok(%anket.cevap,32)
  msg $1 4Soru  %anket.soru
  while (%1. <= %2.) {
    msg $1 Cevap %1. $+ )  $gettok(%anket.cevap,%1.,32)
    inc %1.
  }
}
alias anket.sonuc { play -tsonuçlar $1 anket.txt }

On !*:Join:#KANAL: {
  if (%anket. == açık) && !$readini(anket.txt,Nickler,$nick) {
    .msg $nick 4 Anketimize katilmak istemezmisiniz? 
    .s.c.anket $nick 
  }
}

Anket Açıksa #Kanal Kanalına Girenlere Senin Belirlediğin Soru Sorulur,ve Belirlediğin cevaplar oylamaya sunulur.

Botun Özelinde Kullanılacak Komutlar.
!anketsoru Ankette Soracağınız Soru Metni
!anketcevap Sordugunuz Soruda Oylayacağınız cevaplar.
!anket Aç/Kapat Anket Oylamasını Açıp Kapatır.
Buraya Kadarki Komutları Koddaki Kendinickim Yazan Yere Yazacağın Nick Kullanabilir.
!oy Kelime (Her Nick Bir defa oy Kullanabilir.)
!sonuç Oylama Sonucunu Listeler.

ads01ads · 03 Şubat 2012, 18:30

Kod çalişmiyor yada ben yapamadım /play: Açılamıyor \anket.txt' !oy yapiyom birşey çikmiyor !sonuç yapiyom birşey yok bu arada mesela en güzel kim diye birşey yapmak istiyorum nickleri 10 15 tane yazacam herkez !Oy "nick" yapacak bide Kullandiği oyu istediğim özel Kanala msg atmasını sitiyorum Ahmet nicki Mehmet e Oy kullandı... gibi bakabilir misin

SiLuet · 03 Şubat 2012, 22:20

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

Kod çalişmiyor yada ben yapamadım /play: Açılamıyor \anket.txt' !oy yapiyom birşey çikmiyor !sonuç yapiyom birşey yok bu arada mesela en güzel kim diye birşey yapmak istiyorum nickleri 10 15 tane yazacam herkez !Oy "nick" yapacak bide Kullandiği oyu istediğim özel Kanala msg atmasını sitiyorum Ahmet nicki Mehmet e Oy kullandı... gibi bakabilir misin

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:Text:*:?:{
  if ($nick == KendiNickim) {
    if ($1 == !anketsoru) { set %anket.Soru $2- | msg $nick Anket Sorusu4  %anket.Soru Olarak Degisti. }
    elseif ($1 == !anketcevap) { set %anket.cevap $2- | msg $nick 4[Anket]  | s.c.anket $nick }
    elseif ($1 == !anket) { if ($2 == Açık) { set %anket. Açık | msg $nick Anket Açık. } | elseif ($2 == Kapalı) { set %anket. Kapalı) | write -c anket.txt | msg $1 Anket Kapatıldı. } }
  }
  if ($1 == !sonuç) { msg $nick 4[Anket Sonuçları] | anket.sonuc $nick }
  if ($1 == !oy) {
    if ((%anket. == Açık) && !$readini(anket.txt,Nickler,$nick)) {
      if !$regex(%anket.cevap,$2) { msg $Nick Oy Verdiğiniz Kelime Listede Yok! | msg $nick Lütfen Oyunuzu !oy < %anket.cevap > cevaplarından Biriyle Kullanınız. 4[Not] Büyük Küçük Harf Duyarlıdır! |  halt }
      else {  msg #Rapor $Nick $2 'ye Oy Verdi  | writeini anket.txt Nickler $nick 1 | writeini anket.txt Sonuçlar $2 $calc($readini(anket.txt,Sonuçlar,$2) + 1) | msg $nick Oy Kullandığınız İçin teşekkür ederiz. Sonuçları Görmek İçin !sonuç  Yazınız. }
    }
  }
}

alias s.c.anket {
  var %1. 1,%2. $numtok(%anket.cevap,32)
  msg $1 4Soru  %anket.soru
  while (%1. <= %2.) {
    msg $1 Cevap %1. $+ )  $gettok(%anket.cevap,%1.,32)
    inc %1.
  }
}
alias anket.sonuc { play -tsonuçlar $1 $shortfn(anket.txt)  }

On !*:Join:#KANAL: {
  if (%anket. == açık) && !$readini(anket.txt,Nickler,$nick) {
    .msg $nick 4 Anketimize katilmak istemezmisiniz? 
    .s.c.anket $nick 
  }
}

Editlenecek Kısımlar Kırmızı renkte.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çözüldü Seslenme Remotesi	Elbistanli87	mIRC Scripting Sorunları	2	21 Mayıs 2019 18:26
f tuşlarıyla msg remotesi arıyorum	MoriTezZ	mIRC Scripting Sorunları	3	13 Mayıs 2015 23:51
Badnick Remotesi	KiLLed	mIRC Scripting Sorunları	2	04 Şubat 2013 14:21
Yazı remotesi?	ßerKant	mIRC Scripting Sorunları	3	27 Mart 2012 14:58

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.