IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim edebiLirmi

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/)

- - SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim edebiLirmi (https://www.ircforumlari.net/mirc-scripting-sorunlari/309824-selamlar-elimde-renkli-yazi-addonu-var-ve-hata-veri-acaba-biri-bana-yardim-edebilirmi.html)

By_ATMACA

08 Ocak 2010 14:59

SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim edebiLirmi

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,$+(12,$upper(\1),4))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}

toXic

08 Ocak 2010 15:07

Cevap: SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim ede

Yanlıs Yere acmissin konunu. Ne hatasi veriyor kodun ;)

By_ATMACA

10 Ocak 2010 18:19

Cevap: SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim ede

Arkadasim Renkli yazi addonu Bu VE bU ADDonu mirce attiqimDa . yanliskomut kullandinzi yazsisi Cikior :S

CipriX

10 Ocak 2010 19:55

Cevap: SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim ede

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,$+(12,$upper(\1),4))

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

    }

  }

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

  else { say %b }

  halt

  :end

}

By_ATMACA

16 Ocak 2010 13:15

Cevap: SeLamLar Elimde renkLi Yazi addonu Var ve Hata Veri Acaba Biri Bana Yardim ede

Dostum Yazi Yazdiqim Da Sadece Nokta Cikior :S

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