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

nescafe · 05 Ocak 2008, 09:47

Anti fener ben oraya kadarda gelemedim !şiir yazdığımda hiç bir şey olmuyor kodlarıda ekledim mircin versiyonu v.s sorunu olabilirmi yardımcı olursanız sevinirim.

Sabit bir klasörün içindeki txt dosyalarını random olarak her !siir yazınca bir tanesini okusun istiyorum.

Teşekkürler..

L4roXyL · 05 Ocak 2008, 16:16

Dikkat ederseniz on text event'ini kullanılmış.
Eğer kod'u kendi mIRC'inize ekleyip, aynı mIRC'den !şiir yazarsanız tabiki siz !şiir yazdığınız'da algılamıyacaktır.

isyanx · 21 Nisan 2009, 19:16

ya kardeş iyi güzel yazmışsın da bu bot notice olarak atıyor bi düzenlesende kanala yazsa bir de stop komutu olsa bunun şiirden sıkılırsa kişi hemen durdurabilsin. biraz kasarmısın rica ediceğim.

muratt_aziz · 21 Nisan 2009, 22:16

ilk sayfayı iyi oku orda açıklamada yazmıs arkadaşımız
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

dErtLi · 19 Haziran 2010, 12:56

Şimdi bu bota bir de !şiir listele komutu ekleyelim desek ve bu komut verildiğinde bot, şiirleri

1- şiir1
2- şiir2
3- şiir3

Gibi listelese, Kullanıcı da şiirleri listeden seçse nasıl bir kod eklememiz gerekecek..? Ben Liste.txt adlı bir dosya oluşturup tüm şiirlerin adını bu listeye yazdım. !şiir listele komutu verildiğinde liste kanala 1,5 saniye arayla iletiliyor. Ancak, gelgelelim !şiir şiir1 dediğimizde şiir1 değil de, şiir2 veya şiir3'ü yazıyor bot kanala. Liste.txt'deki şiir sırasıyla şiir.txt'lerini bi türlü senkronlayamadım.

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 == listele { play $chan liste.txt 1500 }
  elseif $2 == random { play $chan $qt($findfile($qt($mircdirşiirler),*.txt,$r(1,%:)) ) 3000 }
  elseif $2 isnum $+(1-,%:) { play $chan $qt($findfile($qt($mircdirşiirler),*.txt,$2)) 3000 } | else { msg # Üzgünüm, toplam $+(,%:,) tane şiir var. }
}

Heartbroken · 25 Haziran 2010, 11:11

bende sorun yok çalışmasına çalışıor ancak şiirler klasörü içine 9'dan fazla sayıda şiir.txt olması sorun yarattı ..şöyleki !şiir 44 desek 9.txt okuo yada !şiir 23 desek 4.txt okuo ..yani 9'dan fazlasını algılamakta bi sorun oluştu..ilginç....

hasan86 · 11 Temmuz 2011, 19:42

evet arkadaşlar 10 ve üzeri şiirleri okumuyor sorun nededir yardımcı olurmusunuz ? Şöyleki Mesela şiir klasörüne 10.txt 11.txt diye gidiyor bota !şiir 10 yazdımı 9.txt deki şiirleri okuyor hata nerede acaba
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

hasan86 · 12 Temmuz 2011, 15:37

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,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) ) 1500 }
elseif $2 isnum $+(1-,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{ play -n $nick $qt($findfile($qt($mircdirşiirler),*.txt,$2)) 1500 } | else { msg # Üzgünüm, toplam $+(,%:,) tane şiir var. }
}
arkadaşlar bu kodda şiirler klasörünün içine 10 tane txt dosyası ekledimi 1.txt...10.txt fakat şöyle bir sorun var 9. dan sonra okumuyor ve şaşırıyor, !şiir 10 yazıyorsun 9.txt yi okuyor 10 ve üstünü okumuyor, !şiir 1 2 3 4 5 e kadar doğru okuma yapıyor !şiir 6 yazdımı 7.txt yi okuyor, !şiir 10 yazdımı 9.txt okuyor boyle bir problem var. yardımcı olursanız sevinirim.

Difuzyon · 12 Temmuz 2011, 21:31

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bende sorun yok çalışmasına çalışıor ancak şiirler klasörü içine 9'dan fazla sayıda şiir.txt olması sorun yarattı ..şöyleki !şiir 44 desek 9.txt okuo yada !şiir 23 desek 4.txt okuo ..yani 9'dan fazlasını algılamakta bi sorun oluştu..ilginç....

hasan86 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

evet arkadaşlar 10 ve üzeri şiirleri okumuyor sorun nededir yardımcı olurmusunuz ? Şöyleki Mesela şiir klasörüne 10.txt 11.txt diye gidiyor bota !şiir 10 yazdımı 9.txt deki şiirleri okuyor hata nerede acaba ;idea

$findfile identifieri ile çağrılan sıralama no belirtilen metin belge numarası değildir.Burada çağrılan klasör içindeki metin belge isimlerinin numerik\alfabetik bir başka deyişle artan\azalan çağrışım no'sudur.Örneğin,klasörünüzdeki metin belgeleri alt alta dizilim şu şekilde olsun;
1.txt
2.txt
3.txt
10.txt
11.txt

Burada $findfile ile aranılan metin sıralama nosu "//echo -a $findfile($mircdirşiirler,*.txt,1)" şu şekilde gelişir:
1.sıra 1.txt
2.sıra 10.txt
3.sıra 11.txt
4.sıra 2.txt
5.sıra 3.txt

Bu kısım sanırım anlaşıldı,kodda herhangi bir hata yok.
____________________________________________

(!şiir 1)Belge numarasına(1.txt) göre okutmak istiyorsanız kod aşağıdaki şekilde düşünülebilir:

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($+($mircdirşiirler,\,$2,.txt)) 1500 } | else { msg # Üzgünüm, toplam $+(,%:,) tane şiir var. }
}

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.