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

escaflowne1985

小妖

Rank: 1

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

阁楼大中小发表于 2018-8-4 23:25 显示全部帖子

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* A. t$ l' V/ V
/ B6 j9 Y& F1 A6 D& u
Global_Reg.RegInit("Click_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" r9 F5 c" L( ?7 A; |0 u6 Z, g
Click_MeIndex = 0;魔力私服,最新魔力宝贝私服技术交流7 n( Z' x( O$ x% F& k7 c6 g
local RC_P2;
local RC_Tmp = nil;8 _6 Q  n1 j- @9 ?+ _1 u9 Z
function WindowsTmpNpc_Init()bbs.mocwww.com6 e; I4 l. G5 j# m  Z% ^& g
if(Click_MeIndex == nil)then) F! X$ C2 r% x! C+ }8 K  p5 r, {
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 ~7 l: O; h& x+ ?  h$ h: [; [
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);魔力私服,最新魔力宝贝私服技术交流$ a2 s* p* C. \
Char.SetData(Click_MeIndex, 3, 0);妖城在线论坛3 T) C% `9 a7 r4 F: B. h, g
Char.SetData(Click_MeIndex, 4, 777);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) H: K0 {% W' @1 j4 T8 J
Char.SetData(Click_MeIndex, 5, 14);8 d% G0 p4 T* m
Char.SetData(Click_MeIndex, 6, 13);妖城在线论坛/ C. o* v: l" }' Q" k
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");魔力私服,最新魔力宝贝私服技术交流5 |: H  e' v8 F+ u6 o
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");
return false;bbs.mocwww.com  w* i* J0 ^8 k+ G( N
end
NpcIndex = Click_MeIndex;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 ]% e8 m' k/ k" N. u! I: u% m. l# p8 ?
InstallNpc("Click_MeIndex",Click_MeIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) j# y: P+ f$ q' m6 t$ V

end妖城在线论坛" a! A- v4 r* `9 m! U6 G+ Y
return true;
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
妖城在线论坛# A  A$ Q' Y( j. i, [4 |. z
妖城在线论坛1 d; [# A1 `$ L8 x: j6 a3 m
if (_Seqno==0 and _Data=='1') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ y; r- S& I$ y# X: s5 a
--『查看资料』魔力私服,最新魔力宝贝私服技术交流6 N$ c! r' w( ^8 ]) X/ n
RC_Tmp = p2_Index;
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);妖城在线论坛2 J4 _6 N; k0 w6 d
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;
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: D5 _& D3 ?8 w8 b4 k7 }5 e+ r
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);
return;bbs.mocwww.com" R8 C+ k. s. a
elseif (_Seqno==0 and _Data=='3') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' Z) E! B, C2 l; ]
--『给予魔币』bbs.mocwww.com, j  }3 ^) }8 y, y% N9 h" L, n
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
return;
elseif(_Seqno==0 and _Data=='4')then
SetDebug(p2_Index);
return;
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妖城在线论坛* @; s; @  \: F" v% \+ Y
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);+ F8 B9 Y6 I, x
end
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ n- P- v1 e$ |' {
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
妖城在线论坛( m6 Z) z) T. V' k' r
return;
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』魔力私服,最新魔力宝贝私服技术交流. i3 `; l2 H4 s/ }4 [; V1 v
NLG.Close_Socket(p2_Index);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! I+ x1 P8 U3 h4 N! K
return;
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" s& f. V) J7 x: {: W6 u7 [8 @! B
if (_Seqno==22 and _Select==1 and _Data~="") then
local pppp = split(_Data,",");% i. t9 [0 R. [+ A
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);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# {( r: N5 U. O' U8 P1 f
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);0 x/ P# G8 w- o( Z0 K9 C  C0 G! X0 e
end魔力私服,最新魔力宝贝私服技术交流/ G) N8 I  _. i1 Y
elseif (_Seqno==33 and _Select==1 and _Data~="") thenbbs.mocwww.com4 I4 J9 q, B0 x& O( V
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 then2 ^9 r% \& y) j3 [0 b  q
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);7 T" G; A1 F7 y. t  ]5 ?& Z
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);bbs.mocwww.com5 o2 p7 r. b. T5 W: {+ W! {, K& b
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& g8 C7 V9 X$ R  G/ ]# N0 [
elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流4 _2 D4 x/ M( S. t! m5 L
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
else魔力私服,最新魔力宝贝私服技术交流9 \" X" a4 U  q
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ f: k6 \# C8 i8 {
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—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( c$ l/ r8 ^3 c! o
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 o! ^3 V$ [- U1 d; I4 d; e
elsebbs.mocwww.com/ \1 f1 a- W: L6 N: F6 ^+ E
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end妖城在线论坛! B( R1 h% R% T- ]8 J
end妖城在线论坛3 W# Z3 K- C0 V0 [5 {. V- b, H; f
endbbs.mocwww.com1 i; d6 l" _# K% i" z

function SetDebug(CharIndex)妖城在线论坛$ Y4 g% D0 a' g0 b# y7 W
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end

Global_Reg.CharRightclick("Rightclick");) _: F7 R# f1 q. D) p( q# }3 n0 n
function Rightclick(p1,p2)1 Z' p3 q& U5 r
if p1 == p2 then
return;
end
bbs.mocwww.com9 E( j# A* x% J# T% P# ^! q
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　　　　　　　　　『查看资料』"..# O9 \8 O( i( x8 t4 x& [# L/ F
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..魔力私服,最新魔力宝贝私服技术交流5 v# L0 _4 ~! p  K5 K; v: [
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..bbs.mocwww.com& m& N( [% Y; \$ q1 m
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);3 B* W9 B  i* t) m6 i4 _
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 k+ X2 {* F& u& u; T$ }/ @% b$ E

return;
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' }9 m% N) V" y7 C, V3 Y
function Click_Init()
Click_MeIndex = nil;
WindowsTmpNpc_Init();
end3 R/ Q. j% ?3 A/ B( T
function initClick_Init(index)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, [% F4 h5 ^* O( o5 G
return 1;9 X0 S2 b2 {7 m% `5 X
end妖城在线论坛' [& |( U3 o* D- {8 f1 S
function split(str, split_char)
local sub_str_tab = {};
while (true) do, x4 u6 R9 s1 @: L
local pos = string.find(str, split_char);
if (not pos) then妖城在线论坛* H0 V3 {+ U7 X) U! F! c
sub_str_tab[#sub_str_tab + 1] = str;魔力私服,最新魔力宝贝私服技术交流- ?9 G* x) s+ h+ n, V1 I
break;
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! v! ?6 c  d5 j
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ f2 M- K' }* V4 z  L# Z
str = string.sub(str, pos + 1, #str);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 m- b  Y9 Q1 T, a! C5 e5 I: l
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 G  c6 q2 A* k( U" u
return sub_str_tab;
end

TOP

‹‹ 上一主题 | 下一主题 ››