alias channelgraph {
  set %graph.channel $?="Channel name? (WITHOUT the #)"
  set %graph.max $?="Maximum user count y-axis?"
  set %graph.min $?="Minimum user count y-axis?"
  set %graph.axiscolor $?="Axis color? (index number)"
  set %graph.gridcolor $?="Gridline color? (index number)"
  set %graph.linecolor $?="Line color? (index number)"
  set %graph.textcolor $?="Text color? (index number)"
  set %graph.duration $?="Duration? (in hours, a multiple of 3 recommended)"
  window -epk0 @Graph. $+ %graph.channel 0 0 900 650
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 50 550 770 550
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 50 45 50 550
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 170 543 170 549
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 290 543 290 549
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 410 543 410 549
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 530 543 530 549
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 650 543 650 549
  drawline @Graph. $+ %graph.channel %graph.axiscolor 2 770 543 770 549
  drawtext @Graph. $+ %graph.channel %graph.textcolor 50 560 0
  drawtext @Graph. $+ %graph.channel %graph.textcolor 165 560 $round($calc(%graph.duration /6),2)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 285 560 $round($calc(%graph.duration /3),2)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 405 560 $round($calc(%graph.duration /2),2)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 525 560 $round($calc(%graph.duration /1.5),2)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 645 560 $round($calc(%graph.duration /1.2),2)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 765 560 %graph.duration
  drawtext @Graph. $+ %graph.channel %graph.textcolor 790 560 (hours)
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 495 770 495
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 445 770 445
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 395 770 395
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 345 770 345
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 295 770 295
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 245 770 245
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 195 770 195
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 145 770 145
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 95 770 95
  drawline @Graph. $+ %graph.channel %graph.gridcolor 1 50 45 770 45
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 540 %graph.min
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 490 $round($calc(%graph.min +(0.1*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 440 $round($calc(%graph.min +(0.2*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 390 $round($calc(%graph.min +(0.3*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 340 $round($calc(%graph.min +(0.4*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 290 $round($calc(%graph.min +(0.5*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 240 $round($calc(%graph.min +(0.6*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 190 $round($calc(%graph.min +(0.7*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 140 $round($calc(%graph.min +(0.8*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 90 $round($calc(%graph.min +(0.9*(%graph.max - %graph.min))),0)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 10 40 %graph.max
  drawtext @Graph. $+ %graph.channel %graph.textcolor 5 20 (users)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 460 20 Started on $fulldate
  .timer $+ %graph.channel $+ graph -o 720 [ $calc(( %graph.duration * 3600)/720) ] drawdot @Graph. $+ %graph.channel [ %graph.linecolor ] 2 $!calc(51+(720 - $!timer( [ %graph.channel $+ graph ] ).reps)) $!calc(50+((500/( [ %graph.max ] - [ %graph.min ] ))*( [ %graph.max ] - $!nick( [ $chr(35) ] $+ [ %graph.channel ] ,0))))
}
on *:CLOSE:@Graph.*:{ .timer $+ $gettok($target,2-,46) $+ graph off | unset %graph.* }