传奇也可以发邮件！大家来见识一下！

22pk论坛 · 发表于 2015-4-2 10:29:56

如：邮局-3.txt，里面的脚本如下（\QuestDiary\信\收信人姓名.txt等等文件自己添加）：
(@@InPutInteger @@InPutString )
[@main]
【朋友不在线，想给Ta写信吗?】\ 【注：每寄一封信需要支付1万邮费，收信免费！】\ 【已读信件每次只能看最近的一封，删除后才能接着看下一封！】\ 【<寄信请点击此处输入收信人名字：[url=]/@@InPutString0[/url]>】\ 【收件箱：<未读信件/@未读信件> <已读信件/@已读信件>】\ 【发件箱：<已发信件/@已发信件> <关闭[url=]/@exit[/url]>】\
[@InPutString0]
#if
#act
#say <点击此处输入信的内容（最多25个汉字或者50个阿拉伯数字）：[url=]/@@InPutString1[/url]> [@InPutString1]
#if
checkgold 10000
#Act
take 金币 10000
AddTextListex .\QuestDiary\信\收信人姓名.txt <$STR(S0)> 0
AddTextListex .\QuestDiary\信\寄信人姓名.txt <$USERNAME> 0
AddTextListex .\QuestDiary\信\内容.txt <$STR(S1)> 0
AddTextListex .\QuestDiary\信\写信日期.txt <$DATETIME> 0 AddTextListex .\QuestDiary\信\寄信人\收信人姓名.txt <$STR(S0)> 0
AddTextListex .\QuestDiary\信\寄信人\寄信人姓名.txt <$USERNAME> 0
AddTextListex .\QuestDiary\信\寄信人\内容.txt <$STR(S1)> 0
AddTextListex .\QuestDiary\信\寄信人\写信日期.txt <$DATETIME> 0
#say
寄信成功！
#elsesay
你的金币不足支付邮费！ [@已发信件]
#if
checknamelist ..\QuestDiary\信\寄信人\寄信人姓名.txt
#act
goto @已发信件检测位置
#elsesay
发信箱没有已发信件！ [@已发信件检测位置]
#if
CHECKNAMELISTPOSITION .\QuestDiary\信\寄信人\寄信人姓名.txt > 0 P0
#act
GetRandomText .\QuestDiary\信\寄信人\收信人姓名.txt S0 <$STR(P0)>
GetRandomText .\QuestDiary\信\寄信人\内容.txt S1 <$STR(P0)>
GetRandomText .\QuestDiary\信\寄信人\写信日期.txt S2 <$STR(P0)>
#say
\
在<$STR(S2)>你给玩家：<$STR(S0)> 留言：\ <$STR(S1)>\ <删除此已发信件/@删除此已发信件>
[@删除此已发信件]
#if
#act
DelTextList .\QuestDiary\信\寄信人\寄信人姓名.txt <$USERNAME>
DelTextList .\QuestDiary\信\寄信人\内容.txt <$STR(S1)>
DelTextList .\QuestDiary\信\寄信人\写信日期.txt <$STR(S2)>
DelTextList .\QuestDiary\信\寄信人\收信人姓名.txt <$STR(S0)>
#say
删除成功！
[@未读信件]
#if
checknamelist ..\QuestDiary\信\收信人姓名.txt
#act
goto @检测位置
#elsesay
当前信箱没有信件!
本帖隐藏的内容
[@检测位置]
#if
CHECKNAMELISTPOSITION .\QuestDiary\信\收信人姓名.txt > 0 P0
#act
GetRandomText .\QuestDiary\信\寄信人姓名.txt S0 <$STR(P0)>
GetRandomText .\QuestDiary\信\内容.txt S1 <$STR(P0)>
GetRandomText .\QuestDiary\信\写信日期.txt S2 <$STR(P0)> AddTextListex .\QuestDiary\信\已读信件\收信人姓名.txt <$USERNAME>
AddTextListex .\QuestDiary\信\已读信件\寄信人姓名.txt <$STR(S0)> 0
AddTextListex .\QuestDiary\信\已读信件\内容.txt <$STR(S1)> 0
AddTextListex .\QuestDiary\信\已读信件\写信日期.txt <$STR(S2)> 0 DelTextList .\QuestDiary\信\寄信人姓名.txt <$STR(S0)>
DelTextList .\QuestDiary\信\内容.txt <$STR(S1)>
DelTextList .\QuestDiary\信\写信日期.txt <$STR(S2)>
DelTextList .\QuestDiary\信\收信人姓名.txt <$USERNAME>
#say 玩家：<$STR(S0)> \ 在<$STR(S2)>给你留言：\ <$STR(S1)> [@已读信件]
#if
checknamelist ..\QuestDiary\信\已读信件\收信人姓名.txt
#act
goto @已读信件检测位置
#elsesay
当前信箱没有信件！
[@已读信件检测位置]
#if
CHECKNAMELISTPOSITION .\QuestDiary\信\已读信件\收信人姓名.txt > 0 P0
#act
GetRandomText .\QuestDiary\信\已读信件\寄信人姓名.txt S0 <$STR(P0)>
GetRandomText .\QuestDiary\信\已读信件\内容.txt S1 <$STR(P0)>
GetRandomText .\QuestDiary\信\已读信件\写信日期.txt S2 <$STR(P0)>
#say 玩家：<$STR(S0)> \ 在<$STR(S2)>给你留言：\ <$STR(S1)> <删除此信件/@删除此信件>
[@删除此信件]
#if
#act
DelTextList .\QuestDiary\信\已读信件\寄信人姓名.txt <$STR(S0)>
DelTextList .\QuestDiary\信\已读信件\内容.txt <$STR(S1)>
DelTextList .\QuestDiary\信\已读信件\写信日期.txt <$STR(S2)>
DelTextList .\QuestDiary\信\已读信件\收信人姓名.txt <$USERNAME>
#say