打印

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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! C, ^# f# G; d: n: V
Global_Reg.RegInit("Click_Init");9 R* J8 J7 ^1 K' e) V
Click_MeIndex = 0;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ W7 F' i& e* l3 I( V: ~- o
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()
if(Click_MeIndex == nil)then
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);
Char.SetData(Click_MeIndex, 6, 13);bbs.mocwww.com6 ]# j) _; m. `
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 J& J+ `0 D2 A3 h9 T) R
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");
return false;
end
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)

end& A+ e. o% ^& r- _, P
return true;
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' B( J' b% l3 F" }9 n" q' D1 L, m
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)魔力私服,最新魔力宝贝私服技术交流" Q5 }' [4 h+ {5 g4 W
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
妖城在线论坛" H6 ?0 T& b( w4 V7 y

if (_Seqno==0 and _Data=='1') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 \3 H& b, }. E1 ?, r6 f; c3 P) z
--『查看资料』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- L. g! C: U8 |; D0 d
RC_Tmp = p2_Index;
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);魔力私服,最新魔力宝贝私服技术交流0 @3 h1 m5 w7 \/ |9 ]" A
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);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 a& e! ^4 @/ n5 U) r6 X& @( b' T
return;
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』bbs.mocwww.com- M0 k, {/ U' a5 W! b0 v2 C
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) E. L5 H6 E2 X" |
return;
elseif (_Seqno==0 and _Data=='3') then
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; n$ l1 h% P  ]# T; n5 r( v' t
return;
elseif(_Seqno==0 and _Data=='4')then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 v& n2 J) x- ]6 z# d
SetDebug(p2_Index);妖城在线论坛& z% h. _& g5 M- s6 j( X
return;魔力私服,最新魔力宝贝私服技术交流- l* M+ h. }0 ^: [, }; }  A
elseif (_Seqno==0 and _Data=='5') then" ~( S9 r" v5 `2 j1 _. [: B3 \8 T  \
--『封关联号』
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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 b7 F2 e" S, q% o+ B- g# [9 }
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);魔力私服,最新魔力宝贝私服技术交流% U; F) D: [3 j+ d0 X7 S
end
return;
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);

return;bbs.mocwww.com1 R# }" m5 q% l: K/ Y) G, }
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』
NLG.Close_Socket(p2_Index);
return;
end
if (_Seqno==22 and _Select==1 and _Data~="") then
local pppp = split(_Data,",");妖城在线论坛  }6 }5 Y1 d8 c% r' c, P8 l2 G2 L
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));# }7 m8 ^6 U8 g( {  t8 c; k
if type(giveitem) == "table" and  #giveitem > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛7 N$ G9 W8 Z; J$ q0 z- d0 a# s; M
else6 V7 l) N1 h, K' J
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end) u% k% U$ g  j4 x1 |$ G9 d4 L
elseif (_Seqno==33 and _Select==1 and _Data~="") thenbbs.mocwww.com6 O6 i3 E  }7 F6 O$ t  Q$ N2 x7 U+ K
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 then魔力私服,最新魔力宝贝私服技术交流9 X$ h, i7 D; W( _0 ]
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 V* Q" d3 u- u9 l) I: X. K; [0 b
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: h- ^1 ^# {* w/ @9 W) \3 {
else魔力私服,最新魔力宝贝私服技术交流5 G2 W2 i$ T6 d* v$ j
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);魔力私服,最新魔力宝贝私服技术交流& S0 r6 V# I2 G" s6 |
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- b9 p& _$ G3 Q# h, T, `/ q# F$ N
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then妖城在线论坛, m" Y; C( m9 a' \/ p
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. P  T& t+ l% ~# G. `( O
else
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);魔力私服,最新魔力宝贝私服技术交流& L; Z7 F1 l5 z) I6 A
end
elseif (_Seqno==55 and _Select==1 and _Data~="") thenbbs.mocwww.com8 m- U& G1 T! a6 j) I# E
local warp = split(_Data,",");bbs.mocwww.com$ l( @  r$ K* D8 F3 U
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) `. h' ~5 o- M
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  o9 o' F2 x; w8 U' v- g+ R
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
endbbs.mocwww.com/ v0 a' |- V1 k* p2 [" v$ F6 u- y: a
end5 Q; v" U4 j- ?3 `- G7 p# T( A
end
魔力私服,最新魔力宝贝私服技术交流/ L) e( H  d' V/ }. U
function SetDebug(CharIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 o8 R( |* Q2 b
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* h8 s$ c* C+ Q2 N) P7 f4 k( z
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# j7 z/ F$ ^$ E; N; P
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( O- m8 B% x' I5 U2 w. Q
Global_Reg.CharRightclick("Rightclick");妖城在线论坛% _/ V' o, c8 Q& Z: B3 o- {
function Rightclick(p1,p2)
if p1 == p2 thenbbs.mocwww.com: v' Y- a# Z; v' U# t. d3 r
return; —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( e6 ^& i+ v8 u" t( K" m
end
' H: ]7 T% ?# w: g9 x) M' w% w
if NLG.Get_Char_Date(p1,145) == 1 then
RC_P2 = p2;bbs.mocwww.com4 d* H9 {5 K2 E* C, t
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..bbs.mocwww.com6 s* L% O1 E7 a: m
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& K. R1 R1 }; u3 U5 s
"\n　　　　　　　　　『给予魔币』"..bbs.mocwww.com0 _6 ^" C$ B+ g: Z* r" I; S# r
"\n　　　　　　　　　『封机器码』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 j5 u, V: }* ^7 I5 B* b
"\n　　　　　　　　　『封关联号』"..魔力私服,最新魔力宝贝私服技术交流/ J  y3 Y! H3 B6 w, |+ Q- M* {
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 ]% k9 R3 h+ q; [
end! @+ Z- k. D' }. c

return;
end
function Click_Init()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. l3 b. l  n& s2 a0 n6 x" n- p
Click_MeIndex = nil;
WindowsTmpNpc_Init();魔力私服,最新魔力宝贝私服技术交流# C0 w' `" w7 ?
end/ G- N7 e' ^: z9 \( U
function initClick_Init(index)妖城在线论坛, p' d/ s7 h- P% x% x; t
return 1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ g  F% k$ V6 L7 U
endbbs.mocwww.com. g$ l% y; v. L1 }- d- x/ E
function split(str, split_char)
local sub_str_tab = {};bbs.mocwww.com1 K. Z3 z1 s8 p) h9 Z
while (true) do
local pos = string.find(str, split_char);
if (not pos) then; j' T- D' U: U- d' ?. J2 V8 u! t
sub_str_tab[#sub_str_tab + 1] = str;bbs.mocwww.com5 V8 `) s" A7 X' ~, J
break;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. A* F7 w! g- c" l' W/ O
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& I6 n" f% x& [8 b6 \2 W  H
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;, d) E6 H2 Y+ M' D# m8 }
str = string.sub(str, pos + 1, #str);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! `% v% d/ z  |( H2 q8 b
end妖城在线论坛# ^$ z, s  D- I* Z; ?5 J$ r
return sub_str_tab;
end