on *:TEXT:$(%trig $+ addnews *):#: { 
  write news.txt $2-
  notice $nick $2- $+ , has been added to line: $lines(news.txt) $+ .
  notice $nick To remove it, type: $+(%trig,delnews) $lines(news.txt) $+ .
}

on *:TEXT:$(%trig $+ delnews *):#: { 
  write -d news.txt $2
  notice $nick The news on line $2 has been removed.
}

on *:TEXT:$(%trig $+ viewnews):#: { 
  var %n = 1
  var %line = 1
  while (%n <= $lines(news.txt)) {
    notice $nick Line %line = $read(news.txt,%n)
    inc %n
    inc %line
  }
}

on *:TEXT:$(%trig $+ skin *):#: {
  if ($2 == news) {
    set %newsskin $3-
    notice $nick The news skin has been set to: $3-
  }
}

on *:TEXT:$(%trig $+ news *):#: {
  if ($2 == on) {
    notice $nick News has been turned on.
    /timernews 0 10 .newsoutput
  }
  if ($2 == off) {
    notice $nick News has been turned off.
    /timernews off
  }
}

alias newsoutput {
  msg #people $replace(%newsskin,<news>,$read(news.txt,%c))
  inc %c
  if (%c > $lines(news.txt)) {
    set %c 1
  }
}