| |
| |||||||
| Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm. |
 |
| | LinkBack | Seçenekler |
|
#1
24 Ağustos 2011, 10:21
| ||||
| ||||
 /* Yazı Tipi - Noktalama işaretleri ve Fazlası */ /* Yazı Tipi: Noktalama işaretleri ve fazlası */ Kodun amacı, cümle içerisinde kullandığınız noktalama işaretleri ve değer işaretlerini (.,:,%,+,-,^,? vs) belirlediğiniz renkte kullanmanızı sağlamaktır. Ayrıca herhangi birinin "nick" 'ini " kanal " içerisinde yazmış olduğunuzda o nick'i parantez içine alıp, belirlediğiniz renk ile veya karışık renkli şekilde kalınlık ayarı ile birlikte kanalda kullanmanıza yardımcı olacaktır. Ekstra olarak kanal içerisinde bulunduğunuz kanalı yazdığınızda tekrar belirlediğiniz renk'te "<#kanal>" şeklinde, kanalda yazmanıza yardımcı olacaktır. Şuan ki kod, renklendirme şekli 2 ila 6 numaralı renkler arasında, karışık(random) olarak kendi seçip renklendirmektedir. Kod: 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(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %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 $r(2,6) Kırmızı için; Kod: alias yr return 4 /* Her kelimenin baş harfleri büyük olsun */ (istek üzerine) Yazdığınız cümlenin, her kelimesinin baş harfi de büyük olsun istiyorsanız, altta ki gibi eklemeniz gerekmektedir. Kod: 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(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $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 $r(2,6)
alias byaz {
var %/ = 1,%= = $numtok($1-,32),%:
while %/ <= %= {
var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32)
inc %/
haltdef
}
say %:
} Update: " if (!$regex($1,/^\//)) { " bu satır, !komut , .komut kullanan kişiler için " if (!$regex($left($1,1),/^!|[./]|/|/i/)) { " olarak değiştirilmiştir, kullanılan komutların , botlar tarafından algılanabilmesi amaçlıdır. Not: Kod, Parça Kodlar bölümüne örnek amaçlı yazılmış olup, tamamen can sıkıntısıdır, +10 line oldu 2. bölüm sanırım ama, istek amaçlı geliştirilmiş olduğundan dolayı dokunmuyorum.  |
| Sponsored Links |
|
| Etiketler |
| fazlası, işaretleri, noktalama, tipi, yazı |
| Seçenekler | |
| |
1Teşekkür
