The Bot message system receives a message that a nick inputs, saves it, and waits for the next time it sees the nick that is receiving the message, and sends it to them.

All you have to do is paste this in the remote section of your bot, or create a new file and load it.

User Commands:
!message EX: !message joe Hey, what's up? <-- will send a message to joe when it sees him talk or login.
!delete EX: !delete joe <-- will delete the message you have waiting for joe.

Each nick may only send 1 message per nick at a time. So a nick can not spam another nick with messages.

More updates will be coming with more features.

Next Release Additions:
~ View all pending messages
~ Send to multiple people
~ View history of past messages

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
;       Messenger System         ;
;     Created by Uncled1023      ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;

; %n3owner = bots owner 

on message:join:#: {
  var %messages 1
  msg $nick You have %message.count. [ $+ [ $nick ] ] messages waiting for you.
  while (%messages <= %message.count. [ $+ [ $nick ] ] ) { 
    var %nick_var $nick $+ %messages
    msg $nick %message.user. [ $+ [ %nick_var ] ] has left the following message for you: %message.user.msg. [ $+ [ %nick_var ] ]
    msg $nick If you would like to message %message.user. [ $+ [ %nick_var ] ] back, just type: !message %message.user. [ $+ [ %nick_var ] ] <your message here>
    unset %message.user. [ $+ [ %nick_var ] ]
    unset %message.user.msg. [ $+ [ %nick_var ] ]
    inc %messages 1 
  }
  ruser message $nick
  unset %message.count. [ $+ [ $nick ] ]
  if ( $nick == %n3owner ) {
    auser owner $nick
  }

}

on message:TEXT:*:#: {
  var %messages 1
  msg $nick You have %message.count. [ $+ [ $nick ] ] messages waiting for you.
  while (%messages <= %message.count. [ $+ [ $nick ] ] ) { 
    var %nick_var $nick $+ %messages
    msg $nick %message.user. [ $+ [ %nick_var ] ] has left the following message for you: %message.user.msg. [ $+ [ %nick_var ] ]
    msg $nick If you would like to message %message.user. [ $+ [ %nick_var ] ] back, just type: !message %message.user. [ $+ [ %nick_var ] ] <your message here>
    unset %message.user. [ $+ [ %nick_var ] ]
    unset %message.user.msg. [ $+ [ %nick_var ] ]
    inc %messages 1 
  }
  ruser message $nick
  unset %message.count. [ $+ [ $nick ] ]
  if ( $nick == %n3owner ) {
    auser owner $nick
  }
}

on *:TEXT:!message *:#: {
  var %nick $$2
  var %messages 1
  var %error 0
  if ( %nick == $me ) {
    msg $chan Why don't you just tell me here?
    inc %error 1
  }
  else {
    while (%messages <= %message.count. [ $+ [ %nick ] ] ) { 
      var %nick_var %nick $+ %messages
      if (%message.user. [ $+ [ %nick_var ] ] == $nick ) {
        msg $nick Sorry $nick , but you have already left the following message for this user: %message.user.msg. [ $+ [ %nick_var ] ]
        msg $nick To delete this message, type !delete %nick 
        msg $chan Sorry, but you have already sent this user a message.  To delete this message, type !delete %nick
        inc %error  1
      }
      inc %messages 1 
    }
  }
  if (%error == 0) {
    inc %message.count. [ $+ [ %nick ] ] 1
    var %new.message.count %message.count. [ $+ [ %nick ] ]
    var %nick_var %nick $+ %new.message.count
    set %message.user.msg. [ $+ [ %nick_var ] ] $3-
    set %message.user. [ $+ [ %nick_var ] ] $nick
    auser message %nick
    msg $chan I will give %nick your message as soon as i can.
  }
}

on *:TEXT:!message *:?: {
  var %nick $$2
  var %messages 1
  var %error 0
  if ( %nick == $me ) {
    msg $chan Why don't you just tell me here?
    inc %error 1
  }
  else {
    while (%messages <= %message.count. [ $+ [ %nick ] ] ) { 
      var %nick_var %nick $+ %messages
      if (%message.user. [ $+ [ %nick_var ] ] == $nick ) {
        msg $nick Sorry $nick , but you have already left the following message for this user: %message.user.msg. [ $+ [ %nick_var ] ]
        msg $nick To delete this message, type !delete %nick 
        inc %error  1
      }
      inc %messages 1 
    }
  }
  if (%error == 0) {
    inc %message.count. [ $+ [ %nick ] ] 1
    var %new.message.count %message.count. [ $+ [ %nick ] ]
    var %nick_var %nick $+ %new.message.count
    set %message.user.msg. [ $+ [ %nick_var ] ] $3-
    set %message.user. [ $+ [ %nick_var ] ] $nick
    auser message %nick
    msg $nick I will give %nick your message as soon as i can.
  }
}

on *:TEXT:!delete *:#: {
  var %nick $$2
  var %messages 1
  var %error %message.count. [ $+ [ $nick ] ]
  while (%messages <= %message.count. [ $+ [ %nick ] ] ) { 
    var %nick_var %nick $+ %messages
    if (%message.user. [ $+ [ %nick_var ] ] == $nick ) {
      msg $nick The message to %nick saying " %message.user.msg. [ $+ [ %nick_var ] ] " has been deleted.
      unset %message.user. [ $+ [ %nick_var ] ]
      unset %message.user.msg. [ $+ [ %nick_var ] ]
      inc %error -1
    }
    inc %messages 1 
  }
  set %message.count. [ $+ [ %nick ] ] %error
  if ( %message.count. [ $+ [ %nick ] ] <= 0 ) {
    unset %message.count. [ $+ [ %nick ] ]
    ruser message %nick
    if ( %nick == %n3owner ) {
      auser owner %nick
    }
  }
}

on *:TEXT:!delete *:?: {
  var %nick $$2
  var %messages 1
  var %error %message.count. [ $+ [ $nick ] ]
  while (%messages <= %message.count. [ $+ [ %nick ] ] ) { 
    var %nick_var %nick $+ %messages
    if (%message.user. [ $+ [ %nick_var ] ] == $nick ) {
      msg $nick The message to %nick saying " %message.user.msg. [ $+ [ %nick_var ] ] " has been deleted.
      unset %message.user. [ $+ [ %nick_var ] ]
      unset %message.user.msg. [ $+ [ %nick_var ] ]
      inc %error -1
    }
    inc %messages 1 
  }
  set %message.count. [ $+ [ %nick ] ] %error
  if ( %message.count. [ $+ [ %nick ] ] <= 0 ) {
    unset %message.count. [ $+ [ %nick ] ]
    ruser message %nick
    if ( %nick == %n3owner ) {
      auser owner %nick
    }
  }
}