/ScriptServ

alias Channelpeak {
  .dialog -m channelpeak channelpeak
}
dialog ChannelPeak {
  title "Channel Peak!"
  size -1 -1 70 30
  option dbu
  text Channel: %peakchan, 11, 2 2 100 35, ok tab 1
  text Max: %peakmax, 12, 2 9 100 35, ok tab 1
  button "Okey",15, 8 20 25 9, ok
  button "Reset",16, 35 20 25 9, 
}
on *:JOIN:#:{
  if ($nick(#,0) > %peakmax) {
    .set %peakchan # 
    .set %peakmax $nick(#,0)
  }
}
on 1:dialog:ChannelPeak:sclick:*: {
  if ($did == 15) { .dialog -c ChannelPeak ChannelPeak  }
  if ($did == 16) {
    .set %peakchan n/a 
    .set %peakmax 0 
    .dialog -c ChannelPeak ChannelPeak 
    .channelpeak 
  }
}