妖城在线论坛 - Powered by Discuz! Board

标题: [魔力私服分享] GP端的lua（一）-GM_Click.lua [打印本页]

作者: escaflowne1985 时间: 2018-8-4 23:25 标题: GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. R/ H, F/ Q; D0 a+ ~. a

Global_Reg.RegInit("Click_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% w7 V) \4 ^* S4 k) _! O
Click_MeIndex = 0;
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()
if(Click_MeIndex == nil)then
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");bbs.mocwww.com8 G' x, _8 y0 W( f
Char.SetData(Click_MeIndex, 1, 105254);妖城在线论坛. t! ]( @& H2 A! [  J2 \7 b
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 f/ i( U* j; U9 c
Char.SetData(Click_MeIndex, 4, 777);
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);妖城在线论坛4 @( [" \8 E8 a. f* v( f3 l( M
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" q6 K, ]* E* r! M
print("RCVal_Talked 注册事件失败。");妖城在线论坛3 C8 X' Z* m7 h" H
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# N. h3 I0 h: L! |; g( e) i: M: d
endbbs.mocwww.com+ X. q/ f$ g3 u5 p. F1 S9 W
NpcIndex = Click_MeIndex;妖城在线论坛; N% O- l. c5 K- v7 ]3 r3 s6 g
InstallNpc("Click_MeIndex",Click_MeIndex)

end
return true;妖城在线论坛, ^2 U9 D% ^% A' ~+ |
end妖城在线论坛+ l1 G, U6 y# r2 ~
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  x- P/ M9 F9 G5 d; `4 K+ i
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  P8 r! ]$ d8 G& B: H2 D/ r

if (_Seqno==0 and _Data=='1') then
--『查看资料』魔力私服,最新魔力宝贝私服技术交流( J$ ?, \/ }) y  O( o
RC_Tmp = p2_Index;魔力私服,最新魔力宝贝私服技术交流) P4 E0 h( i( w( M0 j& u1 a/ s' C; m
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
RC_Str = "账号：" .. RC_cdkey .. "　密码：" .. SQL.Run("select accountPassword from tbl_user where cdkey = '" .. RC_cdkey .. "'")["0_0"]  .. " " .. "\n\n魔币：" .. Char.GetData(RC_Tmp,%对象_金币%) .. "　银行魔币：" .. Char.GetData(RC_Tmp,%对象_银行金币%) .. "\n\n游戏IP：" .. Char.GetData(RC_Tmp,%对象_IP%);
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ C7 m; v  U5 y7 L' Y: T4 w
return;
elseif (_Seqno==0 and _Data=='2') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! S8 l! f" ^( D/ |
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);/ r9 |3 ~0 F" L9 V
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! j" T  p* X% n1 X& b: W5 ]- w7 X& _
elseif (_Seqno==0 and _Data=='3') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" y' o8 f! b7 I. i. a2 N
--『给予魔币』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ b" V( c7 _. z0 I9 L' y  I
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);9 O1 Q1 l- z  \! }5 n. u
return;
elseif(_Seqno==0 and _Data=='4')then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! S6 F+ f/ @2 k1 K; v% I1 I
SetDebug(p2_Index);
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* t, S3 U; r& s& x% }$ |
elseif (_Seqno==0 and _Data=='5') then
--『封关联号』妖城在线论坛. p9 H) e- c( \, L9 k: p- }
if SQL.Run("update tbl_user set enableflg = '0' where ip = '" .. SQL.Run("select ip from tbl_user where cdkey = '" .. Char.GetData(p2_Index,%对象_账号%) .. "'")["0_0"] .. "'") == 0 thenbbs.mocwww.com) p* l$ c8 u  J0 z+ c) S4 e
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);妖城在线论坛9 _# G1 E  m& m8 ~* j
else4 w' y  U  |0 I2 ~9 d3 i9 A
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- b+ Y& Q: k6 p2 s2 s, Z9 O
end妖城在线论坛, ?( \9 @* c: o# J+ b1 g) l- A
return;魔力私服,最新魔力宝贝私服技术交流) {4 u, m2 s' ], v% P0 @9 n, ?
elseif (_Seqno==0 and _Data=='6') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- R4 C( j7 s  d4 G
--『传送对象』妖城在线论坛' K( W1 _- Y" ^- n1 V3 h
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; l+ z. b' N* \( j3 _1 d
return;bbs.mocwww.com$ b! C& q' t( ~& k
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. B, f. c% v& g8 M. W
NLG.Close_Socket(p2_Index);妖城在线论坛. T) g9 \* V4 ^8 o+ [2 U) i
return;
end
if (_Seqno==22 and _Select==1 and _Data~="") then
local pppp = split(_Data,",");
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
if type(giveitem) == "table" and  #giveitem > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛+ n4 X; k+ D; M9 a' N
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);魔力私服,最新魔力宝贝私服技术交流) `: N6 k8 T9 c2 s  P4 y
end妖城在线论坛+ _7 j$ _9 D) \# U- m! R
elseif (_Seqno==33 and _Select==1 and _Data~="") then
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" @' M' w$ `+ `4 H( T
if gold <= 10000000 and gold >= 0 then妖城在线论坛* k; S' x, D) O0 I( E, c/ P" I: j
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);魔力私服,最新魔力宝贝私服技术交流" R2 B* w- @/ S0 [$ o
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力宝贝私服技术交流2 k3 w" K8 J+ [! ?, [
elsebbs.mocwww.com7 _6 C. V, ~0 M1 Q' J% P0 W3 V
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 T. p- l) P) ?' P' k/ E  H
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' Y- _3 a6 B* S" B; Y/ n
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end1 Y1 F# |( c+ X2 |
elseif (_Seqno==55 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流$ V* ?8 G# j3 m! s' p/ @
local warp = split(_Data,",");
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 }4 v" T$ Q5 x1 n' k3 n
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# l& F$ w; B5 G$ n) q; A: G& H+ I
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end" H7 B5 U$ G1 c1 |6 T3 L& Z$ `
end
end
妖城在线论坛7 y( S- v. p) n# p! Z4 R% G
function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end
妖城在线论坛  m' W$ f  [6 k8 v, s8 J# O7 n8 `
Global_Reg.CharRightclick("Rightclick");魔力私服,最新魔力宝贝私服技术交流/ T! j( T( [; w7 X- S# \
function Rightclick(p1,p2)+ z9 X0 A. ]0 R/ ~
if p1 == p2 then
return;
end

if NLG.Get_Char_Date(p1,145) == 1 then
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 K; {9 D6 }- z' K; j" u' Y" e
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",bbs.mocwww.com) U* t$ ?5 T5 i# s
Click_MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ w0 k* G/ f9 [0 ~
end
妖城在线论坛: p0 g6 g4 r" P; L
return; 魔力私服,最新魔力宝贝私服技术交流- ~7 ^1 u4 K; o' l
endbbs.mocwww.com# G% l$ {( K2 z6 F9 {
function Click_Init()bbs.mocwww.com2 g. H( j. i& k! p' f0 P
Click_MeIndex = nil;' c# g, e. ^2 l" S, m0 e
WindowsTmpNpc_Init();妖城在线论坛! S6 s( Z# Y" E3 m4 I
end魔力私服,最新魔力宝贝私服技术交流0 m) v0 n! v1 ?! O; }
function initClick_Init(index)魔力私服,最新魔力宝贝私服技术交流1 S+ O+ Y6 w5 Y/ f( s& ]6 m7 H) f
return 1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; y" b' \2 L' d) b% Q9 `$ X8 b2 O
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 o* o- `$ [, r  {
function split(str, split_char)魔力私服,最新魔力宝贝私服技术交流$ N- P( _1 r9 `+ g. h+ c  e+ N' {
local sub_str_tab = {};
while (true) do妖城在线论坛; I3 l5 s. H; e/ ~+ |# q1 B
local pos = string.find(str, split_char);bbs.mocwww.com5 ^) m- H! d# W. ~  v) S+ A
if (not pos) then
sub_str_tab[#sub_str_tab + 1] = str;
break;bbs.mocwww.com* a- v% _- h1 ]4 L4 f3 L
end妖城在线论坛. g4 O8 I2 i# m" g
local sub_str = string.sub(str, 1, pos - 1); 5 @/ c& z% k* d4 ^$ @* I
sub_str_tab[#sub_str_tab + 1] = sub_str;
str = string.sub(str, pos + 1, #str);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. l5 K- ]+ i! n+ G
end
return sub_str_tab;
end

作者: xxxx 时间: 2018-8-5 00:20

感谢分享，终于有人分享了

作者: qq2804823 时间: 2018-8-5 13:44

...gp乜没有单机免费版。。。

作者: kdasha 时间: 2018-8-6 11:34

看着好高端的样子.......

作者: cloud09 时间: 2018-8-7 10:29

沒有反掛玩不到

作者: kings12369 时间: 2018-8-16 12:49

感谢分享，终于有人分享了

欢迎光临妖城在线论坛 (http://bbs.mocwww.com/)