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

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

- - NoktaLama IsaretLeri (https://www.ircforumlari.net/mirc-scripting-sorunlari/535571-noktalama-isaretleri.html)

NoktaLama IsaretLeri

SeLamun ALeyKum ArkadasLar
ELimdeki Kod da NickLeri Parantez Icinde ve Kırmızı Renkte Yazmaktadır. Ayrıca NoktaLama IsaretLeride Kırmızı Renktedir . Ben Bu Kod da NickLeri ParantezSiz ve Renksiz Yazmasını Istiyorum. Ama NoktaLama IsaretLeri Yine Kırmızı oLacak. Kod Bu ;

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(91) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(93)) %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 4

Yardımcı oLabiLecek bi arkadasımız varsa simdiden TesekkurLer.

Cevap: NoktaLama IsaretLeri

Kod:

on *:input:*:{

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

    say $wn($1-) | halt

  }

}

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

alias yr return 4

Buyrun Kod [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a Ait Konu Yeri [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]