on ^*:TEXT:*:*:{
var %nick = $iif($chan,$left($remove($nick($chan,$nick).pnick,$nick),1) $+ $nick,$nick)
var %window = $iif($chan,$chan,$nick)
echo -tmi2 %window 14«0 $+ %nick $+ 14» $1-
haltdef
}
on *:INPUT:*: {
if (($left($1,1) == / || $left($1,1) == $readini($mircini,text,commandchar)) && (!$ctrlenter)) return
/msg $active $1-
var %nick = $iif($chan,$left($remove($nick($chan,$nick).pnick,$nick),1) $+ $nick,$nick)
echo $color(own) -atmi2 14«0 $+ %nick $+ 14» $1-
halt
}
---------------------------------------------------------------------------
Second script (Acros)
On *:input:#:{
if /* iswm $1 || $ctrlenter { return }
var %i = 1, %total = $0, %word, %string
while %i <= %total {
%word = $ [ $+ [ %i ] ]
if $readini(acro.mrc,acro,%word) {
%string = %string $ifmatch
}
else %string = %string %word
%i = %i + 1
}
say %string
halt
}