打印

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

escaflowne1985

小妖

Rank: 1

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

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

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人
魔力私服,最新魔力宝贝私服技术交流3 R2 j" {5 K; z& L* m$ F7 S
Global_Reg.RegInit("Click_Init");魔力私服,最新魔力宝贝私服技术交流. @% F/ A, O  S* D. P
Click_MeIndex = 0;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( w3 K: X6 z9 J) o
local RC_P2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* w+ t) l  w" t0 W9 x/ P
local RC_Tmp = nil;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- e& [2 m2 _1 c. Z9 `
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);妖城在线论坛' E0 }$ O2 m8 L) R  Y
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);妖城在线论坛+ [4 p% E4 R0 M; n
Char.SetData(Click_MeIndex, 4, 777);妖城在线论坛, p3 ?0 r$ x: r, I
Char.SetData(Click_MeIndex, 5, 14);魔力私服,最新魔力宝贝私服技术交流, c! A& ^5 q" b5 \6 o; w* ?
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  {) H( i( Y5 v$ i4 t7 k6 k$ O
Char.SetData(Click_MeIndex, 2000, "ClickNpc");bbs.mocwww.com8 J' V2 x' n7 d0 u' A0 t
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");
return false;
endbbs.mocwww.com) X* T  M+ w( ]# r# H) v2 ^
NpcIndex = Click_MeIndex;魔力私服,最新魔力宝贝私服技术交流: k% u. C8 y( M& R8 w, Z6 H% \4 B
InstallNpc("Click_MeIndex",Click_MeIndex)
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ a3 W6 X1 G( Q. G( W" j! `8 r  S
end
return true;; _/ n+ r; P( X. c
end妖城在线论坛6 W, @8 X8 F1 J& h4 L. S, M
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! X' ~) w- {& z/ S
local p2_Index = RC_P2;
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 g4 X, b6 b! }3 S6 U9 b, p
妖城在线论坛1 O; ?! l% H# F
魔力私服,最新魔力宝贝私服技术交流( x7 o; _" d7 \& Q  _: l) D8 E  i
if (_Seqno==0 and _Data=='1') then
--『查看资料』: s4 \4 [) ?2 u0 y3 w0 U; N
RC_Tmp = p2_Index;
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
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);3 i$ T9 U8 K2 W* b/ Y, ^. `
return;
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』魔力私服,最新魔力宝贝私服技术交流* m) ], z7 _( o& v8 q4 F+ b
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);妖城在线论坛( Z5 l( w6 O* E/ D: {
return;4 F9 Y' @$ X! S4 {, U
elseif (_Seqno==0 and _Data=='3') thenbbs.mocwww.com) \* z, R' |, E) _# t' @: q
--『给予魔币』妖城在线论坛! g% V4 Q  l' ]
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: r( W2 L. U2 ~) X% m. t$ R( m. `
return;bbs.mocwww.com% Y* S  A  e, R
elseif(_Seqno==0 and _Data=='4')then妖城在线论坛7 q% f, d% W9 H* H$ j
SetDebug(p2_Index);
return;bbs.mocwww.com$ T+ d+ T% i: b
elseif (_Seqno==0 and _Data=='5') then妖城在线论坛. L! ]5 B# O; s; \! J
--『封关联号』
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);
else1 v+ C5 B, a% q" _* ^+ v
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 c5 C) L, s  _+ a9 T2 {# Q) q
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 |1 J) H1 q+ r: ^/ `4 _1 _
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 g8 S; u, u! \3 o% a
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- B: d+ T7 e9 j6 N2 Y4 t9 e
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);

return;
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』bbs.mocwww.com$ V% ^' P$ E$ k( E* d/ @7 y$ V
NLG.Close_Socket(p2_Index);% _( C) l5 Y6 M! C2 Q1 h, ?
return;bbs.mocwww.com7 K" A+ u3 q, ?( i+ v- y; N
end  q2 q0 s1 ~! I! q- Q
if (_Seqno==22 and _Select==1 and _Data~="") then
local pppp = split(_Data,",");妖城在线论坛) Y+ u* v) O9 D5 M
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 o& s5 Q, W) J& \0 P& Z) ?8 u
if type(giveitem) == "table" and  #giveitem > 0 then妖城在线论坛$ M7 Y3 `0 D7 `" \2 s6 `( N- ^
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 then魔力私服,最新魔力宝贝私服技术交流2 r  F$ i. G  I# Z3 h
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力宝贝私服技术交流$ _( X9 L& x: ]# i# R
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- {3 e- J& m0 i4 A
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);妖城在线论坛4 J! G" A: N" u% w% f
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then
if NLG.GivePet(p2_Index,_Data) > 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 }& e) y, j. z! P9 \
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);. w% ]3 Z5 \- z
else* ?5 S( m" E' J0 d# h8 n
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);魔力私服,最新魔力宝贝私服技术交流9 K5 h& N2 M+ V' H6 M# s% N
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魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 L9 Q+ f$ d3 ]" ^( f8 ^
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( w# E" R; t9 x6 Y4 [
end
end

function SetDebug(CharIndex)
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");妖城在线论坛. Q- P* Q: O9 B) N  Z' o" e
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 @/ F* a: W: J7 g5 Z
魔力私服,最新魔力宝贝私服技术交流5 z: `# C7 V) H. t6 i: o
Global_Reg.CharRightclick("Rightclick");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 q+ @0 Q+ [% E, ~$ S3 c9 O
function Rightclick(p1,p2)
if p1 == p2 then
return;
end
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ K! ~. e8 ~9 n. i1 o
if NLG.Get_Char_Date(p1,145) == 1 then
RC_P2 = p2;魔力私服,最新魔力宝贝私服技术交流8 b9 Y" `. @" y$ e! [5 O
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, R' V, Q$ G2 b% z  B
"\n　　　　　　　　　『查看资料』"..
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ Z% w$ D9 p, o+ F7 Z: C
"\n　　　　　　　　　『给予魔币』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- b2 C- D" d0 C$ [, U3 r# m* u4 T
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" a( A, n# ^5 Y- w" N$ P6 u
"\n　　　　　　　　　『踢他下线』",bbs.mocwww.com% J/ Q- Q5 F# O2 {% ~' o6 v
Click_MeIndex);魔力私服,最新魔力宝贝私服技术交流+ b; y, w+ x- P  K, o% H4 J* @" K
end
妖城在线论坛7 F4 D5 _' @0 N! z
return; 妖城在线论坛* `, C) g/ H1 E* {
end妖城在线论坛, a% O  D# Q' Z5 M+ `& S
function Click_Init()
Click_MeIndex = nil;
WindowsTmpNpc_Init();
end, g$ K& {4 f6 z% {
function initClick_Init(index)7 H( L* r2 o% J1 v2 X
return 1;2 P$ i" ?* z3 r4 S
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 W! Q  V( Y/ a6 u: x
function split(str, split_char)
local sub_str_tab = {};0 V3 X8 v! q% A2 t3 }) d# \
while (true) do0 s6 X+ W1 k3 h) U) X! i
local pos = string.find(str, split_char);  t- u% Y+ {, n: o$ Z4 i& f
if (not pos) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 c9 [: [( o4 e% X8 y- u* t
sub_str_tab[#sub_str_tab + 1] = str;妖城在线论坛& ^  y& ^7 G, X2 J" Z2 _
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);
endbbs.mocwww.com2 ^# B8 u5 F4 F. v
return sub_str_tab;
end