打印

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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人魔力私服,最新魔力宝贝私服技术交流" Q! G- p6 {7 A
bbs.mocwww.com& D* d7 H8 _% C) a+ Z( y  ~2 ?; q8 z
Global_Reg.RegInit("Click_Init");
Click_MeIndex = 0;bbs.mocwww.com8 `7 D6 P' D! F$ a, r  e8 J6 i0 g; B
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 D3 ?5 A8 t; {! R* G
if(Click_MeIndex == nil)then妖城在线论坛) z3 M, q! E$ P; j/ y+ s8 F* z
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);
Char.SetData(Click_MeIndex, 4, 777);
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");$ |6 d* O' m/ t) p" c
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");魔力私服,最新魔力宝贝私服技术交流3 ^/ o6 O' x5 F3 e  y" ^- }
return false;" q5 Z& P- X  y" r( B& }
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ c9 Y6 B' Y9 ^/ V
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 \& n$ k" T" ]; d

end
return true;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 W: ]: N: f5 x! g2 Z
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;3 P7 H9 J8 P6 M% S/ a
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);魔力私服,最新魔力宝贝私服技术交流6 m9 n2 u9 Y5 ]; h( P

if (_Seqno==0 and _Data=='1') then
--『查看资料』
RC_Tmp = p2_Index;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 [( M. f7 ]! f# p- Z
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);bbs.mocwww.com  {6 x% z' ]$ p4 z. z* J' k) }# ~
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%);bbs.mocwww.com+ C8 g* @4 D% D& N1 a' J+ ^& @
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
return;bbs.mocwww.com0 G2 [, B& t/ _1 Z  C: Z" ~) q
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 ~/ H; O) [0 f, _- V8 v4 z3 W5 m
return;妖城在线论坛# ^7 N2 R- l! N" T  O5 ]
elseif (_Seqno==0 and _Data=='3') then妖城在线论坛& a8 f( f. V/ y. E7 j" G5 o5 o
--『给予魔币』魔力私服,最新魔力宝贝私服技术交流" @; [" c+ L1 F6 U& W1 T
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 m; \! Q/ I0 J8 t) s5 D8 ^
return;bbs.mocwww.com" ^8 ]3 \0 l% ~( O* H+ M' F4 b
elseif(_Seqno==0 and _Data=='4')then
SetDebug(p2_Index);
return;) I* z. c9 z6 b
elseif (_Seqno==0 and _Data=='5') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, x2 b3 V) p7 z3 S8 c
--『封关联号』
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- o: g  |2 {" T; X
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);妖城在线论坛1 ]/ Z7 @3 D/ \% g( E
else* K$ V4 ~  a% m1 W
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 W7 U( ]. r& M1 _+ `
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' @1 ]+ o$ X( V, O3 Z  i# |
return;
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力宝贝私服技术交流( d# Q, `% z4 W# ~& n0 s
--『传送对象』bbs.mocwww.com1 k# I$ I- r7 c0 i0 _1 ^9 T
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);

return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 W6 c" o. s/ G  a- S- N
elseif (_Seqno==0 and _Data=='7') thenbbs.mocwww.com6 Q& p8 k7 ~( ~8 i
--『踢他下线』妖城在线论坛0 J; E9 ~! F3 t5 ~
NLG.Close_Socket(p2_Index);- P$ ^4 G8 x) [: ]. F
return;妖城在线论坛0 {3 Y2 J3 i) Z( K% v! ?
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) K. g6 S/ m) u) U9 G) F
if (_Seqno==22 and _Select==1 and _Data~="") thenbbs.mocwww.com1 A$ j6 I5 b; c; f# S
local pppp = split(_Data,",");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 q2 k) ]8 |) A1 U
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
if type(giveitem) == "table" and  #giveitem > 0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) {8 K" A. x* b% u8 l/ l
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; A6 W$ L: i, M( {; X
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);妖城在线论坛, V* Z5 L. R6 \5 b+ S3 k
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力宝贝私服技术交流9 X; J5 H/ }8 W( `, X1 F
if gold <= 10000000 and gold >= 0 then7 b: s# S3 R9 K; J
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! f+ D6 U# x( [- _7 C2 ]  t3 B
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力宝贝私服技术交流- u, \& q) X) F# W+ u4 V" Y
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ E) |$ V0 d: p! X/ I
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);3 Q0 L) I9 c8 F& V8 m
end妖城在线论坛9 t4 g4 Y0 q" v  j! W
elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流) M; ^) W& x3 L  Y8 B) b
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
elsebbs.mocwww.com. p" @% O3 h+ u, Q% ^6 a  ^
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);bbs.mocwww.com3 \3 j1 |( h  ]& i% ~
end
elseif (_Seqno==55 and _Select==1 and _Data~="") then妖城在线论坛6 o) l/ E, Z3 _4 a) `" ~% H: c  T: ~
local warp = split(_Data,",");
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, }$ p: s* ^# ^
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com& `& R3 d* \4 a- `" W  x% _
end
end
end

