on ^*:TEXT:*:*: {
  set %bold_id_loaded 1
  if ( $nick == Robo-Cop || $nick == Robo-Thief ) {
    if ( *(*)* - * iswm $1- && $4 == - && **|* !iswm $1- ) {
      echo -tm $iif($chan == $null,$nick,$chan) < $+  $+ $nick($iif($chan == $null,$nick,$chan),$nick).color $+ $bob_pnick($iif($chan == $null,$nick,$chan),$nick) $+ > $+(,$1,$2,$3,) - $5-
      halt
    }
  }
  else if ( ( $1 == !pm || $1 == !say || $1 == !text || $1 == !rc ) && %col_chg_scr ) { halt }
  echo -tm $iif($chan == $null,$nick,$chan) < $+  $+ $nick($iif($chan == $null,$nick,$chan),$nick).color $+ $bob_pnick($iif($chan == $null,$nick,$chan),$nick) $+ > $1-
  haltdef
}

on *:INPUT:*: {
  if ( $left($1,1) != / ) {
    if ( $left($active,1) == $chr(35) ) {
      if ( ( $1 == !say || $1 == !pm || $1 == !text || $1 == !rc ) && %col_chg_scr ) {
        echo -t $active < $+  $+ $nick($active,$me).color $+ $bob_pnick($active,$me) $+ > $remove($1-,,)
      }
      else echo -t $active < $+  $+ $nick($active,$me).color $+ $bob_pnick($active,$me) $+ > $1-
    }
    else if ( $left($active,1) != @ ) echo -tm $active < $+ $me $+ > $1-
    if ( %col_chg_scr != 1 || ( $1 != !pm && $1 != !text && $1 != !say && $1 != !rc ) ) .msg $active $1-
    halt
  }
}

alias -l bob_pnick {
  var %upnck $2
  var %upnckp $nick($1,$2).pnick
  var %pnckt $remove(%upnckp,%upnck)
  return $left(%pnckt,1) $+ %upnck
}