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

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

- - Yazı Koduna Ek (https://www.ircforumlari.net/mirc-scripting-sorunlari/556854-yazi-koduna-ek.html)

#yazıstil on
on *:input:*:{
if ($left($1,1) != /) {
var %Jnk
var %e = 0
while %e != $numtok($1-,32) {
inc %e 1
var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
}
msg $active $replace(%Jnk,l,L)
halt
}
}
#yazıstil end
menu query,channel {
.Yazı Stil
..Aç:.enable #yazıstil
..Kapat:.disable #yazıstil
}

msg $active $replace(%Jnk,l,L) Kodun Bu Bölümüne :) Şöyle Ekleyebilirmiyiz Yani Eklediğimiz 2 Nokta(:) Siyah Arkasından Gelen Kapatma(.).) İşareti Siyah ve İnce
Şimdiden Teşekkürler.

Cevap: Yazı Koduna Ek

Kod:

#yazıstil on

on *:input:*:{

  if $regex($1-,/(^[^/])/) {

    say $replace($regsubex($1-,/(^.|\s.)/gi,$upper(\t)),l,L,$+(:,$chr(41)),$+($chr(3),4,:,$chr(3),1,$chr(41),$chr(15)))

    halt

  }

}

#yazıstil end

menu query,channel {

  .Yazı Stil

  ..Aç:.enable #yazıstil

  ..Kapat:.disable #yazıstil

}