传奇自动提交游戏币兑换人民币脚本

GM部落

传奇银行系统，此脚本可以将游戏内的游戏币提交在后台查看并给玩家账号打款使用的脚本
[@银行系统]
{
#If
CheckLevelEx > 0
#Act
Mov m11 0
Mov m12 0
Mov m14 0
Mov m15 0
#Say
‘<$USERNAME>’您好！<Color=clLime 欢迎使用‘><$GLOBAL(游戏名称)><Color=clLime ’银行系统>！\
<COLOR=clRed 本银行详细功能介绍：>\ \

　      <COLOR=clAqua 元宝兑心意币：600元宝=1心意币=1人民币>\ \

<元宝兑换心意币/@元宝兑换心意币>                <心意币兑换元宝/@心意币兑换元宝>       \ \
<心意币兑换人民币/@心意币兑换人民币>              <点击充值元宝/@充值元宝>\ \

[@元宝兑换心意币]
‘<$USERNAME>’您好！<Color=clLime 欢迎使用‘><$GLOBAL(游戏名称)><Color=clLime ’银行系统>！\
<COLOR=clAqua 元宝兑换心意币比率：300/1(元宝/心意币)> <COLOR=clLime 您当前心意币：><$GAMEPOINT>个\ \
<COLOR=clRed 重要说明：>必须<Color=clRed 5300元宝>以上才能兑换，如:<Color=clRed 5300元宝>只能用<Color=clRed 300元宝>\
兑换、余下的<Color=clRed 5000>必须预留在包裹，已此类推！ \ \
元宝换心意币 → <增加1个/@XYB_1>         <增加10个/@XYB_2>\
元宝换心意币 → <增加100个/@XYB_3>       <增加1000个/@XYB_4>\

<返回首页/@Main>                                              <关闭/@exit> \

[@心意币兑换元宝]
‘<$USERNAME>’您好！<Color=clLime 欢迎使用‘><$GLOBAL(游戏名称)><Color=clLime ’银行系统>！\ \
<COLOR=clAqua 心意币兑换元宝比率：1/300(心意币/元宝)> <COLOR=clLime 您当前心意币：><$GAMEPOINT>个\ \
心意币兑换元宝 → <增加300个/@YB_1>         <增加3000个/@YB_2>\
心意币兑换元宝 → <增加30000个/@YB_3>       <增加300000个/@YB_4>\
<返回首页/@Main>                                              <关闭/@exit> \


[@YB_1]
#If
CheckGamePoint > 0
#Act
GamePoint - 1
GameGold + 600
Goto @心意币兑换元宝
Break
#ElseSay
你的心意币不够！\ \
[@YB_2]
#If
CheckGamePoint > 9
#Act
GamePoint - 10
GameGold + 6000
Goto @心意币兑换元宝
Break
#ElseSay
你的心意币不够！\ \
[@YB_3]
#If
CheckGamePoint > 99
#Act
GamePoint - 100
GameGold + 60000
Goto @心意币兑换元宝
Break
#ElseSay
你的心意币不够！\ \
[@YB_4]
#If
CheckGamePoint > 999
#Act
GamePoint - 1000
GameGold + 600000
Goto @心意币兑换元宝
Break
#ElseSay
你的心意币不够！\ \

[@XYB_1]
#If
CheckGameGold > 599
#Act
GameGold - 600
GamePoint + 1
SendmSG 0 恭喜‘%s’兑换心意币成功！
Goto @元宝兑换心意币
Break
#ElseSay
你的元宝不够！\ \
[@XYB_2]
#If
CheckGameGold > 5999
#Act
GameGold - 6000
GamePoint + 10
SendmSG 0 恭喜‘%s’兑换心意币成功！
Goto @元宝兑换心意币
Break
#ElseSay
你的元宝不够！\ \
[@XYB_3]
#If
CheckGameGold > 59999
#Act
GameGold - 60000
GamePoint + 100
SendmSG 0 恭喜‘%s’兑换心意币成功！
Goto @元宝兑换心意币
Break
#ElseSay
你的元宝不够！\ \
[@XYB_4]
#If
CheckGameGold > 599999
#Act
GameGold - 600000
GamePoint + 1000
SendmSG 0 恭喜‘%s’兑换心意币成功！
Goto @元宝兑换心意币
Break
#ElseSay
你的元宝不够！\ \


[@心意币兑换人民币]
#If
CHECKVAR HUMAN 兑换数量 < 1
#Act
Mov S1
Mov S2
Mov S3
Mov M4 0
LoadVar HUMAN 兑换数量 ..\QuestDiary\数据文件\元宝换RMB.txt
LoadVar HUMAN 银行类型 ..\QuestDiary\数据文件\元宝换RMB.txt
LoadVar HUMAN 银行账号 ..\QuestDiary\数据文件\元宝换RMB.txt
LoadVar HUMAN 账户名称 ..\QuestDiary\数据文件\元宝换RMB.txt
LoadVar HUMAN 提交时间 ..\QuestDiary\数据文件\元宝换RMB.txt
#Say
为回馈广大玩家对本服务器的喜爱，本服特别推出心意币兑换人民币活动！　\
需要兑换的玩家必须自带银行卡，兑换的人民币将直接打到你的银行账户。　\
给您转账时需要提供给我们信息如下：(以下为样式)\
　   <COLOR=cLlime 兑换比率：1心意币=1人民币>(<Color=cLlime 兑换范围：100-1000>)\
银行类型：建设银行 (只支持建设银行)　\
银行帐号：8888888888888888888                  　\
账户名称：XXX                               　\
<输入银行类型/@银行类型>          <输入银行帐号/@银行帐号>          <输入账户名称/@账户名称>　\
<请输入您需要兑换的人民币数量>  　                <返回首页/@银行系统>\
#ElseSay
你已经提交过了！！提交信息如下：\ \
银行类型：<$HUMAN(银行类型)> \
银行账号：<$HUMAN(银行账号)> \
账户名称：<$HUMAN(账户名称)> \
兑换数量：<$HUMAN(兑换数量)>元 \
提交时间：<$HUMAN(提交时间)> \ \
您的款项<$HUMAN(兑换数量)>元将于<Color=$249 1-2个工作日内>打到您的账上...       <返回/@银行系统>\ \

[@兑换人民币]
#If
CHECKVAR HUMAN 兑换数量 < 1
#Say
为回馈广大玩家对本服务器的喜爱，本服特别推出心意币兑换人民币活动！　\
需要兑换的玩家必须自带银行卡，兑换的人民币将直接打到你的银行账户。　\
给您转账时需要提供给我们信息如下：(以下为样式) <COLOR=cLlime 1心意币=1RMB>\\
<COLOR=#249 请仔细确人您的信息的正确性，否则一切后果由您自己负责！！>　\
银行类型：<$Str(S1)>  　　\
银行帐号：<$Str(S2)>   　\
账户名称：<$Str(S3)>   　\
<输入银行类型/@银行类型>          <输入银行帐号/@银行帐号>          <输入账户名称/@账户名称>　　\
<请输入您需要兑换的人民币数量/@您需要兑换多少>  　                <返回首页/@银行系统>\
#ElseSay
你已经提交过了！！提交信息如下：\ \
银行类型：<$HUMAN(银行类型)> \
银行账号：<$HUMAN(银行账号)> \
账户名称：<$HUMAN(账户名称)> \
兑换数量：<$HUMAN(兑换数量)>元 \
提交时间：<$HUMAN(提交时间)> \ \
您的款项<$HUMAN(兑换数量)>元将于<Color=#249 1-2个工作日内>打到您的账上...       <返回/@银行系统>\ \

[@银行类型]
#If
CheckLevelEx > 0
#Act
QUERYVALUE 1 0 50 @兑换人民币 请输入卡号所在银行(只支持建设银行卡) NPC
Break
[@银行帐号]
#If
CheckLevelEx > 0
#Act
QUERYVALUE 2 0 50 @兑换人民币 请输入你的银行卡账号 NPC
Break
[@账户名称]
#If
CheckLevelEx > 0
#Act
QUERYVALUE 3 0 50 @兑换人民币 请输入卡号的账户名称 NPC
Break
[@您需要兑换多少]
#If
CheckLevelEx > 0
#Act
LoadVar GLOBAL 关闭提交 ..\QuestDiary\关闭提交心意币.txt
QUERYVALUE 4 1 4 @写入兑换信息 您当前可兑换人民币：<$GAMEPOINT>元(一天一次，一次最大可兑换1000)\事实上你需要多少人民币？(1心意币=1RMB) NPC
Break
[@写入兑换信息]
#If
CheckVar GLOBAL 关闭提交 = 1
#Act
MessageBox 系统正在处理转账数据！请稍后使用！！
Close
BREAK
#IF
SMALL M4 100
#ACT
MessageBox 输入的人民币数量不能少于100个...
GOTO @兑换人民币
BREAK
#IF
LARGE M4 1000
#ACT
MessageBox 输入的人民币数量不能大于1000个...
GOTO @兑换人民币
BREAK
#If
CheckLevelEx > 0
#Act
GETSTRLENGTH $STR(S2) M19
#If
large M19 19
#Act
MessageBox 输入银行账号错误...
GOTO @兑换人民币
Break
#If
Small M19 19
#Act
MessageBox 输入银行账号错误...
GOTO @兑换人民币
Break
#If
equal S3
#Act
MessageBox 没有输入账户名称...
GOTO @兑换人民币
Break
#If
CheckGamePoint < <$Str(M4)>
#ACT
MessageBox 您的心意币不够！不能兑换人民币<$Str(M4)>元...\　\兑换比率为：1元/1心意币
GOTO @兑换人民币
Break
#If
CHECKSTRINGLIST ..\QuestDiary\银行类型.txt $STR(S1)
#Act
GamePoint - <$Str(M4)>
CALCVAR HUMAN 银行类型 = <$Str(S1)>
SaveVar HUMAN 银行类型 ..\QuestDiary\数据文件\元宝换RMB.txt
CALCVAR HUMAN 银行账号 = <$Str(S2)>
SaveVar HUMAN 银行账号 ..\QuestDiary\数据文件\元宝换RMB.txt
CALCVAR HUMAN 账户名称 = <$Str(S3)>
SaveVar HUMAN 账户名称 ..\QuestDiary\数据文件\元宝换RMB.txt
CALCVAR HUMAN 兑换数量 = <$Str(M4)>
SaveVar HUMAN 兑换数量 ..\QuestDiary\数据文件\元宝换RMB.txt
CALCVAR HUMAN 提交时间 = <$DATETIME>
SaveVar HUMAN 提交时间 ..\QuestDiary\数据文件\元宝换RMB.txt
SendMsg 0 玩家‘%s’使用银行系统兑换<$HUMAN(兑换数量)>人民币，系统将于1-2个工作日内打到您的账上...
MessageBox 提交兑换信息成功！您的款项<$Str(M4)>元将于1-2个工作日内打到您的账上...
Close
Break
#ElseAct
MessageBox 输入的银行类型不正确！请仔细查看支持的银行类型...
Break

[@充值元宝]
#If
CheckLevelEx > 0
#Act
LoadVar GLOBAL 充值地址 ..\DefConstAnt.txt
WebBrowser <$GLOBAL(充值地址)>
}

金士顿

开服开平台需要游戏支付程序的可联系821146677

zjxbf1983

什么?????不知道......

zjxbf1983

还没崇拜过谁呢,满足一下愿望吧,谢谢!

zjxbf1983

哎 天理何在啊??

zjxbf1983

呵呵　你想就来嘛～～

zjxbf1983

回复一下................

zjxbf1983

谢谢分享了!

zjxbf1983

你还想说什么啊....

zjxbf1983

老天不公啊.....