 |
| Yazar |
Mesaj |
eXtreme
Kayıtlı Üye
Kayıt: 17.09.2006
Üye no: 89
Mesaj: 102
Başlık: 0
Şehir: Türkiye
2 Aşk puanı
|
|
 Yazıların Ba$ Harfının Buyuk Olması |
|
|
Yazdıgınız Her Kelimenın Bas Harfının Aynen Boyle Buyuk Olması İçin :
alias -l uppercase {
unset %text
var %q = 1
while (%q <= $numtok($1-,32)) {
var %a = $gettok($1-,%q,32)
set %text $+(%text,$chr(32),$upper($left(%a,1)) $+ $right(%a,$calc($len(%a) - 1)))
inc %q
}
return %text
}
on *:input:*: {
if ($left($1,1) != /) && ($istok(channel query,$window($active).type,32)) { say $uppercase($1-) | halt }
}
Komutunu Ekleyınız....
Code Sanırım SCouNDReL Aittir ve mIRCdb.Com Adresinden Alıntırdır...
|
| |
|
 |
08 May 2007 06:11 pm |
|
Mesaj: #1  |
|
|
|
