/sirala #Kanal
 

Selamlar;
mIRC Scripting sevenler için açmış olduğumuz ikinci Challenge(Meydan Okuma) yarışmamızı başlatıyoruz.

Amaç: /sirala #Kanal Belirtilen kanaldaki nickleri alt alta sıralıcak. (Echo)

İstenilen görüntü:

Kod:

---

Feragat
SrjN
pC`kOpAt
Armerian
By_ATMACA
Toprak
YouMyCure
ZorCocuK
raptor

---

Kurallar:
(1) Regex($regex - $regsub - $regsubex), raw, while-goto, timer, socket, dll, token, com kullanılamaz.

Bilgilendirme;

(1) Kodlar PM(Özel Mesaj) olarak IrCbaStarD nickine atılmalıdır veya irc.swiftirc.net - #msl.tr kanalında SrjN nickine özel mesaj olarak atılabilir. PM veya /q Nick dışında paylaşılan kodlar gerçersiz sayılacak ve kişi yarışmadan elenecektir.
(2) İstenilen kodu en kısa ve stabil yazan kazanacaktır. (Byte olarak)
(3) Yarışma bitiş süresi 1 hafta+ “2 Haziran Pazar Saat: 20:00” günüdür. (Gerek duyulursa kısa bir süre uzatılabilir. [+3 gün.])
(4) İsteyen herkes yarışmaya katılabilir. Şimdiden başarılar.

Bu sefer daha basit tuttuk diğer arkadaşlarda katılım sağlarlar umarım.

Cevap: /sirala #Kanal
 

/sirala #Kanal

Yarisma süremiz dolmuştur, katılım sağlayan arkadaşlara teşekkür ediyorum.

1. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 60 byte.

Kod:

---


sirala inc -u %a | echo -a $$nick($1,%a) | â $1
â sirala $1

---

2. IrCbaStarD 83 Byte

Kod:

---


x inc -u1 %8 | echo -a $nick($1,%8) | $iif(%8 < $nick($1,0),sirala $1)
sirala x $1

---

3. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 90 Byte

Kod:

---


sirala $iif(%s == $nick($1,0),unset %s,s $1)
s inc %s | echo -a $nick($1,%s) | .sirala $1

---

4. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 92 Byte

Kod:

---


sirala { inc -u1 %s | $iif(%s <= $nick($1,0),x $1) }
x { echo -a $nick($1,%s) | sirala $1 }

---

5. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 95 Byte

Kod:

---


sirala set %s 1 | a $1
q if %s <= $nick($1,0) { echo -a $nick($1,%s) | inc %s | a $1 }
a q $1

---

6. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 170 Byte

Kod:

---


sirala { unset %d_ | .remove sirala.txt | %d_c = $1 | write sirala.txt $str(d_read $crlf,$nick($1,0)) | .play -c sirala.txt 10 }
d_read inc %d_ | echo -a $nick(%d_c,%d_)

---

Extra olarak mirc 7.43'de çalışan en kısa kod ise;

Kod:

---


sirala savebuf -l $1 x.txt | loadbuf -a x.txt

---

Daha düşük versionlarda savebuf -l olmadığı için kabul edilmedi.

Not: ilk 5 kişinin kodu birbirine çok benziyor aynı mantıkla gidilmiş farklılık adına @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodu farklısıdır. :)

Cevap: /sirala #Kanal
 

Tebrikler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)

Köşeli parantezleri koymasam fark eder miydi acaba :)

Cevap: /sirala #Kanal
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tebrikler bro

Cevap: /sirala #Kanal
 

Aynen dostum. Köşeli parantezlere yan yana kısa kodlarda gerek olmuyor. Ayrı ayrı gruplandırman gereken tek veya fazla satırda gerekebilir .

Teşekkür ederim.

Teşekkür ederim dostum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Katılan herkese teşekkürler.

Cevap: /sirala #Kanal
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] number one dostum :p

Cevap: /sirala #Kanal
 

Bu kod yazma işi bayagı karışık.
Tahminen kaç sene de ögrenilir acaba?

Cevap: /sirala #Kanal
 

Ben yaklaşık 8 yıldır bu forumdayım ve halen öğreniyorum, ötesini sen düşün artık :gulucuk:

Cevap: /sirala #Kanal
 

İyisi mi hiç bulaşmamak lazım o zaman.
Kolay gelsin.