alias loc return $iif($chan,$v1,$nick)

on $*:text:/^(!|@)rules\b/Si:*: {
  tokenize 32 $strip($1-)
  if ($2 == add) {
    if ($left($nick($chan,$nick).pnick,1) == &) || ($left($nick($chan,$nick).pnick,1) == ~) {
      if ($3) {
        writeini rules.ini $chan $3-
        msg $chan 4" $+ $3- $+ " Added by $nick
      }
    }
  }
  if ($2 == del) {
    if ($left($nick($chan,$nick).pnick,1) == &) || ($left($nick($chan,$nick).pnick,1) == ~) {
      if ($3) {
        if ($readini(rules.ini,n,$chan,$3)) {
          remini rules.ini $chan $3-
          .msg $chan 4Removed $3- from rules list.
        }
      }
      else {
        msg $chan 4No such Rule entry.
        .notice $nick 4To see the list of Rule List Entries, type !Rules <list>
      }
    }
  }
  if ($2 == list) && ($ini(rules.ini,$chan,0)) {
    .msg $loc 4Displaying A List Of Rules For $loc $+ :
    var %a 1, %z $ini(Rules.ini,$chan,0)
    while (%a <= %z) {
      .msg $loc 04 $+ %a $ini(rules.ini,$chan,%a) $readini(rules.ini,n,$chan,$ini(rules.ini,$chan,%a))
      inc %a
    }
    .msg $chan 4End of list. %z entry(s) displayed.
  }
  elseif ($2 == list) && (!$ini(rules.ini,$chan,0)) {
    .msg $loc 04Sorry $nick $+ , there are currently no rules for $chan $+ .
  }
}