本站主推发布:新开传奇发布网,新开传奇,新开传奇发布,176复古传奇,迷失传奇,战神传奇,传奇私服,找搜服,仙剑传奇
当前位置: zhaosf首页 > 开服资料 > 传奇脚本 >

玩家自助元宝转账脚本

时间:2016-09-26 00:32来源:新开传奇私服 作者:传奇私服发布网
(@@InPutString @@InPutInteger) [@main] 您好[$USERNAME],欢迎使用元宝邮寄系统。免费使用请多利用。\ 请选择服务:\ ========================================================\ 确定汇款/@确定汇款 取款业务/@取款业务\ ========================================================\ 退出本系统/@exit\ [@确定汇款] ============
(@@InPutString @@InPutInteger)  
[@main] 
您好[<$USERNAME>],欢迎使用元宝邮寄系统。免费使用请多利用。\
请选择服务:\
========================================================\
<确定汇款/@确定汇款>    <取款业务/@取款业务>\
========================================================\
           <退出本系统/@exit>\
[@确定汇款] 
========================================================\
您好,请您按提示进行操作:\
\
第一步:请在此处输入你的收款人名字\
①收款人姓名:         <请输入收款人名字/@@InPutString1>\ 
②汇款的金额:\ 
③提交汇款单        <取消汇款/@EXIT>\ 
========================================================\
    <取消汇款/@EXIT>    <返回/@main>\    
[@InPutString1] 
#IF 
CHECKONLINE <$STR(S1)> 
#say 
第二步:请输入你的汇款金额(元宝数量):\
========================================================\
①收款人姓名:         <$STR(S1)>\ 
②汇款的金额:         <输入汇款金额/@@InPutInteger1>\ 
③提交汇款单 \
========================================================\
    <取消汇款/@EXIT>    <返回/@main>\       
#ELSEACT 
MessageBox 汇款失败\1:请检查你的输入是否有误.并确认对方在线.\2:人物名字输入错误 \
CLOSE 
[@InPutInteger1] 
#IF 
CHECKGAMEGOLD > <$STR(N1)> 
#say 
第三步:提交汇款!!\
========================================================\
①收款人姓名:         <$STR(S1)>\ 
②汇款的金额:         <$STR(N1)> 元宝\ 
<③提交汇款单/@提交汇款单>        <取消汇款/@EXIT>\ 
========================================================\
    <取消汇款/@EXIT>    <返回/@main>\   
#ELSEACT 
MessageBox 汇款失败的原因\1:您的元宝不足,请冲值后再转帐 \
CLOSE 
[@提交汇款单] 
#IF 
#ACT 
GMEXECUTE 调整元宝 <$STR(S1)> - 500 
#act 
AddTextList QuestDiary\银行记录\收款人名单.txt <$STR(S1)> 
AddTextList QuestDiary\银行记录\汇款单\<$STR(S1)>.txt <$STR(N1)> 
sendmsg 5 玩家【<$str(s1)>】注意了,你的朋友【%s】给你在银行汇款〖<$str(N1)>〗元宝,注意去银行(盟重330:320)查收. 
close 
[@取款业务] 
#IF 
CHECKNAMELIST QuestDiary\银行记录\收款人名单.txt 
#ACT 
break 
MOV S11 <$USERNAME> 
GetRandomName QuestDiary\银行记录\汇款单\<$str(S11)>.txt S0 
mov S12 <$str(S0)> 
#say 
=========================================================\
目前显示你有一笔汇款到账:\ 
\
汇款金额:<$str(S12)>元宝\ 
                         <领取汇款/@确认领取>\ 
#ELSEACT
MessageBox 没有人给你汇款或你已经收取。 \
CLOSE 
[@确认领取] 
#if 
#act 
GAMEGOLD + <$str(S12)> 
DelTextList QuestDiary\银行记录\收款人名单.txt <$USERNAME> 
CLEARNAMELIST QuestDiary\银行记录\汇款单\<$str(S11)>.txt 
sendmsg 0 [银行通知]玩家【%s】收到了【<$str(s13)>】的汇款,表示感谢. 
sendmsg 7 [银行通知]你收到了〖<$str(s12)>〗元宝,你现在的元宝数量为<$GAMEGOLD>. 
close 
 
[@IsInFilterList] 
#Act 
MessageBox 输入数据中包含了非法字符.请重新编辑 
Goto @Main 
Break
 
(责任编辑:找搜服传奇发布网)
------分隔线----------------------------
栏目列表
推荐内容