Note System (FOR BOT)

###################################
# Note System Coded By xplorer    #
# lemery.sebastien@gmail.gom      #
#         #mircscripting          #
#        irc.undernet.org         #
###################################
ON *:TEXT:!addnote *:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    if ($($+(%,info,$2),2)) {
      msg $chan Information for $2 is already registered!
    }
    else {
      set $+(%,info,$2) $3- (Added By: $fulladdress On: $fulldate $+ )
      msg $chan Informations 9ADDED!
    }
  }
  else {
    msg $chan $nick You need @ to !ADDNOTE
  }
}
ON *:TEXT:!remnote *:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    if ($($+(%,info,$2),2)) {
      unset $+(%,info,$2)
      msg $chan Informations 4DELETED!
    }
    else {
      msg $chan $nick Information for $2 does not exist!
    }
  }
  else {
    msg $chan $nick You need @ to !REMNOTE
  }
}
ON *:TEXT:!note *:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    if ($($+(%,info,$2),2)) {
      msg $chan Info for $+($2,:) $ifmatch
    }
    else {
      msg $chan * $+ $nick $+ * I have nothing in the database for $2
    }
  }
}
on *:TEXT:!notecount:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    msg $chan $var(%info*,0)
  }
}
on *:TEXT:!remallnote:#:{
  if ($istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    unset %info*
    msg $chan $nick all notes have been erased!
  }
  else {
    msg $chan $nick you cannot use this command!
  }
}
on *:TEXT:!addnoteadmin *:#:{
  if ($istok(%superadmin,$address($nick,2),32)) {
    if (!$istok(%noteadmin,$2,32)) {
      set %noteadmin $addtok(%noteadmin,$2,32)
      msg $chan $nick $2 has been added to Note Admins!
    }
    else {
      msg $chan $nick $2 is already added to Note Admins!
    }
  }
  else {
    msg $chan $nick you cannot use this command!
  }
}
on *:TEXT:!delnoteadmin:#:{
  if ($istok(%superadmin,$address($nick,2),32)) {
    if ($istok(%noteadmin,$2,32)) {
      set %noteadmin $deltok(%noteadmin,$2,32)
      msg $chan $nick $2 has been deleted from Note Admins!
    }
    else {
      msg $chan $nick $2 is not in Note Admins!
    }
  }
  else {
    msg $chan $nick you cannot use this command!
  }
}
on *:TEXT:!noteshow:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    if ($var(%info*,0) > 0) {
      var %i = $var(%info*,0)
      var %j = 1
      while (%j <= %i) {
        set %allinfo $iif($(%allinfo),$(%allinfo) -,$null) $remove($var(%info*,%j),$(%info,0))
        inc %j
      }
      msg $chan Notes are added for %allinfo $+ .
      unset %allinfo
    }
    else {
      msg $chan $nick I have no notes added!
    }
  }
}
ON *:TEXT:!modnote *:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    if ($($+(%,info,$2),2)) {
      set $+(%,info,$2) $3- (Modified By: $fulladdress On: $fulldate $+ ) $chr(124) $($+(%,info,$2),2)
      msg $chan Informations 9MODIFIED!
    }
    else {
      msg $chan $nick Information for $2 does not exist, Use !addnot instead!
    }
  }
  else {
    msg $chan $nick You need @ to !MODNOTE
  }
}
on *:TEXT:!notehelp:#:{
  if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
    notice $nick You NEED to be 4@(op) in the channel to use the note system.
    .timer -m 1 500 notice $nick Type 4!ADDNOTE <Username> Make Sure your adding the username 4*NOT4* The nickname
    .timer -m 1 1000 notice $nick Here is an example
    .timer -m 1 1500 notice $nick !ADDNOTE 4Username 9(Added/Suspended/deleted/modified) user to level 7<level>
    .timer -m 1 2000 notice $nick Type 4!MODNOTE <Username> To Add a note.
    .timer -m 1 2500 notice $nick Type 4!REMNOTE <Username> To Delete.
    .timer -m 1 3000 notice $nick Type 4!NOTE <Username> To Check the infos.
    .timer -m 1 3500 notice $nick Type 4!NOTESHOW To Show Usernames that have infos.
    .timer -m 1 4000 notice $nick Type 4!REMALLNOTE To Delete all notes.
    .timer -m 1 4500 notice $nick Type 4!NOTECOUNT To See the number of notes.
  }
}

on *:LOAD:{
  echo -a 4» »08 Note System Script Successfully Loaded.
  echo -a 4» »08 Copyright © 200915 http://xplorer.mircscripting.info
  echo -a 4» »08 Written by: 15 xplorer 08 Email: 15 xplorer@live.ca
}