Tekil Mesaj gösterimi
Alt 03 Nisan 2006, 13:48   #2
Çevrimdışı
el33t
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Re: Soru cevap botu




Böyle bir başlangıç sanırım sana yeter.mIRC klasöründe sorucevap.txt ve Soru|cevap şeklinde oluşturduğun alt alta soruları hazırlayıp aşağıdaki kodu mIRC'de Remote'a (ALT+R) koyup /sorucevap #kanal yazdığında soru cevap oyunu başlamış olur

;/sorucevap aliası
alias sorucevap {
;%: değişkenine 1 ile sorucevap.txt dosyasının satır sayıları arasında bir sayı yükleniyor, %s değişkenine soru atanıyor. (Burdaki değişkenler local)
var %: = $r(1,$lines(sorucevap.txt)), %s = $gettok($read(sorucevap.txt,%:),1,124)
;Kanala soru ve süre mesaj olarak atılıyor.
msg $1 Soru: %s - Süre: 45sn
;%c değişkenine (global bir değişken) sorunun cevabı yükleniyor.
set %c $gettok($read(sorucevap.txt,%:),2,124)
;SENYANITLA adında 45 saniye sonra devreye girecek olan bir timer kuruluyor ve bu timer Kanala sorunun cevaplanmadığını bildiriyor, %c değişkenine kaldırıyor ve 45 saniyenin sonunda cevap gelmediğinde 3 saniye sonra yeni bir soru kanala gönderiyor.
.timerSENYANITLA 1 45 msg $1 Soruyu kimse bilemedi, cevap: %c olacaktı. Sıradaki soru için hazırlanın. $(|,2) unset %c $(|,2) .timer 1 3 sorucevap $1
}
;Önceden cevabı ayarladığımız %c değişkeni kanala yazıldığında bu event çalışıyor
on *:text:%c:#:{
;%c değeri siliniyor, başkası cevabı verdiğinde çalışmaması için
unset %c
;Kanala nickin soruyu bildiğini gösteriyor.
msg # $nick soruyu bildi, cevap $1-
;soru sorulduktan 45 saniye sonra çalışacak olan SENYANITLA timerı kapatılıyor.
.timerSENYANITLA off
;3 saniye sonra yeni bir soru soruluyor.
.timer 1 3 sorucevap #
}

Umarım mantığı anlamışsındır, o kadar da zor bir şey değil.


Konu el33t tarafından (03 Nisan 2006 Saat 14:19 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan reklamver