打印

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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人

Global_Reg.RegInit("Click_Init");
Click_MeIndex = 0;
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()
if(Click_MeIndex == nil)then妖城在线论坛* X3 L6 ]6 L2 H+ \5 a* l) e
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);8 q) _5 t1 r: }8 H9 i
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);1 y( u9 }7 a8 \4 T5 Y2 R: _0 G
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");魔力私服,最新魔力宝贝私服技术交流! S# S' R3 }# _6 |8 ~# _6 I
return false;魔力私服,最新魔力宝贝私服技术交流2 E$ U7 v& j, Y  ~
end5 d* U0 [& R- m4 t8 V8 P9 e
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)

end
return true;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- P3 k2 A. a) K; O8 B- o
end妖城在线论坛3 K: u' G# `2 V# ]$ z1 V
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
妖城在线论坛$ s, X! ?+ H7 e" h! ]
魔力私服,最新魔力宝贝私服技术交流* N& W& n5 o* r& C7 L7 s: O
if (_Seqno==0 and _Data=='1') then
--『查看资料』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& l% }, c9 g/ n! M1 ?
RC_Tmp = p2_Index;" p+ Z: d, X3 x# _6 X
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);妖城在线论坛9 c, d3 x& n& \! j- e' R
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%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* ^7 ~: b. x! y6 A! c: S
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);魔力私服,最新魔力宝贝私服技术交流- J' \$ _6 }6 K! h
return;妖城在线论坛8 ]/ k1 x* u- k0 B" W! Y, R& h, Q
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』妖城在线论坛+ s4 b7 b6 [' t3 i: g
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);bbs.mocwww.com! ?5 K/ A+ \7 g8 h
return;
elseif (_Seqno==0 and _Data=='3') then魔力私服,最新魔力宝贝私服技术交流& r1 D) n" e5 j0 }: K- g  v7 ~
--『给予魔币』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; u+ h+ g3 n. w0 N' H" N$ p. B
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' ?' a* A$ X# O' y
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 B6 w( ]4 k: m3 P2 |, }
elseif(_Seqno==0 and _Data=='4')then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 `; @  r7 K6 }. k4 m
SetDebug(p2_Index);
return;bbs.mocwww.com0 [- I- ~" B3 \
elseif (_Seqno==0 and _Data=='5') then魔力私服,最新魔力宝贝私服技术交流* v9 q* z2 s, M# t
--『封关联号』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 O3 x; }* h; w/ c4 Z/ q7 t6 A
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
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# r1 W0 ]: G1 E0 I- ~& |2 K
else妖城在线论坛8 `3 P! ]- i" ]  z7 ^
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end
return;
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力宝贝私服技术交流+ B1 O; U  g. @- L1 L4 j
--『传送对象』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- N- p* Z6 q. \; l8 z' y/ g8 O4 V
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);妖城在线论坛+ T1 z7 t. j/ e  ~2 U

return;
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』
NLG.Close_Socket(p2_Index);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ v# C6 V; M: G0 U% r2 f
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);$ T2 O4 w" f) @& X6 P
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ X3 N' z- g7 Q% X5 P" ]1 V% t
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end' B, O8 X# g. a0 Y
elseif (_Seqno==33 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流  L* b. x/ w5 e( W7 k  m0 {  C4 p
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);魔力私服,最新魔力宝贝私服技术交流+ e5 R# I+ h+ u& j! J4 O
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- Z4 f, ~* O2 D9 l$ ?
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 A' d0 H, n3 V0 s
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);妖城在线论坛$ E3 M/ d% x& K$ Q7 S0 n
else妖城在线论坛5 D. z1 O0 D9 @/ K# ~0 S' F
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);# V8 Z7 L8 _" G7 ~$ `
end
elseif (_Seqno==55 and _Select==1 and _Data~="") then
local warp = split(_Data,",");
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 z2 u! }# Z5 |# |
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: b& C1 H6 f  s, ~5 m
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ E3 x! H( D! b( @2 E

function SetDebug(CharIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ p6 L. |& b" W; |. L
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end
' w9 y; s5 l$ @
Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2)妖城在线论坛. y0 h; S. A. J2 u1 Y
if p1 == p2 then
return; —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 h3 B. V6 `0 _% Y- [, A
end妖城在线论坛! i: J5 D4 \% {7 }6 ]' l
bbs.mocwww.com1 W: {# L2 U/ `" x9 F
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,%对象_原名%).."]该玩家的操作：")..魔力私服,最新魔力宝贝私服技术交流! W2 W# r7 L0 h+ T3 Q2 {
"\n　　　　　　　　　『查看资料』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 r' R# A1 M% t, u1 s
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..魔力私服,最新魔力宝贝私服技术交流- R7 l9 x1 O# J- E# e( @
"\n　　　　　　　　　『传送对象』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ t$ q" h8 D5 L% r
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);
end
2 B' f1 f* t8 |7 y+ r
return;
end
function Click_Init()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 b$ W' i& I4 t. `
Click_MeIndex = nil;
WindowsTmpNpc_Init();
end
function initClick_Init(index)妖城在线论坛0 y& N+ N; o# R7 o7 l% R2 f
return 1;
end妖城在线论坛4 _; S  e) t9 x
function split(str, split_char)
local sub_str_tab = {};
while (true) do
local pos = string.find(str, split_char);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 n3 W, [9 V/ H
if (not pos) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 a9 ~0 H1 k. ?6 v: |5 |7 |2 G! L
sub_str_tab[#sub_str_tab + 1] = str;
break;
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& Y, k6 T, N9 y' 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);
end魔力私服,最新魔力宝贝私服技术交流" k( h( P- ~( n+ Z7 H7 U5 M
return sub_str_tab;妖城在线论坛+ m" M2 Q+ G& v+ H
end