alias channelgraph {
  set %graph.channel $?="Channel name? (without #)"
  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 50 50 550
  drawtext @Graph. $+ %graph.channel %graph.textcolor 50 560 0
  drawtext @Graph. $+ %graph.channel %graph.textcolor 170 560 $round($calc(%graph.duration /6),1)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 290 560 $round($calc(%graph.duration /3),1)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 410 560 $round($calc(%graph.duration /2),1)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 530 560 $round($calc(%graph.duration /1.5),1)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 650 560 $round($calc(%graph.duration /1.2),1)
  drawtext @Graph. $+ %graph.channel %graph.textcolor 770 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
  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 400 20 Started on $fulldate
  .timer $+ %graph.channel $+ graph -o 720 [ $calc(( %graph.duration * 3600)/720) ] drawdot @Graph. $+ %graph.channel [ %graph.linecolor ] 2 $!calc(50+(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.* }
; ––––––––––––––––––––––––––––––––––––––––
; End of file
; ––––––––––––––––––––––––––––––––––––––––