on $*:TEXT:/^[`!@.]a(dd)rule/Si:#eud:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($read(rulesofeud.txt, w, $2-)) {
      notice $nick Rule: $2- already exists
    }
    else {
      write rulesofeud.txt $2-
      /notice $nick $2- added to rules database
    }
  }
  else {
    notice $nick You are not op/hop
  }
}
on $*:TEXT:/^[`!@.]d(el)rule/Si:#eud:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($read(rulesofeud.txt, w, $2-)) {
      write -dw $+ $2- rulesofeud.txt
      /notice $nick $2- deleted from rules database
    }
    else {
    notice $nick Rule: $2- is not in the rule database }
  }
  else { notice $nick you are not op/hop }
}

on $*:TEXT:/^[`!@.]rules/Si:#eud:{
  /play $nick rulesofeud.txt
}