- Standardized script headers, starting with /npc/custom/

http://rathena.org/wiki/Script_header

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@15262 54d463be-8e91-2dee-dedb-b68131a5f0ec

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;
+}