GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人
. J0 t( k) x( L魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
6 W+ h1 x& A7 w/ ]1 Ebbs.mocwww.comGlobal_Reg.RegInit("Click_Init");妖城在线论坛% m3 q; S" _& C( i4 Z4 b8 Y% \5 p
Click_MeIndex = 0;
. I8 G( `% H. d0 |% ^) F魔力私服,最新魔力宝贝私服技术交流local RC_P2;魔力私服,最新魔力宝贝私服技术交流9 i5 s. g- T. \6 u* p- i9 q; m5 B
local RC_Tmp = nil;魔力私服,最新魔力宝贝私服技术交流: _( t3 Z) C& z, {" `5 X
function WindowsTmpNpc_Init()
5 Q6 u6 U/ u4 j7 N/ E @$ j8 V魔力私服,最新魔力宝贝私服技术交流 if(Click_MeIndex == nil)then
) j3 H* i* N+ F4 g( t妖城在线论坛 Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");bbs.mocwww.com+ T% B* t$ [" [& x( m/ _% c
Char.SetData(Click_MeIndex, 1, 105254);bbs.mocwww.com1 `% r( I. q9 a G' ?: }# ?. D0 ]7 u
Char.SetData(Click_MeIndex, 2, 105254);
: k( h6 r& o( C5 l9 n, `妖城在线论坛 Char.SetData(Click_MeIndex, 3, 0);bbs.mocwww.com4 ^* o, a8 n. _& e+ E( Q: C( K
Char.SetData(Click_MeIndex, 4, 777);
& e; Z) X# z3 m" A3 `! h wbbs.mocwww.com Char.SetData(Click_MeIndex, 5, 14);魔力私服,最新魔力宝贝私服技术交流2 b/ ?" `6 Y+ H; s$ k
Char.SetData(Click_MeIndex, 6, 13);7 i1 ?: ]# U( l7 b
Char.SetData(Click_MeIndex, 7, 5);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; z5 V1 Q$ p) e i. t3 I6 Z' w( X
Char.SetData(Click_MeIndex, 2000, "ClickNpc");
) ?8 ]( X3 W1 X( W A; @ if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
# T9 `( {* E0 @8 W print("RCVal_Talked 注册事件失败。");
3 g) m2 j3 V# x: w! G" {妖城在线论坛 return false;
$ y/ W3 R: W% A% N, fbbs.mocwww.com end魔力私服,最新魔力宝贝私服技术交流. U# h$ F1 U% n: g
NpcIndex = Click_MeIndex;妖城在线论坛. x0 K6 O/ L$ d; a: ~/ [, ^ ]
InstallNpc("Click_MeIndex",Click_MeIndex)
: R0 k! L6 X# ]5 C—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
0 w* [! s; [' o( K& t; n B7 wbbs.mocwww.com end
- r; ~# X* f" G9 e! W魔力私服,最新魔力宝贝私服技术交流 return true;
6 w1 o) w2 B6 \3 t* F妖城在线论坛end
& W; T/ |7 m3 `* m妖城在线论坛function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
' D# s! ~% `7 Z+ }) Q* [# {: B魔力私服,最新魔力宝贝私服技术交流local p2_Index = RC_P2;
/ ]& d8 r$ {$ _0 }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートlocal Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
6 \1 J3 T% V, q- X( b5 G妖城在线论坛—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; }& ] a6 O" f$ g0 O0 [
( q3 ]9 r; c" u if (_Seqno==0 and _Data=='1') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. {. W- h: L/ A4 o/ u& I
--『查看资料』魔力私服,最新魔力宝贝私服技术交流* S: F$ i {9 a H; Y4 M7 w
RC_Tmp = p2_Index;
7 U. T) [7 i) n3 t RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
: P0 r( c/ @" S+ i妖城在线论坛 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%);
) K1 Q5 @# l9 T' S' Z9 I" u魔力私服,最新魔力宝贝私服技术交流 NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
) i. w2 _. g q8 p妖城在线论坛 return;
3 h9 F0 G% M) [1 n—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif (_Seqno==0 and _Data=='2') then魔力私服,最新魔力宝贝私服技术交流$ w# i1 m. t: K
--『给予道具』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ `1 y$ e# x6 v
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 I0 X1 ?5 V! r4 D6 P- l; `, i8 c
return;
# o% w5 C; A$ y5 z8 V魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 elseif (_Seqno==0 and _Data=='3') then
1 O2 p. y/ e% k! X/ q8 _魔力私服,最新魔力宝贝私服技术交流 --『给予魔币』
Q! V( L" q1 |' {) b. f! M—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
8 F7 [, |+ y. J, [bbs.mocwww.com return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; z# j. @1 V& V( c! n0 q' V
elseif(_Seqno==0 and _Data=='4')then
7 f) Q% n! |: a) ^& j) K! v" i$ m妖城在线论坛 SetDebug(p2_Index);
( P0 _" ?) M& l" ^7 d/ H3 Ibbs.mocwww.com return;
, A; q2 [" L0 v/ {& n( u- {bbs.mocwww.com elseif (_Seqno==0 and _Data=='5') then: Q: k0 t+ G. y8 s) R+ O0 o
--『封关联号』妖城在线论坛$ ^6 j1 [$ X8 k7 u4 t
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—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- \9 K% X0 k% ?# @% ^: q
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
1 e" Q- d6 O2 G; f妖城在线论坛 else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& \- |' |0 X. |
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
' P& s" i1 J& S—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) L6 y7 l3 H: V3 k2 e( s ~# R
return;
( H: p$ C/ ?& ~9 M5 |! Y妖城在线论坛 elseif (_Seqno==0 and _Data=='6') thenbbs.mocwww.com' p M+ o! H7 A; D1 t/ }) ?" S
--『传送对象』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 Y. `* y9 _+ `* l+ ], M6 [9 d
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
4 U1 T) _' p( a9 N 妖城在线论坛4 M0 i& G- m" f+ q7 M4 J0 q Q
return;
; V" K2 V+ C. w! i% e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif (_Seqno==0 and _Data=='7') then
$ k& N& w0 S6 M5 O0 s! P2 Bbbs.mocwww.com --『踢他下线』
/ r" ~& t! I4 z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.Close_Socket(p2_Index);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 \0 o. m; a$ e" i8 |
return;bbs.mocwww.com ?( h9 B! s1 w, L
end魔力私服,最新魔力宝贝私服技术交流/ k; m; j# L' q' M, s
if (_Seqno==22 and _Select==1 and _Data~="") then
$ L R" T. N e* N8 x$ e4 [魔力私服,最新魔力宝贝私服技术交流 local pppp = split(_Data,",");
; |1 {5 e! n8 _% Y$ b' `5 J魔力私服,最新魔力宝贝私服技术交流 local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
: j0 N$ K3 m# z if type(giveitem) == "table" and #giveitem > 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( x* `- M) \6 r- \
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);魔力私服,最新魔力宝贝私服技术交流. w2 V+ ^2 @/ K% _: O& m, `
else
' s" D# C8 J0 [6 b8 w NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
' N0 O6 y/ v3 D3 B) |! S—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end, C# W& P$ y) G
elseif (_Seqno==33 and _Select==1 and _Data~="") then
; e6 |8 P! Y! f! ibbs.mocwww.com local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;妖城在线论坛/ J/ y% \ V3 I7 {0 y
if gold <= 10000000 and gold >= 0 then
, H! R k) H! O/ e% |2 }妖城在线论坛 NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);妖城在线论坛, Q( `1 b; w8 v _4 ~
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
# J4 m! X; Y" P5 H6 h6 U魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);
' `! d8 t3 A4 }& Z5 v. g/ \魔力私服,最新魔力宝贝私服技术交流 elsebbs.mocwww.com1 v# ?4 t6 D8 {" {5 s& \# d
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# ~; q) W& i; _; O8 p
end5 r w; m: V& M% {
elseif (_Seqno==44 and _Select==1 and _Data~="") thenbbs.mocwww.com! k8 a2 \. y! U& u% U) o: d3 k# @: j
if NLG.GivePet(p2_Index,_Data) > 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート y @% c. s+ X: ~" `
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);妖城在线论坛% h7 u. E' D4 e$ j( M
else
' {% m) W3 j4 x—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);魔力私服,最新魔力宝贝私服技术交流+ H" W$ \ O7 P$ U
end! F4 T6 t# ?6 A2 L; z e6 W
elseif (_Seqno==55 and _Select==1 and _Data~="") then妖城在线论坛; L% H2 s5 | G" L6 G M
local warp = split(_Data,",");; r. s" R" L, I7 ~7 R |" w
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then
! L& R1 a2 _* s1 e' O4 R6 e" F/ e妖城在线论坛 NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);bbs.mocwww.com- n& L7 C: X$ z) Q# B
else
1 k# W$ K2 P; I9 {妖城在线论坛 NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ l2 z0 e' u, J2 x2 p$ J/ J7 ^
end
, A. t, a- Y2 ]7 J魔力私服,最新魔力宝贝私服技术交流 end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! U0 F: H4 H2 }2 G( L2 [
end妖城在线论坛. f, g, R0 m& a U% g$ d' ]! k& w
0 r8 h% K7 N, w2 S# X魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表function SetDebug(CharIndex)
. S/ ^* y1 @+ c5 |. D* B魔力私服,最新魔力宝贝私服技术交流 local Debuguser=Char.GetData(CharIndex,%对象_帐号%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) O5 g( I& r5 i
SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
0 v4 G8 a' T3 v& D! ^end
M$ J0 a) A$ I! T5 S妖城在线论坛
! W8 A+ R9 M$ a& AGlobal_Reg.CharRightclick("Rightclick");
' M6 |2 I) S0 [5 I—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートfunction Rightclick(p1,p2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 O4 J7 ]+ t: _3 m; U3 ?
if p1 == p2 then
7 G/ J9 q f. K% _6 E魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 return;
" E; q: W# G$ i6 Z \1 a: N—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end
7 d& \; D% y& j, D妖城在线论坛 —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# D6 v5 Z# a ]* n3 i$ x
if NLG.Get_Char_Date(p1,145) == 1 then
( ~9 c. E' g0 C1 W' M. b魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 RC_P2 = p2;bbs.mocwww.com8 _) g# \1 k# b$ [. t- ~
NLG.ShowWindowTalked(p1, 2, 2, 0,
. D& v# O& O* @# n4 J( h8 ibbs.mocwww.com "1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
, O0 [( t' Y1 Q+ f& p6 a I% k0 J—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート "\n 『查看资料』"..# a# r, m- @4 }5 L
"\n 『给予道具』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# Y, X0 i6 }# e
"\n 『给予魔币』"..
J( d8 v+ G, ~5 Qbbs.mocwww.com "\n 『封机器码』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ m& v% W0 z4 R' b U* i
"\n 『封关联号』"..魔力私服,最新魔力宝贝私服技术交流& m) k6 M4 i k5 [; ]
"\n 『传送对象』"..
6 j+ B- C1 @7 p$ V* _魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 "\n 『踢他下线』",) Q8 i) K+ E1 d1 B1 M
Click_MeIndex);
* T7 Q: M& Z$ I$ w: y3 v) v: L endbbs.mocwww.com. Y6 P2 T* {) }0 x. i; x: v, L
bbs.mocwww.com, `! x+ p: s; S9 V h) Q
return; " w8 A) Q2 e4 Z4 W' {
end妖城在线论坛% {1 l6 h, V* d2 [! ]: `' a/ H, _
function Click_Init()
$ W% W- [9 c( t/ @+ p' @妖城在线论坛 Click_MeIndex = nil;
5 j" V: D# }8 A' E魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 WindowsTmpNpc_Init();—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& |" ?7 G6 @5 N! H( B6 Q9 u
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; L% L5 D& K( U0 i; B
function initClick_Init(index)
( g" g- W% g" M+ m魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 return 1;
2 }, q! K, n% {0 v- e' g—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートend7 x% r5 S8 m2 @: k; d
function split(str, split_char)魔力私服,最新魔力宝贝私服技术交流+ C: {5 ?, R9 k$ F) E
local sub_str_tab = {};—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( i7 G/ X8 g2 K
while (true) do
, Y- D$ I, b. X* x local pos = string.find(str, split_char);妖城在线论坛9 Y E# O/ m. b. i
if (not pos) then
1 Y: [: a1 R; o/ m) K4 {bbs.mocwww.com sub_str_tab[#sub_str_tab + 1] = str;
" N5 x0 u$ [& l' \$ e1 a: C/ L—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート break;
0 g, @4 }$ J0 d/ [' K0 ~1 Z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ p6 p9 D' G5 }# x3 J
local sub_str = string.sub(str, 1, pos - 1); 魔力私服,最新魔力宝贝私服技术交流2 k" R/ s4 C' n
sub_str_tab[#sub_str_tab + 1] = sub_str;
: s, O' S$ z: e* Y, }bbs.mocwww.com str = string.sub(str, pos + 1, #str);
G/ U4 ?# T1 K% Z* X# f& R5 o4 v9 R—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end妖城在线论坛# r6 d) d- }& |7 [- l9 N
return sub_str_tab;
1 M/ W0 ]/ {$ R/ l' Z% ?9 P5 V$ E妖城在线论坛end
