Altı Çizgili Nick

#altcizgili off
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
}
}
#altcizgili end
Alias -l altcizgilion { .enable #altcizgili | echo -tca info2 4,0Altı Çizili 12,0Nick 1Sistemi 0,4 AÇILDI 0,0 | halt }
Alias -l altcizgilioff { .disable #altcizgili | echo -tca info2 4,0Altı Çizili 12,0Nick 1Sistemi 0,4KAPATILDI 0,0 | halt }
menu * {

Ekstra
.$iif($group(#altcizgili) == on,$style(1) Altı Çizili Nick (Açık),Altı Çizili Nick (Kapalı)): if $group(#altcizgili) == on altcizgilioff | else altcizgilion

}

Bir cevap yazın