Glacier_Rat

on $*:TEXT:/^[.!](del|view|add)(rsn|notes)/Si:#celestial_skillers_staff: {
  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)
}