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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - mIRC Karışık Renk Kodu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/393463-mirc-karisik-renk-kodu.html)

oLd	13 Mayıs 2011 00:22

mIRC Karışık Renk Kodu

Başlik herşeyi özetliyor zaten, birşeyler yazip çizmeye gerek yok.

Kod:

alias cm {

  var %msg $replace($1-,$chr(32),_)

  var %x 1

  while (%x < $calc($len(%msg) + 1)) {

    if (%x == 1) {

      set %out  $+ $rand(2,15) $+ $upper($left(%msg,1))

    }

    else {

      if ($int($calc(%x / 2)) == $calc(%x / 2)) {

        set %out %out $+  $+ $rand(2,15) $+ $lower($right($left(%msg,%x),1))

      }

      else {

        set %out %out $+  $+ $rand(2,15) $+ $upper($right($left(%msg,%x),1))

      }

    }

    inc %x

  }

  if ($isid == $true) { return $replace(%out,_,$chr(32)) }

  else { say $replace(%out,_,$chr(32)) }

}

Kullanımı: /cm mesajınız
Örnek kullanım: /cm oLd

Heartbroken

13 Mayıs 2011 23:20

Cevap: mIRC Karışık Renk Kodu

* /say: Yetersiz veya eksik parametre (Satır 19, script45.ini)

Heavenly

14 Mayıs 2011 13:28

Cevap: mIRC Karışık Renk Kodu

else { say $replace(%out,_,$chr(32)) }

bu satır bendede hata verdi.

oLd	14 Mayıs 2011 13:41

Cevap: mIRC Karışık Renk Kodu

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1040744211)

* /say: Yetersiz veya eksik parametre (Satır 19, script45.ini)

Alıntı:

HeavenLy Nickli Üyeden Alıntı (Mesaj 1040744478)

else { say $replace(%out,_,$chr(32)) }

bu satır bendede hata verdi.

Kod:

alias cm {

  var %msg $replace($1-,$chr(32),_)

  var %x 1

  while (%x < $calc($len(%msg) + 1)) {

    if (%x == 1) {

      set %out  $+ $rand(2,15) $+ $upper($left(%msg,1))

    }

    else {

      if ($int($calc(%x / 2)) == $calc(%x / 2)) {

        set %out %out $+  $+ $rand(2,15) $+ $lower($right($left(%msg,%x),1))

      }

      else {

        set %out %out $+  $+ $rand(2,15) $+ $upper($right($left(%msg,%x),1))

      }

    }

    inc %x

  }

  if ($isid == $true) { return $replace(%out,_,$chr(32)) }

  else { say $replace(%out,_,$chr(32)) }

}

iyi çalismalar..

CLubber

14 Mayıs 2011 17:09

Cevap: mIRC Karışık Renk Kodu

Bende sorunsuz çalışıyor, teşekkürler oLd :)

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