mIRC ana dizininde siir.txt belgenizin var olduğunu ve içeriğinin aşağıdaki gibi olduğunu varsayarsak:
|
| Alıntı: |
Ansızın rüyalarıma girmeni seviyorum
Belalı gecenin ortasında
Cesurca seni seviyorum demek istiyorum
Çıkıp bir gün karşına
Denize karşı iki tek atıp
Elele geçerek mahalleden
Fiyaka satmak istiyorum gökyüzüne
Göstermeden içimizdeki hüznü
Hastalanmış hayallerimizide alıp
Ilık bir yaz yağmuru altında
İliklerime kadar ıslanmak istiyorum seninle
Jiletinine ismini yazdığım sigara paketinde
Kora özlem duyan birkaç sigarayı içip
Lanet yağdırırken sensizliğe
Meyhane kokan akşamlarda
Ne olurdu yanımda olsan demek istiyorum istemeden
Orda bir sen var uzakta biliyorum
Ölümüne benim olan
Parıldadığını sana yıldızların ortasında
Rastlayıpta açılamadığım
Seviyorum diyemediğim
Şarkılarda dinlediğim
Ta uzaklarda bir sen var orda biliyorum
Uzanıpta Erişemediğim
Ürkek bakışlarında
Vakitli vakitsiz ağladığım
Yazdan kalma güneşin altında
Zehir zemberek aşkların ortasında
|
Bu siir.txt belgesinde dikkat ettiyseniz her satır başlangıcındaki her harften bir satır mevcut.
Aşağıdaki kodu botunuza eklediğinizde herhangi bir kanalda
.siir kelime yazıldığında kelime karşılığı olan satırları size sunacaktır.
Önce "kelime"yi tokenize ile ayrıştırıyoruz ardından satır başlangıçlarını bu ayrıştırma ile filtreliyoruz.
Filtrelediğimiz satırları yeni belgeye aktarıyoruz sonuç olarak da kanala yazdırıyoruz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:.siir &:#:{
$iif($isfile(okut.txt),write -c okut.txt)
tokenize 32 $regsubex($upper($replace($strip($2),ı,I)),/(.)/g,$+($chr(32),\1))
filter -ffg siir.txt okut.txt /^ $* /xi
play $chan okut.txt 700
}
Uygulamadan bir görünüm:
[12:24] <Cenk> .siir difuzyon
[12:24] <@Difuzyon> Denize karşı iki tek atıp
[12:24] <@Difuzyon> Ilık bir yaz yağmuru altında
[12:24] <@Difuzyon> Fiyaka satmak istiyorum gökyüzüne
[12:24] <@Difuzyon> Uzanıpta Erişemediğim
[12:24] <@Difuzyon> Zehir zemberek aşkların ortasında
[12:24] <@Difuzyon> Yazdan kalma güneşin altında
[12:24] <@Difuzyon> Orda bir sen var uzakta biliyorum
[12:24] <@Difuzyon> Ne olurdu yanımda olsan demek istiyorum istemeden
Baktım da fena bir şiir olmamış
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.