alias whisper {
  %nick = $1
  %msg = $2-
  %chan = $active
  if (%chan !ischan) {
    echo -at You are not on a channel
    return
  }
  if (%nick !ison %chan) || ($me !ison %chan) {
    echo -at You do not share that channel
    return
  }
  .raw @+draft/channel-context= $+ %chan NOTICE %nick : $+ %msg
  echo -t %chan [Whisper to %nick $+ ] %msg
}

on *:NOTICE:*:?:{
  if ($msgtags(+draft/channel-context).key !== $null) echo -t $msgtags(+draft/channel-context).key [Whisper from $nick $+ ] $1-
}