function SetDebug(CharIndex)# @: l# Q7 g  v; u
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");妖城在线论坛; N# y% U' f8 D
end
9 c2 O/ w. H5 R
Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2)
if p1 == p2 then
return;
end魔力私服,最新魔力宝贝私服技术交流8 N5 z& ]  ^: y! O; u$ G# g# u
魔力私服,最新魔力宝贝私服技术交流5 n% E. a# {; h, a3 n
if NLG.Get_Char_Date(p1,145) == 1 thenbbs.mocwww.com8 P5 [5 w! x$ A0 {# D% B8 ^1 s
RC_P2 = p2;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ ?0 z3 `8 f& s2 ?8 ?
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..妖城在线论坛, ^! I: n* p0 w% H
"\n　　　　　　　　　『查看资料』"..
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 q0 H! @2 D& b' b1 n5 W& f* ]
"\n　　　　　　　　　『给予魔币』"..
"\n　　　　　　　　　『封机器码』"..妖城在线论坛2 g; s' O6 f: e6 u: X/ P
"\n　　　　　　　　　『封关联号』"..妖城在线论坛/ O" A& g* N) j2 L$ N7 }+ G, H
"\n　　　　　　　　　『传送对象』"..魔力私服,最新魔力宝贝私服技术交流/ ]2 r! J% R4 I% U6 W
"\n　　　　　　　　　『踢他下线』",魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 v% A/ R6 R7 @  T/ c) l
Click_MeIndex);
end

return; 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! l! N* \% ]# @& z0 `4 ?8 y
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 i) N( M5 M8 I
function Click_Init()0 i, Z# @+ T2 [
Click_MeIndex = nil;8 K) w1 f+ a; C3 ?( Z$ U; b
WindowsTmpNpc_Init();
end
function initClick_Init(index)
return 1;
end魔力私服,最新魔力宝贝私服技术交流/ W1 q- s3 M& R! C
function split(str, split_char)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 m0 d! T& z% ]8 |
local sub_str_tab = {};
while (true) do—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 a0 o) v7 g  \' i
local pos = string.find(str, split_char);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 m3 H3 g, v5 z% k5 q" V
if (not pos) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! s$ X" E8 C, C* [$ Q
sub_str_tab[#sub_str_tab + 1] = str;bbs.mocwww.com8 p5 [+ e+ g8 o. z! U; Z
break;魔力私服,最新魔力宝贝私服技术交流4 A" Y. y  L$ o4 s) j! Q
endbbs.mocwww.com+ O. W. v( l, J/ a  \: |
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 F7 ?/ k; T  o& U$ [& ?
str = string.sub(str, pos + 1, #str);bbs.mocwww.com2 m0 v7 q8 s5 t& O( s: `8 j
endbbs.mocwww.com( e! a% g. s! G7 M& m
return sub_str_tab;bbs.mocwww.com% m" r9 T8 s9 @/ F- S
end