alias 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 ^*:ACTION:*:#:{
  var %o, %r, %x, %c
  if ($right($nick,2) == TA) { %o = $left($nick,-7) }
  else { %o = $nick }
  %r = $1-
  if (Admin_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
  elseif (Sysma_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
  elseif (Sysop_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
  elseif (Guide_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
  elseif (_Bot iswm $right($nick,4)) && ($nick isowner $active) { echo $chan 02 %o :  $+ %c $+ %x | halt }
  else { echo $chan 06 $nick.decode(%o) %r | halt }
}

on ^*:TEXT:*:#:{
  var %o, %r, %x, %c
  if ($right($nick,2) == TA) { %o = $left($nick,-7) }
  else { %o = $nick }
  %r = $1-
  if ($left(%r,3) = $+($chr(124),01)) { %c = 01 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),02)) { %c = 02 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),03)) { %c = 03 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),04)) { %c = 04 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),05)) { %c = 05 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),06)) { %c = 06 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),07)) { %c = 07 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),08)) { %c = 08 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),09)) { %c = 09 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),10)) { %c = 10 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),11)) { %c = 11 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),12)) { %c = 12 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),13)) { %c = 13 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),14)) { %c = 14 | %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),15)) { %c = 15 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),16)) { %c = 16 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),17)) { %c = 17 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),18)) { %c = 18 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),19)) { %c = 19 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),20)) { %c = 20 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),21)) { %c = 21 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),22)) { %c = 22 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),23)) { %c = 23 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),24)) { %c = 24 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),25)) { %c = 25 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),26)) { %c = 26 | %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),27)) { %c = 27 | %x = $right(%r,-10) }  
  else { %c = 01 | %x = %r }
  %c = 01

  %x = $remove(%x,^|Arial|^|)
  %x = $remove(%x,^|Comic Sans MS|^|)
  %x = $remove(%x,^|Courier|^|)
  %x = $remove(%x,^|Fixedsys|^|)
  %x = $remove(%x,^|Georgia|^|)
  %x = $remove(%x,^|Impact|^|)
  %x = $remove(%x,^|Lucida Console|^|)
  %x = $remove(%x,^|Modern|^|)
  %x = $remove(%x,^|MS Sans Serif|^|)
  %x = $remove(%x,^|MS Serif|^|)
  %x = $remove(%x,^|Roman|^|)
  %x = $remove(%x,^|Script|^|)
  %x = $remove(%x,^|Symbol|^|)
  %x = $remove(%x,^|System|^|)
  %x = $remove(%x,^|Tahoma|^|)
  %x = $remove(%x,^|Terminal|^|)
  %x = $remove(%x,^|Times New Roman|^|)
  %x = $remove(%x,^|Trebuchet MS|^|)
  %x = $remove(%x,^|Verdana|^|)
  %x = $remove(%x,^|Webdings|^|)

  if ($nick == $chan) { echo -a $+($chr(3),3) $+ $1- | halt }

  if (Admin_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o :  $+ %c $+ %x | halt }
  elseif (Sysma_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o :  $+ %c $+ %x | halt }
  elseif (Sysop_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o :  $+ %c $+ %x | halt }
  elseif (Guide_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o :  $+ %c $+ %x | halt }
  elseif (_Bot iswm $right($nick,4)) && ($nick isowner $active) { echo $chan 02 %o :  $+ %c $+ %x | halt }
  else { echo $chan 02 $nick.decode(%o) :  $+ %c $+ %x | halt }
}

On *:input:#: {
  if (%color == $null) { set %color 04 }
  if (%font == $null) { set %font Verdana }
  var %q, %n, %qnka, %qrst 
  %q = $me
  if ($left(%q ,6) == Admin_) { %n = %q }
  elseif ($left(%q ,6) == Sysma_) { %n = %q }
  elseif ($left(%q ,6) == Sysop_) { %n = %q }
  elseif ($left(%q ,6) == Guide_) { %n = %q }
  elseif ($right(%q ,4) == _Bot) { %n = %q }
  else { %n = $nick.decode(%q) }

  if (/ != $left($1,1)) {
    echo # 01 %n :  $+ 01 $+ $1-
    %qnka = %color
    if (($left($chan,2) == $+($chr(37),$chr(35))) && (%randcolor == yes)) {
      %qrst = $rand(1,27)
      if %qrst < 10 {
        %qnka = $+($chr(48),%qrst)
      }
      else {
        %qnka = %qrst
      }
    }
    .msg # $+($chr(124),%qnka,$chr(124),x,$chr(124),x,$chr(124),x,$chr(124),^,$chr(124),%font,$chr(124),^,$chr(124),$1-)
    halt
  }
  if (/me == $1) {
    echo # 06* %n $2-
    .describe # $2-
    halt
  }
}

