GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. B1 a5 R* x# p, J* s& X* Z
3 t9 k9 A! C! R4 f, Y妖城在线论坛Global_Reg.RegInit("Click_Init");魔力私服,最新魔力宝贝私服技术交流$ J; a/ } {4 i7 c5 n# l3 T
Click_MeIndex = 0;, x" f ~) o& |, T$ a
local RC_P2;
: P7 p# F; m1 B1 x/ r1 \local RC_Tmp = nil;7 M s% A/ `+ Q
function WindowsTmpNpc_Init()
( Z; A9 W* q; D+ m6 d. v妖城在线论坛 if(Click_MeIndex == nil)then魔力私服,最新魔力宝贝私服技术交流! h. o+ X! D0 X3 S% M, G+ m- B q8 a
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
. S7 T/ u- |8 o Char.SetData(Click_MeIndex, 1, 105254);
7 m: O: b8 ?' R) s—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Char.SetData(Click_MeIndex, 2, 105254);魔力私服,最新魔力宝贝私服技术交流6 u: z; Z( Y- B8 p) h* B4 G
Char.SetData(Click_MeIndex, 3, 0);
; ~- j: y- |3 S3 f) C( ]2 b Char.SetData(Click_MeIndex, 4, 777);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 N4 ^1 P7 w# a% Q6 H5 Q9 ?3 u, n# w
Char.SetData(Click_MeIndex, 5, 14);
9 p+ S" T0 l, d% a" _: Z妖城在线论坛 Char.SetData(Click_MeIndex, 6, 13);bbs.mocwww.com, t4 D6 w% A0 H
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, O3 }2 l8 L0 Q7 A
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
* k# M* m% M/ @5 C ~ if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 ~; A6 i. l: n! Q
print("RCVal_Talked 注册事件失败。");bbs.mocwww.com0 |+ b) R/ V6 u( x5 ] e
return false;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ q, j1 C; N% v" B; C# B
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; c) a+ F! \* r9 z, M
NpcIndex = Click_MeIndex;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- `$ W: M- k0 i0 ~
InstallNpc("Click_MeIndex",Click_MeIndex)
9 }0 j9 \1 Y; ~+ y, V6 }魔力私服,最新魔力宝贝私服技术交流妖城在线论坛- e% A5 X8 i+ [. | U
end8 Y$ d/ ?$ c" |( l6 x5 ]1 A
return true;妖城在线论坛3 R' I/ D: ~7 |2 F q( k6 x6 O
end魔力私服,最新魔力宝贝私服技术交流* M- Z" I2 h% T
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
% u: i6 ~% S) t' K E& `bbs.mocwww.comlocal p2_Index = RC_P2;bbs.mocwww.com. w$ }0 |8 B& m. `1 ~
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
, m2 P( c3 i2 I% {$ P妖城在线论坛魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# N/ Z4 d% O1 e0 l7 h+ V
妖城在线论坛7 E$ W: k; i) \8 M5 Y; S9 ^3 I
if (_Seqno==0 and _Data=='1') then
" g& p w; H) ^, K魔力私服,最新魔力宝贝私服技术交流 --『查看资料』
& {; X5 j+ y7 r魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 RC_Tmp = p2_Index;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! M, G& W3 N0 d) s# e
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
) N. T8 X% b, ?9 i' g—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート 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%);魔力私服,最新魔力宝贝私服技术交流8 g2 J5 X x* h8 K4 U2 k" b
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);妖城在线论坛$ z3 z# K" T i5 G% M# H
return;妖城在线论坛7 n. ]/ w2 N5 w: m
elseif (_Seqno==0 and _Data=='2') then
0 c/ T4 V- r+ K5 X) M魔力私服,最新魔力宝贝私服技术交流 --『给予道具』妖城在线论坛+ @$ T( _ ]! c# X) c' H
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);bbs.mocwww.com) b1 `" D7 q: w4 E& {! R0 f
return;
% }- ?/ h/ G: i ?" z. w elseif (_Seqno==0 and _Data=='3') then
* p& d! n) V, n+ L4 k/ N& e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート --『给予魔币』
, ^9 K. K0 x% W" D3 F5 n, @, ~1 C—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
9 s1 g3 Z: P9 _( _/ W return;
. _- X2 q" W. v+ I7 t3 v—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif(_Seqno==0 and _Data=='4')then妖城在线论坛" p6 Y6 ^3 m, _+ J' Z# F9 T
SetDebug(p2_Index);妖城在线论坛) s5 e: s4 l( E9 b. ]7 |& f
return;妖城在线论坛4 h6 O( a- k* n
elseif (_Seqno==0 and _Data=='5') then
r! S9 Y7 w/ }+ c9 H5 ~ --『封关联号』魔力私服,最新魔力宝贝私服技术交流$ }! g& Q! Q0 N" q
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
$ G; @3 P5 Y3 R NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
: T; _1 V6 k* K2 G$ A$ s1 \妖城在线论坛 else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート e! Z# w0 C5 L( z
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
5 @* i$ A$ N/ Y7 H$ j" e魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 end
1 ^* Z9 P( o t0 a$ K/ C妖城在线论坛 return;妖城在线论坛( U* r1 \# _0 `5 e, X
elseif (_Seqno==0 and _Data=='6') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 W4 N, n5 o% R: w/ j/ w; a! e. n
--『传送对象』bbs.mocwww.com5 k* X1 l1 K5 G* Q
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);# ?" a: [! H5 A
5 a6 E$ W9 t* w1 {; R) m$ F7 {
return;魔力私服,最新魔力宝贝私服技术交流9 B! U$ C( l# B( P" k
elseif (_Seqno==0 and _Data=='7') then
$ G+ U" ?0 G; t5 |# Sbbs.mocwww.com --『踢他下线』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, W$ w+ s) y3 d' V, Q! J, u: z
NLG.Close_Socket(p2_Index);% W8 K3 N8 h; h0 m3 b# o* L# n
return;魔力私服,最新魔力宝贝私服技术交流) }2 M; }- W8 N- H
end
! b; d2 p7 s" `魔力私服,最新魔力宝贝私服技术交流 if (_Seqno==22 and _Select==1 and _Data~="") then# i" @/ ^9 j8 Y- w% Q* {1 E
local pppp = split(_Data,",");
" R4 g D/ Y- U b3 j魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 d3 @% a( A) K- {6 q
if type(giveitem) == "table" and #giveitem > 0 then
p* A6 B2 f; z2 x' v- `魔力私服,最新魔力宝贝私服技术交流 NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力宝贝私服技术交流- O' O9 b6 O! @, {9 V
elsebbs.mocwww.com. a) n: o, T& f9 v1 A6 ?
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Y# f- H+ r! p+ X* W3 I
end
- w& u. e2 X+ N. i妖城在线论坛 elseif (_Seqno==33 and _Select==1 and _Data~="") then
% ?5 D1 j0 i& G' c—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;魔力私服,最新魔力宝贝私服技术交流' W! h' ~' i& g; g3 g5 \/ E
if gold <= 10000000 and gold >= 0 then
: S' D4 K; }; d ^魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);
8 f6 b' C# D4 h0 L. b; G4 W4 J' r魔力私服,最新魔力宝贝私服技术交流 NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
, [) T2 q) a' j) |bbs.mocwww.com NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);4 d, b/ r% f, a8 n& e, M2 d
else
2 H' ^, q8 l2 F- @—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 X5 W1 c$ A/ G* _8 S* Q
end5 U! }8 R& B4 C: L2 L- x' H
elseif (_Seqno==44 and _Select==1 and _Data~="") then
# T0 x# p3 j) y! e7 r if NLG.GivePet(p2_Index,_Data) > 0 then
- h; P0 S8 f+ X. Q$ ^- b—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
' b4 Y* @% |+ ?9 |5 Z魔力私服,最新魔力宝贝私服技术交流 else
; X) e# r4 t! J( m e7 S魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);6 d) A; H) R2 X
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 [1 E$ [- J/ o* b+ |4 i2 S. |6 X3 p, ?; T
elseif (_Seqno==55 and _Select==1 and _Data~="") thenbbs.mocwww.com7 Z7 _2 ^6 f# J. a9 j
local warp = split(_Data,","); g8 A5 b. I* [2 q3 l' J
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
9 {# [) V: K( ^ w—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);& D8 Z1 E( \5 s. F& J
else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 i4 s, [+ {+ K, U E
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- \7 J7 x. r: [/ N6 K$ u
end
( D2 d6 U! D. V @5 w) z' m end魔力私服,最新魔力宝贝私服技术交流- z E6 T: U2 Q: |4 l
end
/ z+ a4 ^( x7 C" r& P2 o
/ B) A/ Q D. l# m4 S7 }bbs.mocwww.comfunction SetDebug(CharIndex)妖城在线论坛7 j! l, D- @ S6 q! o
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; w y! Z4 g! x* ?' I
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
' Y6 C- M$ o' N) e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートend
' d0 c$ F: w, U6 f( ^魔力私服,最新魔力宝贝私服技术交流8 J5 C$ R4 k/ k: X6 r
Global_Reg.CharRightclick("Rightclick");
* F9 ~% s6 ] M—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートfunction Rightclick(p1,p2)
, M; Q% C: f: |! _& I魔力私服,最新魔力宝贝私服技术交流 if p1 == p2 thenbbs.mocwww.com( u6 j5 k/ u7 r, a4 n
return; —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 H+ C* i1 [$ L9 V4 s( y
end
! r" e- N& |& b8 l妖城在线论坛 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* {$ m; r# c& N) o9 K2 A: P
if NLG.Get_Char_Date(p1,145) == 1 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, U- N, z, m5 n, _7 P5 V. j' e' Z
RC_P2 = p2;妖城在线论坛2 b, f1 }& N8 J4 y% A: r
NLG.ShowWindowTalked(p1, 2, 2, 0, $ J F1 Q% ~' E. r& n, C
"1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 w. E$ d }7 t. L. V0 d
"\n 『查看资料』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 S9 X; L5 v N$ w( J5 F0 A( A! |
"\n 『给予道具』"..魔力私服,最新魔力宝贝私服技术交流2 z8 F4 }# u. I5 k7 @$ k7 X/ y
"\n 『给予魔币』"..魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, L1 e# c4 B" P, w' j4 ~& p
"\n 『封机器码』"..
C1 X1 H9 o% r) y2 J1 `妖城在线论坛 "\n 『封关联号』"..
2 C( y1 p$ G# r: l7 a "\n 『传送对象』"..
4 i" r+ ]8 m" ?! K% V "\n 『踢他下线』",
: V# u' _# Z7 Q. H* X妖城在线论坛 Click_MeIndex);$ O1 W) T0 H5 l1 H( O& C0 K
endbbs.mocwww.com3 n* _6 U. f# K5 ^. z( v
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 ?; |$ K) j- o& s
return;
0 d8 L9 P* ~! Q' N2 Q魔力私服,最新魔力宝贝私服技术交流endbbs.mocwww.com, i9 ~/ l$ }3 o. S: d4 m+ j) T
function Click_Init()妖城在线论坛6 d* a8 u1 k0 S2 `" U
Click_MeIndex = nil;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. E- B* P2 G R- p$ ~ k
WindowsTmpNpc_Init();
0 @; ]) @9 K3 J! u; C }bbs.mocwww.comend魔力私服,最新魔力宝贝私服技术交流: \. g* i: k% w/ M8 c
function initClick_Init(index)
; N- u# o. b& H6 W5 K+ h6 M S妖城在线论坛 return 1;
/ {4 n _ X; a/ a" J& G8 X, ^# S# Z# Z魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表endbbs.mocwww.com0 E# V+ C9 x, x
function split(str, split_char)
) R" h# T7 q. P' k local sub_str_tab = {};
! p) A! O2 P: L- V$ G$ l妖城在线论坛 while (true) do魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ K0 J& L" @* I& d
local pos = string.find(str, split_char);魔力私服,最新魔力宝贝私服技术交流' f* o# J3 u2 x- m% G1 D
if (not pos) then
! @4 u& N! f. j3 k# L妖城在线论坛 sub_str_tab[#sub_str_tab + 1] = str;
1 z3 P$ [- B5 I" S2 B- Q9 ?" q break;# n. S: p! Q6 p0 f
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- C$ Y, w3 ?' P! a( W" F5 A/ C% u# Y4 c* U
local sub_str = string.sub(str, 1, pos - 1);
6 {" f' h. R$ L" M0 N魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 sub_str_tab[#sub_str_tab + 1] = sub_str;
4 n! H; h: s5 X+ g魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 str = string.sub(str, pos + 1, #str);
# |/ E( e+ A' U2 c' S' H, ]bbs.mocwww.com end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, q9 c: f+ S' z
return sub_str_tab;bbs.mocwww.com3 ^; R1 Q6 z O# Q0 H
end
