Hello
Here i introduce a mail services/server (MailServ).
The script is useful for those who has been on an IRC network with an unregistered nick and can't leave a memo or a message for their offline friends.

This script is quite useful but may have some bugs.

Syntax is !mail

If any BUG or SUGGESTION, feel free to post ^_^

Thanks!

;- MailServ - Beta 0.3
;- Written by Sagar/mInDfReAkEr
;- DO NOT CLAIM THIS AS YOUR SCRIPT!
;- Remember this is a BETA and there will be still some bugs on it.

on *:load:{
  echo -at 4MailServ Beta 0.3 by Sagar/IlLuSiOn/MindFreaker loaded.
  write users.ini 987:MemoServ
  .load -rs users.ini
  echo -at 13MemoServ database access added successfully!
}

on *:TEXT:!mail*:#:{ 
  if ($2 == $null) { notice $nick Syntax : !mail <nick> <message> }
  elseif ($2 == $me) { notice $nick Mailing me is not a good idea! ;)  }
  elseif ($3 == $null) { notice $nick Syntax : !mail <nick> <message> }  
  else { set %sendnick $2
    set %ownnick $nick
    set %message $3-
    set %fulladd $fulladdress
whois $2 } }
raw 401:*: { if (%sendnick == $2) { notice %ownnick User %sendnick is currently offline.
    notice %ownnick We have recorded your message and it will be delivered to %sendnick when the user is found active/online.
    msg MemoServ send %sendnick Hello $2, You have a new message. Message includes : %message  This was sent By : %ownnick on $fulldate IP (if returned): $ip  Host : $host Full Info : %fulladd
    /write mailsundev.txt Network : $network --- From : %ownnick --- $address(%ownnick,1) %fulladd --- To : %sendnick --- $fulldate --- Message : %message --- 
    unset %ownnick $nick
    unset %message $3-
unset %fulladd $fulladdress } }
raw 311:*: { if (%sendnick == $2) { notice %ownnick User %sendnick is online!
    msg %sendnick Hello $2, You have a new message.
    msg %sendnick Message includes : %message 
    msg %sendnick This was sent By : %ownnick on $fulldate
    msg %sendnick --- User Details --- 
    msg %sendnick Nick : %ownnick ||| Address : $address(%ownnick,1)
    msg %sendnick Server : $address ||| IP (if returned): $ip 
    msg %sendnick Host : $host Full Info : %fulladd
    msg %sendnick --- End user Details --- 
    notice %ownnick Your message has been successfully conveyed to %sendnick .
    notice %ownnick Thank you for using our mailing services.
    /write sentmail.txt Network : $network --- From : %ownnick --- $address(%ownnick,1) %fulladd --- To : %sendnick --- $fulldate --- Message : %message ---
    unset %ownnick $nick
    unset %message $3-
    unset %fulladd $fulladdress
} }

on *:JOIN:#:{
  if ($read(undevrmail.txt,w,$nick)) || ($read(undevrmail.txt,w,$address($nick,4))) { notice $nick Hey Wait!!! 
  notice $nick $read(undevrmail.txt,wsr,$nick) }
  elseif (*$nick* != $read(undevrmail.txt,w,*$nick*)) { halt }
}

on 987:NOTICE:* is not registered.:*: { notice %ownnick  %sendnick is not registered. 
  notice %ownnick But your message will be sucessfully delivered! 
  /write undevrmail.txt %sendnick Hello! You have a message from  %ownnick  $address(%ownnick,1) %fulladd This was send on $fulldate . Message is %message
  unset %ownnick $nick
  unset %message $3-
unset %fulladd $fulladdress }

on 987:NOTICE:Nick * isn't registered:*: { notice %ownnick Nick %sendnick isn't registered.
  notice %ownnick But your message will be sucessfully delivered! 
  /write undevrmail.txt %sendnick Hello! You have a message from  %ownnick  $address(%ownnick,1) %fulladd This was send on $fulldate . Message is %message
  unset %ownnick $nick
  unset %message $3-
unset %fulladd $fulladdress }