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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Seslenme Remotesi	RekorNET	mIRC Scripting Hazır Kodlar	15	30 Ocak 2014 01:09
Radyo Remotesi	UquR_TR	mIRC Scripting Hazır Kodlar	9	11 Mayıs 2012 17:54
Proxy Remotesi	moonman	mIRC Scripting Sorunları	2	30 Aralık 2011 23:43
Oto +l remotesi yardım!!!	deLuxe	mIRC Scripting Sorunları	1	11 Mart 2010 05:59

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

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.