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

escaflowne1985

小妖

Rank: 1

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

阁楼大中小发表于 2018-8-4 23:25 显示全部帖子

GP端的lua（一）-GM_Click.lua

代码如下，需要的自己拿，感谢某人魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 Y1 c$ n: S# `+ w8 F8 S7 Q

Global_Reg.RegInit("Click_Init");8 m) N# `3 O$ ~5 E4 s$ R
Click_MeIndex = 0;魔力私服,最新魔力宝贝私服技术交流% R* H; J5 _! D! Y
local RC_P2;魔力私服,最新魔力宝贝私服技术交流' T+ C) r# v, I. ^3 n
local RC_Tmp = nil;
function WindowsTmpNpc_Init()
if(Click_MeIndex == nil)then
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");bbs.mocwww.com# O/ |( z- Z( y. z/ Y. P
Char.SetData(Click_MeIndex, 1, 105254);
Char.SetData(Click_MeIndex, 2, 105254);
Char.SetData(Click_MeIndex, 3, 0);
Char.SetData(Click_MeIndex, 4, 777);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ o$ t* j# k1 K; A* ^1 b6 u
Char.SetData(Click_MeIndex, 5, 14);
Char.SetData(Click_MeIndex, 6, 13);
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力宝贝私服技术交流. {9 S1 K- P5 z( ~3 V5 i
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) thenbbs.mocwww.com& X% C+ T7 Z1 R; A' f
print("RCVal_Talked 注册事件失败。");- x# Z. I% D! K7 ~. I# D* F9 K
return false;
end# a( c1 c; L0 \7 r0 K9 c1 R
NpcIndex = Click_MeIndex;
InstallNpc("Click_MeIndex",Click_MeIndex)

end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 [( z. |  E- d: l7 j
return true;
end
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
local p2_Index = RC_P2;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" O) c* v& D% @6 T
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
* S) Y5 d6 c! y8 I. ]9 p

if (_Seqno==0 and _Data=='1') then妖城在线论坛9 r  }( H- C0 C2 S0 n/ X1 h
--『查看资料』
RC_Tmp = p2_Index;bbs.mocwww.com+ e" g; O0 a3 X7 P& T) i
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);bbs.mocwww.com$ g" S3 r. e, m( J
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%);魔力私服,最新魔力宝贝私服技术交流2 s7 N% q9 Y. y
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ c$ h4 M  o* l3 o4 l/ [
return;9 Z7 o# C0 U0 y
elseif (_Seqno==0 and _Data=='2') then
--『给予道具』bbs.mocwww.com) n3 C- n. n. z2 U# }5 o
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);妖城在线论坛& e. z# ]; r& }# c1 n; P2 O  Y
return;
elseif (_Seqno==0 and _Data=='3') then
--『给予魔币』7 X6 p3 u: O4 b9 Q  v
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
return;1 w) Q/ }2 f6 Z& s: [. f
elseif(_Seqno==0 and _Data=='4')then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* m; O" G' Y" G  K; @4 \3 d& s5 w
SetDebug(p2_Index);
return;
elseif (_Seqno==0 and _Data=='5') then
--『封关联号』妖城在线论坛( L4 y% d( q' u: Z4 l: S
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—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  m  d3 v+ D" {1 w9 H- K2 b
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);妖城在线论坛$ g. h& e4 x0 Z4 m
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. Y) Q. h  Y4 E( c% u  Z1 c
return;
elseif (_Seqno==0 and _Data=='6') then妖城在线论坛3 W1 H: {) k1 C: `; S! e+ a$ @
--『传送对象』
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
魔力私服,最新魔力宝贝私服技术交流+ _/ @: {+ B- v' U- a$ R
return;妖城在线论坛9 c, n$ h; o) ?$ o. d2 M  T* X8 z
elseif (_Seqno==0 and _Data=='7') then魔力私服,最新魔力宝贝私服技术交流: p+ r, c! C5 }6 U: ~' D
--『踢他下线』
NLG.Close_Socket(p2_Index);妖城在线论坛$ @. V. J; j5 p3 p7 s" [1 a, W! Z
return;
end妖城在线论坛" C! Z& Y- W8 S: E9 [4 @1 y7 K
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$ M$ v9 Z+ B& c
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 M5 V% W% d/ }: L+ D8 j4 r
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* E# C2 F" r; R* N
end
elseif (_Seqno==33 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流) w$ l/ c. o2 l, N6 m$ N" ~2 _( f4 a
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;bbs.mocwww.com6 M/ }" K( ?3 G0 T- Q& h7 s
if gold <= 10000000 and gold >= 0 thenbbs.mocwww.com+ a8 p- S( ]1 _! |: c
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 P; r; ^: s* v0 Z, s$ h  j3 R
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
else
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; i5 M3 i5 r6 s$ l
end魔力私服,最新魔力宝贝私服技术交流  n$ C) i4 y4 B0 r5 Z9 t
elseif (_Seqno==44 and _Select==1 and _Data~="") then妖城在线论坛" H) S2 Q3 ^8 E/ P1 l% b/ Z
if NLG.GivePet(p2_Index,_Data) > 0 then
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 V/ C/ W; W' |6 O+ w# [) @
else妖城在线论坛! z# g7 ?! q2 U# k- j
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
end妖城在线论坛  o, t, q' _- U
elseif (_Seqno==55 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流- T& b3 t8 h! a8 u) B7 q  r
local warp = split(_Data,",");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 G+ f- U# F0 h& E$ g5 }+ u8 C
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力宝贝私服技术交流  e% C4 @1 M" ?
else
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
end魔力私服,最新魔力宝贝私服技术交流# L$ k$ i2 f$ G/ M
end魔力私服,最新魔力宝贝私服技术交流3 W& j( U  A$ F4 R* D" E
end妖城在线论坛, N2 D1 _! T! `9 {

function SetDebug(CharIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! \" r1 z! H% v4 f. V0 j- R
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 n% u: l- k# ?0 s
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ b4 l4 I" a1 `
end
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 Q1 J: k' U; z( [5 {3 s9 m
Global_Reg.CharRightclick("Rightclick");魔力私服,最新魔力宝贝私服技术交流+ W9 E# l( F7 [, S0 l* Y
function Rightclick(p1,p2)
if p1 == p2 then
return; —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 I0 h' c/ D9 W$ S9 Q
end

if NLG.Get_Char_Date(p1,145) == 1 thenbbs.mocwww.com- a; m( {8 X2 D7 }% b. o0 G
RC_P2 = p2;* i/ g1 B# e: X. z  U1 x% [
NLG.ShowWindowTalked(p1, 2, 2, 0, # I) j; P! q; w2 J
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. t( J. Y: N1 |
"\n　　　　　　　　　『查看资料』"..
"\n　　　　　　　　　『给予道具』"..魔力私服,最新魔力宝贝私服技术交流2 P  O- k* S0 M3 D) `
"\n　　　　　　　　　『给予魔币』"..bbs.mocwww.com% b2 X& O6 A4 Z
"\n　　　　　　　　　『封机器码』"..& w" O8 |1 H1 |6 y0 {5 Z
"\n　　　　　　　　　『封关联号』"..8 v& A3 s$ D7 e0 I: @+ y! Y
"\n　　　　　　　　　『传送对象』"..
"\n　　　　　　　　　『踢他下线』",
Click_MeIndex);妖城在线论坛  B1 u* ^7 w7 C" s: m
end
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& l' y8 G# |/ j4 x7 v! H7 S
return; " b: n1 J, M8 p( Y  Y) v
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 `3 [) V% D6 d$ D/ p. A3 v/ k# {
function Click_Init()魔力私服,最新魔力宝贝私服技术交流5 h1 e! ]& a4 k% P) ^7 T
Click_MeIndex = nil;
WindowsTmpNpc_Init();2 O: i$ I% z; X: j. J$ ]
end
function initClick_Init(index)1 L' O% u) i, [) Z2 g
return 1;
end
function split(str, split_char)
local sub_str_tab = {};
while (true) do
local pos = string.find(str, split_char);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( C0 z# K$ g! `/ x, ~, x  t1 p
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;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ J! o0 q3 z6 s
str = string.sub(str, pos + 1, #str);+ `7 l8 U+ C' L" C' e
end
return sub_str_tab;妖城在线论坛, ~- }/ {$ W& k
end

TOP

‹‹ 上一主题 | 下一主题 ››