Mine

on *:TEXT:@note *:#findclan-cod2: {
  if ($hget(players,$2)) {
    if ($2 ison $chan) { .msg $2 Note from $nick $+ : $3- | .notice $nick Note delivered to $2 $+ . }
    else {
      if ($hget($2)) {
        hadd $2 $calc($hget($2,0).item + 1) $nick $3-
        .notice $nick Note successfully added for $2 $+ . The note will be delivered ASAP.
      }
      else { 
        hmake -s $2 20
        hadd $2 $calc($hget($2,0).item + 1) $nick $3-
        .notice $nick Note successfully added for $2 $+ . The note will be delivered ASAP.
      }
    }
  }
}

on *:JOIN:#findclan-cod2: {
  if ($hget($nick)) {
    if ($hget($nick,0).item > 0) {
      .notice $nick Notice: You have $hget($nick,0).item $iif($hget($nick,0).item == 1,note,notes) waiting.  To read, PM the bot with "@notes".
    }
  }
}

on *:TEXT:@del *:?: {
  if ($hget($nick)) {
    if ($2 isnum) { 
      hdel $nick $2
      .msg $nick Deleted note $2 $+ .
    }
    elseif ($2 == all) { hfree $nick | msg $nick Deleted all notes. }
  }
}

on *:TEXT:@notes:?: {
  if ($hget($nick)) {
    if ($hget($nick,0).item > 0) {
      .msg $nick Listing all notes:
      var %x 1
      while (%x <= $hget($nick,0).item) {
        .msg $nick $chr(91) $+ $hget($nick,%x).item $+ $chr(93) $gettok($hget($nick,%x).data,1,32) $+ : $gettok($hget($nick,%x).data,2-,32)
        inc %x
      }
      .msg $nick Use: @del <number> (eg: @del 1) to delete notes, or @del all to delete them all.
    }
  }
}