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:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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. }
}
Kırmızı olan yeri
play $chan yap yada play $nick play -n $nick deki $nick'i $chan ile değiştirirsen kanala /notice olarak gönderir, /notice olarak gitmesini istemiyorsan -n flagını kaldırmalısın yani
/play $chan olarak değiştirmelisin. mIRC'de şiirler klasörü içine *.txt uzantılı her bir Metin Belgesi içine 1 şiir yazdığında onları gönderir. Eğer 0 şiir var diyorsa ya mIRC içinde şiirler klasörü yoktur ya da şiirler klasörü içinde .txt uzantılı dosyalar yoktur.