diff options
| author | Valaris <Valaris@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2006-01-29 16:10:48 +0000 |
|---|---|---|
| committer | Valaris <Valaris@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2006-01-29 16:10:48 +0000 |
| commit | 620e60eebce2c1f35c5c9a82f6ca365b316587f5 (patch) | |
| tree | 38a39e0415f419d9a49ae456ed0e26654c23d559 /npc/custom/Lance/FR_MailSystem.c | |
| parent | a2675f07d7da22a7c6ae11f545bf8f671e785a82 (diff) | |
| download | hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.tar.gz hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.tar.bz2 hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.tar.xz hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.zip | |
AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.
IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK. EVERYTHING ELSE
GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/custom/Lance/FR_MailSystem.c')
| -rw-r--r-- | npc/custom/Lance/FR_MailSystem.c | 118 |
1 files changed, 118 insertions, 0 deletions
diff --git a/npc/custom/Lance/FR_MailSystem.c b/npc/custom/Lance/FR_MailSystem.c new file mode 100644 index 000000000..8111f3dea --- /dev/null +++ b/npc/custom/Lance/FR_MailSystem.c @@ -0,0 +1,118 @@ +//(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
+//( (c)2005 RagMods Modification Team presents )
+//( ______ __ __ )
+//( /\ _ \/\ \__/\ \ v 1.00.00 )
+//( __\ \ \_\ \ \ ,_\ \ \___ __ ___ __ )
+//( /'__`\ \ __ \ \ \/\ \ _ `\ /'__`\/' _ `\ /'__`\ )
+//( /\ __/\ \ \/\ \ \ \_\ \ \ \ \/\ __//\ \/\ \/\ \_\.\_ )
+//( \ \____\\ \_\ \_\ \__\\ \_\ \_\ \____\ \_\ \_\ \__/.\_\ )
+//( \/____/ \/_/\/_/\/__/ \/_/\/_/\/____/\/_/\/_/\/__/\/_/ )
+//( )
+//( -- [s] [c] [r] [i] [p] [t] [s] -- )
+//( _ _ _ _ _ _ _ _ _ _ _ _ _ )
+//( / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ )
+//( ( e | n | g | l | i | s | h ) ( A | t | h | e | n | a ) )
+//( \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ )
+//( )
+//( Advanced Fusion Maps (c) 2003-2005 The Fusion Project )
+//(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
+//===== eAthena Script ======================================
+//= Mail System (using built in mail function)
+//===========================================================
+//===== By ==================================================
+//= [Lance]
+//===== Version =============================================
+//= 1.0
+//===== Compatible With =====================================
+//= Any flavours of Athena SQL
+//===== Description =========================================
+//= Allows players to send and receive mails without GM lvl.
+//===== Comments ============================================
+//= 1.0 - Initial release [Lance]
+//===========================================================
+prontera.gat,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;
+}
\ No newline at end of file |