打印

[魔力私服分享] 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+ k3 T( Q, D- {; E
Global_Reg.RegInit("Click_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  ?2 m( G& T! ?8 z: H2 Q
Click_MeIndex = 0;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) w0 S6 P2 S4 H$ k+ v
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 L) @0 X3 n; z0 P# m
if(Click_MeIndex == nil)then
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: N7 w3 X1 A6 y( S& t' R( n
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);妖城在线论坛& n( Z% r; G0 i
Char.SetData(Click_MeIndex, 4, 777);
Char.SetData(Click_MeIndex, 5, 14);bbs.mocwww.com. w9 H9 y, d: n  h$ Z- d
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");bbs.mocwww.com1 q5 u% H* t; ~& a8 C' [
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then魔力私服,最新魔力宝贝私服技术交流/ A8 z8 z' n4 q* l; L3 _' ]
print("RCVal_Talked 注册事件失败。");
return false;
end6 w2 p; B( q& ~8 U
NpcIndex = Click_MeIndex;魔力私服,最新魔力宝贝私服技术交流" g) S* r8 w& T
InstallNpc("Click_MeIndex",Click_MeIndex)
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 ^" t3 w% E$ p: Y6 _- m( ]
end
return true;
endbbs.mocwww.com* U: G5 [5 V) j' m( ~) \( ^
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)bbs.mocwww.com9 S, R, j9 y1 k1 U) w& ~6 y* T
local p2_Index = RC_P2;魔力私服,最新魔力宝贝私服技术交流( L2 \; z$ k$ f7 W1 e2 v/ b+ v. C- r
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);

if (_Seqno==0 and _Data=='1') then妖城在线论坛: C, h) g' k' _* b) r  e$ C1 N
--『查看资料』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 \. F8 V9 D/ w/ `
RC_Tmp = p2_Index;. M3 K% L1 `; `8 Y' X# q0 p& k1 R
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);妖城在线论坛+ I" [  m# Z9 O" M9 P  d! X
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%);  s% J: h% a7 H; ?- O) a4 R
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
return;
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);妖城在线论坛5 X6 [+ o  s2 R  x- u0 P; `
return;
elseif (_Seqno==0 and _Data=='3') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ U+ O; T$ _3 g; d
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 b6 Y& S/ W8 P4 w/ V$ ~6 Z; i
return;
elseif(_Seqno==0 and _Data=='4')then1 W2 M/ |6 Y$ g5 |# z8 Q
SetDebug(p2_Index);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. K5 w8 |0 U7 Q/ m
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- Y  u: x% |9 i! l
elseif (_Seqno==0 and _Data=='5') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: N4 ^+ A# I% \& A" ]$ P
--『封关联号』
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
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; s9 L7 z1 t1 I
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end
return;
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』8 Z- n3 U% {5 E; b" v0 S+ m
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);bbs.mocwww.com$ _5 g) T' V2 q% s8 _0 _! O+ p

return;妖城在线论坛5 X) |) Z  u+ e: S/ P% v8 f
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. t5 L; _" _. u7 J4 v( Q
NLG.Close_Socket(p2_Index);
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ `" L9 C* O, z1 P* P) z# |2 x
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  N2 T, A- Y9 o4 G: A/ I
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魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& G" |& Z* n* t
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);$ @, i4 B8 a. {: e# ^# a0 j
else妖城在线论坛$ ]% t6 K# v0 W# i% C4 [' M" k
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);9 y, `0 o- [0 u+ X$ b1 Z/ R
end% M' Q7 p4 x7 V" J- J" x; U
elseif (_Seqno==33 and _Select==1 and _Data~="") thenbbs.mocwww.com! W0 d$ [9 C" n* e+ u3 V( |
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;# R- ?( X. M9 O( a
if gold <= 10000000 and gold >= 0 then魔力私服,最新魔力宝贝私服技术交流# x! m1 U0 `7 o
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);妖城在线论坛) H# f. Q+ ]6 e9 T1 h2 ?
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);bbs.mocwww.com6 p8 I. o& ~7 ^# i& X
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' `4 X3 s" k6 M2 D* C% M
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
else妖城在线论坛  E+ ^6 j1 i5 U
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);bbs.mocwww.com) V# k2 G7 B- l+ h
end妖城在线论坛& l8 s( X% L0 w0 n8 p* v9 |
elseif (_Seqno==55 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 g& X: Z! F4 L
local warp = split(_Data,",");
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then: F/ q( `4 D2 ~2 a) f- O8 L
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);bbs.mocwww.com/ c1 E) Z$ Q# U+ e6 Z
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end魔力私服,最新魔力宝贝私服技术交流0 {2 V, o0 v) G: Z% F
endbbs.mocwww.com8 Q7 A, f; a8 I- ~1 O
end' a) Z  I4 n: u* @5 P3 n

function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);妖城在线论坛$ b* h) }  n/ P; o" v) k7 @4 ^
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
return;
end魔力私服,最新魔力宝贝私服技术交流4 E' A/ F! F  T, c8 h- C" z
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; x# {$ z7 Z2 O' z6 T8 G
if NLG.Get_Char_Date(p1,145) == 1 then4 {% t2 N" @$ n* I% C; ~. Z% d
RC_P2 = p2;魔力私服,最新魔力宝贝私服技术交流# I2 k# @3 P  O* @: R6 d+ u" i
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 ?" d5 M( i! Q) E( c2 Y$ R0 K6 p
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ ^9 z1 z* o3 N6 g
"\n　　　　　　　　　『封机器码』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 B; p1 b. [4 l( k/ m
"\n　　　　　　　　　『封关联号』"..魔力私服,最新魔力宝贝私服技术交流8 W, t8 O2 T7 ?9 P9 b
"\n　　　　　　　　　『传送对象』"..( A; Z! s# q( R0 V+ K5 b  ^  Z7 L& X
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);魔力私服,最新魔力宝贝私服技术交流" n( i$ `. S( h/ O7 Q- a7 w
end: W+ Q- Z* i% [) a! }  Q

return; 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; F* \) [+ Q! s  a, V0 q( q# W9 J- k
end魔力私服,最新魔力宝贝私服技术交流4 G$ s! g% J" n+ f0 v
function Click_Init()
Click_MeIndex = nil;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( a6 y1 ?4 X- P. e  }: F- a$ e
WindowsTmpNpc_Init();
end魔力私服,最新魔力宝贝私服技术交流8 b3 A! y1 ?$ F0 x7 i) F2 m7 q
function initClick_Init(index)
return 1;
end
function split(str, split_char)
local sub_str_tab = {};—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ A; Q' |8 Q& X+ H& O
while (true) do
local pos = string.find(str, split_char);
if (not pos) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  [+ k2 z$ g# z& o) A
sub_str_tab[#sub_str_tab + 1] = str;
break;魔力私服,最新魔力宝贝私服技术交流* N( N7 b, |0 P2 g( ~  U
end
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;魔力私服,最新魔力宝贝私服技术交流) Z; g6 T4 ?* b1 q5 s$ E
str = string.sub(str, pos + 1, #str);
end
return sub_str_tab;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; D$ A1 O: ?0 P! B% t( H& }  k
end