Glacier_Rat

on $*:TEXT:/^[.!](del|view|add)(rsn|notes)/Si:#celestial_skillers #celestial_skillers_staff: {
  if ($me == Celestialskillersbot) {
    if ($regml(1) == add) {
      var %x 1
      while ($readini(notes.ini,n,$2,n $+ %x)) inc %x
      writeini -n notes.ini $2 $+(n,%x) $c1($nick,Note: $3-) $c1($nick,Note By $nick $date $time GMT)
      notice $nick $c1($nick,Notes) $+ 1 %x $c1($nick,For) $c2($nick,$2) $c1($nick,has been saved.)
    }
    elseif ($regml(1) == del) {
      if ($remove($3,-) !isnum) {
        if ($readini(notes.ini,n,$2,n1)) {
          remini -n notes.ini $2
          notice $nick $c1($nick,Notes for) $c2($nick,$2) $c1($nick,Deleted.)
        }
        else {
          notice $nick $2 has no notes.
        }
      }
      else {
        var %x 1
        while ($readini(notes.ini,n,$2,n $+ %x)) {
          if (%x isnum $3) {
            remini -n notes.ini $2 $+(n,%x)
            notice $nick $c1($nick,Note) $+ 1 %x $c1($nickFor) $c2($nick,$2) $c1($nick,Deleted.)
          }
          inc %x
        }
        ncleanup $2
      }
    }
    elseif ($regml(1) == view) {
      if ($readini(notes.ini,n,$2,n1)) {
        notice $nick $c1($nick,Notes For) $c2($nick,$2) $+ $c1($nick,:)
        var %x 1
        while ($readini(notes.ini,n,$2,n $+ %x)) {
          notice $nick 1 %x $+ : $c1($nick,$v1)
          inc %x
        }
      }
      else {
        notice $nick $c1($nick,$2) $c2($nick,Has No Notes.)
      }
    }
  }
  alias -l ncleanup {
    var %x 1
    while ($ini(notes.ini,$1,%x)) {
      hadd -m $+(notes.,$1) %x $readini(notes.ini,n,$1,$v1)
      inc %x
    }
    remini notes.ini $1
    var %x 1
    while ($hget($+(notes.,$1), %x)) {
      writeini notes.ini $1 $+(n,%x) $v1
      inc %x
    }
    hfree $+(notes.,$1)
  }
}