GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人
# I' @/ _& [& X9 Bbbs.mocwww.com. p4 T: E6 k& U6 U* x
Global_Reg.RegInit("Click_Init");) X3 h; A" {. @$ @1 F2 E ?
Click_MeIndex = 0;
- {0 y- y, R" T9 L魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表local RC_P2;
4 ^* t- m1 |( L# @7 H0 [& k6 Mlocal RC_Tmp = nil;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& i( Y4 {& y; ]/ [
function WindowsTmpNpc_Init()
I" s3 z3 _! ^' ?$ K) `" H5 U6 [5 n妖城在线论坛 if(Click_MeIndex == nil)then
$ d8 @# S% O' T+ g—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");
3 H8 x9 H7 W! n. B, K8 m4 c魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Char.SetData(Click_MeIndex, 1, 105254);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 v7 T3 Y- D( z* [
Char.SetData(Click_MeIndex, 2, 105254);
5 G8 J( R- g# y6 {9 K8 _ Char.SetData(Click_MeIndex, 3, 0);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; F8 k+ ^ z; U
Char.SetData(Click_MeIndex, 4, 777);
( I5 G$ l+ M# H$ M7 E, W- ]7 Q) j魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Char.SetData(Click_MeIndex, 5, 14);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ l6 i0 t$ }: N
Char.SetData(Click_MeIndex, 6, 13);
9 i8 @" k0 W: r妖城在线论坛 Char.SetData(Click_MeIndex, 7, 5);
( `6 }5 e1 K4 Y0 H Char.SetData(Click_MeIndex, 2000, "ClickNpc");3 T7 o5 s# ~9 t: S" d# c
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) thenbbs.mocwww.com3 j6 a& _& R9 B8 G! |
print("RCVal_Talked 注册事件失败。");
! a1 J: H8 j9 d* w' h妖城在线论坛 return false;* z0 B6 b1 T, |7 ^0 k( C) j
end
, r) E8 J4 ^) d2 H l( K' f! K妖城在线论坛 NpcIndex = Click_MeIndex;- {8 T) R" M+ r/ k! Z
InstallNpc("Click_MeIndex",Click_MeIndex)9 k6 Z* a# \+ {- \: s9 k3 J; n( L
妖城在线论坛* q6 Z3 X6 V( [2 @! i% ~5 s
endbbs.mocwww.com' c6 ]* \- C- p6 L0 H4 f% A
return true;魔力私服,最新魔力宝贝私服技术交流( n. P1 c8 e* } s; O2 W
end
0 Q( w) G$ k8 t. lfunction RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
: p- U4 ?- s2 e* B0 ~4 c魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表local p2_Index = RC_P2;
8 M* K0 ?. ?1 P* k9 Flocal Me_Account = Char.GetData(_TalkIndex,%对象_账号%);
% s" i( ]8 b) c3 Z% v( B' h0 K; j魔力私服,最新魔力宝贝私服技术交流魔力私服,最新魔力宝贝私服技术交流; C/ ]9 d2 g' D3 D0 t! h- u
7 Z6 z q" ]) f& X: }: |5 f魔力私服,最新魔力宝贝私服技术交流 if (_Seqno==0 and _Data=='1') then魔力私服,最新魔力宝贝私服技术交流' q* W* |+ B1 ?0 f. F" L/ ^, c) O5 {
--『查看资料』
$ K* C$ R% @" J" A# j0 q—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート RC_Tmp = p2_Index;魔力私服,最新魔力宝贝私服技术交流8 ~4 f$ O' W; Q1 ^+ P ?0 x
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);妖城在线论坛- B# b; H& E/ y+ m, j |8 U9 D1 g. z
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%);妖城在线论坛7 X, h# D4 Y* U0 M! ]! E5 s
NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
* B2 c% Z9 `' V9 Mbbs.mocwww.com return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 N& N# n3 X% X5 m8 L y
elseif (_Seqno==0 and _Data=='2') then魔力私服,最新魔力宝贝私服技术交流5 w6 K3 T6 f2 t% P/ H$ n9 I. V
--『给予道具』
+ Q1 E. V& M- p; Q& i. s( @魔力私服,最新魔力宝贝私服技术交流 NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ G7 ~: o' _) r. E, K0 T0 k
return;妖城在线论坛0 f# [6 d) \( |* Y/ N
elseif (_Seqno==0 and _Data=='3') then
- `) G3 f2 A. |2 V: u2 I- H --『给予魔币』
, o* Q! x: U! |" `2 N魔力私服,最新魔力宝贝私服技术交流 NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);
6 R5 H6 J* P7 W. o" v4 J妖城在线论坛 return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- Y: N* l. y# s: ^) g' \
elseif(_Seqno==0 and _Data=='4')thenbbs.mocwww.com4 m. G. N' F, E5 I5 \; l l
SetDebug(p2_Index);
" S' Q) |* ]" w: Q4 D魔力私服,最新魔力宝贝私服技术交流 return;8 i# z; ^. s! o6 A" [
elseif (_Seqno==0 and _Data=='5') then妖城在线论坛# w' I2 d4 |# ]; |: U" x3 p4 C
--『封关联号』魔力私服,最新魔力宝贝私服技术交流5 q* g6 C1 j/ {3 H( q# g U
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$ W' R; L/ Z3 o: r2 Z! V: y6 L
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);
) o( K s v0 x2 e( v4 Obbs.mocwww.com else妖城在线论坛( ~* f4 ~2 y H
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);
! y$ d3 |# @9 i/ H" s, y7 C魔力私服,最新魔力宝贝私服技术交流 end妖城在线论坛+ m( `% [. | A( [$ m
return;魔力私服,最新魔力宝贝私服技术交流% F1 t, J0 o) e# P! n
elseif (_Seqno==0 and _Data=='6') then妖城在线论坛5 \( M" R/ j6 P, P: @8 ?7 e
--『传送对象』
/ h \% v- f \3 x$ E+ @) V—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ e: p" d. v1 Y) T' p, o
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# F+ B1 D' |1 r
return;
7 k! a! F$ }4 {bbs.mocwww.com elseif (_Seqno==0 and _Data=='7') then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 r$ t( U" S3 {: L) D7 x0 A
--『踢他下线』bbs.mocwww.com4 x s2 e% N) C# K, r4 o) Y
NLG.Close_Socket(p2_Index);妖城在线论坛5 z1 H7 I6 F3 [) w$ M$ s
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 D! i! L }8 a
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' V! y* w1 g* x5 Z% Z) v [
if (_Seqno==22 and _Select==1 and _Data~="") thenbbs.mocwww.com: ^; X* J: u4 q- H
local pppp = split(_Data,",");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 X# P8 W; s" I9 y) x% J
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));魔力私服,最新魔力宝贝私服技术交流0 b9 U" ~- z5 a: `% i0 F
if type(giveitem) == "table" and #giveitem > 0 then
9 e$ d8 ^' Y3 g1 C6 B: [+ T NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
! h5 O/ ` {7 P. B& Y; x$ U* F) z魔力私服,最新魔力宝贝私服技术交流 else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 n" r+ v' c. P+ w) u0 p) S* E. |) L
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
/ \+ i7 @( n! K2 p4 c5 @bbs.mocwww.com endbbs.mocwww.com) l; N' `4 O# h& l6 G
elseif (_Seqno==33 and _Select==1 and _Data~="") then
/ a" r1 N5 X" Z) r—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
& } P# D8 A+ y/ N魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 if gold <= 10000000 and gold >= 0 then魔力私服,最新魔力宝贝私服技术交流0 Z* B, J5 K. ~& {- I M2 {0 s
NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);
2 f3 D! B( j' {2 u' S—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
\* p- ]7 W0 L' L2 k1 H魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);$ u* G A c6 [. K
else魔力私服,最新魔力宝贝私服技术交流* R5 ?/ k1 V) W5 ]# Z) a
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
) Z4 ]/ X9 u2 Q1 T. T妖城在线论坛 end8 [' F8 `5 g( \: h# z1 P% J
elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流, a' v+ S9 ~% E! G/ C, G) W6 b
if NLG.GivePet(p2_Index,_Data) > 0 then
+ m2 h) ?! E X8 Z/ z# W妖城在线论坛 NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);- i/ I! x; ~' Z+ U2 C9 }
else妖城在线论坛% Z+ [; H$ D' ?- b Y1 @
NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 Y5 c3 z" y/ l) m; I( O3 k
end+ v: l* o7 n2 C2 r) T
elseif (_Seqno==55 and _Select==1 and _Data~="") then
; e$ A+ o) t( ]魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 local warp = split(_Data,",");bbs.mocwww.com) h. Z) P$ g8 L- ^2 ^/ `# I
if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true thenbbs.mocwww.com7 V' V% M7 w9 ?) J0 F+ M
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
H3 L' A2 M1 r! x2 X魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 else
' g5 B) }6 _6 n* i! k0 ~3 e魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
$ ^& m( m4 ]2 c3 j/ Y. @ end
+ i7 p6 _: _; O3 x+ Nbbs.mocwww.com end l" \0 q/ g# ~/ x
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# \0 q7 x9 D% s8 q
# o. M* k/ E. V/ n+ U( |. R) m3 k$ u
function SetDebug(CharIndex)
5 P- ~, ?, l; k3 j! Q- R# E3 z0 m2 v: `妖城在线论坛 local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
" y0 T0 L# U# _8 ^) H. f SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");5 a7 f2 D- Q# H: j
end
1 W- p' A+ T3 b; ~6 {& Q魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
! R6 b$ `8 t4 H# g) k# x8 ZGlobal_Reg.CharRightclick("Rightclick");魔力私服,最新魔力宝贝私服技术交流* M, p: R1 |7 X- q# [5 A
function Rightclick(p1,p2)6 n# C* W4 `, v" x e# D6 w* D ?
if p1 == p2 then
! W# H! n, H9 ^魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 return;
' q0 I' ?8 u" q9 K1 F妖城在线论坛 end
0 | h: \% G7 y3 ^! e& [
' x" E W9 a* ?- P. ybbs.mocwww.com if NLG.Get_Char_Date(p1,145) == 1 then魔力私服,最新魔力宝贝私服技术交流% L% w! a7 |" H7 @
RC_P2 = p2;妖城在线论坛" ]1 U5 K. ]: `8 p
NLG.ShowWindowTalked(p1, 2, 2, 0,
8 k( Z/ c, a; G2 L+ f妖城在线论坛 "1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..
. T9 f, F+ j! r$ z6 A/ n' w5 m, C7 x魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 "\n 『查看资料』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! ~$ @, e7 \- h2 _' o& J' ?
"\n 『给予道具』"..bbs.mocwww.com* o6 ]% `4 O6 l* T' o- O# }
"\n 『给予魔币』"..
6 R# O; u$ G9 B# N) F+ ~魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 "\n 『封机器码』"..
4 P# l N/ P, t5 s$ k- N8 H8 A; @魔力私服,最新魔力宝贝私服技术交流 "\n 『封关联号』"..3 H$ W9 K% ?8 g" z
"\n 『传送对象』"..+ y' E. v; _ ~# ^) s: U$ c
"\n 『踢他下线』",魔力私服,最新魔力宝贝私服技术交流) B4 \' n; S! u/ P
Click_MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! a, v* U2 o, y& e8 u* _
end
2 |) R0 J( R8 u$ ]# Z6 b
+ Z7 w7 g: A* ~/ ?' s" |妖城在线论坛 return;
! C0 ?" f- W3 R魔力私服,最新魔力宝贝私服技术交流end
" U$ m; D6 O( o& |魔力私服,最新魔力宝贝私服技术交流function Click_Init()1 P) Y: N2 D7 t/ x. \. |1 z! D
Click_MeIndex = nil;bbs.mocwww.com7 v" h( F$ ^ o* q- w4 V1 {2 G
WindowsTmpNpc_Init();魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 X3 G3 e- W7 Q& C" U/ o
end
; h$ l v: p, J% L0 t魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表function initClick_Init(index)
6 O+ T: o% ?$ H0 B$ _. y& S. A+ `—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート return 1;
5 Y* w6 W6 _: o2 k妖城在线论坛end魔力私服,最新魔力宝贝私服技术交流0 ] f c' N0 o% n( c1 o
function split(str, split_char)
) {) q1 S4 N: ^bbs.mocwww.com local sub_str_tab = {};
3 Z! [0 K( G; e' c while (true) do
3 x) x' v* }4 h8 ]4 r7 H, b妖城在线论坛 local pos = string.find(str, split_char);
/ \2 Q$ m' F; | if (not pos) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* _- R; F: I T
sub_str_tab[#sub_str_tab + 1] = str;妖城在线论坛" ?4 r4 @% F6 U3 [& `) H
break;
9 g5 w6 r5 \, E$ \5 N- E0 J2 t: s—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート end
/ g. n4 p9 [: ]6 @2 t/ k5 a) K魔力私服,最新魔力宝贝私服技术交流 local sub_str = string.sub(str, 1, pos - 1);
) [8 ~6 o' S) y6 P! U/ F—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート sub_str_tab[#sub_str_tab + 1] = sub_str;
7 g2 \2 k0 \- @) A3 E/ E魔力私服,最新魔力宝贝私服技术交流 str = string.sub(str, pos + 1, #str);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! B4 X3 D% h1 \; Z, ~" H
end魔力私服,最新魔力宝贝私服技术交流6 o" \- u% {: c* Y! b, d& f
return sub_str_tab;bbs.mocwww.com M, |" u6 Z3 l8 w: {* R
end
