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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Siir Yazici (https://www.ircforumlari.net/mirc-scripting-sorunlari/382389-siir-yazici.html)

Selam Aleikum saygideger kardeslerim. Ben bir kod yazmayi dusundum ama bilgisizlikten beceremedim acikcasi :) Yapmak istedigim soyle birsey..

.siir kelime yazdigimda bi kanalda verilen cevabin su olmasini istiorum

K
E
L
I
M
E

boyle harfleri ayirip alt alt'a yazmasini istiorum. Ve harfine gore bisey yazmasini istiorum. Ornek :
.siir kelime

Kefende gordum kendimi
Elif basimda dururken
Lam geldi ortadan
Ilham gibicenneten
Mum oldu nefsim
Elem tera okuyunca

buna ulasabilmek icin dusundum $2 kullaniyim ama butun kelimeyi istemiorum ki :S Peki $gettok yada $findtok mu kullanicam? En kisa temiz yolu nasil olabilir bir fikir verebilirmisiniz rica etsem kardesler.. simdiden hepinize tesekkur ederim. ALlah yardimciniz olsun.

Cevap: Siir Yazici

Sizleri tokenize sihirbazı ile tanıştırayım :

//tokenize 32 $regsubex(kelime,/(.)/g,$+($chr(32),\1)) | echo -a $*

Cevap: Siir Yazici

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 1040679441)

Sizleri tokenize sihirbazı ile tanıştırayım :

//tokenize 32 $regsubex(kelime,/(.)/g,$+($chr(32),\1)) | echo -a $*

Difuzyon hocam yanit verdigin icin cok tesekkur ederim. Verdigin //tokenize 32 $regsubex(kelime,/(.)/g,$+($chr(32),\1)) | echo -a $* ile biraz oynadim kelime yerine farkli bisey yazinca ne istersem onu siraliyor alt alta. Peki ben .siir deneme yazdigimda yada .siir difuzyon yazdigimda nasil algiliyacak ikinci kelimeyi?

Cevap: Siir Yazici

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:

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ış ;)

Cevap: Siir Yazici

Hocam

Kod:

* /play: unable to open 'C:\Users\Emrax\Desktop\Destek\okut.txt' (line 5, script39.ini)

hatasını veriyor.

Cevap: Siir Yazici

Emrax , kod çalışıyor yönergeleri dikkatlice okuyup tekrar denemelisin.

Cevap: Siir Yazici

Harikasin hocam ayakta alkisliorum seni cok tesekkur ederim ellerine saglik. Umarim bu koddan yararlanabilecek arkadaslar olucaktir Allah'in izniyle.

[23:05:13] <deneme> .siir bartu
[23:05:15] <DeLiKaNLi> Belali gecenin ortasinda
[23:05:16] <DeLiKaNLi> Ansizin rüyalarima girmeni seviyorum
[23:05:16] <DeLiKaNLi> Rastlayipta açilamadigim
[23:05:17] <DeLiKaNLi> Ta uzaklarda bir sen var orda biliyorum
[23:05:18] <DeLiKaNLi> Uzanipta Erisemedigim

buda fena deil kardes =)