打印

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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人2 F0 J  X0 _" f0 Y- P& R

Global_Reg.RegInit("Click_Init");妖城在线论坛5 C$ k  s& g- K: {- |3 k% K7 }+ a
Click_MeIndex = 0;魔力私服,最新魔力宝贝私服技术交流% V$ ~" I' I# Z0 ]) m
local RC_P2;
local RC_Tmp = nil;妖城在线论坛3 u. F+ e9 ?& |: p4 q
function WindowsTmpNpc_Init()妖城在线论坛/ X+ z  O4 v( A6 J
if(Click_MeIndex == nil)then妖城在线论坛8 c5 n8 O& u, O1 c/ x
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");. T; ^% j9 O. Z) V0 _/ {7 s
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);妖城在线论坛6 i3 t& U$ q+ F3 _8 z- W0 L
Char.SetData(Click_MeIndex, 3, 0);
Char.SetData(Click_MeIndex, 4, 777);
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& Z0 u7 z8 u0 o* V  L  r' l
Char.SetData(Click_MeIndex, 2000, "ClickNpc");魔力私服,最新魔力宝贝私服技术交流/ d* b6 d) i8 \3 B
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ d/ V5 o% A% }
return false;
end妖城在线论坛$ {* M3 K) m& }9 M0 ?3 x. K7 E, ]7 u/ x
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)

end& s1 m6 y8 A; {" x- H
return true;
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);

if (_Seqno==0 and _Data=='1') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 ~2 `, b$ Y* [* Q/ K+ P9 }; }
--『查看资料』
RC_Tmp = p2_Index;
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( C0 @8 l$ Z; v# y; j* ^+ O
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,电影,黑客,网络,网吧,破解,入侵,注册表+ }6 a! b/ N- D7 `
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ ^8 G; i4 V/ ~- F( [
elseif (_Seqno==0 and _Data=='2') then" f  ~  e# t% U  r% Y
--『给予道具』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);6 A+ W1 d. x" }
return;bbs.mocwww.com* ]3 Q4 }) u: K3 B
elseif (_Seqno==0 and _Data=='3') then
--『给予魔币』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! n4 x8 A/ ?$ S* y- V! Q
elseif(_Seqno==0 and _Data=='4')then
SetDebug(p2_Index);
return;7 l5 G# E; A2 R) _# w/ @" R
elseif (_Seqno==0 and _Data=='5') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ n% O! A8 @& ?' R9 y6 v& e
--『封关联号』
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妖城在线论坛8 s! c9 {/ Y6 D7 N0 O9 Z" h  `
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end* Z& Y2 N$ V1 N4 H* y
return;bbs.mocwww.com# p  `: k' G9 y9 E
elseif (_Seqno==0 and _Data=='6') then
--『传送对象』" B' l. @" j4 ^6 m
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' K7 x) y% c7 j2 L7 n
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ m6 L; @1 \  }% g
return;
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』
NLG.Close_Socket(p2_Index);bbs.mocwww.com0 c& v' ^+ T; q5 a' W0 B
return;
endbbs.mocwww.com) q6 i0 e) j. o- y
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]));" ]* @# j- D0 @: ]4 T' G  R
if type(giveitem) == "table" and  #giveitem > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else魔力私服,最新魔力宝贝私服技术交流  V% f" s# V/ H" d2 c+ T4 c: A
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);妖城在线论坛! j: h* l" J) B- c
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力宝贝私服技术交流9 C" w3 u: i- ?: H4 X* y% B7 Z3 n
if gold <= 10000000 and gold >= 0 then
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' s5 a7 N" ~  E, l9 U% b8 z
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- ?1 j( [1 t" c$ T+ J
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);魔力私服,最新魔力宝贝私服技术交流, B5 P1 S/ c: B/ `, i
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' v0 ?5 {# d: Y3 l& V% O
else魔力私服,最新魔力宝贝私服技术交流. n& g1 S9 h9 a
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end
elseif (_Seqno==55 and _Select==1 and _Data~="") thenbbs.mocwww.com$ {  o1 k! p% r9 I) t# e, ~
local warp = split(_Data,",");妖城在线论坛* ]/ P+ F) w+ h
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then, n  a7 ^- X+ K# i% m8 B
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 W# f: K" J# \8 }+ a# O6 ?
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ X9 F9 I) T* e% Z
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 S9 T3 b9 Q8 k6 ?
end
妖城在线论坛* |2 F; E# _$ F7 k  `8 ^
function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 x- j; y% B& P: L5 j& _" [- w
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");1 K2 q9 u: k* D# @- w9 ]( }; J' y+ U
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; N7 ]& U& A6 D% g) ~; P: a$ z
妖城在线论坛  N6 ^; }' c% Q5 o: L6 g+ V( o2 X) R, L1 H
Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2)
if p1 == p2 then魔力私服,最新魔力宝贝私服技术交流- w$ U( W( s( N; h6 T
return;
end妖城在线论坛$ o7 {4 @  D0 Z: V( b' x; e2 w
妖城在线论坛: N6 c$ X$ R0 W( D' {+ @* v+ I( C
if NLG.Get_Char_Date(p1,145) == 1 then0 L% Z( D7 B5 K1 n2 R
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0, 2 r" J6 V, I/ o+ X0 ^: B4 u- c( n" i
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
"\n　　　　　　　　　『查看资料』"..
"\n　　　　　　　　　『给予道具』"..
"\n　　　　　　　　　『给予魔币』"..
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..魔力私服,最新魔力宝贝私服技术交流1 R& b) K* Z# H0 k" S' y3 n3 S
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",妖城在线论坛  a) ~* Y: d" @$ U" I
Click_MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 D1 w% w2 G. \2 M5 D) q7 h) p
end

return;
end妖城在线论坛3 B8 B* G& O5 F9 I+ ?
function Click_Init()3 ~5 E$ l4 [1 G* w, L" H8 H
Click_MeIndex = nil;魔力私服,最新魔力宝贝私服技术交流/ `# @& r; J" G2 M8 q3 T" P5 v- Z
WindowsTmpNpc_Init();
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, W# \5 `7 d( k% ^5 c  q" m
function initClick_Init(index)bbs.mocwww.com+ J4 M- v1 h# w5 C, t! M
return 1;3 Z5 u& u' \  k( z, v/ ~7 r4 p
endbbs.mocwww.com/ ]" W1 C! w& `! f
function split(str, split_char)魔力私服,最新魔力宝贝私服技术交流7 v% |( @  Y1 o: P2 f
local sub_str_tab = {};—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 E2 T! c1 V' e6 t; v# j& h  q
while (true) do魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ J0 i+ m4 G/ X% G. e. {1 I
local pos = string.find(str, split_char);- C! \1 d+ e9 ~' p! r& l5 N! h
if (not pos) thenbbs.mocwww.com7 j1 V: j0 z& ~9 @" `: T
sub_str_tab[#sub_str_tab + 1] = str;
break;
end妖城在线论坛& o' o- ]3 V+ s" y* ^0 Q: }
local sub_str = string.sub(str, 1, pos - 1); bbs.mocwww.com0 g! d5 \! C: ^' ]! {. ?" M
sub_str_tab[#sub_str_tab + 1] = sub_str;
str = string.sub(str, pos + 1, #str);
end魔力私服,最新魔力宝贝私服技术交流; ?- R. ^+ H- L+ b$ z, k; v; Q
return sub_str_tab;- C) g( z8 i! y, a
end