银行元宝冲值后的领取脚本

admin

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

汇款与取款业务的关键脚本:
......................
[@@InPutInteger0]
#if
#act
mov p97 2
#say
你身上的元宝数量是：
确认：你添写的数字没有超过账号的元宝数？
确认：你已经添写了数字？

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
[@重写]
#if
#act
mov p97 1
goto @汇款业务
[@汇款确认]
#if
#act
mov p97 2
goto @汇款业务
[@InPutString0]
#if
#act
mov p97 1
goto @汇款业务
[@IsInFilterList]
#ACT 内容来自dedecms
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!
mov p97 0
goto @汇款业务
...........................
..........................

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

[@领取汇款]
#IF
CHECKNAMELIST ..QuestDiary银行记录收款人名单.txt
#ACT
break
MOV S11  dedecms.com

GetRandomText .QuestDiary银行记录汇款单.txt S10
;GetRandomText? 提取文本中的内容,这是skyM2专有,建义sky 能推出读取指定行的命令
mov S12
GetRandomText .QuestDiary银行记录汇款单from.txt S10
mov S13
#say
欢迎来到:『』★★
银行卡余额是:　元宝(角)　
　　　　　　　　　　　　


　　　
　　　　　　　　　　　　　　　　　　　　　　　　  织梦内容管理系统


　　　
#IF
#say
没有你的汇款单....


[@确认领取]
#if
#act
GAMEGOLD +
DelTextList QuestDiary银行记录收款人名单.txt
CLEARNAMELIST ..QuestDiary银行记录汇款单.txt
CLEARNAMELIST ..QuestDiary银行记录汇款单from.txt
sendmsg 0 [金庸银行]玩家【%s】收到了【】的汇款，表示感谢.
sendmsg 7 [金庸银行]你收到了〖〗元宝，你现在的元宝数量为.
close