妖城在线论坛 - Powered by Discuz! Board

标题: [魔力私服分享] GP端的lua（一）-GM_Click.lua [打印本页]

作者: escaflowne1985 时间: 2018-8-4 23:25 标题: GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ {* E5 S6 |  W5 R% H4 V

Global_Reg.RegInit("Click_Init");
Click_MeIndex = 0;魔力私服,最新魔力宝贝私服技术交流3 l4 [% ]' H3 Y7 L$ W
local RC_P2;
local RC_Tmp = nil;bbs.mocwww.com& F' L! a9 A# z7 o
function WindowsTmpNpc_Init()魔力私服,最新魔力宝贝私服技术交流7 l7 [0 Y0 B; w; u
if(Click_MeIndex == nil)then魔力私服,最新魔力宝贝私服技术交流  w3 }# w" @3 z  J9 t* s7 s
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);bbs.mocwww.com, _& t* ?" $ u  `
Char.SetData(Click_MeIndex, 3, 0);魔力私服,最新魔力宝贝私服技术交流. g% I/ Q8 Z/ p$ d; q1 Y
Char.SetData(Click_MeIndex, 4, 777);妖城在线论坛. n8 J# Z) _+ R( Z' Z6 w% P+ $ |
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
print("RCVal_Talked 注册事件失败。");
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 }' Q* u& E, z. B% [/ |' o! y" _
end
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)魔力私服,最新魔力宝贝私服技术交流- s- x  e& B. F
妖城在线论坛  l& Q1 K& h: {" i8 f8 W
end
return true;
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- K/ q9 e7 s, K( B4 Z+ F# ?
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ N! l; e8 Q6 _+ O
local p2_Index = RC_P2;bbs.mocwww.com$ t4 F5 f  e4 {) s; ?' @
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% g. \# b! s6 y( N5 ^4 s

if (_Seqno==0 and _Data=='1') then
--『查看资料』bbs.mocwww.com  o( B# N, r( G* B2 T
RC_Tmp = p2_Index;
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);% l0 P2 q1 _7 [6 @4 p4 Q2 e
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);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, x, M6 E5 Q/ D8 P
return;
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』魔力私服,最新魔力宝贝私服技术交流0 I1 k+ Y# F- j. S8 k" G
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);bbs.mocwww.com. s/ ~. _2 [7 a& Q7 Q
return;魔力私服,最新魔力宝贝私服技术交流, d1 O& |1 z) e6 V) f
elseif (_Seqno==0 and _Data=='3') thenbbs.mocwww.com- [* y  m, |# {! m. p7 }
--『给予魔币』妖城在线论坛# V- S4 X3 N9 Z
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
return;
elseif(_Seqno==0 and _Data=='4')then
SetDebug(p2_Index);bbs.mocwww.com# C# ~8 w; o0 N( i
return;
elseif (_Seqno==0 and _Data=='5') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 \0 k0 f/ E" k$ k) ?
--『封关联号』
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妖城在线论坛" W  h0 ^4 k1 k- N) Y- Q# d5 \
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
end
return;
elseif (_Seqno==0 and _Data=='6') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 w# \& [* f8 |) X2 K" a- U
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
妖城在线论坛7 D. O) `5 p* X4 @: j) e; f
return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# a. |4 K0 n5 g# i. A) D7 A' H/ a8 H
elseif (_Seqno==0 and _Data=='7') then
--『踢他下线』
NLG.Close_Socket(p2_Index);
return;4 O- A- }6 X, C, U
end
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
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
elsebbs.mocwww.com; C: t8 _+ q6 }) Y% t- R
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
endbbs.mocwww.com/ l6 q: J4 Y& _$ E( H! L
elseif (_Seqno==33 and _Select==1 and _Data~="") then妖城在线论坛. g. ?4 f+ B; i  s: Z+ V
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
if gold <= 10000000 and gold >= 0 then
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);
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
end
elseif (_Seqno==44 and _Select==1 and _Data~="") then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  b! o4 L: x- a. v2 Z& ]
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);魔力私服,最新魔力宝贝私服技术交流+ W7 f' t& @& V
else
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
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
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com6 Z) M+ _. T, F+ E8 P9 ?
end; M% d6 _1 m8 E" @, W
end魔力私服,最新魔力宝贝私服技术交流3 n9 ]) x7 x0 E, |0 A6 |3 E
end0 y- U* [1 F9 ~# V# S
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ C0 @8 d: @& i  ^6 @
function SetDebug(CharIndex)魔力私服,最新魔力宝贝私服技术交流0 }+ }: P* q, k' D- e; V
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);6 W9 d/ u. @$ v9 ^
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
end

Global_Reg.CharRightclick("Rightclick");
function Rightclick(p1,p2)
if p1 == p2 thenbbs.mocwww.com- B& q$ u1 V. [
return;
end  v8 @) E/ Q$ G+ ]

if NLG.Get_Char_Date(p1,145) == 1 thenbbs.mocwww.com* I8 |5 \* \8 Z3 ]- u0 ^5 d
RC_P2 = p2;
NLG.ShowWindowTalked(p1, 2, 2, 0,
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..妖城在线论坛. i7 ?1 y. b5 Q' [% ~
"\n　　　　　　　　　『查看资料』"..妖城在线论坛1 R7 W' F5 c; l* ~$ ]
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力宝贝私服技术交流; k' e7 e0 G$ H; Q( w2 u% K, g
"\n　　　　　　　　　『给予魔币』"..
"\n　　　　　　　　　『封机器码』"..
"\n　　　　　　　　　『封关联号』"..
"\n　　　　　　　　　『传送对象』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* o$ \0 Q) B- @. U
"\n　　　　　　　　　『踢他下线』",妖城在线论坛& x, b1 L0 T# O5 [7 M: H" P3 b6 p, j
Click_MeIndex);$ e% r: j. a. N' M$ J, \& j" H( a
end- ?/ f7 o7 O0 T. `$ E: g5 ~
bbs.mocwww.com; l! n% }' J' R1 P
return; 妖城在线论坛& R, h8 M. E: M' I* _. I
end
function Click_Init()
Click_MeIndex = nil;
WindowsTmpNpc_Init();) H+ i9 [6 Y5 Q2 Q* s
end魔力私服,最新魔力宝贝私服技术交流1 y! i. Z! p  ^; h
function initClick_Init(index)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 A* \! j4 C$ b* M! _
return 1;
end妖城在线论坛+ t) ^3 s# z" d) J
function split(str, split_char)
local sub_str_tab = {};妖城在线论坛$ X5 ]! q/ l9 l( V) w. P
while (true) do—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- H' y6 J" A+ r+ c8 J1 J
local pos = string.find(str, split_char);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: H4 T+ B$ s* \' ]% l% v/ c
if (not pos) then
sub_str_tab[#sub_str_tab + 1] = str;
break;妖城在线论坛. E2 J/ T! [/ w" H
end
local sub_str = string.sub(str, 1, pos - 1);
sub_str_tab[#sub_str_tab + 1] = sub_str;bbs.mocwww.com. @5 i+ T1 f) w6 z7 C" M% K" H
str = string.sub(str, pos + 1, #str);魔力私服,最新魔力宝贝私服技术交流9 X3 ~. ]: c% d  _
end
return sub_str_tab;
end

作者: xxxx 时间: 2018-8-5 00:20

感谢分享，终于有人分享了

作者: qq2804823 时间: 2018-8-5 13:44

...gp乜没有单机免费版。。。

作者: kdasha 时间: 2018-8-6 11:34

看着好高端的样子.......

作者: cloud09 时间: 2018-8-7 10:29

沒有反掛玩不到

作者: kings12369 时间: 2018-8-16 12:49

感谢分享，终于有人分享了

欢迎光临妖城在线论坛 (http://bbs.mocwww.com/)