jParker

on $*:TEXT:/^[.@!]settopic */Si:#:{
  if (!$readini(staff.ini,Staff,$nick)) && ($nick !isop $chan) && ($nick !ishop $chan) halt
  if ($2 isnum) {
    if ($2 isnum 1- $+ $lines(`Topic.txt)) {
      topic $chan $replace($read(`Topic.txt, $2),topichere,$3-)
    }
    else {
      notice $nick Please specify a style number from 1 to $lines(`Topic.txt) $+ .
      halt
    }
  }
  else {
    topic $chan $replace($read(`Topic.txt),topichere,$3-)
  }
}