Quotes section revised zzbooze

  if ($1 == .qban) {
    if ($nick isin $readini(quotes.ini,mods,mods)) || ($nick == $readini(quotes.ini,owner,owner)) {
      if ($2 == add) {
        if ($3 isin $readini(quotes.ini,bans,bans)) {
          .msg $chan $3 is already banned from quotes!
        }
        else {
          writeini quotes.ini bans bans $addtok($readini(quotes.ini,bans,bans),$3,32)
          .msg $chan Quote ban added!
          if ($chr(42) isin $readini(quotes.ini,bans,bans)) {
            writeini quotes.ini bans bans $remtok($readini(quotes.ini,bans,bans),$chr(42),1,32)
          }
        }
      }
      if ($2 == del) {
        if ($3 !isin $readini(quotes.ini,bans,bans)) {
          .msg $chan $3 isn't banned from quotes. How can I unban him?
        }
        else {
          var %t = $remtok($readini(quotes.ini,bans,bans),$3,1,32) | /writeini quotes.ini bans bans $iif(%t == $null,$chr(42),%t)
          .msg $chan $3 $+ 's Quote ban deleted!!
        }
      }
      if ($2 == list) {
        .msg $chan Quote Bans
        .msg $chan $iif($readini(quotes.ini,bans,bans) == $null,There are none.,$v1)
      }
    }
    else {
      .msg $chan Access Denied!!
    }
  }