#if
CHECKACCOUNTLIST ..\QuestDiary\元宝冲值\400.txt
#act
break
gamegold + 4000
DelTextList? \QuestDiary\元宝冲值\400.txt <$USERID>
sendmsg 1 [%S]通过网站www.rewincn.net.cn【在线银行】充值4000元宝成功.
goto @领取网站冲值的元宝
...............
汇款与取款业务的关键脚本:
......................
[@@InPutInteger0]
#if
#act
mov p97 2
#say
你身上的元宝数量是：<$GAMEGOLD>\ \
确认：你添写的数字没有超过账号的元宝数？ \
确认：你已经添写了数字？\ \
<汇款确认/@汇款确认>\ \
<重写/@重写> <$sp(N0)>
[@重写]
#if
#act
mov p97 1
goto @汇款业务
[@汇款确认]
#if
#act
mov p97 2
goto @汇款业务
[@InPutSping0]
#if
#act
mov p97 1
goto @汇款业务
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!
mov p97 0
goto @汇款业务
...........................
..........................
[@提交汇款单]
#if
#act
mov p97 0
CreateFile QuestDiary\银行记录\汇款单\<$sp(s0)>.txt
CreateFile QuestDiary\银行记录\汇款单\<$sp(s0)>from.txt
AddTextList QuestDiary\银行记录\收款人名单.txt <$sp(s0)>
AddTextList QuestDiary\银行记录\汇款单\<$sp(s0)>.txt <$sp(N0)>
AddTextList QuestDiary\银行记录\汇款单\<$sp(s0)>from.txt <$USERNAME>GAMEGOLD - <$sp(N0)>
sendmsg 5 [金庸银行]玩家【<$sp(s0)>】注意了，你的朋友【%s】给你在"金庸银行"汇了〖<$sp(N0)>〗元宝，注意去银行查收.
close
...................................
[@领取汇款]
#IF
CHECKNAMELIST ..\QuestDiary\银行记录\收款人名单.txt
#ACT
break
MOV S11 <$USERNAME>
GetRandomText .\QuestDiary\银行记录\汇款单\<$sp(S11)>.txt S10
;GetRandomText? 提取文本中的内容,这是skyM2专有,建义sky 能推出读取指定行的命令
mov S12 <$sp(S10)>
GetRandomText .\QuestDiary\银行记录\汇款单\<$sp(S11)>from.txt S10
mov S13 <$sp(S10)>
#say
欢迎来到:『<金庸银行/SCOLOR=250>』★<金庸卡在线服务糸统/SCOLOR=125>★\
银行卡余额是: <$GAMEGOLD>元宝(角) <注：一元宝=一角钱>\
<★收取汇款★/SCOLOR=125>\
<￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣/SCOLOR=125>\
<目前显示你有一笔汇款到账:/SCOLOR=125>\
<汇款人:/SCOLOR=125><$sp(S13)> <汇款金额：/SCOLOR=125><$sp(S12)><元宝/SCOLOR=125>\
<领取汇款/@确认领取>\
<─────────────────────────────/SCOLOR=125>\
<返回/@卡业务> <退出银行糸统/@exit>\
#IF
#say
没有你的汇款单....\ \
<返回/@卡业务>\
<退出/@exit>
[@确认领取]
#if
#act
GAMEGOLD + <$sp(S12)>
DelTextList QuestDiary\银行记录\收款人名单.txt <$USERNAME>
CLEARNAMELIST ..\QuestDiary\银行记录\汇款单\<$sp(S11)>.txt
CLEARNAMELIST ..\QuestDiary\银行记录\汇款单\<$sp(S11)>from.txt
sendmsg 0 [金庸银行]玩家【%s】收到了【<$sp(s13)>】的汇款，表示感谢.
sendmsg 7 [金庸银行]你收到了〖<$sp(s12)>〗元宝，你现在的元宝数量为<$GAMEGOLD>.
close
