|
小妖
- UID
- 42530
- 精华
- 0
- 积分
- 35
- 威望
- 0 度
|
阁楼
大 中
小 发表于 2018-3-23 00:28 显示全部帖子
做了个收魔币、计时/计步，不遇敌lua内挂。gmsv.exe适用
 首先。。。我不是专业lua程序猿，代码都是拼凑和看cgdev的库然后做出来的 ! v) d3 `( C- B
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# F6 T. n% N" g9 A8 \7 W. i
代码里有些可能是过度的，高手就不要介意了！ 妖城在线论坛; W$ w5 w# S# b2 d
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: {4 I0 Y6 F/ Z6 l$ k( {/ p/ Q1 C
总之，用了好多魔力GF内置方法都没能做出一个有效的不遇敌道具。
8 @! ]" z4 S2 i1 D/ i8 f4 p5 N魔力私服,最新魔力宝贝私服技术交流魔力私服,最新魔力宝贝私服技术交流- [/ i; I+ [) N9 R
无奈最后只能自己瞎写写了！
1 j" V4 O& q3 D7 Q4 L: j2 U魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 m& ^( S. u# D
我VB做得多。。。所以lua让我烦恼了很久，没有timer没有sleep，不过最后还是曲线解决了- - bbs.mocwww.com- n" P+ I* B- m5 c5 I% d% u/ _( {
7 K: C( D' o! n* b7 D" {. ibbs.mocwww.com
* v( T! U6 k& g妖城在线论坛我这里是小公益服，人少，测试一周功能正常。
# u9 Z5 _5 j' k) J* m: b7 e) O魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 x/ X* I( U9 k; ]/ k* J" u
各位小伙伴可以测试一下
+ a; a" M! R: e/ C2 D/ [魔力私服,最新魔力宝贝私服技术交流—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 W0 a7 n' y+ ` u/ O
公布代码如下 复制内容到剪贴板 代码:--本lua由ahsinsoft.com编写 QQ230236979
if type(Players)~="table" then Players={} end
if type(tab_msg)~="table" then tab_msg={} end
if type(tab_return)~="table" then tab_return={} end
if type(tab_buyudi)~="table" then tab_buyudi={} end
local bydgold= 5555--支付价格
local bydsj= 900--不遇敌有效时间，秒
NL.RegTalkEvent(nil,"ngsupport_TalkEvent");--监视玩家说话内容是否含有关键字
NL.RegLogoutEvent(nil,"ngsupport_LogoutEvent");--监视玩家是否登出，是则清空所有功能参数
--Delegate.
--NL.RegDropEvent(nil,"ngsupport_DropEvent");--监视玩家是否掉线、下线，是则清空所有功能参数
function ngsupport_TalkEvent(player,msg,color,range,size)
if(msg == "/2" or msg == "、2")then
local CdKey = Char.GetData(player,%对象_账号%);
if (Char.GetData(player,%对象_金币%)<bydgold) then
NLG.SystemMessage(player, "[系统] 魔币不足["..bydgold.."]，无法使用！")
return 0
end
local kg = Char.GetData(player,%对象_不遇敌开关%);
if(kg == 0)then
Char.AddGold(player,-bydgold);
Char.SetData(player,%对象_不遇敌开关%,1);
NLG.SystemMessage(player,"不遇敌已经开启，当前时效限定为15分钟！");
zoucia = os.time();
Char.SetLoopEvent(nil, "bydoff", player, 30000);--伪timer 开启，参数为毫秒
else
Char.SetData(player,%对象_不遇敌开关%,0);
zoucia = nil
zoucib = nil
zoucic = nil
Char.SetLoopEvent(nil, "bydoff", player, nil);--伪timer 关闭
NLG.SystemMessage(player,"玩家已经主动关闭不遇敌！");
return 0
end
end
end
function bydoff(player)
--local CdKey = Char.GetData(player,%对象_账号%);
local kgs = Char.GetData(player,%对象_不遇敌开关%);
zoucib = os.time();
--zoucic = nil
if(kgs == 0)then
zoucia = nil
zoucib = nil
zoucic = nil
Char.SetLoopEvent(nil, "bydoff", player, nil);--伪timer 关闭
return 0
end
if(kgs == 1 and zoucib - zoucia > bydsj)then
zoucia = nil
zoucib = nil
zoucic = nil
Char.SetLoopEvent(nil, "bydoff", player, nil);--伪timer 关闭
Char.SetData(player,%对象_不遇敌开关%,0);
NLG.SystemMessage(player,"不遇敌功能有效时间已过，不遇敌关闭！");
return 0
else--if(kgs == 1)then
zoucic = zoucib - zoucia
zoucid = bydsj - zoucic
NLG.SystemMessage(player,"不遇敌功能将在 "..zoucid.." 秒后失效。 -=刷新率：30秒");
end
end
function ngsupport_LogoutEvent(palyer)
local kgss = Char.GetData(player,%对象_不遇敌开关%);
if(kgss == 1)then
Char.SetData(player,%对象_不遇敌开关%,0);
zoucia = nil
zoucib = nil
zoucic = nil
Char.SetLoopEvent(nil, "bydoff", player, nil);--伪timer 关闭
NLG.SystemMessage(player,"玩家登出，不遇敌关闭！");
end
--return 0;
end启用方法：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* Q" _6 n1 ?3 _" ^
1、把ngsupport.lua放入服务端目录gmsv\lua\Module中
5 |! U) P" u" L5 a- [魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2、服务端目录gmsv\lua中，编辑config.lua，在最后一行新增useModule("ngsupport");
' h3 _% C; o- Q3 V, j' |0 x) i7 w0 A妖城在线论坛3、本内挂热键为/2，若ng.lua中已经有简易版的不遇敌内挂，建议注释掉，以免冲突。高手忽略
* \, t# m; J$ ?5 G9 V" [—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
+ `; B/ x7 h4 {: ~$ N3 f5 k. a! U! U魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
 ngsupport.rar (998 Bytes)
& j9 g3 u* b' Vbbs.mocwww.com魔力私服,最新魔力宝贝私服技术交流3 Q6 x, l9 S2 _) x- A1 f
[ 本帖最后由 ahsin 于 2018-3-23 00:45 编辑 ]
|
