打印

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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& d/ X: ]& f% h0 L$ Z$ _

Global_Reg.RegInit("Click_Init");$ _. ]9 R, ~* E
Click_MeIndex = 0;
local RC_P2;
local RC_Tmp = nil;
function WindowsTmpNpc_Init()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 c9 P8 y$ `- I* y) l2 c
if(Click_MeIndex == nil)then魔力私服,最新魔力宝贝私服技术交流* v$ T/ Z. x! t8 X5 R
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);魔力私服,最新魔力宝贝私服技术交流% X2 M9 ^& H! H' R' d+ Q
Char.SetData(Click_MeIndex, 2, 105254);  I) f# @5 U% i( I/ Y) C3 l
Char.SetData(Click_MeIndex, 3, 0);
Char.SetData(Click_MeIndex, 4, 777);魔力私服,最新魔力宝贝私服技术交流, F2 n- l  d" n6 w3 l2 P2 _3 i( U
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' k$ R) I9 d4 [- F4 k, P6 G9 A
Char.SetData(Click_MeIndex, 7, 5);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 J' L: X; g' l$ B
Char.SetData(Click_MeIndex, 2000, "ClickNpc");bbs.mocwww.com# k& w, Z& j8 }3 ~# W5 z, C
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) thenbbs.mocwww.com9 V) m* n( l% a, W# V
print("RCVal_Talked 注册事件失败。");bbs.mocwww.com8 t5 o+ K6 z5 p1 N
return false;bbs.mocwww.com0 w4 p1 _/ ^( X! h9 g8 C
endbbs.mocwww.com  T( ?9 |! f( C" v# [2 X: A
NpcIndex = Click_MeIndex;魔力私服,最新魔力宝贝私服技术交流/ n7 o, f! G7 S/ l1 u
InstallNpc("Click_MeIndex",Click_MeIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 N8 |) \" O+ ?) j8 p; V
bbs.mocwww.com$ j7 f- i& f6 X7 T
end% i) s) o/ B$ h+ L0 s7 l9 M
return true;
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 v9 X( R1 J2 j( I* n1 q
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);妖城在线论坛  K0 o( K( E+ \6 x9 W9 g( V

if (_Seqno==0 and _Data=='1') then魔力私服,最新魔力宝贝私服技术交流3 B4 K. U1 r: C" s$ ]2 z4 `
--『查看资料』
RC_Tmp = p2_Index;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! f: j0 l- o* t0 g. x$ m
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);bbs.mocwww.com" I2 g: d5 n3 V) M  i
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%);bbs.mocwww.com( Y; q& h. P+ Y5 _0 ?
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 l% C- d8 X) ]& x. E" U
return;魔力私服,最新魔力宝贝私服技术交流1 k$ a/ I. W1 y0 {+ y7 t
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 }8 W% q! \. w0 x$ j3 u1 K
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ L; k, R) H& R) Q5 y
return;
elseif (_Seqno==0 and _Data=='3') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 u6 F' M) x) L& V/ d
--『给予魔币』
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妖城在线论坛7 |* f3 Q( L5 j' \0 C* ?/ M
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' }" P9 }! d; q7 r2 u+ f
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end妖城在线论坛7 I# w, A) ^8 V3 |
return;
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);

