GM基地论坛

 找回密码
 立即注册

元宝转账功能的脚本 - 传奇私服脚本

查看: 27|回复: 0

元宝转账功能的脚本

[复制链接]
发表于 2019-6-5 00:56:07 | 显示全部楼层 |阅读模式
(@@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


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版/Archiver/Gm版本库 ( 粤ICP备18134211号 )|网站地图

GMT+8, 2019-6-21 03:43 , Processed in 0.530401 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2011 Comsenz Inc.>  template by gmbbk.com