Toprak
27 Ocak 2015, 22:41
Bir arkadaşın fikri üzerine yapmıştım. Özelde ve Kanalda çalışır. Cümlenin ilk harfini ve noktadan sonraki gelen kelimenin ilk harfini büyük yapar. Punct karakterleri de renklendirir.
Farklılık olsun diye paylaşıyorum. Buna benzer yapılmış onlarca kod vardır belki, bunun problem olacağını düşünen yetkili arkadaşlar mesajı silebilir. İyi forumlar.
on *:input:*: { if $regex($1-,/^(?!\.|\41|\/)/S) { haltdef
if $window($active).type == channel { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg, $&
$iif(\1 ison #,$+(,,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) }
if $window($active).type == query { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg, $&
$iif(\1 == $active,$+(,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) } } }
Sonuç:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
Kod: Feragat .
Farklılık olsun diye paylaşıyorum. Buna benzer yapılmış onlarca kod vardır belki, bunun problem olacağını düşünen yetkili arkadaşlar mesajı silebilir. İyi forumlar.
on *:input:*: { if $regex($1-,/^(?!\.|\41|\/)/S) { haltdef
if $window($active).type == channel { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg, $&
$iif(\1 ison #,$+(,,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) }
if $window($active).type == query { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg, $&
$iif(\1 == $active,$+(,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) } } }
Sonuç:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
Kod: Feragat .