私游网架设技术交流区剑侠世界解决剑侠世界卡号,增加推广系统,修复金币BUG本站提供的各类软件,仅提供一个观摩学习的环境,所有资源: L# R/ u - M/ E; o! G均为网上共享资源!如果涉及版权问题请联系我们,我们将马上改正或删除!如若使用本站资 ... 稀有游戏源码分享发布 - www.88pk8.com
设为首页收藏本站
    城市    201X-XX-XX    星期X    ---     今日温度:-----    风力:-----    风向:-----

私游网

 找回密码
 会员注册
查看: 32|回复: 0

解决剑侠世界卡号,增加推广系统,修复金币BUG

[复制链接]

23

主题

29

帖子

101

积分

注册会员

Rank: 2

积分
101
发表于 2020-5-21 18:12:31 | 显示全部楼层 |阅读模式
本站提供的各类软件,仅提供一个观摩学习的环境,所有资源: L# R/ u- M/ E; o! G
均为网上共享资源!如果涉及版权问题请联系我们,我们将马上
改正或删除!如若使用本站资源用于商业用途,导致的后果,, C" t5 m3 N- E. t" u
本站不承担任何技术及版权问题,且不对任何共享资源负法律责5 p% ]' {; K# J& P' n( L
任。凡是从本站下载的资源,请在下载后24小时内删除。
2012-04-25修改内容:
1、修复刷金币BUG。
2、增加GameSales推广系统,谁有GS推广库,推广员等级划分无限级,可利用脚本实现推广帐号、家族专用激活码、家族提成码、推广提成兑换游戏金币、推广提现等功能。! W6 A9 m( B+ O7 V
3、推广提现与充值提现区别:推广提现无日志记录,充值提现记录每个玩家的历史提现记录。充值系统可和推广系统有不同配置,比如充值提现送绑定金币,推广提现只有金币。& o: I/ o! |" \3 }+ y: C; g- K
4、修改网络通讯模式,当检测到玩家网络差,并且存在卡号情况,不再踢玩家下线,而是重新尝试发送数据包。
-------------------------------->
核心:1、解决卡号问题。2、增加推广系统。3、修复金币BUG。# s, J. H+ m, \; s. E+ @2 _+ v2 \2 C
新脚本:
local res = me.WebjxBindGS(szCDKey); //检测是否存在对应推广员帐号,有则返回推广员GSLevel。3 G8 R& F# X9 A& u0 {, }
local res = me.WebjxGetGSPayCoin();  //检测是否有推广员冲值,有则直接冲值并返回冲值数额。
gameserver\script\npc\tuiguangyuan.lua ->> 对应增加:4 V' b; Y0 L% q$ S3 N
table.insert(tbOpt, 1, {"<color=yellow>领取推广员充值<color><color=red>new<color>", self.getGSJb, self});
table.insert(tbOpt, 1, {"<color=green>推广礼品码激活<color><color=red>new<color>", self.MyGSCheck, self});6 Q2 Q0 X" h4 T6 `8 ~
function tbTuiGuangYuan:getGSJb()
local nRet = me.WebjxGetGSPayCoin();
if nRet ~= 0 then
  Dialog:Say(string.format("推广奖励的<color=red>%d<color>金币已经到账。",nRet));
  me.Msg(string.format("推广奖励的<color=blue>%d<color><color=yellow>金币<color>已经到账。",nRet));
else
  Dialog:Say("<color=red>对不起,您没有充值,或者暂时充值没有到账,请稍后再试!<color>");% [: d* a8 C4 F+ m8 ^: d
end
end
function tbTuiGuangYuan:MyGSCheck(nFlag, szCDKey)
if not nFlag then
  Dialog:AskString("请输入礼品码:", 32, self.MyGSCheck, self, 1);9 A/ y2 O4 Q$ X0 U
  return 0;
end* I; x. x% I4 ~4 D, c3 a
if (nFlag ~= 1) then
  return 0;
end- t  Z" u4 m9 g7 n8 ?
if (me.CountFreeBagCell() < 1) then
  Dialog:Say("背包空间不足,请留1个空格。");
  return;
end . C2 x8 j0 I. O3 p* z
if not szCDKey or szCDKey == "" or string.len(szCDKey) > 30 then5 n7 ~# z4 }) D2 _2 b# d0 v
  me.Msg(szCDKey);
  Dialog:Say("输入的礼品码无效!");8 x$ E: `+ M9 ?8 c, `# w" x
  return 0;( `! N% q' v  d# @8 u* T4 U: c% J: R
end
local nRet = me.WebjxBindGS(szCDKey);4 ~5 I7 w; [2 H- d
if (nRet == 0) then
  Dialog:Say("卡号无效或已使用过礼品码,<color=red>礼品码可以向游戏推广员索取<color>!");5 n9 O7 F5 z0 s. N
else
  if (nRet == 1) then- W* h2 L  Z) Q* b
   Dialog:Say("使用黑铁推广员礼品码,您获得了<color=yellow>推广黑铁礼包<color>!");
   me.AddItem(18,1,992,1);
  elseif (nRet == 2) then
   Dialog:Say("使用青铜推广员礼品码,您获得了<color=yellow>推广青铜礼包<color>!");
   me.AddItem(18,1,992,2);& @  G5 t, Q. k; @6 M# V
  elseif (nRet == 3) then
   Dialog:Say("使用白银推广员礼品码,您获得了<color=yellow>推广白银礼包<color>!");
   me.AddItem(18,1,992,3);4 S$ O7 o1 a* m& N, C% B7 \/ E
  else+ p0 u' C/ j# b
   Dialog:Say("使用黄金推广员礼品码,您获得了<color=yellow>推广黄金礼包<color>!");
   me.AddItem(18,1,992,4);
  end& r8 V0 y9 C# V; A8 a3 r+ ~
end3 M- \4 p( @( i
end
2012-04-15修改内容:% `) n. u3 R8 a
1、增加金币充值接口,充值函数:me.GetUserPayCoin(),返回0表示未充值,否则为充值金额。金币自动入账,无需额外设置。
2、GS需要配置数据库。# V' K8 |& m! ~) x' W7 K
2012-04-05修改内容:
1、GameServer部分:增加自动根据程序名寻找配置文件载入。, z/ M0 W) W, ^  P) \7 I" X& j
2012-03-31修改内容:
1、增加金币获取脚本AddJbCoin(d),eg:AddJbCoin(10000)增加1万金币。- Z1 ~# [0 i# x- x0 f
2、修改商城金币接口,实现使用金币购买商城道具。
3、本端应该支持120技能,如测试通过希望可以连同您的技能脚本上传到我们论坛,供大家研究。
4、本端没有任何功能限制。1 h! P: H/ u' V) j# |
1、导入数据库。
2、配置文件增加以下内容:+ m4 V" u' c" h9 J$ o4 C. @
[WebjxDatabase]
Server=127.0.0.1
Port=3306
UserName=root, M4 L  ~7 k$ m* [: u$ `
Password=1234
Database=jxaccount: ?) J! a% O" E8 q$ u1 O) \4 @/ k
3、增加金币SQL:; Q& M; d. n- Z8 s
insert into `webjx_paycoin` set `account`='用户登录名',`jbcoin`=金币数量
将以下代码放到gs\script\item\function\xiulianzhu.lua里 tbItem:Init() 之前. i" F" |1 u2 [6 B* T; j
function tbItem:getPayJb()7 e* y7 L7 e7 R8 ^
local nRet = me.GetUserPayCoin();
if nRet ~= 0 then
  Dialog:Say(string.format("您充值的<color=red>%d<color>金币已经到账。",nRet));
  me.Msg(string.format("您充值的<color=blue>%d<color><color=yellow>金币<color>已经到账。",nRet));+ A/ `3 |0 g( X6 ?1 r$ z
else! [/ R. l4 x! H/ ]9 E1 Z
  Dialog:Say("<color=red>对不起,您没有充值,或者暂时充值没有到账,请稍后再试!<color>");  O3 A8 p# ]( \# ?. W6 [8 ]
end2 [: J$ p4 ]: n
end1 {. g- S- y$ I, @3 M
将以下代码放到
tbOpt = Lib:MergeTable({{"购买福利精活", SpecialEvent.BuyJingHuo.OnDialog, SpecialEvent.BuyJingHuo}}, tbOpt);
之后5 E% p9 ~6 m9 W
tbOpt = Lib:MergeTable({{"<color=yellow>获取充值的金币<color>", self.getPayJb,self}},tbOpt);
打开修炼珠即刻获取充值金币。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

QQ|Archiver|手机版|小黑屋|私游资源网 ( 企业备案号:渝ICP备14006647号 渝网文[2014]1168-005号 )

GMT+8, 2020-6-2 10:37 , Processed in 0.064438 second(s), 29 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表