(@@InPutString @@InPutInteger )
[@main]
#if
#act
mov S0 <$USERNAME>
#say
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆ <“汇通天下——便商利民”> ┆\
╚┄┄┄┄┄┄┬┄┄┄┄┄-┬┄┄┄┄┄┬┄┄-┄┄┄┄╝\
┆ <邮寄元宝/@邮寄元宝> ┆ <查收元宝/@查收元宝> ┆\
╔┄┄┄┄┄┄┴┄┄┄┄┄-┴┄┄┄┄┄┴┄┄-┄┄┄┄╗\
┆ <1.>收款人的名字不能有任何错误,否则将收取不到您的汇款┆\
┆ <2.>汇款的元宝数量请输入数字,不能大于你当前的元宝总数┆\
┆ <3.>金额输入完毕后请认真核对,确认无误后点提交汇款 ┆\
╚┄┄┄┄┄┄┄┄┄┄┄<退出汇款/@EXIT>┄┄┄┄┄┄┄┄┄┄┄╝\
[@邮寄元宝]
你当前的元宝总数：<$GAMEGOLD>个\
<第一步:> 请正确输入收款人姓名，否则将收取不到您的汇款\
╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆收款人姓名：┆ <输入收款人姓名/@@InPutString1>\
┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆汇款的金额：┆\
╚┄┄┄┄┄┄╝┄┄-╔┄┄┄┄┄┄┄┄┄┄┄╗┄┄-\
┆ 提交汇款 ┆ <取消汇款/@EXIT> ┆\
╚┄┄┄┄┄┄┄┄┄┄┄╝\
[@InPutString1]
#IF
CHECKONLINE <$STR(S1)>
#act
mov S2 在线
#ELSEACT
mov S2 离线
#IF
EQUAL S1 <$STR(S0)>
#say
错误，不能给自己汇款\ \
<返 回/@邮寄元宝>\
<退出/@exit>
#ELSEACT
GOTO @准备汇款
[@准备汇款]
#IF
EQUAL S1
#SAY
输入的用户名不能为空\ \
<返 回/@邮寄元宝>\
<退出/@exit>
#ELSESAY
你当前的元宝总数：<$GAMEGOLD>个\
<第二步:> 输入你要汇款的金额数目，不能超出你的元宝数量\
╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆收款人姓名：┆ <$STR(S1)> ┆ 状态： <$STR(S2)>\
┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆汇款的金额：┆ <输入汇款金额/@@InPutInteger1>\
╚┄┄┄┄┄┄╝┄┄-╔┄┄┄┄┄┄┄┄┄┄┄╗┄┄-\
┆ 提交汇款 ┆ <取消汇款/@EXIT> ┆\
╚┄┄┄┄┄┄┄┄┄┄┄╝\
[@InPutInteger1]
#if
large N1 0
SMALL N1 301
#act
MOV P0 <$STR(N1)>
DEC P0 1
#say
你当前的元宝总数：<$GAMEGOLD>个\
<第三步:> 检查收款人姓名与金额是否正确，然后点提交汇款\
╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆收款人姓名：┆ <$STR(S1)> ┆ 状态： <$STR(S2)>\
┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆汇款的金额：┆ <$STR(N1)>\
╚┄┄┄┄┄┄╝┄┄-╔┄┄┄┄┄┄┄┄┄┄┄╗┄┄-\
┆ <提交汇款/@提交汇款> ┆ <取消汇款/@EXIT> ┆\
╚┄┄┄┄┄┄┄┄┄┄┄╝\
#ELSESAY
请输入正确的汇款金额数目.\
汇款金额数目：1~300之间...\ \
<重新输入汇款金额/@InPutString1>\
<退出/@exit>
[@提交汇款]
#IF
CHECKGAMEGOLD > <$str(P0)>
#ACT
GAMEGOLD - <$STR(N1)>
AddTextList ..\QuestDiary\邮寄系统\汇款单\汇款人\<$STR(S1)>md.txt <$USERNAME>
AddTextList ..\QuestDiary\邮寄系统\收款人名单.txt <$STR(S1)>
AddTextList ..\QuestDiary\邮寄系统\汇款单\金额\<$STR(S1)>.txt <$STR(N1)>
AddTextList ..\QuestDiary\邮寄系统\汇款数据.txt <$STATSERVERTIME>：[<$USERNAME>]成功转帐给[<$STR(S1)>]元宝[<$STR(N1)>]个
;sendmsg 0 [银行通知]玩家【<$STR(S1)>】注意了，你的朋友【%s】给你在汇了〖<$STR(N1)>元宝〗，注意去银行查收.
sendmsg 0 ┄┄┄┄┄┄┄┄┄┄┄┄-银行汇款通知┄┄┄┄┄┄┄┄┄┄┄┄-
sendmsg 0 汇款人：%s 收款人：<$STR(S1)> 金额：<$STR(N1)>
sendmsg 0 ┄┄┄┄┄┄┄┄-收到汇款的玩家请到银行来领取┄┄┄┄┄┄┄┄-
#SAY
恭喜你，汇款成功！>\
系统已经发布公告通知收款人>\
╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆收款人姓名：┆ <$STR(S1)>\
┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
┆汇款的金额：┆ <$STR(N1)>\
╚┄┄┄┄┄┄╝┄┄┄┄┄-╔┄┄┄┄┄╗┄┄┄┄┄-\
┆ <汇款完毕/@EXIT> ┆\
╚┄┄┄┄┄╝\
#ELSESAY
抱歉，汇款失败！\
你的元宝不够...\ \
<重新输入汇款元宝数/@InPutString1>\ \
<退出/@exit>
[@查收元宝]
#IF
CHECKNAMELIST ..\QuestDiary\邮寄系统\收款人名单.txt
#ACT
break
MOV S11 <$USERNAME>
GetRandomName ..\QuestDiary\邮寄系统\汇款单\金额\<$str(S11)>.txt S0
mov N12 <$str(S0)>
GetRandomName ..\QuestDiary\邮寄系统\汇款单\汇款人\<$str(S11)>md.txt S0
mov S13 <$str(S0)>
#say
\
目前显示你有一笔汇款到账:\
╔┄┄┄┄┄╗┄┄┄┄┄┄┄-\
┆汇 款 人：┆ <$str(S13)>\
┆┄┄┄┄┄┼┄┄┄┄┄┄┄-\
┆汇款金额：┆ <$str(N12)>\
╚┄┄┄┄┄╝┄┬┄┄┄┄┄╗\
┆ <领取汇款/@确认领取> ┆\
╚┄┄┄┄┄╝\
#IF
#say
没有你的汇款单....\ \
<返 回/@main>\
<退出/@exit>
[@确认领取]
#if
#act
GAMEGOLD + <$str(N12)>
DelTextList ..\QuestDiary\邮寄系统\收款人名单.txt <$USERNAME>
DelTextList ..\QuestDiary\邮寄系统\汇款单\金额\<$str(S11)>.txt <$str(N12)>
DelTextList ..\QuestDiary\邮寄系统\汇款单\汇款人\<$str(S11)>md.txt <$str(S13)>
sendmsg 0 [银行公告](%s)收到(<$str(s13)>)的汇款
sendmsg 7 提示：元宝增加：<$str(N12)>个,你当前的元宝总数：<$GAMEGOLD>个
close
[@IsInFilterList]
#Act
MessageBox 输入数据中包含了非法字符.请重新编辑
Goto @Main
Break