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
}
}