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