Selasa, 4 Disember 2012

mRC Script - Font Berwarna Warni

menu channel {
Tulisan Berwarna
.Aktifkan:.enable #warna
.Diaktifkan:.disable #warna
}

#warna on
ON *:INPUT:*: {
if ($left($1,1) == $chr(47) || $ctrlenter) { return }
else {
var %a 1 , %b 2 , %c
var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $r(2,14)
while (%a < $calc($len(%d) + 1)) {
if (%b > 15) %b = 2
%c = $+(%c,$chr(3),%b,$mid(%d,%a,1))
.inc %a | .inc %b
}

msg $active $replace(%c,$chr(135),$chr(32)) | halt
  }
}

#warna end

Tiada ulasan:

Catat Ulasan