return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 B- F- A: T2 j$ F. ]+ e
elseif (_Seqno==0 and _Data=='7') then3 x) i- U/ K  G
--『踢他下线』
NLG.Close_Socket(p2_Index);bbs.mocwww.com3 Q" q* Y5 w, ^5 l3 |9 ~
return;6 X) D- g0 u6 I4 P7 ]
end魔力私服,最新魔力宝贝私服技术交流2 k, }9 m2 O% l3 _
if (_Seqno==22 and _Select==1 and _Data~="") then妖城在线论坛/ w. o6 u! Z# m& B& k( v1 l
local pppp = split(_Data,",");魔力私服,最新魔力宝贝私服技术交流1 [3 ^) D* [2 h$ G
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
if type(giveitem) == "table" and  #giveitem > 0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' J" I% P0 [# j# A1 K2 _# ~1 Q
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛! I8 k0 g" P4 ^& o/ |
else魔力私服,最新魔力宝贝私服技术交流. k! ~; g. Z+ {- }# U
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! C2 U) C7 y; i6 ^
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 thenbbs.mocwww.com7 V" K$ E' s* G3 P& F4 x
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);魔力私服,最新魔力宝贝私服技术交流7 w( x, E8 ~0 D* N9 g1 `/ q
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* ]8 M' T! s3 ]- v6 A
else妖城在线论坛% t% N% i2 O- s* [; v
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);$ W* S5 ]- s# Q3 k  W6 I4 v; o# X% v
endbbs.mocwww.com$ S- U! f+ @' z4 q0 u+ }
elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流( r/ J* M( ^0 U3 ]
if NLG.GivePet(p2_Index,_Data) > 0 then妖城在线论坛1 C1 N2 s6 ]8 Q
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);魔力私服,最新魔力宝贝私服技术交流" F* M, i$ W; M0 v3 A+ l, @; j
else! n9 j$ N* \9 B+ J; |
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. H2 i+ j/ R' ]+ z: S+ R
end
elseif (_Seqno==55 and _Select==1 and _Data~="") then
local warp = split(_Data,",");魔力私服,最新魔力宝贝私服技术交流9 O' U8 U0 ?/ g$ y5 P  V
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. e; _5 {! j5 y  F
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com4 X$ v; Y& F3 @
endbbs.mocwww.com$ }+ R( a( x4 \, }
end' [, x1 G' Y  y' D
end# V0 t3 @- i$ O+ T" g3 o

function SetDebug(CharIndex)0 d" {7 g1 a; ]" y) g* A
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end

Global_Reg.CharRightclick("Rightclick");魔力私服,最新魔力宝贝私服技术交流1 G  E( `( E# I" {1 k2 A. d
function Rightclick(p1,p2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ A9 m: d- m' `( z3 U4 J
if p1 == p2 then% N3 x4 O, t% A+ z
return; 妖城在线论坛6 T& a, ~5 f. D' k' n' I! R4 K
end妖城在线论坛, S' {' k7 [+ z( C4 [. I
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 p4 a' ?& {3 O. ~# h
if NLG.Get_Char_Date(p1,145) == 1 then
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0, —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! |! G7 }5 U5 K% y" [: u! _6 c2 [
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..bbs.mocwww.com( |3 [3 X) G" _9 l9 c1 C
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 q; U/ N, o! n: M% P8 d
"\n　　　　　　　　　『给予魔币』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 ]1 A6 x5 Y+ z
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..妖城在线论坛- f+ e4 Z0 S0 H  L" a! f- B( X
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 n3 y/ S% c9 b4 P; M
妖城在线论坛. A( ]. j7 j! ~- E+ u
return;
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  Z8 Z9 i& U$ I
function Click_Init()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) M" ^3 E: U" ?! |& `
Click_MeIndex = nil;
WindowsTmpNpc_Init();—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ T. `5 Q3 O/ c
endbbs.mocwww.com3 N7 W2 M8 j# ]6 |+ S$ j
function initClick_Init(index)
return 1;. ^2 U$ @! a3 i
endbbs.mocwww.com# p2 y4 o8 b  ~# k0 b0 {
function split(str, split_char)bbs.mocwww.com4 K4 `- p% r/ q3 F& l7 U4 d
local sub_str_tab = {};
while (true) do
local pos = string.find(str, split_char);bbs.mocwww.com' [: {" F8 _$ _; e4 n2 L" E
if (not pos) then
sub_str_tab[#sub_str_tab + 1] = str;
break;
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);妖城在线论坛$ G9 `9 F3 ]/ s4 C, @
end
return sub_str_tab;bbs.mocwww.com. G, ^5 w, [: b( ?% I
end