Konu: Şiir Botu
Tekil Mesaj gösterimi
Alt 10 Mart 2006, 16:31   #4
Çevrimdışı
el33t
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Yazabiliriz.
Şiirleri mIRC'de şiirler diye bir klasör içine koyup on TEXT eventiyle ve /play komutuyla kanala ya da nicke gönderebilirsin ama botun Excess Flood'dan düşebilir.
Edit:

Aşağıdaki kodu senin için yazdım. Öncelikle
1) mIRC klasörüne şiirler diye bir klasör açmalısın.
2) *.txt uzantılı yani Metin Belgeleri içine şiirlerini yazmalısın. (Örneğin şiir1.txt içine alt alta satırlarda istediğin şiiri yazmalısın.
3) /play komutlarının sonundaki 1500, satırları kaçar milisaniye arayla göndereceğini belirtir. Ben 1.5 saniye (1500ms) olarak ayarladım, sen istediğinle değiştirebilirsin.

Daha sonra kanalda herhangi biri !şiir yazdığında onlara toplam kaç tane şiir olduğunu (şiirler klasöründeki .txt uzantılı dosyalar) söyler ve !şiir random yazdıklarında rasgele bir şiir geleceğini, !şiir <şiir no> ile istedikleri şiiri okuyabileceklerini belirtir.
Aşağıdaki kodu mIRC'de Remote'a(ALT+R) koymalısın. İşte kod:

on *:text:!şiir*:#:{
var %: = $findfile($qt($mircdirşiirler),*.txt,0)
if !$2 { msg # Toplam $+(,%:,) tane şiir mevcut, rasgele bir şiir için !şiir random yazınız, %: şiirden herhangi biri için !şiir <şiir no> yazınız. }
elseif $2 == random { play -n $nick $qt($findfile($qt($mircdirşiirler),*.txt,$r(1,%:)) ) 1500 }
elseif $2 isnum $+(1-,%:) { play -n $nick $qt($findfile($qt($mircdirşiirler),*.txt,$2)) 1500 } | else { msg # Üzgünüm, toplam $+(,%:,) tane şiir var. }
}


Umarım işine yarar..


Konu el33t tarafından (10 Mart 2006 Saat 17:11 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver