diff options
Diffstat (limited to 'npc/custom/Lance/FR_MailSystem.txt')
| -rw-r--r-- | npc/custom/Lance/FR_MailSystem.txt | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/npc/custom/Lance/FR_MailSystem.txt b/npc/custom/Lance/FR_MailSystem.txt new file mode 100644 index 000000000..e6b931167 --- /dev/null +++ b/npc/custom/Lance/FR_MailSystem.txt @@ -0,0 +1,99 @@ +//===== rAthena Script ======================================= +//= Custom Mail System +//===== By: ================================================== +//= Lance +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= rAthena SVN; prior to new Mail System +//===== Description: ========================================= +//= Allows players to send and receive mails without GM lvl. +//===== Additional Comments: ================================= +//= 1.0 - Initial release [Lance] +//============================================================ + +prontera,143,171,3 script Messenger 738,1,1,{ + mes "[Messenger Deviruchi]"; + mes "Hiya! I'm the fastest messenger in Rune Midgard!"; + next; + mes "[Messenger Deviruchi]"; + mes "I can send your friends messages even if he or she is offline!"; + next; + mes "[Messenger Deviruchi]"; + mes "Wanna try?"; + menu "Yes", MENUSYS, "No", -; + close; + +MENUSYS: + next; + mes "[Messenger Deviruchi]"; + mes "What can I do for ya?"; + emotion e_what; + menu "Check Mail",L_CHECK,"Send Mail",L_SEND, "Leave", -; + next; + mes "[Messenger Deviruchi]"; + mes "Do come again!"; + emotion e_no1; + close; + +L_CHECK: + atcommand strcharinfo(0) + ":@listnewmail"; + menu "Read Mail", L_READ, "Check All Mails",CHKALLMAIL,"Send Mail",L_SEND, "Delete Mail", DELMAIL, "Back", MENUSYS; + close; + +CHKALLMAIL: + atcommand strcharinfo(0) + ":@listmail"; + menu "Read Mail", L_READ, "Delete Mail", DELMAIL, "Back", MENUSYS; + close; + +L_READ: + next; + mes "[Messenger Deviruchi]"; + mes "Please tell me the message number you want to read."; + input @msgnum; + next; + mes "[Messenger Deviruchi]"; + mes "Here it is!"; + emotion e_no1; + atcommand strcharinfo(0) + ":@readmail " + @msgnum; + menu "Reply Mail", L_SEND, "Back", MENUSYS; + close; + +L_SEND: + next; + mes "[Messenger Deviruchi]"; + mes "Who do you want to send this message to?"; + input @rcpt$; + next; + mes "[Messenger Deviruchi]"; + mes "What message do you want to send to him?"; + input @body$; + next; + atcommand strcharinfo(0) + ":@sendmail " + @rcpt$ + " " + @body$; + mes "[Messenger Deviruchi]"; + mes "All done!"; + emotion e_no1; + menu "Send another mail", L_SEND, "Back", MENUSYS; + close; + +DELMAIL: + next; + mes "[Messenger Deviruchi]"; + mes "Which message number do you want me to delete?"; + input @msgnum; + next; + mes "[Messenger Deviruchi]"; + mes "Are you sure you want to delete mail no. " + @msgnum + "?"; + menu "Yes",-,"No",DELMAIL, "Back", MENUSYS; + atcommand strcharinfo(0) + ":@deletemail " + @msgnum; + mes "[Messenger Deviruchi]"; + mes "All done!"; + emotion e_no1; + menu "Delete another mail", DELMAIL, "Back", MENUSYS; + close; + +OnTouch: + npctalk "Relax.. I'm no bad guy.."; + emotion e_heh; + end; +} |