This is the way I like to see mIRC. Changed everything from whois to Events.

on ^1:JOIN:#:{
  if ($nick != $me) {
    echo -th $chan 9[4ø9] 11Join:04 $nick $+ 14(07 $+ $remove($address($nick,1),*!*) $+ 14) 00has joined04 $chan $+ 00.
  }
  else {
    echo -th $chan %pre 00Now talking in04 $chan $+ 00.
  }
  haltdef
}
on ^1:PART:#:{
  if ($nick == $me) { halt }
  else {
    set %nick $nick($chan,$nick).pnick
    if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
    elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
    elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
    elseif (% isin %nick) { set %nick $remove(%nick,+) }
    echo -th $chan 9[4ø9] 11Part:04 %nick $+ 14(07 $+ $remove($address($nick,1),*!*) $+ 14) 00has left04 $chan $+ 00.
    haltdef
    unset %nick
  }
}
on ^1:RAWMODE:#:{
  set %nick $nick($chan,$nick).pnick
  if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
  elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
  elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
  elseif (% isin %nick) { set %nick $remove(%nick,+) }
  echo -th $chan 9[4ø9] 11Mode:04 $iif(%nick,%nick,$nick) $+ 14(07 $+ $remove($address($nick,1),*!*) $+ 14) 00sets mode:04 $1-
  haltdef
  unset %nick
}
on ^1:ACTION:*:{
  set %nick $nick($chan,$nick).pnick
  if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
  elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
  elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
  elseif (% isin %nick) { set %nick $remove(%nick,+) }
  if ($chan) {
    echo -th $chan 06 $+ %pre %nick $1-
  }
  else {
    echo -th $nick 06 $+ %pre %nick $1-
  }
  haltdef
  unset %nick
}
on ^1:TEXT:*:*:{
  if ($chan) {
    set %nickcolor $nick($chan,$nick).color
    set %nick $nick($chan,$nick).pnick
    if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
    elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
    elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
    elseif (% isin %nick) { set %nick $remove(%nick,+) }
    echo -th $chan 14( $+ %nickcolor $+ %nick $+ 14)00: $1-
  }
  else {
    echo -th $nick 14(00 $+ $nick $+ 14)00: $1-
  }
  haltdef
  unset %nick
  unset %nickcolor
  unset %nicks
}
on *:INPUT:*:{
  if ($1 == /notice) { echo -at 9[4ø9] --> 11Notice: 04- $+ $2 $+ -00 $3- | .notice $2 $3- | halt }
  else {
    set %nick $nick($chan,$me).pnick
    if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
    elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
    elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
    elseif (% isin %nick) { set %nick $remove(%nick,+) }
    if ($1 == :/) || ($1 == \o) { echo -th $active 14(11 $+ %nick $+ 14)00 $1- | .msg $chan $1- | halt }
    if (/ isin $1) {
      if (http isin $1) { echo -th $chan 14(11 $+ $iif(%nick,%nick,$nick) $+ 14)00 $1- | .msg $active $1- | halt }
      else { $1- | halt }
    } 
    if ($chan) {
      .msg $chan $1-
      echo -th $chan 14(11 $+ %nick $+ 14)00 $1-
    }
    else {
      .msg $active $1-
      echo -th $active 14(11 $+ $me $+ 14)00 $1-
    }
  }
  haltdef
  unset %nick
}
on ^1:NICK:{
  var %x 1
  if ($nick == $me) {
    while ($chan(%x)) {
      echo -th $chan(%x) 9[4ø9] 11Nick:04 $nick 00is now known as04 $newnick $+ .
      inc %x
    }
    echo -ths 9[4ø9] 11Nick: $nick is now known as $newnick $+ .
  }
  else {
    while ($comchan($nick,%x)) {
      echo -th $comchan($nick,%x) 9[4ø9] 11Nick: $nick is now known as $newnick $+ .
      inc %x
    }
  }
  haltdef
  unset %nick
  unset %newnick
}
on ^1:QUIT:{
  var %x 1
  while ($comchan($nick,%x)) {
    set %nick $nick($chan,$nick).pnick
    if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
    elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
    elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
    elseif (% isin %nick) { set %nick $remove(%nick,+) }
    echo -th $comchan($nick,%x) 9[4ø9] 11Quit:04 $iif(%nick,%nick,$nick) $+ 14(07 $+ $remove($address($nick,1),*!*) $+ 14) has quit04 $network $+ 14(07 $+ $1- $+ 14)
    inc %x
  }
  haltdef
  unset %nick
}
on ^1:NOTICE:*:*:{
  echo -at 9[4ø9] <-- 11Notice: 04- $+ $nick $+ -00 $1-
  haltdef 
}
raw 301:*:{ echo -a      9[4ø9] 11Away:00 $remove($2-,$1) | halt }
raw 311:*:{ echo -a -------- $+ $2 Start of /whois-------- | echo -a      9[4ø9] 11Ident:00 $3 | echo -a      9[4ø9] 11Address:00 $4 | echo -a      9[4ø9] 11Real Name:00 $remove($5-,$chr(42)) | halt }
raw 312:*:{ echo -a      9[4ø9] 11Server:00 $3 $+ ( $+ $network $+ ) - $4- | halt }
raw 313:*:{ echo -a      9[4ø9] 11Status:00 $5- | halt }
raw 317:*:{ echo -a      9[4ø9] 11Idle:00 $duration($3) | halt }
raw 319:*:{ echo -a      9[4ø9] 11Channels:00 $3- | halt }
raw 318:*:{ echo -a -------- $+ $1 End of /whois-------- | halt }
raw 338:*:{ echo -a      9[4ø9] 11IP:00 $remove($6,[,]) | halt }
raw 307:*:{ echo -a      9[4ø9] 11Identified:00 Identified | halt }
raw 310:*:{ echo -a      9[4ø9] 11Modes:00 $6 | halt }
raw 671:*:{ echo -a      9[4ø9] 11Connection:00 $6- | halt }
raw 672:*:{ echo -a      9[4ø9] 11Client:00 $5- | halt }
raw 332:*:{ echo -t $2 9[4ø9] 11Topic:00 $iif($3-,$3-,No Topic Set) | halt }
raw 306:*:{ echo -at      9[4ø9] 11Away:00 $2- | halt }
raw 305:*:{ echo -at      9[4ø9] 11Away:00 $2- | halt }
raw 378:*:{ echo -a      9[4ø9] 11Connected From:00 $7- | halt }