#if
CHECKACCOUNTLIST ..\QuestDiary\元宝冲值\400.txt
#act
break
gamegold + 4000
DelTextList? \QuestDiary\元宝冲值\400.txt <$USERID>
sendmsg 1 [%S]通过网站【在线银行】充值4000元宝成功.
goto @领取网站冲值的元宝
...............

汇款与取款业务的关键脚本:
......................
[@@InPutInteger0]
#if
#act
mov p97 2
#say
你身上的元宝数量是：<$GAMEGOLD>\ \
确认：你添写的数字没有超过账号的元宝数？ \
确认：你已经添写了数字？\ \
<汇款确认/@汇款确认>\ \
<重写/@重写>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$str(N0)>
[@重写]
#if
#act
mov p97 1
goto @汇款业务
[@汇款确认]
#if
#act
mov p97 2
goto @汇款业务
[@InPutString0]
#if
#act
mov p97 1
goto @汇款业务
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!
mov p97 0
goto @汇款业务
...........................
..........................

[@提交汇款单]
#if
#act
mov p97 0
CreateFile QuestDiary\银行记录\汇款单\<$str(s0)>.txt
CreateFile QuestDiary\银行记录\汇款单\<$str(s0)>from.txt
AddTextList QuestDiary\银行记录\收款人名单.txt <$str(s0)>
AddTextList QuestDiary\银行记录\汇款单\<$str(s0)>.txt <$str(N0)>
AddTextList QuestDiary\银行记录\汇款单\<$str(s0)>from.txt <$USERNAME>GAMEGOLD - <$str(N0)>
sendmsg 5 [金庸银行]玩家【<$str(s0)>】注意了，你的朋友【%s】给你在"金庸银行"汇了〖<$str(N0)>〗元宝，注意去银行查收.
close
...................................

[@领取汇款]
#IF
CHECKNAMELIST ..\QuestDiary\银行记录\收款人名单.txt
#ACT
break
MOV S11 <$USERNAME>
GetRandomText .\QuestDiary\银行记录\汇款单\<$str(S11)>.txt S10
;GetRandomText? 提取文本中的内容,这是skyM2专有,建义sky 能推出读取指定行的命令
mov S12 <$str(S10)>
GetRandomText .\QuestDiary\银行记录\汇款单\<$str(S11)>from.txt S10
mov S13 <$str(S10)>
#say
欢迎来到:『<金庸银行/SCOLOR=250>』★<金庸卡在线服务糸统/SCOLOR=125>★\
银行卡余额是:　<$GAMEGOLD>元宝(角)　<注：一元宝=一角钱>\
　　　　　　　　　　　　 <★收取汇款★/SCOLOR=125>\
<￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣/SCOLOR=125>\
<目前显示你有一笔汇款到账:/SCOLOR=125>\
<汇款人:/SCOLOR=125><$str(S13)>　　　<汇款金额：/SCOLOR=125><$str(S12)><元宝/SCOLOR=125>\
　　　　　　　　　　　　　　　　　　　　　　　　 <领取汇款/@确认领取>\
<─────────────────────────────/SCOLOR=125>\
<返回/@卡业务>　　　<退出银行糸统/@exit>\
#IF
#say
没有你的汇款单....\ \
<返回/@卡业务>\
<退出/@exit>
[@确认领取]
#if
#act
GAMEGOLD + <$str(S12)>
DelTextList QuestDiary\银行记录\收款人名单.txt <$USERNAME>
CLEARNAMELIST ..\QuestDiary\银行记录\汇款单\<$str(S11)>.txt
CLEARNAMELIST ..\QuestDiary\银行记录\汇款单\<$str(S11)>from.txt
sendmsg 0 [金庸银行]玩家【%s】收到了【<$str(s13)>】的汇款，表示感谢.
sendmsg 7 [金庸银行]你收到了〖<$str(s12)>〗元宝，你现在的元宝数量为<$GAMEGOLD>.
close