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

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

- - Yazı kodu [ Ekleme yapma ] (https://www.ircforumlari.net/mirc-scripting-sorunlari/382591-yazi-kodu-ekleme-yapma.html)

Yazı kodu [ Ekleme yapma ]

Kod:

on *:input:*: { 

  if $active == #help { return }

  if $active == #helpers { return }

  if $active == #egitim { return }

  if $active == #spamfilter { return }

  if $active == #sınav { return }

if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say $replace(%1,:,4:,.,4.,;,4;,',4',?,4¿,o,ø,l,L,n,n) | haltdef } }

elimdeki bu koddan çok memnunun sadece nickleri yazarken mesela ~ HeavenLy ~

bu renk kodu ile yazmak istiyorum bu koda nasıl eklenti yapabiliriz ?

Cevap: Yazı kodu [ Ekleme yapma ]

menu status,menubar,channel {
.-
.» Nick Yazı Stili
..Acık:.enable #yazis | .echo -a 4 Nick Renkli yazi Açıldı
..Kapalı:.disable #yazis | .echo -a 4 Nick Renkli yazi Kapatıldı
.-
}
#yazis off
on *:input:*:{
if $active == #help { return }
if $active == #helpers { return }
if $active == #egitim { return }
if $active == #spamfilter { return }
if $active == #sınav { return }
if (/* iswm $1) { return }
var %a 0, %b, %c
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4~ 12,%c, 4~ ) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
#yazis end
-
-
Aceleden yazdim codeyi olmasi lazim ama bütün kanallarda o sekilde nick'e seslendiginde o nicki istedigin şekilde gözükmesini istersen su sekilde yapabilirsin;
-
menu status,menubar,channel {
.-
.» Nick Yazı Stili
..Acık:.enable #yazis | .echo -a 4 Nick Renkli yazi Açıldı
..Kapalı:.disable #yazis | .echo -a 4 Nick Renkli yazi Kapatıldı
.-
}
#yazis off
on *:input:#:{
if (/* iswm $1) { return }
var %a 0, %b, %c
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4~ 12,%c, 4~ ) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
#yazis end
-
Menübar'a ac kapat özelligide koydum baska input remoteleri ile karismayin diye kolay gelsin.

Cevap: Yazı kodu [ Ekleme yapma ]

ben başka bir kod istemedim ki,var olan kodumdan çok memnunum sen zaten var olan bir kodu yazmışsın buraya , ben paylaştığım koda eklenti olarak yapılması konusunda yardım istedim senin verdiğin cevaptaki kod zaten arşivimde mevcut.

Cevap: Yazı kodu [ Ekleme yapma ]

Kod:

on *:input:*:{

  if !$regex(#,/#(egitim|s(pamfilter|ınav)|help(ers)?)/i) && $left($1,1) != / {

    msg $active $regsubex($regsubex($1-,/(.)/g,\1),/(\S+)/g,$iif(($strip(\1) ison # || $strip(\1) == $active),04~12 $strip(\1) 04~,$replace(\1,:,4:,.,4.,;,4;,',4',?,4¿,o,ø,l,L,n,n)))

    halt

  }

}