586查看
5回复

[求助] 求教关于游戏中邮箱功能写入脚本思路

主题	好友	2506 积分

金牌会员

发消息

发表于 2013-11-11 14:43:15 |显示全部楼层

本帖最后由 pianer 于 2013-11-11 14:50 编辑

今天扫端发现有一个邮箱功能，突然想起关于写入脚本的东西，想着通过写信写入脚本，在收信人那边实现功能。希望大神帮忙看下能否实现，大致脚本如下

[@邮箱系统]
#ACT
CloseBigDialogBox
#SAY
【朋友不在线，想给Ta写信吗?】\
【注：每寄一封信需要支付1万元宝的邮费，收信免费！】\
【已读信件每次只能看最近的一封，删除后才能接着看下一封！】\
【<寄信请点击此处输入收信人名字/@@InPutString30>】\
【收件箱：<未读信件/@未读信件> <已读信件/@已读信件>】\
【发件箱：<已发信件/@已发信件> <返回/@游戏帮助>】\
[@CallInPutString30]
#if
#act
#say
<点击此处输入信的内容（最多25个汉字或者50个阿拉伯数字）/@@InPutString31>
[@CallInPutString31]
#if
CHECKGAMEGOLD > 10000
#Act
GAMEGOLD - 10000
AddTextListex .\QuestDiary\信\收信人姓名.txt <$STR(S30)> 0
AddTextListex .\QuestDiary\信\寄信人姓名.txt <$USERNAME> 0
AddTextListex .\QuestDiary\信\内容.txt <$STR(S31)> 0
AddTextListex .\QuestDiary\信\写信日期.txt <$DATETIME> 0
AddTextListex .\QuestDiary\信\寄信人\收信人姓名.txt <$STR(S30)> 0
AddTextListex .\QuestDiary\信\寄信人\寄信人姓名.txt <$USERNAME> 0
AddTextListex .\QuestDiary\信\寄信人\内容.txt <$STR(S31)> 0
AddTextListex .\QuestDiary\信\寄信人\写信日期.txt <$DATETIME> 0
#say
寄信成功！\
\ \
TA很快就会收到你的信的！\
\ \
<返回/@邮箱系统>
#elsesay你的元宝不足支付邮费！

[@已发信件]
#if
checknamelist ..\QuestDiary\信\寄信人\寄信人姓名.txt
#act
goto @已发信件检测位置
#elsesay
发信箱没有已发信件！\
\ \
<返回/@邮箱系统>
[@已发信件检测位置]
#if
CHECKNAMELISTPOSITION .\QuestDiary\信\寄信人\寄信人姓名.txt > 0 P0
#act
GetRandomText .\QuestDiary\信\寄信人\收信人姓名.txt S30 <$STR(P0)>
GetRandomText .\QuestDiary\信\寄信人\内容.txt S31 <$STR(P0)>
GetRandomText .\QuestDiary\信\寄信人\写信日期.txt S32 <$STR(P0)>
#say
在<$STR(S32)>\
你给玩家：{<$STR(S30)>/SCOLOR=56}\
留言：\
『{<$STR(S31)>/SCOLOR=254}』\
\ \
<删除此已发信件/@删除此已发信件> \
<返回/@邮箱系统>\
[@删除此已发信件]
#if
#act
DelTextList .\QuestDiary\信\寄信人\寄信人姓名.txt <$USERNAME>
DelTextList .\QuestDiary\信\寄信人\内容.txt <$STR(S31)>
DelTextList .\QuestDiary\信\寄信人\写信日期.txt <$STR(S32)>
DelTextList .\QuestDiary\信\寄信人\收信人姓名.txt <$STR(S30)>
#say
删除成功！\
\ \
<返回/@邮箱系统>\

[@未读信件]
#if
checknamelist ..\QuestDiary\信\收信人姓名.txt
#act
goto @检测位置
#elsesay
当前信箱没有信件! \
\ \
<返回/@邮箱系统>\

[@检测位置]
#if
CHECKNAMELISTPOSITION .\QuestDiary\信\收信人姓名.txt > 0 P0
#act
GetRandomText .\QuestDiary\信\寄信人姓名.txt S30 <$STR(P0)>
GetRandomText .\QuestDiary\信\内容.txt S31 <$STR(P0)>
GetRandomText .\QuestDiary\信\写信日期.txt S32 <$STR(P0)>
AddTextListex .\QuestDiary\信\已读信件\收信人姓名.txt <$USERNAME>
AddTextListex .\QuestDiary\信\已读信件\寄信人姓名.txt <$STR(S30)> 0
AddTextListex .\QuestDiary\信\已读信件\内容.txt <$STR(S31)> 0
AddTextListex .\QuestDiary\信\已读信件\写信日期.txt <$STR(S32)> 0
DelTextList .\QuestDiary\信\寄信人姓名.txt <$STR(S30)>
DelTextList .\QuestDiary\信\内容.txt <$STR(S31)>
DelTextList .\QuestDiary\信\写信日期.txt <$STR(S32)>
DelTextList .\QuestDiary\信\收信人姓名.txt <$USERNAME>
#say
玩家：{<$STR(S30)>/SCOLOR=56} \
在<$STR(S32)>\
给你留言：\
『{<$STR(S31)>/SCOLOR=254}』\
\ \
<返回/@邮箱系统>\
[@已读信件]
#if
checknamelist ..\QuestDiary\信\已读信件\收信人姓名.txt
#act
goto @已读信件检测位置
#elsesay
当前信箱没有信件！\
\ \
<返回/@邮箱系统>\

[@已读信件检测位置]
#if
CHECKNAMELISTPOSITION .\QuestDiary\信\已读信件\收信人姓名.txt > 0 P0
#act
GetRandomText .\QuestDiary\信\已读信件\寄信人姓名.txt S30 <$STR(P0)>
GetRandomText .\QuestDiary\信\已读信件\内容.txt S31 <$STR(P0)>
GetRandomText .\QuestDiary\信\已读信件\写信日期.txt S32 <$STR(P0)>
#say
玩家：{<$STR(S30)>/SCOLOR=56} \
在<$STR(S32)>
给你留言：\
『{<$STR(S31)>/SCOLOR=254}』\
\ \
<删除此信件/@删除此信件>\
<返回/@邮箱系统>\
[@删除此信件]
#if
#act
DelTextList .\QuestDiary\信\已读信件\寄信人姓名.txt <$STR(S30)>
DelTextList .\QuestDiary\信\已读信件\内容.txt <$STR(S31)>
DelTextList .\QuestDiary\信\已读信件\写信日期.txt <$STR(S32)>
DelTextList .\QuestDiary\信\已读信件\收信人姓名.txt <$USERNAME>
#say
删除成功！\
\ \
<返回/@邮箱系统>\

使用道具举报