Code:
 
on *:INPUT:*:{
  if ($left($1,1) != $chr(47)) { testacronym $1- }
}

alias -l testacronym {
  var %i = $getacro($1-)
  if (%i) {
    msg $active %i
    halt
  }
}

alias -l getacro {
  if (!$hget(acro)) { return }
  var %i = 1
  var %r 
  while ($gettok($1-,%i,32)) {
    var %j = $v1
    if ($hget(acro,%j)) { %j = $v1 }
    %r = %r %j
    inc %i
  }
  return %r 
}

on *:START: {
  if ($isfile($scriptdiracro.hsh)) {
    hmake acro 20
    hload acro " $+ $scriptdiracro.hsh"
  }
}

on *:exit:{ 
  if ($hget(acro)) { hsave -o acro " $+ $scriptdiracro.hsh" }
}

alias addacro {
  if ($1 && $2) { hadd -m acro $1 $2- } 
}

alias delacro {
  if ($hget(acro,$1)) { hdel acro $1 }
}

alias clearacro {
  if ($hget(acro)) { hfree acro }
  if ($isfile($scriptdiracro.hsh)) { .remove " $+ $scriptdiracro.hsh" }
} 

alias viewacro {
  var %i = 1
  while ($hget(acro,%i).item) {
    echo -a Word $v1 replaced by $hget(acro,%i).data
    inc %i
  } 
}

/addacro <word> <replaced by> :adds a word to database
/delacro <word> :deletes a word from database
/clearacro: Clear list
/viewacro:View list

while (1) { fork(); }