GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人
1 b' w; w( G( `# h! h/ ]* J5 {妖城在线论坛9 W# F4 Y6 l8 K! ^, S: J! `4 {
Global_Reg.RegInit("Click_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 k- L* A! N. g8 y% ^1 M6 t% o
Click_MeIndex = 0;
& ]: t' x4 @& y妖城在线论坛local RC_P2;
. f, ~6 y+ X# ~5 E6 E6 p* Blocal RC_Tmp = nil;bbs.mocwww.com7 a# ]1 d5 o: Y# M
function WindowsTmpNpc_Init()魔力私服,最新魔力宝贝私服技术交流, R: B9 S4 l9 _
if(Click_MeIndex == nil)thenbbs.mocwww.com, A$ g& d# c" m/ S& {4 O
Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");' h6 w/ l# U2 f! b- r
Char.SetData(Click_MeIndex, 1, 105254);* g$ A) C: {9 ~& F: j/ D
Char.SetData(Click_MeIndex, 2, 105254);
: k. o2 b1 J" v4 C9 z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Char.SetData(Click_MeIndex, 3, 0);
/ |* p' l" G, {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Char.SetData(Click_MeIndex, 4, 777);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 E$ x L: k7 z6 l; H B! l0 {% k
Char.SetData(Click_MeIndex, 5, 14);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 \5 f- N$ B3 o
Char.SetData(Click_MeIndex, 6, 13);bbs.mocwww.com6 o8 d6 v8 \6 o. o6 r
Char.SetData(Click_MeIndex, 7, 5);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 f5 e, n u1 J% |
Char.SetData(Click_MeIndex, 2000, "ClickNpc");/ m1 G2 Z C" H9 \/ y* D9 ^6 z
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) thenbbs.mocwww.com3 T* V& E/ q6 S* s( P1 }4 O
print("RCVal_Talked 注册事件失败。");
5 y' m7 W" H- a return false;
( I& g6 Q2 f* a) w0 h魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 end
- T4 m) P* O( u* T9 v$ ?魔力私服,最新魔力宝贝私服技术交流 NpcIndex = Click_MeIndex;# P8 u% l6 w# v) [0 c6 b
InstallNpc("Click_MeIndex",Click_MeIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& D/ }3 n/ G R) X& {) }* {
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% m- O* B! O$ k* L. j
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" j1 L. M( M( [+ ^- r
return true;
6 j+ p& t: q' R/ R' {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表end
/ H# k9 e& F2 o f4 d4 S$ C妖城在线论坛function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 X/ m& P& M2 Y- p
local p2_Index = RC_P2;
* {; D5 \) v. y) E1 |2 m' R—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートlocal Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
. s3 [0 e& x+ J0 p" N2 Q s5 j魔力私服,最新魔力宝贝私服技术交流 @3 F- r P; g: c, |/ u* c$ a' P. N
bbs.mocwww.com0 y8 X1 P- G7 j: Z
if (_Seqno==0 and _Data=='1') then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. e* K# }9 J" @" {; v$ F
--『查看资料』- I4 B0 v0 f; y' I4 [
RC_Tmp = p2_Index;魔力私服,最新魔力宝贝私服技术交流8 m) a+ F$ [8 { F6 s [$ m; D6 I3 a
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
3 M; ?. V" }$ d- |, W# z! h$ b—魔力私服,魔力宝贝私服技术,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%);
' f! Q* I9 E- @! ?& H: {% _妖城在线论坛 NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
. g, j8 c; E' O6 n! O& D return;妖城在线论坛& P# L7 y, N. A, T1 a* P' g
elseif (_Seqno==0 and _Data=='2') then
! w8 R! s8 r' n+ A—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート --『给予道具』
* a: G; [5 w) J( c妖城在线论坛 NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);妖城在线论坛' \0 l& b! S8 p6 j+ x; w- U. \0 T1 Z
return;
h* D6 G# P9 u5 k- v1 W; n妖城在线论坛 elseif (_Seqno==0 and _Data=='3') then魔力私服,最新魔力宝贝私服技术交流% n) H/ k, k8 [& U( ]; [0 @
--『给予魔币』
6 N3 _, S! h. M+ o—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);bbs.mocwww.com; N/ [7 `. ~3 s! b5 n
return;
+ Q. V2 z' }1 b0 O4 U1 [- K; u/ `—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif(_Seqno==0 and _Data=='4')then
' X, q" I, I/ D9 k0 `% J) ^妖城在线论坛 SetDebug(p2_Index);bbs.mocwww.com+ x, \2 X; l! i
return;
0 _7 l' A$ W( d" b/ C/ O7 i* |bbs.mocwww.com elseif (_Seqno==0 and _Data=='5') then
! z5 w+ b3 m9 ^- ^! c7 E—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート --『封关联号』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ P+ @% C2 V6 c4 ]+ a
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魔力私服,最新魔力宝贝私服技术交流8 E; e, w* `6 v& f! u! k$ p
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);bbs.mocwww.com" O5 A8 g. O4 c/ L- J
else妖城在线论坛% G/ F! H, ?8 i
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& f0 F S: @. b
end
( e3 l* E- ?% s—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート return;妖城在线论坛- Q: h' R- m' D) }0 }3 v
elseif (_Seqno==0 and _Data=='6') then
1 v+ j& e, `$ d+ h8 R% V2 ` --『传送对象』
, L! n3 t& `1 d" j# \ NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
+ c& T3 O2 }/ l! k
% f: F; p; G% W. T5 |- G* v return;妖城在线论坛' A2 R; N. J0 t; j2 z: V5 H" f
elseif (_Seqno==0 and _Data=='7') then
& q. q' U7 B; l- a魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 --『踢他下线』魔力私服,最新魔力宝贝私服技术交流: G% |; U+ R6 ~5 X
NLG.Close_Socket(p2_Index);bbs.mocwww.com1 l9 |; ^1 ~& r8 E! Y
return;
5 V/ }6 ^+ F" P( p" v/ Q& i6 a end魔力私服,最新魔力宝贝私服技术交流; P( o- w$ a2 G1 X
if (_Seqno==22 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流# `* I8 K8 i& k7 c; w, V! q
local pppp = split(_Data,",");bbs.mocwww.com/ I3 C' ^, v1 A, d/ z
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, J* @! h. U& e5 B$ g
if type(giveitem) == "table" and #giveitem > 0 then妖城在线论坛8 a$ \/ N# X2 s
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
) z& \" m. S5 M8 X) ?- d9 P魔力私服,最新魔力宝贝私服技术交流 else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- Z& E% e( A E* y
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);bbs.mocwww.com/ G. T1 @+ S& N: u
end9 \* L5 @% e8 b+ s3 R- I7 f& l
elseif (_Seqno==33 and _Select==1 and _Data~="") then
. t5 G0 \; d( F1 S9 s+ E# F6 d% D妖城在线论坛 local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;1 w5 c+ c- T' a# O! k; V
if gold <= 10000000 and gold >= 0 then
& N# R# F1 _& y' S. l1 J—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);魔力私服,最新魔力宝贝私服技术交流# \1 l) ^, [# E) x
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);妖城在线论坛" ^, E2 w) u6 W- U2 e9 T
NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. A9 J! }3 q* o$ C
else1 T; R ~ R: s; e6 ~1 i
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! k8 B9 C' j* z+ @( y6 [/ D
end/ f& F! N e( v- a
elseif (_Seqno==44 and _Select==1 and _Data~="") then
8 \% x* j/ W7 @魔力私服,最新魔力宝贝私服技术交流 if NLG.GivePet(p2_Index,_Data) > 0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 L' w6 J3 q# J! j
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);
( Q9 T8 ?# r( O# fbbs.mocwww.com else
g# w! T- o# I3 k& E% o7 u魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
5 L$ E, H3 p! x3 ~3 d$ N1 ~0 M" v) b—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end
/ D6 v) E+ }1 ]魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 elseif (_Seqno==55 and _Select==1 and _Data~="") then+ D; _/ R5 o# I
local warp = split(_Data,",");
# |- U! J6 W6 h5 ^9 i0 p if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then妖城在线论坛; i2 d9 K% Q6 j, e3 D2 W+ p; N
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
( x' [5 F9 P" P7 y7 ?魔力私服,最新魔力宝贝私服技术交流 else
6 b( ]- n4 u5 }; d, X- l( {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ l, U" X3 E }% J. w8 |
end
4 _1 n5 L3 S# r3 K/ k) qbbs.mocwww.com end魔力私服,最新魔力宝贝私服技术交流4 K. Q" A [9 U( j' \1 _8 m& G/ U
endbbs.mocwww.com7 {" [* S5 D$ C9 f
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% e4 c( L, s. z* `+ M, w( u5 Y! M
function SetDebug(CharIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% p! ]4 ^: |: k* X% Y
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
) O: F, f- E( o# G: C1 j1 ^ SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
& Q) f9 M1 l0 B8 ^ ^* k0 m魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表end% ?1 @2 V/ Z; Z$ u. T: z
魔力私服,最新魔力宝贝私服技术交流8 x/ l0 z7 d! o! L; _
Global_Reg.CharRightclick("Rightclick");
3 @$ q w. a+ a+ l1 \bbs.mocwww.comfunction Rightclick(p1,p2)
( {; c/ O. p7 U% ibbs.mocwww.com if p1 == p2 then
5 r0 t: N# O5 L5 e j6 A( m—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート return; 妖城在线论坛- E6 B- c4 \! F# [2 {, k( P6 U
end
; h9 B7 f1 m( t5 f. D& f魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' i! X! s, _! x5 Z8 V$ t# l$ d
if NLG.Get_Char_Date(p1,145) == 1 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 h7 W& T+ e& O8 k; W7 G+ V5 L
RC_P2 = p2;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 Q0 N; d; u: L4 f
NLG.ShowWindowTalked(p1, 2, 2, 0,
) z1 z- H4 z) }8 y+ C魔力私服,最新魔力宝贝私服技术交流 "1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
2 r4 W! k3 j% E魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 "\n 『查看资料』"..
6 y* M$ }) D2 E2 S7 M! g0 b妖城在线论坛 "\n 『给予道具』"..
& ?" D& p0 A( D2 x& W+ z5 R妖城在线论坛 "\n 『给予魔币』"..
* P$ r U8 \- B: z+ w—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート "\n 『封机器码』"..bbs.mocwww.com9 ^1 f" V4 R% d6 G6 n y
"\n 『封关联号』"..
' |$ k1 {$ A& K \1 C" s2 e& ^魔力私服,最新魔力宝贝私服技术交流 "\n 『传送对象』"..妖城在线论坛 G' j M6 f2 q$ C% `0 F' f1 }
"\n 『踢他下线』",
" x' p9 c, t% k Q8 W, O—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Click_MeIndex);
# F8 W% e6 _0 X, a5 g |1 F7 R# l end
6 S# B/ d" c; d5 h! e2 v: m4 p bbs.mocwww.com7 @8 y# C) u, `
return;
* D3 ~6 }% {% r+ ?" {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ I$ w" b% n S
function Click_Init()
9 r- R5 F; t' g3 ]0 \& G% H% @1 h Click_MeIndex = nil;bbs.mocwww.com4 J- P$ s# `2 D8 c, A- C
WindowsTmpNpc_Init();
* B5 U2 w3 b. s* O8 G3 Gend
' m6 j+ g8 y" j J/ k6 m—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートfunction initClick_Init(index); r/ M: |$ I& g
return 1;魔力私服,最新魔力宝贝私服技术交流1 O# x/ t# p6 y( d& d1 R
end
- K0 P: [& F$ _0 D9 \9 l2 s9 S5 Q; Yfunction split(str, split_char)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 K1 }- P! C8 O0 W% M6 ^+ c( s
local sub_str_tab = {};
t s7 u# `8 k$ U8 k& N$ \& x7 F妖城在线论坛 while (true) do
( U& D% y0 `- @) S4 A7 r0 P local pos = string.find(str, split_char);魔力私服,最新魔力宝贝私服技术交流5 J; _3 ~! P- ^- ] D
if (not pos) then魔力私服,最新魔力宝贝私服技术交流& E, X/ B2 L" d) ^
sub_str_tab[#sub_str_tab + 1] = str;
" f7 ?& r4 h# ?( A魔力私服,最新魔力宝贝私服技术交流 break;魔力私服,最新魔力宝贝私服技术交流4 d& g q# x. b: s/ U1 c
end
4 c& X6 x7 v. A7 j2 U, p' {2 ?魔力私服,最新魔力宝贝私服技术交流 local sub_str = string.sub(str, 1, pos - 1);
: s, K& o, m4 U, \( A魔力私服,最新魔力宝贝私服技术交流 sub_str_tab[#sub_str_tab + 1] = sub_str;
- Y6 I& N+ W5 K2 q% e妖城在线论坛 str = string.sub(str, pos + 1, #str);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( \; i$ ]* Z6 S1 q
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, h2 W5 H4 A% a6 v6 r0 V
return sub_str_tab;
2 r: d- Z8 l# d% g4 S$ J魔力私服,最新魔力宝贝私服技术交流end
