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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* H  M) o7 T5 ^0 Q
Global_Reg.RegInit("Click_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 m% q- Q. N; L3 V9 i' M
Click_MeIndex = 0;
local RC_P2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ @$ M  `4 V9 Q
local RC_Tmp = nil;妖城在线论坛3 }$ g4 M2 Q( P7 N9 ?: ~6 x& }
function WindowsTmpNpc_Init()) @/ z% B$ N% C
if(Click_MeIndex == nil)then
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. ~% P* Y. X7 C) F# o4 t
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);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 Q( E) o; W7 f+ U; W, p
Char.SetData(Click_MeIndex, 2000, "ClickNpc");妖城在线论坛# b6 F6 U( Z, y$ I' E4 L
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then妖城在线论坛8 B; b5 b  y9 f( \9 y
print("RCVal_Talked 注册事件失败。");
return false;
end
NpcIndex = Click_MeIndex;魔力私服,最新魔力宝贝私服技术交流0 j2 V" c0 e& q% ?- Z% F3 H
InstallNpc("Click_MeIndex",Click_MeIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 S' [4 S7 O, X8 q1 ^
bbs.mocwww.com( u: I6 I1 ^6 k& z, U; ^
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& l! q; B( T& o  @, l8 ?' m( P+ U
return true;
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)妖城在线论坛% Y+ {* O: `7 R/ M
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
妖城在线论坛4 J3 @& O0 i2 s; T2 L
魔力私服,最新魔力宝贝私服技术交流  i5 t- t7 |" O4 v
if (_Seqno==0 and _Data=='1') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 Z& }" v$ P. N7 a6 D; ^3 P3 ?
--『查看资料』妖城在线论坛9 |: |( P5 a( {4 o5 p
RC_Tmp = p2_Index;妖城在线论坛7 o- j" s8 F7 ~0 O
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);7 V" W' r. k  k4 Z
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%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: |; @. w! ^" U+ u
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
return;
elseif (_Seqno==0 and _Data=='2') thenbbs.mocwww.com! ~% K0 U/ M* G
--『给予道具』妖城在线论坛' H7 }7 C5 u% H; H9 n; O" x; T
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. I* ?4 s* `2 r: |6 l7 d( _
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 ^2 }4 c+ m0 C7 a2 f! v( @
elseif (_Seqno==0 and _Data=='3') then# M* o) f* y7 k. Q
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);妖城在线论坛2 z2 U1 f. t; p6 N$ B0 }- Z: I
return;
elseif(_Seqno==0 and _Data=='4')then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& O+ M3 W6 B7 J% i' T! v
SetDebug(p2_Index);
return;
elseif (_Seqno==0 and _Data=='5') then妖城在线论坛9 r; N, N$ e+ }" P0 I0 S; ]
--『封关联号』
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: ^2 v, l- `+ Y8 C0 T# F3 U6 j
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
elsebbs.mocwww.com7 S5 {9 [% b0 s2 q. ~- d
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- _$ \  o5 T) W. }& r( o1 V
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力宝贝私服技术交流' j$ B, s2 I9 I' G1 w0 h, W
--『传送对象』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 b: j6 h4 ~& E; t7 C
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);bbs.mocwww.com; L$ v+ `( o( k3 z- T# V* t
魔力私服,最新魔力宝贝私服技术交流7 }2 P$ c9 E7 U) N
return;
elseif (_Seqno==0 and _Data=='7') then妖城在线论坛# O4 D3 _; ~" a( m
--『踢他下线』
NLG.Close_Socket(p2_Index);
return;魔力私服,最新魔力宝贝私服技术交流2 `3 @" H7 \- x$ p. m/ o. r4 f9 I# v
end魔力私服,最新魔力宝贝私服技术交流, c' d" [+ H$ p7 D& i2 Z
if (_Seqno==22 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; V" q  v3 p: m. Z  }1 k  P' O
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);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: C5 ?  P. T& P; N5 o: Y4 L
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then2 @: k9 _% o% F- n7 ]: R
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力宝贝私服技术交流% l% t! C) o" f, T5 l2 n
if gold <= 10000000 and gold >= 0 then* E0 w' ?$ e, n; o, Z! _$ Y8 e
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);bbs.mocwww.com  z/ N. g6 z; p1 w
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);妖城在线论坛; o+ C6 l* h4 p- {0 {+ h
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% U7 w" f; a8 j$ b
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then妖城在线论坛" |$ G$ d, e) i8 K; [; s+ J4 e( K7 M6 h
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 F  f: ~' w! ~
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);妖城在线论坛' R- B8 }# L/ z$ p' }; K
end
elseif (_Seqno==55 and _Select==1 and _Data~="") thenbbs.mocwww.com) B! w  |8 I; `/ s, n
local warp = split(_Data,",");妖城在线论坛) y3 W" u, @2 K! [
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 F7 i3 R5 ?! y; {% A- U
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);妖城在线论坛* I' A2 N& Y- l8 s; d, u- |
end
end
end妖城在线论坛6 t; s- t7 r+ s/ i8 E0 D
bbs.mocwww.com( ~9 k: d  N+ W: A
function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 v: m, a' ?1 P% _& `6 i  ^
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");妖城在线论坛' S' I, w8 T7 Y; |
end

Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2)
if p1 == p2 then
return; bbs.mocwww.com* t5 f8 G4 N1 a$ R+ F, H
end妖城在线论坛  _4 x6 _5 |6 P  s+ D

if NLG.Get_Char_Date(p1,145) == 1 then妖城在线论坛" d! u+ x* a) ~: b
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0, 2 X5 Z5 \( s5 |2 ^0 J
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..bbs.mocwww.com, u$ Y3 m8 H. e: ?# d/ s* A
"\n　　　　　　　　　『查看资料』"..
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..bbs.mocwww.com$ {; X. r: ?4 q! _
"\n　　　　　　　　　『封机器码』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ I7 ^( P0 p8 U+ p- q
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..bbs.mocwww.com& M+ P1 I* X$ H% ~" `# ?& k7 j
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);
end

return;
end
function Click_Init()妖城在线论坛4 O% W8 u! A- _$ Q& \" b
Click_MeIndex = nil;- z& r" B+ s. T
WindowsTmpNpc_Init();魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' N  |* M+ |6 \5 |  y
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; h, ?' \$ a' ]+ f' J
function initClick_Init(index)
return 1;
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" |9 ?0 e. e; Y/ ^
function split(str, split_char)魔力私服,最新魔力宝贝私服技术交流; k' d/ A; u& ?! U, H5 h
local sub_str_tab = {};
while (true) do
local pos = string.find(str, split_char);
if (not pos) then
sub_str_tab[#sub_str_tab + 1] = str;bbs.mocwww.com4 u5 ?; s$ H" y, L+ ]! l3 \! ^
break;bbs.mocwww.com+ M# s% }/ m) x; ^( ?7 W2 P
end
local sub_str = string.sub(str, 1, pos - 1); 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 j) ?+ u, W5 Q' F2 I' y2 v$ _. U) h
sub_str_tab[#sub_str_tab + 1] = sub_str;妖城在线论坛! A& N$ b. n7 T0 X1 D
str = string.sub(str, pos + 1, #str);
end妖城在线论坛5 s7 V; Z4 }: I' s
return sub_str_tab;' X- p% \& C) y% Z
end

TOP

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