Someone

alias tajnr.roomdec {
  if (!$1) { halt }
  var %v, %n, %k, %x, %nkr
  %v = $remove($1-,$chr(37),$chr(35))
  if ($prop == catagory) {
    if ($left(%v,1) != $chr(91)) { %nkr = Unknown }
    else {
      %k = $left(%v,4)
      %k = $remove(%k,$chr(91),$chr(93))
      if (%k == XX) { %nkr = Server Room $+($chr(40),XX,$chr(41)) }
      elseif (%k == GE) { %nkr = City Chats $+($chr(40),GE,$chr(41)) }
      elseif (%k == CP) { %nkr = Computing $+($chr(40),CP,$chr(41)) }
      elseif (%k == EA) { %nkr = Entertainment $+($chr(40),EA,$chr(41)) }
      elseif (%k == GN) { %nkr = General $+($chr(40),GN,$chr(41)) }
      elseif (%k == HE) { %nkr = Health $chr(38) Medicine $+($chr(40),HE,$chr(41)) }
      elseif (%k == II) { %nkr = Interests $+($chr(40),II,$chr(41)) }
      elseif (%k == LF) { %nkr = Lifestyles $+($chr(40),LF,$chr(41)) }
      elseif (%k == MU) { %nkr = Music $+($chr(40),MU,$chr(41)) }
      elseif (%k == NW) { %nkr = News $+($chr(40),NW,$chr(41)) }
      elseif (%k == PR) { %nkr = Peers $+($chr(40),PR,$chr(41)) }
      elseif (%k == RL) { %nkr = Religion $+($chr(40),RL,$chr(41)) }
      elseif (%k == RM) { %nkr = Romance $+($chr(40),RM,$chr(41)) }
      elseif (%k == SP) { %nkr = Sports $chr(38) Recreation $+($chr(40),SP,$chr(41)) }
      elseif (%k == TN) { %nkr = Teens $+($chr(40),TN,$chr(41)) }
      elseif (%k == UL) { %nkr = Unlisted $+($chr(40),UL,$chr(41)) }
      else { %nkr = Unknown $+($chr(40),**,$chr(41)) }
    }
  }
  elseif ($prop == language) {
    %n = $right(%v,-4)
    if ($left(%n,1) != $chr(91)) { %nkr = Unknown }
    else {
      %k = $left(%n,4)
      %k = $remove(%k,$chr(91),$chr(93))
      if (%k == XX) { %nkr = Server Room $+($chr(40),XX,$chr(41)) }
      elseif (%k == EN) { %nkr = English $+($chr(40),EN,$chr(41)) }
      elseif (%k == DE) { %nkr = German $chr(47) Deutch $+($chr(40),DE,$chr(41)) }
      elseif (%k == NL) { %nkr = Dutch $chr(47) Nederlands $+($chr(40),NL,$chr(41)) }
      elseif (%k == FR) { %nkr = French $chr(47) Français $+($chr(40),FR,$chr(41)) }
      elseif (%k == SP) { %nkr = Spanish $chr(47) Español $+($chr(40),SP,$chr(41)) }
      elseif (%k == IT) { %nkr = Italian $chr(47) Italiano $+($chr(40),IT,$chr(41)) }
      else { %nkr = Unknown }
    }
  }
  else {
    if ($left(%v,1) != $chr(91)) { return %v }
    else {
      %n = $right(%v,-3)
      if ($left(%n,1) == $chr(93)) { %k = $right(%n,-5) }
      else { %k = %v }
      %x = $replace(%k,$+($chr(92),b),$chr(32))
      %nkr = %x
    }
  }
  return %nkr
}