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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Nick renk HK. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1023603-nick-renk-hk.html)

Merhaba arkadaşlar.
Kanal içerisinde yazdığım rumuzun ve :) gibi durumların renkli olmasını istiyorum.

Örneğin; dre - :)

gibi.

Yardımlarınızı beklemekteyim.

Teşekkürler, keyifli forumlar!

Cevap: Nick renk HK.

Kim yazmis bilmiyorum, belki isini görür.

Kod:

on *:input:#:msg # $replace($regsubex($$1-,/\b([a-z]+)\b/gi,$iif(\1 ison #,4\1,\1)),:,4:) | halt

Cevap: Nick renk HK.

Alıntı:

dre Nickli Üyeden Alıntı (Mesaj 1042846728)

Kod:

on *:input:*:#kanaladı: {

  var %nick = $nick

  var %message = $1-
 

  if (%nick == dre) {

    ; Özel karakterlerin ve simgelerin renklendirilmiş halini gönderir

    echo -a $chr(3)4%nick$chr(3)1 - $chr(3)2%message

  }

}

Bu kod, "dre" rumuzunu kırmızı (renk kodu 4) olarak ve ardından "- " metnini mavi (renk kodu 1) ve ":)" simgesini turkuaz (renk kodu 2) olarak gösterir. İstediğiniz renk kodlarını kullanarak, farklı renk kombinasyonları oluşturabilirsiniz. Ayrıca, belirli rumuzlar için farklı renk kombinasyonları belirlemek için koşullu bir ifade kullanabilirsiniz. Bu örnek sadece "dre" rumuzu için bir örnek olarak verilmiştir.

Bu kod ise rastgele, Rumuzları yazarken veya simge oluştururken rastgele renk belirtmek için aşağıdaki kodu kullanabilirsin

Kod:

on *:input:*:#kanaladı: {

  var %nick = $nick

  var %message = $1-
 

  var %color = $rand(0, 15) ; Rastgele bir renk seçer (0-15 arası renk kodları)
 

  echo -a $chr(3)%color%nick $+ $chr(3)%color%message

}

Her mesaj gönderildiğinde rumuzunuz için rastgele bir renk seçer ve bu renkte rumuzu ve mesajı kanala gönderir. Bu şekilde, her mesajınız farklı bir renkte görünecektir. Bu komutu kanalınızın etkinliğine göre düzenleyebilir ve ihtiyacınıza göre özelleştirebilirsiniz

Cevap: Nick renk HK.

Kod:

on *:input:#:msg # $replace($regsubex($$1-,/\b([a-z]+)\b/gi,$iif(\1 ison #,4\1,\1)),:,4:) | halt

Cevap: Nick renk HK.

Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042846734)

Kod:

on *:input:*:#kanaladı: {

  var %nick = $nick

  var %message = $1-
 

  if (%nick == dre) {

    ; Özel karakterlerin ve simgelerin renklendirilmiş halini gönderir

    echo -a $chr(3)4%nick$chr(3)1 - $chr(3)2%message

  }

}

Kod:

on *:input:*:#kanaladı: {

  var %nick = $nick

  var %message = $1-
 

  var %color = $rand(0, 15) ; Rastgele bir renk seçer (0-15 arası renk kodları)
 

  echo -a $chr(3)%color%nick $+ $chr(3)%color%message

}

Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042846739)

Kod:

on *:input:#:msg # $replace($regsubex($$1-,/\b([a-z]+)\b/gi,$iif(\1 ison #,4\1,\1)),:,4:) | halt

emeğiniz için teşekkür ederim, fakat kod hiçbir şekilde işlem görmüyor herhangi bi' değişiklik göremedim.

Cevap: Nick renk HK.

Alıntı:

dre Nickli Üyeden Alıntı (Mesaj 1042846842)

öncelikle emeğin için teşekkürler.
şöyle bir sorun ile karşılaşıyorum;

"#KANALADı: Unknown command
-
#SOHBET: Unknown command"

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:19 -->-> Daha önceki mesaj 11:17 --

emeğiniz için teşekkür ederim, fakat kod hiçbir şekilde işlem görmüyor herhangi bi' değişiklik göremedim.

input yerine text ekleyin, yazı düzeltme aktif değildi bende yazmayı unutmuştum.

Cevap: Nick renk HK.

Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042846844)

input yerine text ekleyin, yazı düzeltme aktif değildi bende yazmayı unutmuştum.

herhangi bir farklılık olmadı. başka bir yerde mı sıkıntı var acaba?

Cevap: Nick renk HK.

Alıntı:

dre Nickli Üyeden Alıntı (Mesaj 1042846864)

herhangi bir farklılık olmadı. başka bir yerde mı sıkıntı var acaba?

kod eksik mi calisiyor ? kodu denettim sorun yok gibi gozukuyor. Baska ekli bir input eventi halt yaparak engelliyor olabilir.

Cevap: Nick renk HK.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] aslında biraz araştırsan görürdün. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] daha önce yaptıgı kod işini görücektir.

Kod:

on *:input:*:{

if (!$regex($left($1,1),/^!|[./]|/|/i/)) {

var %wn $numtok($1-,32)

while (%wn > 0) {

if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn

}

}

}

alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,’,^,%,&,/,_,~,`,”])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))

alias yr return $r(2,6)

Cevap: Nick renk HK.

Alıntı:

Forbidden Nickli Üyeden Alıntı (Mesaj 1042846888)

Kod:

on *:input:*:{

if (!$regex($left($1,1),/^!|[./]|/|/i/)) {

var %wn $numtok($1-,32)

while (%wn > 0) {

if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn

}

}

}

alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,’,^,%,&,/,_,~,`,”])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))

alias yr return $r(2,6)

---

teşekkür ederim ama bulamamıştım ya da tam aramadım.