on ^*:NOTICE:*:#: { 
  if ($2 == AWAY) {  
    echo $chan $dtime $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has marked their status as Away. 
    halt  
  } 
  if ($2 == BACK) {  
    echo $color(join) -ti2 $chan $dtime $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has marked their status as Returned. 
    halt
  } 
  else { 
    echo $chan $dtime [Notice] - Notice to $chan from $nick $+ : $1-  
    window -g[1] $chan  
    halt
  } 
}

raw 305:*:{
  if ($chr(35) isin $active) {
    notice $active away: back
    echo $active $+($chr(3),14,$str($chr(160),8),$chr(187)) You are no longer marked as being away.
  }
}
raw 306:*:{
  if ($chr(35) isin $active) {
    notice $active away: away
    echo $active $+($chr(3),14,$str($chr(160),8),$chr(187)) You have been marked as being away.
  }
}
raw 332:*:{
  echo $2 $+($chr(3),10) $+ The chat's topic is: $+($chr(3),1) $+ $3-
  halt
}
raw 333:*:{ halt }


on ^*:NICK:{
  if ($nick != $me) { echo -t $comchan($newnick,1) $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) is now known as $nick.decode($newnick) $+ . }
  else { echo -a $+($chr(3),14,$str($chr(160),8),$chr(187)) Your nick is now $nick.decode($newnick) $+ . }
  halt
}


on *:JOIN:#:{
  if ($nick == $me) {
    clear $chan
    echo $chan $+($chr(3),3) $+ Please wait, connecting to the server... 
    echo $chan $+($chr(3),4) $+ Connected!
    echo $chan $chr(160)
    halt
  }
  else  { echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has joined the conversation. | halt }
}

on *:PART:#:{
  if ($nick != $me) { echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has left the conversation. | halt }
}

on *:QUIT:{
  if ($nick != $me) {
    var %ComChan 1
    while (%ComChan <= $comchan($nick,0)) {
      echo $comchan($nick,%ComChan) $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has left the conversation.
      inc %ComChan 1
    }
    halt
  }
}


on ^*:RAWMODE:#:{
  var %tmp
  if ($1 == -v) && (*+*m* iswm $chan(#).mode) {
    if ($2 isop $chan) { halt }
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Spectator.
    halt
  }
  if ($1 == -v) && (*+*m* !iswm $chan(#).mode) {
    if ($2 isop $chan) { halt }
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Participant.
    halt
  }
  if ($1 == -o) {
    if ($2 isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Participant. }
    elseif ($2 !isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Spectator. }
    else { %tmp = Participant. }
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a %tmp
    halt
  }
  if ($1 == -q) {
    if ($2 isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Participant. }
    elseif ($2 !isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Spectator. }
    else { %tmp = Participant. }
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a %tmp
    halt
  }
  if ($1 == +v) {
    if ($2 isop $chan) { halt }
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Participant.
    halt
  }
  if ($1 == +o) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Host.
    halt
  }
  if ($1 == +q) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) an Owner.
    halt
  }
  if ($1 == +l) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has set the room limit to: $2-
    halt
  }
  if ($1 == +m) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is now a moderated room.
    halt
  }
  if ($1 == -m) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is no longer a moderated room.
    halt
  }
  if ($1 == +r) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is now a registerd room.
    halt
  }
  if ($1 == -r) {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is no longer a registerd room.
    halt
  }
  else {
    echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has set mode: $1-
    halt
  }
}

on *:whisper:*:{
  echo -a $1-
}