ea94ff3e8a
git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@10020 54d463be-8e91-2dee-dedb-b68131a5f0ec
118 lines
3.9 KiB
C
118 lines
3.9 KiB
C
//(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
|
|
//( (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,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;
|
|
} |