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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Yazı kodu yardimi (https://www.ircforumlari.net/mirc-scripting-sorunlari/516563-yazi-kodu-yardimi.html)

Nothinq

10 Aralık 2012 12:11

Yazı kodu yardimi

Merhabalar Arkadaslar;
soyle bi yazi stili lazim Aradım bulamadim kendimde yapamadim,
İlk harfi büyük ve Mor Yani renk kodu (6) sonuna nokta olucak fakat ilk harf mor (6) ve büyük olan ve tamamı İnce yazi olucak sonuna konulan mor (06) nokta kalın olucak mümkün müdür? Ayrıca bu yazı kodunun özeldede calısmasını istiyorum.

Nothinq

10 Aralık 2012 19:35

Cevap: Yazı kodu yardimi

Yardimlarinizi bekliyorum Arkadaslar.

By_ATMACA

10 Aralık 2012 22:36

Cevap: Yazı kodu yardimi

Kod:

on 1:input:*:{

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }

  if ($1- == isnum) { goto end }

  var %a 0, %b, %c, %d, %e, %f

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }

    else {

      if (%a == $numtok($1-,32)) {

        %d = $+($right(%c,1),. )

        %f = $right(%d,2)

      }

      %e = $regsubex(%c,/(?=^| )(.)/g,$+(6,$upper(\1),))

      %b = %b $+(%e,%f)

    }

  }

  if (!%b) { %b = $1- }

  else { say %b }

  halt

  :end

}

Buyrun

Nothinq

10 Aralık 2012 23:16

Cevap: Yazı kodu yardimi

Sağ'olasin Eline emegine Saglık Dostum Tesekkürler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:16 -->-> Daha önceki mesaj 23:15 --

Sanırım olmamıs bütün renkler (6) renk kodunda ve cift cıkıyo yazilar baska bi yazi stili aktif olmadan

Med Cezir

11 Aralık 2012 01:35

Cevap: Yazı kodu yardimi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Şuraya bir bakabilirsin.

By_ATMACA

11 Aralık 2012 12:40

Cevap: Yazı kodu yardimi

Alıntı:

Nothinq Nickli Üyeden Alıntı (Mesaj 1041256266)

Kod:

on 1:input:*:{

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }

  if ($1- == isnum) { goto end }

  var %a 0, %b, %c, %d, %e, %f

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }

    else {

      if (%a == $numtok($1-,32)) {

        %d = $+($right(%c,1),. )

        %f = $right(%d,2)

      }

      %e = $regsubex(%c,/(?=^| )(.)/g,$+(6,$upper(\1),1))

      %b = %b $+(%e,%f)

    }

  }

  if (!%b) { %b = $1- }

  else { say %b }

  halt

  :end

}

Denendi.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:44.