GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人
- q% l& T' F1 H' t5 B妖城在线论坛妖城在线论坛/ H5 ]/ ^& A1 L- q
Global_Reg.RegInit("Click_Init");
! F- n4 s* d! J) V魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Click_MeIndex = 0;
' n" n. ~* F' Z# Y. V妖城在线论坛local RC_P2;
- s* k2 `- N1 f1 Q4 t5 {# ylocal RC_Tmp = nil;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ Y* v* n6 O" p4 l
function WindowsTmpNpc_Init()
2 T4 L, g# i4 p% x& _4 {' \魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 if(Click_MeIndex == nil)then
) r5 R$ |8 ]! Q/ R }魔力私服,最新魔力宝贝私服技术交流 Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
) [( t' i8 |6 V* o( i7 P—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Char.SetData(Click_MeIndex, 1, 105254);魔力私服,最新魔力宝贝私服技术交流7 s" I" w, E1 n6 x4 \5 A' n
Char.SetData(Click_MeIndex, 2, 105254);
3 R3 F; Q$ o9 t7 k9 Y- Y9 a妖城在线论坛 Char.SetData(Click_MeIndex, 3, 0);妖城在线论坛+ U# R4 F* j1 e" z2 S
Char.SetData(Click_MeIndex, 4, 777);
8 F( m6 N3 b5 o% d8 T Char.SetData(Click_MeIndex, 5, 14);
4 |+ s, m _1 r. J; n; d% u魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Char.SetData(Click_MeIndex, 6, 13);
) c& Z0 x; E7 h5 B魔力私服,最新魔力宝贝私服技术交流 Char.SetData(Click_MeIndex, 7, 5);
" ~" v+ b* h# {魔力私服,最新魔力宝贝私服技术交流 Char.SetData(Click_MeIndex, 2000, "ClickNpc");妖城在线论坛7 ~4 I# f/ @7 N) ?4 E6 A
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then& ?( ?* ~$ k! G& [* v2 k- b$ P
print("RCVal_Talked 注册事件失败。");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ N ~, s8 Y, u7 D/ e g( V, @, P
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 [6 {2 ^: X& ~, ^; Q0 i; U( f. f
end
8 {7 |* _! R7 {6 V& M! h4 [ NpcIndex = Click_MeIndex;* ]6 M; M% I9 Y) p/ j% ]1 q3 R+ d
InstallNpc("Click_MeIndex",Click_MeIndex)bbs.mocwww.com! K! d2 B9 a4 ~
bbs.mocwww.com& g( d1 H/ P: F- ]8 ^
end
, x- g: i6 I L7 q! J# G9 p魔力私服,最新魔力宝贝私服技术交流 return true;
6 A& A" T0 i$ g4 _$ Q; n—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートend妖城在线论坛) h7 Q3 c) ]8 k- k. G! e4 e( A: |
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
6 R0 N8 R$ m; L) h魔力私服,最新魔力宝贝私服技术交流local p2_Index = RC_P2;bbs.mocwww.com9 q0 A# q) R2 B' R$ X
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);& ~# K$ T3 Q* A7 D5 [) j' s0 |2 C
# `( W4 A( a4 T( M; G: S; e( @$ Hbbs.mocwww.com 魔力私服,最新魔力宝贝私服技术交流) a" n$ u, E4 C8 t9 n0 f, U
if (_Seqno==0 and _Data=='1') then
- X" D' \# _4 n1 D8 K s& A" k/ a --『查看资料』
1 S0 |" U6 H7 W$ d3 E8 l7 l RC_Tmp = p2_Index;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. d! y) j( j$ Z' U5 {; K
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);魔力私服,最新魔力宝贝私服技术交流6 B/ S4 W% R# y/ O" s/ ]' n
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%);
- w5 v% q, a0 j. u0 k: f魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
- O8 t" H3 ^, O0 i; O4 W; M魔力私服,最新魔力宝贝私服技术交流 return;- u* t H D$ e* a8 ~7 B! v- C
elseif (_Seqno==0 and _Data=='2') then
5 y i& J4 s& P魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 --『给予道具』
9 j: Y, k3 ?* W( m0 {" u# \. ?妖城在线论坛 NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);: u4 P9 I4 w( e( c
return;bbs.mocwww.com, P$ y, a. ]5 h3 J; t4 L8 v9 C
elseif (_Seqno==0 and _Data=='3') then
2 V/ Q1 d$ U* ?: ?$ a—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート --『给予魔币』魔力私服,最新魔力宝贝私服技术交流. s K& g. C: W: B% W
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
! O2 t7 p0 i# t4 _' S3 x, z0 D魔力私服,最新魔力宝贝私服技术交流 return;
: S/ R; R% P* S0 P3 k妖城在线论坛 elseif(_Seqno==0 and _Data=='4')then
6 F1 L4 d$ R1 {5 o, a Mbbs.mocwww.com SetDebug(p2_Index);魔力私服,最新魔力宝贝私服技术交流% w- n! @% G. c- f" L. S( x# y
return;7 A ^' B/ d9 J9 w
elseif (_Seqno==0 and _Data=='5') then
, @ S" ]8 ?% P% _! O: {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 --『封关联号』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 E4 |; F6 [/ f/ [7 M
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魔力私服,最新魔力宝贝私服技术交流9 V% E1 F5 y1 s9 ]) C/ [
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
* l c3 I% [4 F: B* V妖城在线论坛 else
; [/ a6 v; e- b0 v$ W/ M; [" abbs.mocwww.com NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);魔力私服,最新魔力宝贝私服技术交流4 Q" j9 d) _( w2 N+ h4 Z( \
end
2 t! z4 r3 R* w6 Z. z' h妖城在线论坛 return;4 A# Z; O4 F1 v3 w( u9 o2 O H( F- }* G
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力宝贝私服技术交流$ a& ]/ }4 @" e! E
--『传送对象』
g- U3 N& g0 n9 ~3 s6 m0 g! A妖城在线论坛 NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
5 X3 e4 G" \) C. ?6 Pbbs.mocwww.com
9 `( S7 h3 R5 }4 H- F& G3 K; e1 g+ t妖城在线论坛 return;
2 P, z+ [2 n1 [: k—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif (_Seqno==0 and _Data=='7') then
( X$ Y% x, `# o9 H% t! l' y) J+ w魔力私服,最新魔力宝贝私服技术交流 --『踢他下线』
* o1 w$ M. V) g( g ~, E) @8 Q魔力私服,最新魔力宝贝私服技术交流 NLG.Close_Socket(p2_Index);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 b! X2 w/ t; ?3 A8 \& \5 A
return;
1 q" D3 j5 j5 ^8 I魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 end
B, Q* G, R; X% {& x1 M% o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 if (_Seqno==22 and _Select==1 and _Data~="") then
5 Q9 m8 s1 y# l8 }& F# r; D& |: D—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート local pppp = split(_Data,",");
0 d( X7 @/ H( D4 Z, z# w' j& wbbs.mocwww.com local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" F" w) s& S# N! W" I8 }
if type(giveitem) == "table" and #giveitem > 0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ y, @, L f/ A- l
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力宝贝私服技术交流9 U9 W7 ^( c( ?. c2 j
else魔力私服,最新魔力宝贝私服技术交流1 D2 T1 }8 s. {; Z( Z/ }3 w7 K
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
6 f9 B+ s; {' _- t7 z a) ^魔力私服,最新魔力宝贝私服技术交流 end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; z: I# t9 i% s8 _
elseif (_Seqno==33 and _Select==1 and _Data~="") then. K" H) Z; }8 _8 O; s
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
# x( q1 b5 b6 X8 l h* C1 G$ x5 e$ b if gold <= 10000000 and gold >= 0 then6 Y2 Z( X; [' d( p" i$ _
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 l0 Z# y( _/ {
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
) ^ v; S( F( e3 i, `魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 N) i( {2 l# K, @# p& F
else
& N h3 l8 G2 u q$ T/ B2 x—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);魔力私服,最新魔力宝贝私服技术交流$ c0 A: A6 f$ _3 |0 C9 ?$ u6 p$ D
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* g2 `7 a" P/ j, R
elseif (_Seqno==44 and _Select==1 and _Data~="") then
1 e; Q- Q% p5 I( @* Nbbs.mocwww.com if NLG.GivePet(p2_Index,_Data) > 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* E6 c" t8 a, u9 Q5 D) o
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
; O4 H. y! C' i6 [" c# h9 dbbs.mocwww.com else) c- C& b2 M6 {/ U
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);魔力私服,最新魔力宝贝私服技术交流% w1 F1 R: x6 @- r/ u# @! q0 X5 p: ~
end
: j6 ^/ x% C7 a# r# i魔力私服,最新魔力宝贝私服技术交流 elseif (_Seqno==55 and _Select==1 and _Data~="") then
0 t% I9 C. r* ?& m/ w/ [+ x( U) c魔力私服,最新魔力宝贝私服技术交流 local warp = split(_Data,",");魔力私服,最新魔力宝贝私服技术交流& c9 v% |- h( z
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
1 I' y. N# t9 _6 ]; k魔力私服,最新魔力宝贝私服技术交流 NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. F! k( o1 o5 g5 N
else妖城在线论坛. ^- ]; P# K- ~ J% M
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);妖城在线论坛# y2 S3 r4 a u- g% K( F
end妖城在线论坛( E9 T/ r$ T9 K9 g% W$ F& m5 r
end
! ]$ Z0 T& y- |# M6 ebbs.mocwww.comend妖城在线论坛. c6 r7 Y$ | \1 e4 G, f, C
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, i) s* ]+ @- _9 _$ H
function SetDebug(CharIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ i/ `" |0 R! z0 O @& i
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);妖城在线论坛5 Y9 b8 n% x( ~. D/ Z6 @( x) x- A2 s
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" y. _8 f8 {0 y; s# m
end魔力私服,最新魔力宝贝私服技术交流. L4 ]7 j a/ `) H* r+ [' ?
# b+ s1 r5 X( u: G2 G4 s魔力私服,最新魔力宝贝私服技术交流Global_Reg.CharRightclick("Rightclick");bbs.mocwww.com* R% ]- {& a0 ?$ T7 g
function Rightclick(p1,p2)
2 L9 e9 K$ p6 P& I f魔力私服,最新魔力宝贝私服技术交流 if p1 == p2 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ y; y* F8 |& u$ N
return; 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 q5 ~& `7 X4 W9 s
end3 e% e1 ?: G# n# }3 i2 [* r
魔力私服,最新魔力宝贝私服技术交流! L: @! S4 W/ R; T4 G9 u9 s
if NLG.Get_Char_Date(p1,145) == 1 then
! i. O* y' b& fbbs.mocwww.com RC_P2 = p2;& S/ H5 |" f1 _; C- p, g
NLG.ShowWindowTalked(p1, 2, 2, 0,
/ D: r, ]+ V3 h* g. s—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート "1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
# ]" V$ }$ C# r8 K/ K; i魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 "\n 『查看资料』"..
* x! j7 S3 |, G7 y* e: v% }妖城在线论坛 "\n 『给予道具』"..
: v# @; r; Q0 wbbs.mocwww.com "\n 『给予魔币』"..bbs.mocwww.com1 u: @1 B3 v! P3 c, @1 ^) _5 J
"\n 『封机器码』"..妖城在线论坛* z3 ]5 z7 x. B/ L$ C; l
"\n 『封关联号』"..
3 Z! T+ I9 l6 s0 j1 V: p9 I魔力私服,最新魔力宝贝私服技术交流 "\n 『传送对象』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 h* J) x2 n1 R ?# f
"\n 『踢他下线』",魔力私服,最新魔力宝贝私服技术交流5 T# u- n/ i8 B$ e: H$ l' w
Click_MeIndex);妖城在线论坛" U9 P% { v) T! U$ B
end妖城在线论坛' ~+ u1 e4 m* G) E% t
4 x: Q3 [5 j2 I) P# `# O妖城在线论坛 return; 妖城在线论坛+ R+ I) U% K5 |) u: E7 Q
end魔力私服,最新魔力宝贝私服技术交流5 [) _' x0 k) |' E1 J) q9 N
function Click_Init()
2 O, D6 C1 r! R7 P Click_MeIndex = nil;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) ~5 k* D/ M; _6 v
WindowsTmpNpc_Init();妖城在线论坛2 u" P' @+ w8 \1 S5 Y: X
end魔力私服,最新魔力宝贝私服技术交流7 u, h* U+ |5 i4 V; a* ]
function initClick_Init(index)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 `$ L+ \3 q5 N. c b* ?1 D8 b
return 1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* o7 I( I5 n P. _, P
end
) a# M/ P9 [: _2 N8 d' ^魔力私服,最新魔力宝贝私服技术交流function split(str, split_char)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 v' T: r# M" E$ A& i
local sub_str_tab = {};
9 G4 ?8 N3 H/ d% J) v while (true) do
7 e; E6 f( T1 X: S妖城在线论坛 local pos = string.find(str, split_char);妖城在线论坛8 e2 L, R+ g3 p9 u+ Z' w/ C& u4 r% r
if (not pos) then
! C* m- y, o* T. a sub_str_tab[#sub_str_tab + 1] = str;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 `. T2 [. v# C# x5 E" b; n% M" m
break;魔力私服,最新魔力宝贝私服技术交流& O1 \* c; c9 N9 h) A5 A$ U Y
end
3 G( p9 B# J+ d1 r6 e8 [7 ~ local sub_str = string.sub(str, 1, pos - 1);
- N3 j# [ W6 e% @( z妖城在线论坛 sub_str_tab[#sub_str_tab + 1] = sub_str;& q" B# w2 q6 ^
str = string.sub(str, pos + 1, #str);
* R" [- V. Q' w5 e$ O" m$ g8 E) l end妖城在线论坛& U. K5 i) a9 _, d" z3 b; \# f6 v
return sub_str_tab;
0 `7 E8 V) h; M% Z4 ~8 m' P—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートend
