summaryrefslogtreecommitdiff
path: root/npc/custom/Lance/FR_MailSystem.c
diff options
context:
space:
mode:
Diffstat (limited to 'npc/custom/Lance/FR_MailSystem.c')
-rw-r--r--npc/custom/Lance/FR_MailSystem.c232
1 files changed, 116 insertions, 116 deletions
diff --git a/npc/custom/Lance/FR_MailSystem.c b/npc/custom/Lance/FR_MailSystem.c
index 8111f3dea..f0a6a4638 100644
--- a/npc/custom/Lance/FR_MailSystem.c
+++ b/npc/custom/Lance/FR_MailSystem.c
@@ -1,118 +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!";
+//(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
+//( (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;
- emotion e_no1;
- menu "Delete another mail", DELMAIL, "Back", MENUSYS;
- close;
-
-OnTouch:
- npctalk "Relax.. I'm no bad guy..";
- emotion e_heh;
- end;
+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
generated by cgit v1.2.3-60-g2f50 (git 2.42.0) at 2024-07-01 00:44:28 +0000