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
}

on *:JOIN:#:{
  var %v, %o, %q, %k
  if ($nick == $me) { halt }
  if ($window(@TAJoinerz) == $null) {
    window -eimxvkzlN @TAJoinerz
    titlebar @TAJoinerz ...::: TAChat Joins :::...
  }
;  if ($window(@TAJoiners) == $null) {
;    window -eimxvkz @TAJoiners
;    titlebar @TAJoiners ...::: TAChat Joins :::...
;  }
  if ($right($nick,2) == TA) {
    if ($right($nick,6) == mIRCTA) { %v = mIRC Client }
    else { %v = Webchat Client }
    %o = $left($nick,-7)
  }
  else { %o = $nick | %v = Unknown Client }
  if ($left($nick,6) == $+(Admin,$chr(95))) { %o = $+($chr(39),%o) | %q = Administrator }
  elseif ($left($nick,6) == $+(Sysma,$chr(95))) { %o = $+($chr(39),%o) | %q = System Manager }
  elseif ($left($nick,6) == $+(Sysop,$chr(95))) { %o = $+($chr(39),%o) | %q = System Operator }
  elseif ($left($nick,6) == $+(Guide,$chr(95))) { %o = $+($chr(39),%o) | %q = Service Guide }
  elseif ($right($nick,4) == $+($chr(95),Bot)) { %o = $+($chr(39),%o) | %q = System Bot }
  else { %q = Chatter }
  %k = $remove($chan,$+($chr(37),$chr(35)))
;  if ($window(@TAJoiners) == $null) { halt }
;  echo @TAJoiners $+($chr(3),07) $+ IRC Roomname: $+($chr(3),03) $+ $+($chr(37),$chr(35),%k)
;  echo @TAJoiners $+($chr(3),07) $+ TAC Roomname: $+($chr(3),03) $+ $tajnr.roomdec(%k)
;  echo @TAJoiners $+($chr(3),07) $+ TAC Catagory: $+($chr(3),03) $+ $tajnr.roomdec(%k).catagory
;  echo @TAJoiners $+($chr(3),07) $+ TAC Language: $+($chr(3),03) $+ $tajnr.roomdec(%k).language
;  echo @TAJoiners $+($chr(3),07)
;  echo @TAJoiners $+($chr(3),07) $+ IRC Nickname: $+($chr(3),03) $+ $nick
;  echo @TAJoiners $+($chr(3),07) $+ TAC Nickname: $+($chr(3),03) $+ %o
;  echo @TAJoiners $+($chr(3),07) $+ Status: $+($chr(3),03) $+ %q
;  echo @TAJoiners $+($chr(3),07) $+ Client Type: $+($chr(3),03) $+ %v
;  echo @TAJoiners $+($chr(3),07)
;  echo @TAJoiners $+($chr(3),07) $+ Date: $+($chr(3),03) $+ $date(ddd/d/mmm/yyyy)
;  echo @TAJoiners $+($chr(3),07) $+ Time: $+($chr(3),03) $+ $time(h:nn:ss tt)
;  echo @TAJoiners $+($chr(3),07)
;  echo @TAJoiners $+($chr(3),07) $+ $str($chr(95),55)
;  echo @TAJoiners $+($chr(3),07)
  if ($window(@TAJoinerz) == $null) { halt }
  aline @TAJoinerz IRC Roomname: $+($chr(37),$chr(35),%k)
  aline @TAJoinerz TAC Roomname: $tajnr.roomdec(%k)
  aline @TAJoinerz TAC Catagory: $tajnr.roomdec(%k).catagory
  aline @TAJoinerz TAC Language: $tajnr.roomdec(%k).language
  aline @TAJoinerz $chr(160)
  aline @TAJoinerz IRC Nickname: $nick
  aline @TAJoinerz TAC Nickname: %o
  aline @TAJoinerz Status: %q
  aline @TAJoinerz Client Type: %v
  aline @TAJoinerz $chr(160)
  aline @TAJoinerz Date: $date(ddd/d/mmm/yyyy)
  aline @TAJoinerz Time: $time(h:nn:ss tt)
  aline @TAJoinerz $chr(160)
  aline @TAJoinerz $str($chr(95),300)
  aline @TAJoinerz $chr(160)
}