This was mainly coded by me, with help from a friend. He made the firstletter alias. He also helped give me ideas and such. Anyways, it's just a whois script, that looks snazzy? Attempted to use 0 control codes in this script, also.

If they're on a common channel with you, the channel will be bolded in the whois.
Please note, this was made for the WebChat IRC network, so you might have to tweak it just a bit to make it work for your server.

Easy to install.
First:
/set %col.1 [Primary Color, No control codes]
/set %col.2 [Alternative Color, No control codes]

Second:
Paste into remotes.

raw 311:* {
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> ---------- -Whois for $2 $+ - ---------- <!--\\)
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is $6-) 
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> Host: $address($2,3))
  haltdef 
}
raw 307:* {
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 has the LUID: $3 and is a Registered Nickname.)
  haltdef 
}
raw 319:* {
  var %% = $0
  while (%% > 2) {
    var %c = $iif($me ison $mid($eval($+($,%%),2),$pos($eval($+($,%%),2),$chr(35))),$+($chr(2),$eval($+($,%%),2),$chr(2)),$eval($+($,%%),2)) %c
    dec %%
  }
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is on: %c)
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is on $+  $chr(32) $+ $comchan($2,0) $+  $chr(32)  $+ common channels with you.)
  haltdef 
}
raw 312:* { 
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is on the: $4 Chat Network $+($chr(91),$3,$chr(93)))
  haltdef
}
raw 317:* {
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 has been idle for: $duration($3))
  haltdef
}
raw 313:* {
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is an IRCop $+($chr(91),$5,$chr(32),$6,$chr(93)))
  haltdef
}
raw 310:* {
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 looks very helpful.)
  haltdef
}
raw 334:* {
  if ($3 = interests) {
    echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 has the interests: $4-  )
  }
  if ($3 = occupation) {
    echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is occupied: $4-  )
  }
  if ($3 = location) {
    echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 is located: $4-  )
  }
  haltdef 
}
raw 309:* { 
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 Prefers The Language: $6)
  haltdef
}
raw 344:* { 
  echo -a $ttime($time) $firstletter(%col.1,%col.2,//--!> $2 Is Securely Connected. [SSL])
  haltdef
}
raw 318:* { 
  echo -a $ttime($time) $firstletter(%col.1,%col.2,\\--!> ---------- -End Whois for $2 $+ - ---------- <!--//))
  haltdef
}
raw 332:* {
  echo $2 $ttime($time) $firstletter(%col.1,%col.2,//--!> The Topic in $2 is:) $3- <!--\\
  halt
}
raw 333:* {
  echo $2 $ttime($time) $firstletter(%col.1,%col.2,//--!> Set By:) $+(,$3,) $firstletter(%col.1,%col.2at:) $boldcode($asctime($4))) <!--\\
  halt
}

alias firstletter { var %MIRCFUCKINGSUCKS = $1, %MIRCFUCKINGSUCKSMORE = $2 | return $regsubex($3-,/b(W*S)(S*)b/g,$+($chr(3),%MIRCFUCKINGSUCKS,$str($chr(2),2),1,$chr(3),%MIRCFUCKINGSUCKSMORE,$str($chr(2),2),2) ) }

alias boldcode {
  return $+($chr(2),$1-,$chr(2))
}
alias colorcode {
  return $+($chr(3),$1,$iif($left($2,1) isnum || $left($2,1) == $chr(44), $+($chr(2),$chr(2)),$null),$2-)
}
alias  undercode {
  return $+($chr(31),$1-,$chr(31))
}
alias ttime {
  return $undercode($boldcode($colorcode(%col.1,$chr(40)))) $+ $colorcode(%col.2,$1-) $+ $undercode($boldcode($colorcode(%col.1,$chr(41))))
}