打印

[魔力私服分享] GP端的lua（一）-GM_Click.lua

escaflowne1985

小妖

Rank: 1

UID: 40518
精华: 0
积分: 43
威望: 0 度

阁楼大中小发表于 2018-8-4 23:25 只看该作者

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人
bbs.mocwww.com  X0 c6 M( J/ D* E% I
Global_Reg.RegInit("Click_Init");魔力私服,最新魔力宝贝私服技术交流5 ~2 O, p0 p3 v/ `7 c. C
Click_MeIndex = 0;
local RC_P2;
local RC_Tmp = nil;bbs.mocwww.com6 a& L) C/ N8 M6 l0 f
function WindowsTmpNpc_Init()魔力私服,最新魔力宝贝私服技术交流  `2 C) w( s9 B# u
if(Click_MeIndex == nil)then妖城在线论坛( W8 C4 ^6 U% ~6 t* O
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 e* z; \! p! F
Char.SetData(Click_MeIndex, 3, 0);bbs.mocwww.com& s9 J5 i$ p; I3 z& ~  w  w
Char.SetData(Click_MeIndex, 4, 777);
Char.SetData(Click_MeIndex, 5, 14);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. m! a$ [8 A+ [0 R/ p
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 t" E+ y5 S# U. U4 I
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 ~3 P, Z1 D$ o4 T& W- g
end: u+ ?: o' u' c
NpcIndex = Click_MeIndex;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 z, u! c+ `: p* ?
InstallNpc("Click_MeIndex",Click_MeIndex)

end
return true;
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# g' U) C: e) M: M0 x: H$ H
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);

if (_Seqno==0 and _Data=='1') then妖城在线论坛( X& p' v/ q: |7 p. H' Z# n% |: _
--『查看资料』
RC_Tmp = p2_Index;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 Z: I' C7 j' M8 P1 W) L9 G
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);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: j" Q$ H6 q" x. Y, G$ W
return;3 t7 \+ n( h! T. D* k
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』妖城在线论坛( S* O+ a* s3 w; u6 |
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);魔力私服,最新魔力宝贝私服技术交流: G, e- G7 `4 W' e
return;
elseif (_Seqno==0 and _Data=='3') thenbbs.mocwww.com' K# i' ?  b5 V
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  u" Q  p/ P: o9 g! i* o, q/ g
return;
elseif(_Seqno==0 and _Data=='4')then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 E5 A; _$ e3 \: a1 J, N
SetDebug(p2_Index);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& E7 d7 A, G7 z2 _; S
return;bbs.mocwww.com% @% x  w4 _3 ~
elseif (_Seqno==0 and _Data=='5') then
--『封关联号』
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 then魔力私服,最新魔力宝贝私服技术交流; o( m! t# A" i+ v( J7 `1 M
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end魔力私服,最新魔力宝贝私服技术交流4 `! g, _" A- y# @9 d% ~
return;
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);妖城在线论坛6 t$ b& Z" Z7 R. j7 j7 q; F
妖城在线论坛. K: X3 o( T, S, e0 k, S
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: a9 H* K8 h' U' A. [8 p
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』
NLG.Close_Socket(p2_Index);
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]));- T3 M/ y! V/ s+ H8 h
if type(giveitem) == "table" and  #giveitem > 0 then: {; M- z9 l' C
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛  Q0 L) v5 u! E: h' u1 i
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com, G( V0 {5 t. _
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 C5 o1 Q8 ~! [1 l. E1 y) j
elseif (_Seqno==33 and _Select==1 and _Data~="") then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 L5 ]9 m' s8 N0 i9 z0 F) C8 d
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 then
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 h* T' |6 _, G$ {* q
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 R# ~( ]' D* ~0 C7 l! U
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 S$ @7 h' ?  B: [' S) _# Y
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 b7 J, \% T. z  L, M& z/ p
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end妖城在线论坛3 T0 V- Z+ t' u0 k/ P
elseif (_Seqno==55 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) V1 z2 P3 l& f5 ~/ @* G9 m
local warp = split(_Data,",");bbs.mocwww.com% D6 ]( t8 k, V2 O" B* k
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
elsebbs.mocwww.com( m7 ?* h7 v3 y7 y3 x5 |* n3 ~/ ]' R
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);  T& B: Q6 R$ D) K3 S8 U8 |7 N* v! w
end
end
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, N8 M* \; x4 ?. a; f
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ [2 ^. k) A5 ?
function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 L/ U: c% B/ |' |6 w. [* S
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end妖城在线论坛) u! T. Q. ?9 K, R
妖城在线论坛; V4 b' [! Y5 c; r# P9 H
Global_Reg.CharRightclick("Rightclick");魔力私服,最新魔力宝贝私服技术交流! R# [% C1 w8 R* `/ E
function Rightclick(p1,p2)魔力私服,最新魔力宝贝私服技术交流) V- Y. |# ~7 d5 X+ l: g1 N* ~5 V0 Z
if p1 == p2 then
return; —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 _* N6 l5 L' [% _4 k2 r
end3 ?% R1 a; T0 F( u

if NLG.Get_Char_Date(p1,145) == 1 then# F6 u6 y5 ^. T9 Z5 L
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0, 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  a& u3 ~" f; G6 P
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. J+ O2 Y; A& J  h- R# A/ W
"\n　　　　　　　　　『查看资料』"..bbs.mocwww.com: g, q+ p9 h! \! T2 k! n5 |6 |
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..bbs.mocwww.com+ F% A- I" ]% ^3 T& q1 k4 `
"\n　　　　　　　　　『传送对象』"..魔力私服,最新魔力宝贝私服技术交流$ ?. j7 @( b+ G8 N2 K
"\n　　　　　　　　　『踢他下线』",  G% }8 P* K0 i* h3 O$ U  d4 U
Click_MeIndex);
end
bbs.mocwww.com+ e" O7 T* w0 G6 J2 l3 U$ l! n
return;
endbbs.mocwww.com8 ?4 u5 E8 r6 E; V2 `, l
function Click_Init()
Click_MeIndex = nil;
WindowsTmpNpc_Init();
end. Y$ [! b! K* x4 i; {) P3 T2 X
function initClick_Init(index)
return 1;
end妖城在线论坛" I& d! P6 m5 e
function split(str, split_char)
local sub_str_tab = {};* V5 b' r: n( p- G) ~
while (true) do
local pos = string.find(str, split_char);1 U( a# D' I( D1 i, J3 H
if (not pos) then( C/ m' i- z5 V7 ^
sub_str_tab[#sub_str_tab + 1] = str;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, q, t8 L7 ~* w/ I
break;2 u/ n7 I1 N3 h- I; @6 Q. x
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  v$ ~8 O7 Z0 \+ v
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;
str = string.sub(str, pos + 1, #str);魔力私服,最新魔力宝贝私服技术交流% r. t/ e7 q' h, D* b& B$ g1 c# E+ _
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& Y# P+ X5 t" |2 u
return sub_str_tab;妖城在线论坛6 K( r/ p$ ^; ?$ O! J( \& p7 S/ u
end