IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

>
+
Etiketlenen Kullanıcılar

2Beğeni(ler)

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 12 Temmuz 2011, 21:31   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Botu




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


 
Alıntı ile Cevapla

 

Etiketler
botu, mirc download, mirc indir, siir, Şiir


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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

×