‘mirc yazı tipleri’ olarak etiketlenmiş yazılar


mIRC Çift Renkli Yazi Tipi

Çarşamba, 30 Aralık 2009

mIRC Yazi Tipleri her zaman mircclub.org sitemizde güncellenmektedir. Bu Yazi tipi ise Çift renkli arka plan da sekilli yazıliyor. Resimde gördügünüz gibi şekilde yazmanizi saglicaktir.

Kod;

menu menubar,channel,query {
$iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
$iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
}
}
#DuaL_CoLoR.Text on

on *:input:*:{
if ($left($1-,1) != /) {
if ($left($1-,1) != $chr(33)) {
set %len $len($1-) }
if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) – 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt }
else {
msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) – 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110}
}
}
}

mIRC Yazi Tipi 1 ( Her harf Büyük, Ilk harf Kırmızı, Kelime Sonu 3 Nokta )

Salı, 29 Aralık 2009

Bu kod ile yazdiginiz her cümlenin baş harfi büyük olur. Ilk harf Büyük ve kırmızıdır. Her cümle sonunada kırmızı olarak iki nokta koyulur.
Örnek : Mircindir Web Sitesine Hoşgeldiniz

Kod;

on *:input:*: {
if $left($1,1) != / && !$ctrlenter && !$inpaste {
var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= {
var %: = 4 $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$chr(3),$right($gettok($1-,%/,32),-1)),32)
inc %/ | haltdef
}
say %: $+ $chr(3) $+ $chr(52) $+ $chr(46) $+ $chr(46)
halt

mIRC Alti Çizgili Nick Yazi Tipi

Pazartesi, 28 Aralık 2009

Bu yazi tipi ile Seslendiginiz nicklerin alti çizgili ve kırmızı renktedir. Siz yazarken <DizZy> diye köşeler olur bu köşeler falan DizZy: Seklinde olmaktadir.

Kod;

on *:input:*: {
if ($left($1,1) != /) {
haltdef | var %1 = 1,%2 = $1-,%v1,%t,%3
while ($gettok(%2,%1,32)) { %v1 = $v1 | if ($active = %v1 || %v1 ison #) { %3 = $v1 | break } | inc %1 }
%t = $regsubex(%2,$+(/\b,%3,\b/gi),$+($chr(3),4,$chr(31),%3,$chr(3),$chr(31)))
.msg $target %t | echo $color(own text) $target $timestamp $+($me,:) %t
}
}