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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人bbs.mocwww.com& K- Y; w0 S: E9 A3 k
2 S, p5 k8 \$ X8 A% B" t: J
Global_Reg.RegInit("Click_Init");
Click_MeIndex = 0;魔力私服,最新魔力宝贝私服技术交流4 m# r$ k9 \: E
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init(): d& n9 l$ n) Y+ K- D5 Q, s
if(Click_MeIndex == nil)then妖城在线论坛4 S0 b" a0 L* ^2 W, _, ^1 h3 L
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);魔力私服,最新魔力宝贝私服技术交流0 J1 J" V# i: x1 e
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);
Char.SetData(Click_MeIndex, 4, 777);妖城在线论坛1 V* {/ R5 m" P% t7 Z3 R
Char.SetData(Click_MeIndex, 5, 14);妖城在线论坛1 ~' l/ w1 \. ^" l
Char.SetData(Click_MeIndex, 6, 13);妖城在线论坛: N0 x; E7 ~9 @( M( B# \
Char.SetData(Click_MeIndex, 7, 5);妖城在线论坛7 G5 `. J3 J7 B$ D# u8 H
Char.SetData(Click_MeIndex, 2000, "ClickNpc");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, z3 S: V' X5 _  `6 m: d4 b' I( v
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) ]% G) k' B: B4 f5 [
print("RCVal_Talked 注册事件失败。");
return false;
end
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)

end
return true;
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% J, t3 w9 l0 E3 [; o9 e0 e
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  i7 r1 i5 t% ]9 W
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);妖城在线论坛6 a6 L3 C1 X- {5 l
bbs.mocwww.com) ~0 d+ E8 e6 S5 x  M3 m9 f

if (_Seqno==0 and _Data=='1') then魔力私服,最新魔力宝贝私服技术交流0 t. t7 ^; I8 U) i6 N
--『查看资料』
RC_Tmp = p2_Index;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: \& ], K3 P7 C' o4 O# i& ^' C
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);bbs.mocwww.com% J. K0 W' x. {8 X; 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%);
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
return;
elseif (_Seqno==0 and _Data=='2') then& `& G* X7 [9 Q( {1 _- `
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);妖城在线论坛- d3 F1 l) l- y
return;
elseif (_Seqno==0 and _Data=='3') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 s& d! }8 }6 h, Y3 {. v6 [
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);妖城在线论坛' t6 Z! I3 Z6 Y4 t  q6 W: Z. |9 d
return;
elseif(_Seqno==0 and _Data=='4')then
SetDebug(p2_Index);
return;6 r- [3 c- I. t, n9 E
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—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 [1 Q. u  |; T
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);bbs.mocwww.com( v: L: J+ i- K& G& w* t- f
else妖城在线论坛- F$ |1 B1 [" T$ C5 Y& R# Z
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end
return;
elseif (_Seqno==0 and _Data=='6') thenbbs.mocwww.com  z0 Z9 P5 d$ r
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
bbs.mocwww.com( P' @& j" X% W. u2 v
return;魔力私服,最新魔力宝贝私服技术交流" G7 p. N5 A8 `9 m% v, i3 p! {2 k
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』魔力私服,最新魔力宝贝私服技术交流, m: ~- n4 G) ^
NLG.Close_Socket(p2_Index);
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, x& x& q/ t5 c$ S
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—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 d4 M5 |% U+ `9 k, {; X
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! U$ V: Z3 C- V, C
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 then妖城在线论坛; g0 Z9 w% E" }( w; ]
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);bbs.mocwww.com5 |2 A5 T, o2 u
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);魔力私服,最新魔力宝贝私服技术交流- {$ h7 [% w2 P
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 j# Y8 o1 [) ?
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, ^0 S! _9 G. f8 k
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then! `0 ?% O; R# x2 r/ l4 p, d# i: ?8 |+ `
if NLG.GivePet(p2_Index,_Data) > 0 then魔力私服,最新魔力宝贝私服技术交流) g7 p" g' ]9 w3 `( u, z( X
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
endbbs.mocwww.com( A! Z/ I2 M1 K* `3 s
elseif (_Seqno==55 and _Select==1 and _Data~="") then
local warp = split(_Data,",");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# w5 X; K' R3 {) N; J4 M
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else妖城在线论坛# c, G' I9 G) `1 g& Z5 U. t
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 Z' H  [0 g+ p+ N9 B7 A! g
end

function SetDebug(CharIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. S# x, H8 q9 H0 |3 @
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);3 j1 D5 Z( r+ x+ G
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; s$ H* p6 l& G# _
Global_Reg.CharRightclick("Rightclick");  `: `! j! H$ p2 L" x8 }
function Rightclick(p1,p2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, P7 u( T- N3 H' p/ R
if p1 == p2 then
return; 魔力私服,最新魔力宝贝私服技术交流; k4 e! \, [2 I( o
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; y1 o5 k& V. u" ^

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　　　　　　　　　『查看资料』"..bbs.mocwww.com( x' q9 ]* m# o/ X0 ^% \, v0 {" U
"\n　　　　　　　　　『给予道具』"..bbs.mocwww.com$ k% \' T' x8 t6 Q" T+ t
"\n　　　　　　　　　『给予魔币』"..bbs.mocwww.com/ p7 d& b& x0 I
"\n　　　　　　　　　『封机器码』"..bbs.mocwww.com7 u' J4 m7 {% q$ u3 r( i6 G
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& ^  Z9 [* b: K* g" S& V/ W8 J
Click_MeIndex);妖城在线论坛8 N8 X- _, b2 P' J2 c$ }
endbbs.mocwww.com+ L  d, E" I# U; l. k; U, `4 t; v
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 D: V' n  m1 t7 _7 K6 U. Q
return; & h- D5 w! b  ]; U7 {
end7 D9 r. G% L  M7 A& e) ~+ ^
function Click_Init()
Click_MeIndex = nil;魔力私服,最新魔力宝贝私服技术交流0 Y+ b1 g5 U; A0 ?/ S" X) @; I
WindowsTmpNpc_Init();
end
function initClick_Init(index)魔力私服,最新魔力宝贝私服技术交流& A9 U" k: X: Y8 v: j
return 1;
end
function split(str, split_char)% F% X+ D1 O& O& t2 P' b  p1 }0 j
local sub_str_tab = {};妖城在线论坛/ v' u+ c- U$ u& z& [" h
while (true) do
local pos = string.find(str, split_char);妖城在线论坛& c# X/ f- [7 |& @( y1 c) b4 J
if (not pos) then
sub_str_tab[#sub_str_tab + 1] = str;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 l& A% N5 o# S/ Q; _# e
break;2 ~7 @- _- K' H9 U; {1 F
end
local sub_str = string.sub(str, 1, pos - 1); 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( J& G/ n+ T) x4 C2 Z! k5 X
sub_str_tab[#sub_str_tab + 1] = sub_str;魔力私服,最新魔力宝贝私服技术交流- N( ?' p1 N0 Y, _7 B5 k7 [0 ~; u
str = string.sub(str, pos + 1, #str);
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  i+ h/ F& x& Y% z, [
return sub_str_tab;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 r1 n7 y9 q& p$ h2 f
end

TOP

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