打印

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

escaflowne1985

小妖

Rank: 1

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

阁楼大中小发表于 2018-8-4 23:25 只看该作者

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( I, S) V" `4 C7 L0 a% i9 V4 b( C2 x
魔力私服,最新魔力宝贝私服技术交流. d- V4 J- E% x8 `& U' q
Global_Reg.RegInit("Click_Init");
Click_MeIndex = 0;
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()妖城在线论坛8 I( @; c; m4 ?$ e8 d- `
if(Click_MeIndex == nil)then
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);妖城在线论坛1 X5 F( q3 d4 Z" b: j# |/ e- a- M5 O0 Y
Char.SetData(Click_MeIndex, 2, 105254);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 v9 l  Y2 k9 [# t
Char.SetData(Click_MeIndex, 3, 0);魔力私服,最新魔力宝贝私服技术交流7 R% o( Q: B0 E# C0 x0 K/ L6 G
Char.SetData(Click_MeIndex, 4, 777);bbs.mocwww.com5 X* I  l4 c- `4 c8 O) }9 d3 u  e( }
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);妖城在线论坛) ~/ \  j& t/ X& f( |
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- `: h0 k' a& j& U
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: x3 ?4 h/ n% R2 Z3 e% O
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& r: O, g7 N$ A4 W: D2 J
NpcIndex = Click_MeIndex;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ w2 _3 X/ N+ L- R
InstallNpc("Click_MeIndex",Click_MeIndex)

end妖城在线论坛* b4 Y9 B+ j0 y8 P, ?
return true;bbs.mocwww.com; v+ D8 ~7 l; _, ?, H
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 i7 ^3 Q5 S; t# z  y, L+ i
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% F9 d( p2 I* }7 f
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);

if (_Seqno==0 and _Data=='1') then
--『查看资料』
RC_Tmp = p2_Index;9 i+ j! B. j3 {' M
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) ]# ^7 J3 o7 ?$ 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);  k  d! d% W2 S$ i, w  F3 w9 g
return;bbs.mocwww.com3 d. @4 h! W7 L
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);魔力私服,最新魔力宝贝私服技术交流: @! `  ]2 V2 E
return;
elseif (_Seqno==0 and _Data=='3') then
--『给予魔币』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 N1 _7 {8 @0 D( ^2 b  ~
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
return;
elseif(_Seqno==0 and _Data=='4')then妖城在线论坛' l. R6 W2 M% E% W# d
SetDebug(p2_Index);
return;魔力私服,最新魔力宝贝私服技术交流  T* K+ z" d9 i" O. r; t
elseif (_Seqno==0 and _Data=='5') thenbbs.mocwww.com2 x% |0 w# i1 j. |: V0 |0 R
--『封关联号』
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; y; H% y. [  r7 q
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; E' i2 {- g, Y- R; X' R
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);bbs.mocwww.com! q  q- E2 x( S0 ~8 A
end7 f3 K4 |" W' }6 T$ H1 R5 j
return;bbs.mocwww.com+ E) J, W4 t& J) h5 x
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』魔力私服,最新魔力宝贝私服技术交流9 X+ w, ?5 Q% |: e! L: K
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);: ~4 v0 f  d- a& f' Z; h

return;
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 L: ~" q. y  w2 v. `( L4 k
NLG.Close_Socket(p2_Index);妖城在线论坛' r6 h( N% {, j4 J
return;
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 Z1 b4 \8 ]& q5 B' c4 a
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]));/ x% t& \- p0 I* [
if type(giveitem) == "table" and  #giveitem > 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ P7 B: s4 d! N% D4 s
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);bbs.mocwww.com8 R# V( B/ {8 M
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com. r' P* w9 {! C6 e0 K
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. V( l, N0 j1 ]- ^! ^7 I& |: c  O
elseif (_Seqno==33 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- ~7 L$ j7 r1 G; |* _
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;妖城在线论坛1 g4 z2 a: A* }- {* c$ z0 e
if gold <= 10000000 and gold >= 0 then
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);bbs.mocwww.com9 P+ a% z& f# {
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力宝贝私服技术交流* V( E: Y, H% _& b* C8 y) U  b6 Y
else魔力私服,最新魔力宝贝私服技术交流6 g  k9 M- a. i( K6 J8 ]9 B
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 v+ K& h1 S/ D; o  o
elseif (_Seqno==44 and _Select==1 and _Data~="") then妖城在线论坛: i2 h$ \7 c/ X7 S- _6 O/ j1 K
if NLG.GivePet(p2_Index,_Data) > 0 then魔力私服,最新魔力宝贝私服技术交流0 s( n4 ^* f- B, c* Z' G
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  o# q" N, r' y5 x& u
else妖城在线论坛0 D2 Z2 e& V; w
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);- v& \# Z5 P3 I7 l5 L: `
end
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
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛( u" P, F3 r5 V+ T5 }! j6 S
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com- o9 H- Q8 R/ [" {
end
end
endbbs.mocwww.com: l7 x1 p; J, P/ V4 x5 X+ v  ]
魔力私服,最新魔力宝贝私服技术交流' [5 Q" i% d1 Y7 o9 m5 A
function SetDebug(CharIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 Z7 T- i$ Z  o; c+ z7 ?% s! H, X4 n$ j) t
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);. D" I: h$ V4 d6 |8 X# y
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end

Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2)
if p1 == p2 then魔力私服,最新魔力宝贝私服技术交流/ O5 O  k. Y; Y0 A5 b
return; 魔力私服,最新魔力宝贝私服技术交流; X& G* o8 r5 p! Z) C3 k( o. u
end妖城在线论坛  z7 v4 F4 t5 E& c* n( q
魔力私服,最新魔力宝贝私服技术交流, s  ^- E8 O. }+ [- \
if NLG.Get_Char_Date(p1,145) == 1 thenbbs.mocwww.com0 y. S/ l* h' Y0 O/ T
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0, 妖城在线论坛( s  A! H+ }1 r* W" N2 U+ p
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..妖城在线论坛1 V+ t2 \! c" ]0 i# N
"\n　　　　　　　　　『查看资料』"..妖城在线论坛* L: W7 k$ a/ C) ]8 o8 Z- E% j" R
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..5 N0 K$ x: p; A- x) A& ?- y, A* s+ q6 P
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- R& t/ i& y# v+ f' }  \
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);魔力私服,最新魔力宝贝私服技术交流$ ~% O+ y* u9 ?" v: k! f' P0 h: O0 r
end
bbs.mocwww.com: G1 C1 U' M/ j8 E* z' Z
return;
end
function Click_Init(). \1 h- @) W, W" R0 o# l+ v* r- u& D
Click_MeIndex = nil;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 g8 s1 `3 P8 n  A3 A/ \$ ~9 T
WindowsTmpNpc_Init();
end
function initClick_Init(index)
return 1;
end
function split(str, split_char)
local sub_str_tab = {};魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- q% M" H% V" X/ _) I0 `% P
while (true) do魔力私服,最新魔力宝贝私服技术交流5 D; s: r- U9 b/ j+ f# ^
local pos = string.find(str, split_char);
if (not pos) then妖城在线论坛0 i- B) o/ c/ r1 P
sub_str_tab[#sub_str_tab + 1] = str;bbs.mocwww.com& p/ X+ d7 l# R1 s7 r; ^* u. ?
break;妖城在线论坛8 `' \$ v- J) W' ]! d
end魔力私服,最新魔力宝贝私服技术交流& z* J7 s' n; w! ]" r) Q
local sub_str = string.sub(str, 1, pos - 1); 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( w/ z8 T0 `5 M+ T0 f: x; c) p; Q
sub_str_tab[#sub_str_tab + 1] = sub_str;
str = string.sub(str, pos + 1, #str);
end
return sub_str_tab;
end