Şiir Botu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

muratt_aziz · 21 Nisan 2009, 22:18

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
📢 Şiir Fm'De KepomeyL ile Şiir mevsimi başladı..	ImOriqinaL	Yayındaki DJ'ler	0	22 Şubat 2022 20:06
Garson Mustafa'nın şiir aşkı: Müşteri sipariş aldığımı sanıyor ama ben şiir yazıyorum	NurSima	Güncel ve Son Dakika Haberler	0	23 Haziran 2021 21:13
Şiir nasıl yazılır, şiir yazma teknikleri. Şahsi fikrim.	IF	Şiir, Hikaye ve Güzel Sözler	6	02 Ağustos 2014 23:06
Afrikalı Zenci Bir Adam'ın, 2005 Yılında En İyi Şiir Olmaya Aday Gösterilmiş Şiir'i	Sevda	Şiir, Hikaye ve Güzel Sözler	3	27 Ağustos 2011 09:14

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.