打印

[魔力私服分享] 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");. V9 [& D' d* z. J% F0 S  ~
Click_MeIndex = 0;
local RC_P2;
local RC_Tmp = nil;魔力私服,最新魔力宝贝私服技术交流9 J/ f; R6 j! T. o/ [; i" ?
function WindowsTmpNpc_Init()
if(Click_MeIndex == nil)thenbbs.mocwww.com) W6 g& Y# B' C( W) x
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);
Char.SetData(Click_MeIndex, 5, 14);$ {: _# g4 j* E% p! l
Char.SetData(Click_MeIndex, 6, 13);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 J4 s! |1 K4 h0 T- U9 T; t) h
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力宝贝私服技术交流: }8 P; }+ q$ F( z
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) thenbbs.mocwww.com! d  k, I* r, c2 w% d, P( ]
print("RCVal_Talked 注册事件失败。");
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" X& q/ h, Q- S3 ]: G3 E+ Z
end
NpcIndex = Click_MeIndex;/ ?3 Q+ H3 n, |+ {' G
InstallNpc("Click_MeIndex",Click_MeIndex)魔力私服,最新魔力宝贝私服技术交流' {, Z( r! g% v+ i' H

end
return true;
end% p1 `. A4 O# [/ u+ m1 R# Q
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 x& J1 F; m  a2 ?5 O+ I! E
local p2_Index = RC_P2;妖城在线论坛. X( H. Z; V3 n/ t) j
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);* f# q4 ~6 N  q! T

if (_Seqno==0 and _Data=='1') then
--『查看资料』
RC_Tmp = p2_Index;
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);bbs.mocwww.com+ h# F7 f/ P  }
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;魔力私服,最新魔力宝贝私服技术交流; L" R* q8 Y* |7 M2 T
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);bbs.mocwww.com5 w. _2 R) n- r) s
return;妖城在线论坛0 R" r, I1 w4 [! D: x3 z
elseif (_Seqno==0 and _Data=='3') then
--『给予魔币』
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妖城在线论坛( Z2 u" L- ^& q  X
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. P# s" A. v" |3 Z( u
elsebbs.mocwww.com) U$ J- n6 [& m$ B; V, V
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end
return;
elseif (_Seqno==0 and _Data=='6') thenbbs.mocwww.com# h: g' ]' ^2 n  w1 _+ T
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);

return;
elseif (_Seqno==0 and _Data=='7') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 q  _) o  n" `  y5 [# e
--『踢他下线』
NLG.Close_Socket(p2_Index);魔力私服,最新魔力宝贝私服技术交流# q6 Z3 l0 g1 _3 `3 K: M
return;
endbbs.mocwww.com: v( n# _' t5 m' m- n* E7 Q3 V. G
if (_Seqno==22 and _Select==1 and _Data~="") then
local pppp = split(_Data,",");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ {" M1 H% Z* D) ]  B$ F& [
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
if type(giveitem) == "table" and  #giveitem > 0 thenbbs.mocwww.com: w% ^+ a3 b) M8 K3 b$ z# G
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else魔力私服,最新魔力宝贝私服技术交流  B; }9 h6 O6 H9 r+ i- A
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);妖城在线论坛. I. b3 u* j5 D2 Y' X2 U. I1 }
end魔力私服,最新魔力宝贝私服技术交流& h! @6 t: b) U+ J; W  o
elseif (_Seqno==33 and _Select==1 and _Data~="") thenbbs.mocwww.com1 h- s7 J; r, R  U
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# U8 h+ d2 i( |6 {# o
if gold <= 10000000 and gold >= 0 then妖城在线论坛4 U$ S/ r) B4 A- @6 H' `
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);* c0 N  O  T; p9 e  G8 m
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);bbs.mocwww.com, T+ o5 u" H- q
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 w" D6 j8 _/ @  [  l8 _5 M
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. T) t  `! c. L9 ~
if NLG.GivePet(p2_Index,_Data) > 0 thenbbs.mocwww.com% n. K! x. X! h' ?# @# N
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);妖城在线论坛) R3 W: R6 g+ ?# ^% m1 R+ G
else
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end魔力私服,最新魔力宝贝私服技术交流* z6 l) D' y& s6 T2 P; q
elseif (_Seqno==55 and _Select==1 and _Data~="") then
local warp = split(_Data,",");魔力私服,最新魔力宝贝私服技术交流3 q5 v( t3 C0 O: K6 n2 z* m
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛8 @+ t9 y. V, _: S" w5 a0 ?
else魔力私服,最新魔力宝贝私服技术交流2 x+ X9 D2 f* `9 Q" b" h
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end
end
end
妖城在线论坛4 ?0 F/ v' }$ g- h" y8 a
function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end
7 K9 S8 J: `$ G& v/ c7 c1 E
Global_Reg.CharRightclick("Rightclick");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 E3 z7 j' [. X# v8 L
function Rightclick(p1,p2)bbs.mocwww.com" ^0 x  n8 u9 e
if p1 == p2 then妖城在线论坛% r: h2 T/ V3 A5 h, A
return; —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 }8 W+ u0 B' ^: i2 T/ x/ u
end

if NLG.Get_Char_Date(p1,145) == 1 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- Y# N& [( U4 l! r4 \# P; |
RC_P2 = p2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& M3 r; a- C7 K( y0 H
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..妖城在线论坛& @8 {$ U$ W8 `, I) q* K7 l! M" U5 @
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力宝贝私服技术交流7 j9 E3 _$ _( y% [
"\n　　　　　　　　　『给予魔币』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ ^4 S! @) r0 b/ {
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( T; s' J, H! q  F
"\n　　　　　　　　　『传送对象』"..bbs.mocwww.com- w" g, T5 I" Z; m7 `# o
"\n　　　　　　　　　『踢他下线』",0 x6 E& E" |; m5 ~+ r9 @4 }3 e: Q0 ]
Click_MeIndex);
endbbs.mocwww.com; \. h2 ?5 X- N! a- v+ [1 ]
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 H& [  n6 P' _2 p9 @) a
return;
end魔力私服,最新魔力宝贝私服技术交流: j: P9 X1 N7 |
function Click_Init()
Click_MeIndex = nil;妖城在线论坛+ `/ w; ?  Z7 K1 q
WindowsTmpNpc_Init();
end
function initClick_Init(index)
return 1;魔力私服,最新魔力宝贝私服技术交流3 ?( |4 V' C2 v! ~2 H' \) E% C
end妖城在线论坛8 ~) z) i6 p% a4 Y# j. d
function split(str, split_char)8 ?- I1 m  x" @1 C5 A, H: J
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;
break;魔力私服,最新魔力宝贝私服技术交流5 }' R# c. g# J9 L* Z5 J) N
end
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);妖城在线论坛' x& p! h# I* D" `* G: q! {
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  Q# s' [' g+ X" @* u# x/ q
return sub_str_tab;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 l3 [; S0 i  ?: Z- g. M
end