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

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

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

代码如下，需要的自己拿，感谢某人
妖城在线论坛0 w2 ~0 d& n4 l6 S+ P
Global_Reg.RegInit("Click_Init");
Click_MeIndex = 0;
local RC_P2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 Q& W( I& b: f
local RC_Tmp = nil;" S/ k) ?# o- W  L! e
function WindowsTmpNpc_Init()
if(Click_MeIndex == nil)then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 M( g) n6 P1 \
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");妖城在线论坛) i, R/ r8 |* ]5 F
Char.SetData(Click_MeIndex, 1, 105254);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# M$ T! c& q8 X$ `& y7 G% C7 S
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( A4 d! w) N& Z, r
Char.SetData(Click_MeIndex, 4, 777);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, D1 y4 N8 ~* y: _. u9 {7 w
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; R5 C3 G- E' Z) w% ?! T
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力宝贝私服技术交流+ ~$ G7 s) z0 ^% \% y
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: k! l, ]& k  G6 S, F$ {
print("RCVal_Talked 注册事件失败。");
return false;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 p: ]5 K9 B5 o" x" W
end妖城在线论坛+ ?, N8 M/ n# w2 N$ O9 p. z
NpcIndex = Click_MeIndex;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- `- F0 l- K/ e: P- K- ]
InstallNpc("Click_MeIndex",Click_MeIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( U, L; w* ~. r) M0 n! @4 }  H

end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 F, |$ M1 F6 o( X* S1 Q
return true;bbs.mocwww.com3 q) z* [; R# W2 C: j
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: B2 g; p! r2 r+ s
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 a8 a/ C; k) j, x) y. z# P  Y

bbs.mocwww.com. h  h. U2 {% k5 K' m. p$ u
if (_Seqno==0 and _Data=='1') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& A9 |6 b1 o; W- l9 ?( v
--『查看资料』
RC_Tmp = p2_Index;
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);
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% f; j( ?' L2 t9 X8 H8 K) p
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);
return;# a) J- J; Q5 C  k2 X
elseif (_Seqno==0 and _Data=='3') thenbbs.mocwww.com! n% V+ k- U: ~
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& x, s0 T3 Y$ o* U
return;
elseif(_Seqno==0 and _Data=='4')then6 t  S  {' `# }3 c# a6 [  O# _
SetDebug(p2_Index);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ q8 g3 a" A, F# `( j
return;魔力私服,最新魔力宝贝私服技术交流" |* b/ C- Y6 \/ U+ C; {3 S: e% K
elseif (_Seqno==0 and _Data=='5') thenbbs.mocwww.com0 P" i8 K. f7 G+ ^; r: t
--『封关联号』魔力私服,最新魔力宝贝私服技术交流2 L$ v& y- k5 u( X
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—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 K+ c* U" M& k2 M  J( l, w8 V
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);bbs.mocwww.com5 S. w' r' H5 G
else妖城在线论坛% @3 w& E- D+ T3 L3 C4 G
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end& |4 m0 {& q: f9 x
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: ?4 x+ F' ^) d, J5 u' u& ~
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力宝贝私服技术交流* T  t' M$ F( U8 u5 m
--『传送对象』魔力私服,最新魔力宝贝私服技术交流) g+ M3 p1 q* y
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);妖城在线论坛- _; j( s0 C# m! g

return;
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』bbs.mocwww.com- N* b2 f  z4 W, F- j( ~
NLG.Close_Socket(p2_Index);bbs.mocwww.com% }/ ^% ~) b3 J/ a% b; W7 W
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 j8 J/ e2 i9 W% z4 U
end
if (_Seqno==22 and _Select==1 and _Data~="") then
local pppp = split(_Data,",");bbs.mocwww.com& w& V* [3 E" I
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));魔力私服,最新魔力宝贝私服技术交流! Y& G6 w1 X' l* |
if type(giveitem) == "table" and  #giveitem > 0 then魔力私服,最新魔力宝贝私服技术交流+ w$ `0 M! c( Q0 n# p$ u: l4 c
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then( M' q1 R% J1 K) V* b' Y% q! O; h
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# L% w6 V# D/ y' z  A2 B
if gold <= 10000000 and gold >= 0 then
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);妖城在线论坛: ^! y& f! |8 ~4 o1 x2 u5 l9 }
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);妖城在线论坛3 ?6 e3 E; R0 I$ l( j0 ~" T
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then魔力私服,最新魔力宝贝私服技术交流) u- d; Z7 v3 z/ @5 t" p
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ B* Q; f, B6 e5 r5 Y
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end7 D* q" K0 n7 N) O- N1 r
elseif (_Seqno==55 and _Select==1 and _Data~="") then妖城在线论坛5 H3 Y* n3 Z- T+ f  @' v
local warp = split(_Data,",");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; T1 q6 d. P% h2 c  X
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then妖城在线论坛5 k! o& i( I4 o9 y/ f9 M  o# E
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# ^9 I# S8 G+ B& q% K  ?
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  Q. m/ f# _# V9 i) T
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end妖城在线论坛6 r6 _' K4 P1 k' Q( L2 d
endbbs.mocwww.com4 _+ b. ~/ t, u6 y1 T# B3 @$ q3 Z
end3 p6 c8 `' t! L, Q, Q! d
魔力私服,最新魔力宝贝私服技术交流( T- u6 w) L5 Q
function SetDebug(CharIndex)bbs.mocwww.com2 a$ p1 M( v+ N5 ~/ C" |4 b" ]
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; h/ U7 a( |, q
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");妖城在线论坛$ Q% J$ `  s3 X/ E
end
妖城在线论坛6 K& C, F; t7 ]- O- {5 l
Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2), |! S- S7 U: R: p
if p1 == p2 then
return;
end

if NLG.Get_Char_Date(p1,145) == 1 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" W$ U9 d2 q- k+ m* H$ B
RC_P2 = p2;魔力私服,最新魔力宝贝私服技术交流# Q/ A! w  R& F4 R1 n* `
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..bbs.mocwww.com  Z8 T' L3 _* }, v5 j  `
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# O% V( t; ]; D  ]# Z7 _; ?$ X
"\n　　　　　　　　　『给予魔币』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 S! L. ]3 @) e- U( C
"\n　　　　　　　　　『封机器码』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 {9 {: \* P% Y$ A! [9 u  X0 n" h
"\n　　　　　　　　　『封关联号』"..魔力私服,最新魔力宝贝私服技术交流0 t. P: v/ n1 j$ ?( l
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);
end妖城在线论坛- G9 B' g, @3 J9 O) y2 G! f! w

return;
end* ]9 z$ ~5 v) V6 |
function Click_Init()9 j# V( ^% f7 B, h5 p& y$ D
Click_MeIndex = nil;妖城在线论坛. |+ H# d3 V2 K- @* C
WindowsTmpNpc_Init();
end8 g9 |  ]3 W2 g3 M1 {
function initClick_Init(index)5 w& c: D# Y" [! Y$ d' p
return 1;
endbbs.mocwww.com7 {+ Z' J2 b/ f
function split(str, split_char)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- e+ Q1 w2 P3 E" c) E  u9 S. o
local sub_str_tab = {};
while (true) do
local pos = string.find(str, split_char);. x( c3 K0 c. j1 o0 q
if (not pos) then
sub_str_tab[#sub_str_tab + 1] = str;: ?" M! [; j) H, i) G0 F
break;bbs.mocwww.com7 d: ^6 w2 q6 P. K7 z" Y4 e0 y  H$ |
end魔力私服,最新魔力宝贝私服技术交流' T" w3 U- E! I; f
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& L6 r6 h( V1 J& E% V3 J! J! n
str = string.sub(str, pos + 1, #str);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, Y2 a" s5 M: B, b1 @  V
end妖城在线论坛3 V( p6 w9 K; |0 V8 F# E' A# q! q
return sub_str_tab;魔力私服,最新魔力宝贝私服技术交流3 g; ]4 ^8 E2 x
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/)