IRCDefteri - En İyi IRCForum Sayfasi

Kod:
#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

–

}