f8c4e952a3
http://rathena.org/wiki/Script_header git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@15262 54d463be-8e91-2dee-dedb-b68131a5f0ec
100 lines
2.7 KiB
Plaintext
100 lines
2.7 KiB
Plaintext
//===== 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;
|
|
}
|