标题:
[魔力私服分享]
GP端的lua（一）-GM_Click.lua
[打印本页]
作者:
escaflowne1985
时间:
2018-8-4 23:25
标题:
GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% t$ A1 g" |) F: s
8 X% N( m: Y- ]. y魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
Global_Reg.RegInit("Click_Init");
魔力私服,最新魔力宝贝私服技术交流0 a* _# o- M, U( p( y
Click_MeIndex = 0;
. x6 @$ _( Z' z. |: ]& ~/ y7 ubbs.mocwww.com
local RC_P2;
9 E- [. G2 c7 \魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
local RC_Tmp = nil;
! G- }6 M% F/ C- Z
function WindowsTmpNpc_Init()
0 t t. a) ~$ @& Vbbs.mocwww.com
if(Click_MeIndex == nil)then
2 q, a( x! x0 h8 Z! ~
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
' R" Q/ i% |, S/ C妖城在线论坛
Char.SetData(Click_MeIndex, 1, 105254);
2 d' }, K$ }1 g/ F6 @bbs.mocwww.com
Char.SetData(Click_MeIndex, 2, 105254);
9 ^# \2 z0 Q/ ]/ m; V/ @3 S6 ]0 l' [
Char.SetData(Click_MeIndex, 3, 0);
) y* \0 G$ R7 T; l5 ?魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
Char.SetData(Click_MeIndex, 4, 777);
. x/ `/ r |( c( S, | g3 t* ?' \
Char.SetData(Click_MeIndex, 5, 14);
妖城在线论坛) n9 ]! r9 l' y
Char.SetData(Click_MeIndex, 6, 13);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 T7 ?( j4 W) B" {; u% e
Char.SetData(Click_MeIndex, 7, 5);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& T' _3 g$ O# a" V
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
bbs.mocwww.com' ], e2 `/ c8 o( h# G
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
- a3 B; Q" h7 n魔力私服,最新魔力宝贝私服技术交流
print("RCVal_Talked 注册事件失败。");
妖城在线论坛& t E' X! H3 b. M& T4 o
return false;
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ Z! q! V) a" V2 T9 Y4 y' j, P. X8 u" F
end
, s: H% r9 l% |; _& ^2 z# t5 X3 s) W8 F
NpcIndex = Click_MeIndex;
& A% z" h) r4 V
InstallNpc("Click_MeIndex",Click_MeIndex)
魔力私服,最新魔力宝贝私服技术交流 z! F' q% L) r6 Q- Q
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 P+ O8 l/ m% f5 ^: q2 e# R- J
end
+ g9 T+ ~1 [# @! B) g( D' }bbs.mocwww.com
return true;
- i! x- s6 K8 N3 u& Ybbs.mocwww.com
end
. c! \( W- T, k. U: w/ D
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
魔力私服,最新魔力宝贝私服技术交流: [, U" e% r" c5 n" P
local p2_Index = RC_P2;
: @% E$ F2 q o, k+ O+ K魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
魔力私服,最新魔力宝贝私服技术交流# w, `4 Q7 ~/ [3 |; R7 z% H
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& z' s( G0 \- D A% n
q7 }! u/ y$ Q* m/ \4 }魔力私服,最新魔力宝贝私服技术交流
if (_Seqno==0 and _Data=='1') then
妖城在线论坛! j' K* |( D/ h4 V! O$ b
--『查看资料』
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( e4 F/ J* w' P Y/ ]
RC_Tmp = p2_Index;
" p- ^# [- M: G妖城在线论坛
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
2 O2 {! t5 @9 G0 J2 d1 l9 d
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%);
妖城在线论坛. b1 \% Y8 }+ O% n. e5 E
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
妖城在线论坛& A6 Z, F$ v* B/ b
return;
. H; k7 V/ B! H8 o u6 C5 V* d魔力私服,最新魔力宝贝私服技术交流
elseif (_Seqno==0 and _Data=='2') then
8 B* s) ~# {: l: y3 A) O( i7 E- ~魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
--『给予道具』
7 T+ l+ i% c! _: Lbbs.mocwww.com
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);
% V; j1 T8 Y+ k, H魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
return;
+ X) \3 ], |7 }( S l3 ~0 D' c0 j魔力私服,最新魔力宝贝私服技术交流
elseif (_Seqno==0 and _Data=='3') then
6 v1 @: f4 q7 g3 J—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
--『给予魔币』
bbs.mocwww.com1 T6 p# B! i2 c+ F, u5 h
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
- I, H9 M/ z0 }/ Q: |/ P4 t8 W1 A
return;
. {# O& ~7 K, o( S( K+ i
elseif(_Seqno==0 and _Data=='4')then
妖城在线论坛# [0 w- |& X8 v' @7 J1 {
SetDebug(p2_Index);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ W6 o' n% l+ F$ L( \$ N
return;
bbs.mocwww.com* e/ s, {/ S: m) j/ J
elseif (_Seqno==0 and _Data=='5') then
bbs.mocwww.com2 a) L( n$ g2 Y) F
--『封关联号』
魔力私服,最新魔力宝贝私服技术交流0 v( [4 l0 z" r) d( Z0 j4 b
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
bbs.mocwww.com. v) t0 S4 }8 W3 A7 k
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
* W+ G5 A2 y& x# p
else
2 C- H; r% m- T8 X. Z魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
, {+ N; a$ A. W* K0 K% H—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
end
妖城在线论坛" O! C: ~0 e9 w/ F, T
return;
妖城在线论坛+ H0 e0 d; B. z# F9 W
elseif (_Seqno==0 and _Data=='6') then
% r: I( ]/ _- g2 E! f3 ubbs.mocwww.com
--『传送对象』
; @# P5 w" q8 f3 Q1 O, U8 w
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
bbs.mocwww.com! b/ [3 V2 h; d' y! B( V$ t3 ?
! b8 W. J6 d; D' V8 O% Q魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
return;
: H8 {9 q4 F* t! i# e* \8 m) k( a2 A—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
elseif (_Seqno==0 and _Data=='7') then
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& |$ r* D! H$ P& y
--『踢他下线』
) D3 X3 L9 ] Z$ [/ a) _妖城在线论坛
NLG.Close_Socket(p2_Index);
$ ~$ K* Y7 s4 a妖城在线论坛
return;
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& j& p7 K2 L1 f2 S1 N
end
魔力私服,最新魔力宝贝私服技术交流4 A8 S# h& S# w/ ^# u
if (_Seqno==22 and _Select==1 and _Data~="") then
: d, ]: j4 u0 [0 D8 u, ]9 ~9 }妖城在线论坛
local pppp = split(_Data,",");
魔力私服,最新魔力宝贝私服技术交流& M" ]3 o9 {# Z( m( B0 Q0 W
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 ?3 \) G! E; z2 r6 {
if type(giveitem) == "table" and #giveitem > 0 then
- B" p* c4 C/ k" b$ W+ ]. C3 X魔力私服,最新魔力宝贝私服技术交流
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
魔力私服,最新魔力宝贝私服技术交流9 [2 k9 |- O1 M; W* _8 |
else
% M3 @' _) }: q3 i" u! j" U$ g. q
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
& W) O9 I( l5 V/ N; ]
end
* S6 j. Z+ r8 w0 p魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
elseif (_Seqno==33 and _Select==1 and _Data~="") then
+ e6 f% z; Z( s$ h5 }5 c
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
$ z! _3 ]0 Q9 f2 y6 E魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
if gold <= 10000000 and gold >= 0 then
bbs.mocwww.com+ C% `/ M/ {' n. u! a" I9 b
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);
妖城在线论坛1 q6 g( l, v" }6 b6 y2 U8 T8 M+ e
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
! i6 X$ o' z u9 V% C魔力私服,最新魔力宝贝私服技术交流
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 ~* A' m+ s2 u6 V5 J6 @
else
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; f- } ^9 I; c
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# w4 X1 H* S, A- A
end
魔力私服,最新魔力宝贝私服技术交流, ^6 r/ v9 B0 ~' ]4 M2 Z. t: P
elseif (_Seqno==44 and _Select==1 and _Data~="") then
. W$ j$ t' h9 o6 i: N8 O: ?—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
if NLG.GivePet(p2_Index,_Data) > 0 then
3 ~3 R# \: S4 f( k# t& l0 Sbbs.mocwww.com
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
妖城在线论坛! w" V: k5 n" r
else
# c, ~5 ]* `! F* O7 S- A7 p m& j
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
1 w/ z# T- c* H; Z0 z* g; ~( lbbs.mocwww.com
end
! a; Y( ~$ B- [7 m! e
elseif (_Seqno==55 and _Select==1 and _Data~="") then
! V! S: ~2 t9 e$ j' O妖城在线论坛
local warp = split(_Data,",");
6 j# _' W1 `) I5 m妖城在线论坛
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
魔力私服,最新魔力宝贝私服技术交流) g/ n% ?/ i/ ? c
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
, z2 m) _) M- g—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
else
?6 C% Q3 M# _" A6 E3 w
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
5 |; ^; Z$ p# b, i" D
end
$ E) t4 a. D, d2 C
end
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 S6 |$ I: D! M( f% E$ m. }
end
妖城在线论坛" Y G; z6 o0 j, [. z9 C, i; ]* p
1 \+ ?2 D% p6 |6 d' @& K
function SetDebug(CharIndex)
魔力私服,最新魔力宝贝私服技术交流2 A4 X1 |6 {" ]3 H6 L. v; ?/ A
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
6 f, ` t$ c& P0 P7 ]妖城在线论坛
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
魔力私服,最新魔力宝贝私服技术交流+ Z$ C# {( V0 Y1 z
end
bbs.mocwww.com& g) Q! f$ U) k5 s }2 r: ^! |& R
* [& p( N. i* {; E- ~, u魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
Global_Reg.CharRightclick("Rightclick");
, Z6 r9 a' K. L1 e! N% \4 ~3 f
function Rightclick(p1,p2)
, P: d7 c3 k6 s6 l( ?
if p1 == p2 then
. c, ~. T" A3 l4 ~* a, g" Ybbs.mocwww.com
return;
& i! ^2 ~& O6 V' Z$ A* b# ~魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
end
$ p1 z7 P- z5 ~; X! `7 L
妖城在线论坛$ N% a& V: F: H. X* b8 p" |0 a' ~2 K
if NLG.Get_Char_Date(p1,145) == 1 then
6 N3 Z% _5 Y& ? _7 l$ _" A魔力私服,最新魔力宝贝私服技术交流
RC_P2 = p2;
" Z* w# H( u6 l' j) g" n* p魔力私服,最新魔力宝贝私服技术交流
NLG.ShowWindowTalked(p1, 2, 2, 0,
! q1 e! a; G- L: h
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
4 _2 q" X% i$ t( v魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
"\n 『查看资料』"..
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, P( Y" [8 d" @5 L8 j
"\n 『给予道具』"..
# d1 M* g8 e5 ^% G3 v
"\n 『给予魔币』"..
1 z6 K- M5 ^( {, j: v+ V' @! N- ]
"\n 『封机器码』"..
2 z5 i9 C$ R" N& o; X妖城在线论坛
"\n 『封关联号』"..
/ V$ r9 p+ z6 Z7 S- D7 y/ \& Z妖城在线论坛
"\n 『传送对象』"..
bbs.mocwww.com" C8 |/ ^5 j0 L$ N! m* t
"\n 『踢他下线』",
6 F1 e4 R6 m9 I" _( P+ Y
Click_MeIndex);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 j! N, W8 T8 H/ L- J0 }
end
" _9 p; b" W/ t0 n
4 H3 a0 M X% w0 e0 J# U1 c# F7 k妖城在线论坛
return;
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; l' i6 F. g$ r F' l0 [
end
7 u* [* |; Z) m: e1 N5 g6 V! I- p% s
function Click_Init()
: b5 ~* K+ X, e
Click_MeIndex = nil;
8 M# q1 L7 D7 H7 k3 R' P6 ] j
WindowsTmpNpc_Init();
bbs.mocwww.com( [: `' z V9 h( ^: N
end
1 p1 Y* p0 m/ j# c妖城在线论坛
function initClick_Init(index)
: G, A/ a7 X3 [+ X- c) d' p—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
return 1;
bbs.mocwww.com6 {; W9 P4 ], {
end
8 J# F7 A: y1 t- B0 `' Pbbs.mocwww.com
function split(str, split_char)
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: V+ V# w+ R8 E$ L: B
local sub_str_tab = {};
魔力私服,最新魔力宝贝私服技术交流; x6 x4 a2 I4 P7 Y7 F& s
while (true) do
5 K" C9 s" Y- d# E7 J$ s7 `bbs.mocwww.com
local pos = string.find(str, split_char);
- c- K& F. o: k+ |4 P( V
if (not pos) then
& K$ F+ D4 N8 m6 |, t: a* q4 P魔力私服,最新魔力宝贝私服技术交流
sub_str_tab[#sub_str_tab + 1] = str;
D: g* k. z+ e/ _/ A4 S魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
break;
4 P) z* t3 R# Q; c8 h/ ^妖城在线论坛
end
' V; ]* K2 ~+ M4 S0 C3 F& a, x @魔力私服,最新魔力宝贝私服技术交流
local sub_str = string.sub(str, 1, pos - 1);
! ^, u$ B6 {' A. L" e0 |+ u, J- S
sub_str_tab[#sub_str_tab + 1] = sub_str;
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 C& x# @* P# e0 l8 ?; V: m
str = string.sub(str, pos + 1, #str);
: {4 f; D% C- p2 M2 K
end
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" p% t) b& M$ }- F- A
return sub_str_tab;
魔力私服,最新魔力宝贝私服技术交流# @; U5 C# C" o# j" _
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/)
Powered by Discuz! 6.0.0
