GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- I/ N% N G7 Z) S2 C" [
/ n, ?; U* ]: x3 G, [Global_Reg.RegInit("Click_Init");
|3 |4 E- f- ?& A5 @: hClick_MeIndex = 0;
5 p& Q0 B& x! z妖城在线论坛local RC_P2;
2 Z9 O$ N2 o+ O4 ]* b) X魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表local RC_Tmp = nil;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 [$ i( L8 ?; X1 |3 T' O1 |
function WindowsTmpNpc_Init()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ X/ O7 K/ R$ o
if(Click_MeIndex == nil)then
) F; o, z0 G) n, C0 v1 Sbbs.mocwww.com Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. u1 `! `8 {2 H: o
Char.SetData(Click_MeIndex, 1, 105254);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 M. O) R6 G8 {4 B& d6 U
Char.SetData(Click_MeIndex, 2, 105254);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, {5 D2 w5 f' ~/ u$ G! Y8 L2 G) U* |
Char.SetData(Click_MeIndex, 3, 0);
; Y R. _; E+ M妖城在线论坛 Char.SetData(Click_MeIndex, 4, 777);
2 T2 ?/ ` y) {bbs.mocwww.com Char.SetData(Click_MeIndex, 5, 14);
$ f8 s9 l& Z0 X; E# H魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Char.SetData(Click_MeIndex, 6, 13);
' Q% m8 r% ~( l0 G—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Char.SetData(Click_MeIndex, 7, 5);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; {' G0 N" U$ `! O
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
& H1 A) q! C+ \+ ^3 _8 [魔力私服,最新魔力宝贝私服技术交流 if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then妖城在线论坛# R3 y" l8 P4 A" ?
print("RCVal_Talked 注册事件失败。");
% a! R7 f' a+ N$ ?* a* U; f/ `( Q—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート return false;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 o m% }0 `( u8 [. W
end
3 P9 @+ @) |) U$ l5 Z0 h NpcIndex = Click_MeIndex;魔力私服,最新魔力宝贝私服技术交流, B, O! t/ O5 p1 k$ x1 Y3 @
InstallNpc("Click_MeIndex",Click_MeIndex)bbs.mocwww.com- p" Q+ y4 m; K) [) Y) p
& t; t' V) [% V& P—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート endbbs.mocwww.com9 ~! p& E3 \$ N F
return true;魔力私服,最新魔力宝贝私服技术交流5 S3 C" p% ~7 L
end妖城在线论坛& U& t5 o% E, d! A$ a+ o- t2 H
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
2 d" o+ W# f; e& W3 `- R6 @! qlocal p2_Index = RC_P2;bbs.mocwww.com5 v2 P# U# b. b. G/ F" }/ j" A* r6 ]
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);bbs.mocwww.com |5 l# T, D8 {5 l
+ ~ L3 E: Y B1 x5 G' I K妖城在线论坛 + M, P* f, w8 ?
if (_Seqno==0 and _Data=='1') then
0 p* k! u- U& N* i) A; n+ @ --『查看资料』
$ F. z3 u8 d8 ^& G3 t9 D RC_Tmp = p2_Index;bbs.mocwww.com: v: L& U+ V: b0 T8 S
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; r, E& Z8 C2 Y8 V
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%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 z& j0 r4 X# D8 n H
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 V1 y+ c$ Y* y8 L& x# R
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 S7 l! T( j, T. |
elseif (_Seqno==0 and _Data=='2') then
& w& f* _! s: e; G7 w6 d2 O魔力私服,最新魔力宝贝私服技术交流 --『给予道具』妖城在线论坛& T/ U3 f" i3 Y. v- t! Y6 |. H
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);
; C5 A+ W- J# f$ [ f5 G9 A7 u+ J; V—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート return;
/ u: E0 t8 I% J- |$ R [—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif (_Seqno==0 and _Data=='3') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( R. P, ] l! l1 S
--『给予魔币』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 u! R$ k, g* e; E$ G
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. |/ L+ A' k" W. Q0 E5 l9 H$ F6 T4 b
return;bbs.mocwww.com2 N% T2 J( f8 q+ ~: H# |
elseif(_Seqno==0 and _Data=='4')then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 m$ I- b3 R- {. `3 @
SetDebug(p2_Index);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 y! S9 L( H. c) ^
return;
3 X* i# M' x e* h% _# r- h9 m f魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 elseif (_Seqno==0 and _Data=='5') then
9 {5 n1 [+ C) z% \, w魔力私服,最新魔力宝贝私服技术交流 --『封关联号』
8 v8 m J3 D7 R% D5 | i: wbbs.mocwww.com 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
/ D9 A8 r4 b n# w0 o—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
* {$ @# ]( K. d% U# ^( f9 K( V% m妖城在线论坛 else
) z. ]3 R3 L3 Z# B7 `2 U1 f9 w" Cbbs.mocwww.com NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
k+ T; @+ C- e+ p A魔力私服,最新魔力宝贝私服技术交流 end妖城在线论坛9 |6 S+ c1 B. y, J) s
return;
4 |5 b0 x, _" C3 A# {7 h. k elseif (_Seqno==0 and _Data=='6') then
4 N9 p- M) P: Y& s \% Q; _魔力私服,最新魔力宝贝私服技术交流 --『传送对象』
% i* ?4 Q! o2 S) T! X# S7 J: a NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
0 D6 p& ]1 R' w魔力私服,最新魔力宝贝私服技术交流
& g5 [3 z0 j. }6 t1 Bbbs.mocwww.com return;
Z- a, P/ u z& U3 ebbs.mocwww.com elseif (_Seqno==0 and _Data=='7') then
( J6 g1 | r, u5 f' {' D3 q --『踢他下线』—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 e7 _ t* l( O5 Y4 Z* E' C5 N+ F
NLG.Close_Socket(p2_Index);妖城在线论坛0 g: F0 Q7 D0 X, L
return;
5 w3 E' H, V: L& A; Q: |4 wbbs.mocwww.com end魔力私服,最新魔力宝贝私服技术交流" L) E& P2 ?; n
if (_Seqno==22 and _Select==1 and _Data~="") then
* Y ^/ o- f; a—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート local pppp = split(_Data,",");魔力私服,最新魔力宝贝私服技术交流% H9 m; C/ `4 U4 ~2 s* j
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
$ U! |8 \, ]0 N9 L3 t if type(giveitem) == "table" and #giveitem > 0 then
+ K$ S8 J9 F% A/ i$ X6 S9 g魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力宝贝私服技术交流6 a' W4 P+ ?1 Q, Z, a( U
else. [8 A& A1 H, z; F0 [: L4 t
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
" O' L$ U/ a8 C2 R( h" q% }) D魔力私服,最新魔力宝贝私服技术交流 end
; g* L! j: H# @4 W! y魔力私服,最新魔力宝贝私服技术交流 elseif (_Seqno==33 and _Select==1 and _Data~="") then
- o& N- s0 u, @3 M—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;妖城在线论坛8 c2 k- l- l9 w6 [; U
if gold <= 10000000 and gold >= 0 then妖城在线论坛4 q! m4 o" W# v: N9 E" D* y# V) ^6 w
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);) j7 j" a2 ~5 V0 M, j# u
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
3 t$ X% p& G) y- Obbs.mocwww.com NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 \- c" {" G8 I: G9 l# L5 p
else
) G$ a+ Q& f1 Q" F/ _0 \魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
: L5 h9 D" x/ Z/ n妖城在线论坛 end
# Q. }! R; O) m& m: ~* u魔力私服,最新魔力宝贝私服技术交流 elseif (_Seqno==44 and _Select==1 and _Data~="") then
" Q- R6 B" _9 E" Q妖城在线论坛 if NLG.GivePet(p2_Index,_Data) > 0 then
" L! G4 Y8 |' G6 y5 { _) p. Vbbs.mocwww.com NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 I: p5 J6 Q; f
else
- H& [" }/ X5 g+ W4 y7 I—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);bbs.mocwww.com' `# F& T( |) l, Z$ p! ?7 ^* v% o
end
4 _: M# h% H1 |& z0 v1 Z6 \妖城在线论坛 elseif (_Seqno==55 and _Select==1 and _Data~="") then
4 N$ Y ^0 @4 f: C8 [; {5 g; O魔力私服,最新魔力宝贝私服技术交流 local warp = split(_Data,",");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 D' k( ] B) B/ [) S0 K1 `% S" B
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
" V& F3 V0 S" r' F8 V n7 @bbs.mocwww.com NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
$ X7 f: A/ H# ^: S5 T% ?/ Vbbs.mocwww.com elsebbs.mocwww.com5 U7 f8 C) u2 i8 k+ ~
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
: ]- F6 {1 d3 {2 V" J( u E妖城在线论坛 end
! _& B; t: X" s& p+ n5 p) y( Sbbs.mocwww.com end8 v6 q. N, ?! g! R. [8 u
end5 c4 z# d1 m2 G$ d5 ?! w
/ g: S* e2 W$ ~0 M9 h6 L0 t魔力私服,最新魔力宝贝私服技术交流function SetDebug(CharIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# o/ A) j- M) V- A* r: F
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);妖城在线论坛' |6 O$ `: v2 I* x$ F# B
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");妖城在线论坛( f2 C+ A, E" g9 z* `* j& g4 f
end
& s7 x. _ q& [5 ~0 x, P+ A5 K魔力私服,最新魔力宝贝私服技术交流魔力私服,最新魔力宝贝私服技术交流5 `! q) w4 ~! ?- G& f. k5 c
Global_Reg.CharRightclick("Rightclick");
7 A& F; z& N+ h" t; P- k0 g5 ibbs.mocwww.comfunction Rightclick(p1,p2)妖城在线论坛8 \$ d- c. N# A' r7 P! I
if p1 == p2 then
! ~2 H3 G/ a* i B魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 return; 4 r" g: H* X& n8 ~5 T6 Z
end
. o1 ~2 R+ y9 }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
7 g3 Y- Z5 D3 \' z: i妖城在线论坛 if NLG.Get_Char_Date(p1,145) == 1 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, [1 A2 M9 d+ T4 }
RC_P2 = p2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 w! W7 J' H, ?6 v7 R$ j
NLG.ShowWindowTalked(p1, 2, 2, 0,
5 ?1 S5 a$ S0 Z* O4 E: ^ "1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% H& p, I1 v0 P: r$ h( [ v) z4 u% y
"\n 『查看资料』"..
[0 {0 N1 {: f6 \' `) ]8 N; u魔力私服,最新魔力宝贝私服技术交流 "\n 『给予道具』"..魔力私服,最新魔力宝贝私服技术交流3 c7 ~+ o. ^% q# \) {0 L
"\n 『给予魔币』"..5 H0 p+ D; T. T/ n" C g' \0 E
"\n 『封机器码』"..
; k2 t' o E! t* K$ U k3 X—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート "\n 『封关联号』"..
8 T b# Y1 ~9 @/ K8 b; o "\n 『传送对象』"..
* ^2 T( l4 [& Y% s7 v% A$ Wbbs.mocwww.com "\n 『踢他下线』",
* S: A! q# w9 b: a7 \—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Click_MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( D8 V, c) y! X" ]/ a F
end
6 t7 t" d7 n/ p+ |- z' [1 @: ^8 t# N魔力私服,最新魔力宝贝私服技术交流
( V4 D6 h5 @; o* g7 `妖城在线论坛 return;
+ r) D) r1 S" O; K7 I魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表end
. C7 `; P5 C3 O. q9 ?+ ?function Click_Init()# A. `- L& }' g- j; z( U
Click_MeIndex = nil;魔力私服,最新魔力宝贝私服技术交流8 ` R4 A# @4 {
WindowsTmpNpc_Init();魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 P7 W: ~# U0 }- V2 x' y/ O; y
end
8 M1 h6 y: j: b$ K9 s- g( `魔力私服,最新魔力宝贝私服技术交流function initClick_Init(index)
/ w( R- g' @. _0 R2 {( a8 T* Q妖城在线论坛 return 1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 c; V1 s i$ v+ V$ r% ^* z
end
9 k: v1 v: `) E& wfunction split(str, split_char)妖城在线论坛: {2 M$ n" T! T( A$ c/ ^+ |
local sub_str_tab = {};
0 s0 E6 Q7 U/ U魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 while (true) do妖城在线论坛8 Y2 y1 J7 |5 e# r
local pos = string.find(str, split_char);
4 ?" Q' V$ L+ f3 g& r5 D1 f3 Z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート if (not pos) thenbbs.mocwww.com. d# `3 O* L" I7 p; P5 [
sub_str_tab[#sub_str_tab + 1] = str;
2 P* I" s3 i& e$ J% U魔力私服,最新魔力宝贝私服技术交流 break;
- L7 E( ?/ v( V" Pbbs.mocwww.com endbbs.mocwww.com/ W4 i% z. y# |( Z! I
local sub_str = string.sub(str, 1, pos - 1);
( [( Z; h2 [4 D, U6 W0 Z- k0 j妖城在线论坛 sub_str_tab[#sub_str_tab + 1] = sub_str;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- x& q6 ]% c+ D" W0 P( e ^. b
str = string.sub(str, pos + 1, #str);
! Z# X' ?0 r; y: m5 b& I end
1 v @. p+ e, B6 f7 v1 V$ Y return sub_str_tab;
/ Y8 r3 U1 V, `7 M& B& q—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートend
