GP端的lua（一）-GM_Click.lua
代码如下，需要的自己拿，感谢某人魔力私服,最新魔力宝贝私服技术交流& b3 X4 }) _1 U7 e" }& E+ K2 M
6 T" n- u+ b; S: }Global_Reg.RegInit("Click_Init");
8 o" _; ]( L; j7 \6 N; {# }魔力私服,最新魔力宝贝私服技术交流Click_MeIndex = 0;魔力私服,最新魔力宝贝私服技术交流: K0 d5 y0 \& G7 ^1 H/ b5 L
local RC_P2;
% A S$ z. Y8 q; c; j$ a( M5 hbbs.mocwww.comlocal RC_Tmp = nil;bbs.mocwww.com6 g; s+ e' Y5 O1 x0 z4 T$ ^7 L q
function WindowsTmpNpc_Init()
8 G3 P9 ^$ i/ N—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート if(Click_MeIndex == nil)then
! k6 }# g- o! R* g& P—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Click_MeIndex = NL.CreateNpc(Lua_Path.."Module/GM_Click.lua", "initClick_Init");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( J( g5 i' Q7 z2 K0 X% ]& g
Char.SetData(Click_MeIndex, 1, 105254);
. U5 ^$ a( v% i6 ` Y, }/ X" Z7 v魔力私服,最新魔力宝贝私服技术交流 Char.SetData(Click_MeIndex, 2, 105254);
1 j8 C! |6 q5 G4 ?bbs.mocwww.com Char.SetData(Click_MeIndex, 3, 0);
% z* d" V3 b D+ mbbs.mocwww.com Char.SetData(Click_MeIndex, 4, 777);魔力私服,最新魔力宝贝私服技术交流: Y) Y) v, k' u# m8 I, h6 m6 ^
Char.SetData(Click_MeIndex, 5, 14);+ `$ ~$ N: z3 ^, F
Char.SetData(Click_MeIndex, 6, 13);$ `4 I; G7 g2 g0 r7 b0 y
Char.SetData(Click_MeIndex, 7, 5);妖城在线论坛1 `' B' v- l6 G3 E6 D
Char.SetData(Click_MeIndex, 2000, "ClickNpc");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 a3 @5 a7 l7 Z, U9 A
if (Char.SetWindowTalkedEvent(nil, "RCVal_Talked", Click_MeIndex) < 0) then
6 X! B5 g1 Y' d P" x print("RCVal_Talked 注册事件失败。");; d7 z9 S3 x; N) C) [! z
return false;妖城在线论坛7 Z# j( \* P1 ]) u: c0 u1 q5 {
end
6 B: G5 l1 Y3 Z/ V妖城在线论坛 NpcIndex = Click_MeIndex;
7 T" p( ~: s* L5 m. i' R M魔力私服,最新魔力宝贝私服技术交流 InstallNpc("Click_MeIndex",Click_MeIndex)bbs.mocwww.com* e1 d- `$ k" q! @6 i
) l0 a& i1 h! v/ U" T) t end妖城在线论坛) X7 N7 \; }" C$ q) s, [ l
return true;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 C* o J) w8 K6 h
end3 h( M% g, ^1 Q; L
function RCVal_Talked(_MeIndex, _TalkIndex, _Seqno, _Select, _Data)
$ }+ }8 q5 s% R" b+ y: G' mbbs.mocwww.comlocal p2_Index = RC_P2;( E; t) L6 d3 j, M
local Me_Account = Char.GetData(_TalkIndex,%对象_账号%);bbs.mocwww.com0 a) C6 R) R, C0 i! O. s
魔力私服,最新魔力宝贝私服技术交流8 K, `* u9 \6 ^; }4 H) x
魔力私服,最新魔力宝贝私服技术交流( n6 @9 _( Z% f2 a8 Y3 {
if (_Seqno==0 and _Data=='1') then
5 N/ _3 s9 N ^( ~; o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 --『查看资料』
8 q0 Z# |8 M: E8 x7 I; @% Tbbs.mocwww.com RC_Tmp = p2_Index;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' w# d( @ `) \
RC_cdkey = Char.GetData(RC_Tmp,%对象_账号%);
( _8 ~, Z3 l5 p0 |, P, N/ `魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 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%);
: R9 I/ F$ u$ ^: _) f妖城在线论坛 NLG.ShowWindowTalked(_TalkIndex, 0, 1, 100, RC_Str, _MeIndex);
, ~2 T3 l G6 X+ @! [7 l# \3 s妖城在线论坛 return;
( u3 z- G; e2 i妖城在线论坛 elseif (_Seqno==0 and _Data=='2') then魔力私服,最新魔力宝贝私服技术交流( Y* M, d! M$ j1 ] M8 z& F( f
--『给予道具』魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 U' s" ^6 G) {
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 22,"\n请输入物品编号及数量（比如：30115,10）：", _MeIndex);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 r# J6 l: g& G" O8 M
return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( x) I" {4 h" g$ {
elseif (_Seqno==0 and _Data=='3') then妖城在线论坛! t% q% H4 R) Y( {1 {$ ]
--『给予魔币』bbs.mocwww.com. o5 B% k# @/ V4 @, N
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 33,"\n设置魔币金额：", _MeIndex);妖城在线论坛+ L7 W8 q Z4 y: r5 g; e
return;
' J9 k$ ]' { j妖城在线论坛 elseif(_Seqno==0 and _Data=='4')then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ a2 {5 h) R( @, F' A$ I6 K+ o
SetDebug(p2_Index);bbs.mocwww.com, s6 E: \ C* A8 x% a, D
return;
: V0 m0 V. y) q. }. y7 z- J# b魔力私服,最新魔力宝贝私服技术交流 elseif (_Seqno==0 and _Data=='5') then
/ r3 I0 o9 M1 _4 |0 ?7 H—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート --『封关联号』
) E6 \; [4 e+ q+ S魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 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 thenbbs.mocwww.com/ A3 y6 g- i, r7 M; @
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& g* i; k/ f+ z, G
elsebbs.mocwww.com4 e+ G5 C3 @; Y4 P4 [
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" w5 Y6 N$ k# r6 F) J1 _/ C
end
; d8 |3 @0 C1 s* G. w—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート return;
3 X5 c, G1 N6 e0 f* u5 `妖城在线论坛 elseif (_Seqno==0 and _Data=='6') then
* [ X& K% ~3 R; L% \/ V" C --『传送对象』bbs.mocwww.com( |$ p! D3 ~! c; p7 R) Z) N
NLG.ShowWindowTalked(_TalkIndex, 1, 3, 55,"\n请输入地图坐标（格式如：0,1000,100,100）：", _MeIndex);
' P& _8 O' V. zbbs.mocwww.com ! P0 ? H( p m8 i! h" j
return;
+ Q3 v. Z; N' |9 E9 u$ m* fbbs.mocwww.com elseif (_Seqno==0 and _Data=='7') then
% U8 I; w7 Y! Z, {% @" M8 q- W魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 --『踢他下线』
! `( K0 u/ a+ f$ w—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.Close_Socket(p2_Index);魔力私服,最新魔力宝贝私服技术交流$ W6 d5 q% z( b5 [% c
return;
& @3 s4 Y; l9 K# n妖城在线论坛 end妖城在线论坛/ O4 }# z6 \( ~+ m
if (_Seqno==22 and _Select==1 and _Data~="") then
+ z3 ?/ K4 R4 y* _& b8 g妖城在线论坛 local pppp = split(_Data,",");魔力私服,最新魔力宝贝私服技术交流2 C& ^7 p( k, i5 L( [4 l
local giveitem = NLG.GiveItem(p2_Index, tonumber(pppp[1]), tonumber(pppp[2]));
2 w! P* G Z6 ]& V8 `' T—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート if type(giveitem) == "table" and #giveitem > 0 then
: x! P( w) t4 @' O7 \; d NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);妖城在线论坛2 Q* |. t3 v" c2 s2 {: }2 J+ I0 R9 d
else
' t+ m& K* v) f8 `9 T魔力私服,最新魔力宝贝私服技术交流 NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);
2 P$ H9 m- q: F end
8 ^1 R+ ~2 o8 h7 P! K; X- c—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート elseif (_Seqno==33 and _Select==1 and _Data~="") then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 U. c& Q( M% `8 ~
local gold = Char.GetData(p2_Index,%对象_金币%) + _Data;
$ p+ @* r V) E6 Q3 E' a) @! U妖城在线论坛 if gold <= 10000000 and gold >= 0 then
; ?5 A/ x0 a+ y$ K7 D% ?0 @妖城在线论坛 NLG.Set_Char_Date(p2_Index,54,Char.GetData(p2_Index,%对象_金币%) + _Data);! z" ^. v! q: ^& D- e" W
NLG.TalkToCli(_TalkIndex,"操作成功，对象目前金额为：" .. Char.GetData(p2_Index,%对象_金币%),4, 1);
! C6 s: g1 s+ `* ` NLG.TalkToCli(p2_Index,"获得了 " .. _Data .. " G",4, 255);bbs.mocwww.com9 Z2 \( h: Q- C" k+ X0 |# @) @. s( W
else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& q8 [2 O7 i* ?$ Y( z
NLG.TalkToCli(_TalkIndex,"对象金额超出限制！",4, 3);
# |+ w+ f6 G- _, J end
( F/ N- j5 O) a n7 a- S9 I8 e魔力私服,最新魔力宝贝私服技术交流 elseif (_Seqno==44 and _Select==1 and _Data~="") then魔力私服,最新魔力宝贝私服技术交流$ P l+ b$ R, O9 E' \( L& x) n( j
if NLG.GivePet(p2_Index,_Data) > 0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- N0 v' g. H: S3 r
NLG.TalkToCli(_TalkIndex,"操作成功",4, 3);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 e! x, |: m% }6 T
else
7 m& P, ]$ ^9 e魔力私服,最新魔力宝贝私服技术交流 NLG.TalkToCli(_TalkIndex,"操作失败",4, 3);
$ e- E/ I3 H$ |8 F3 z; l4 X5 g6 t: T魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 end
$ Q( {6 o) N S0 W elseif (_Seqno==55 and _Select==1 and _Data~="") then
* e# K2 L U7 B) Q v* L local warp = split(_Data,",");
" R, ]: c$ j9 h& O% e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート if NLG.Warp(p2_Index,warp[1],warp[2],warp[3],warp[4]) == true then魔力私服,最新魔力宝贝私服技术交流% Z$ D$ l( m: t( s% W" e
NLG.TalkToCli(_TalkIndex,"操作成功！",4, 3);
; T, r! ]" D" \2 j6 a! |魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; \. s" f2 A8 U+ `
NLG.TalkToCli(_TalkIndex,"操作失败！",4, 3);魔力私服,最新魔力宝贝私服技术交流$ }2 i' O7 c* q1 I* M0 R7 _
endbbs.mocwww.com* c& p- Y. `! m' g
endbbs.mocwww.com1 a" g: l q! i3 {: I# b( U9 ^/ O
end
8 w5 m' v0 D4 U+ ]9 f! ~, D妖城在线论坛4 G" v A: n1 e7 e' }
function SetDebug(CharIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 B- P. R0 I8 P, @
local Debuguser=Char.GetData(CharIndex,%对象_帐号%);
0 Q8 x" B# ?- O) y, {/ m" X- m SQL.Run("INSERT INTO tbl_mac (DebugCdkey, Debugmac) VALUES ('"..Debuguser.."', '"..Mac[Debuguser].."')");
6 l( V1 G) F4 k& @end
$ b( Y: w: g4 Q& \—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, L" s# r) v( [& ?
Global_Reg.CharRightclick("Rightclick");
; J* r( g; H5 P# a) r+ Z6 @2 A. f妖城在线论坛function Rightclick(p1,p2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" A$ \7 b) L* O/ x) ]
if p1 == p2 then
+ Y' Q" ?& p) J ]( f. S9 `; ~bbs.mocwww.com return;
- m4 ]6 S& |% K9 Dbbs.mocwww.com end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% |* W F4 k/ a* V
魔力私服,最新魔力宝贝私服技术交流! q& `9 L: R7 f, c
if NLG.Get_Char_Date(p1,145) == 1 then5 K3 q# T: F1 h: R' ?
RC_P2 = p2;
1 |- a f2 w* _2 g6 b! i3 v—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート NLG.ShowWindowTalked(p1, 2, 2, 0,
& {' C7 q! y: `5 a魔力私服,最新魔力宝贝私服技术交流 "1\n"..String.Centering("请选择对["..Char.GetData(p2,%对象_原名%).."]该玩家的操作：")..妖城在线论坛* l% W. K4 T% g. U
"\n 『查看资料』"..
9 I/ N9 w0 n1 t! Z. r6 R& N3 R "\n 『给予道具』"..bbs.mocwww.com* h# y: [) Q- S
"\n 『给予魔币』"..妖城在线论坛5 X1 b( y+ K# e7 k: p/ K* k
"\n 『封机器码』"..
1 a. m2 y7 D% f' z魔力私服,最新魔力宝贝私服技术交流 "\n 『封关联号』"..bbs.mocwww.com2 G ]* U: {7 Q
"\n 『传送对象』"..—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- B6 v6 i+ m( U6 @
"\n 『踢他下线』",
/ @8 X6 |7 P* O- B" u2 wbbs.mocwww.com Click_MeIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" k6 x- Z/ p, G, b& R+ F
end
8 [4 N3 r% s" h. I5 Y% v y: R- W+ ]魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
3 k% H6 P! y& \3 x2 ?- F- m return;
' p. q6 S$ D- K2 Y, G+ ]9 e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートend
8 v. G8 W/ A$ x. L4 h) P魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表function Click_Init()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" |+ P) D2 r# |! X9 G
Click_MeIndex = nil;
) D- a2 e! m" W- s1 Ebbs.mocwww.com WindowsTmpNpc_Init();
( `8 V( e' ~( a" | B0 d8 J2 c v魔力私服,最新魔力宝贝私服技术交流end
) ~; R& x; m+ C4 T: P—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートfunction initClick_Init(index)
$ d1 L2 o# p. c7 Y% U妖城在线论坛 return 1;魔力私服,最新魔力宝贝私服技术交流7 a6 I+ o9 u+ u: y3 Y
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% R- I: `& r/ F2 m3 c0 `
function split(str, split_char)6 J0 b5 Y; M2 H1 ]# r: D
local sub_str_tab = {};bbs.mocwww.com! e6 f, j$ m4 b, N7 j8 P
while (true) do
5 ]) u) b8 G4 `* ~) ubbs.mocwww.com local pos = string.find(str, split_char);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 [9 q* r( t1 V2 J$ h
if (not pos) then
" a. S( q9 G5 O/ M1 @—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート sub_str_tab[#sub_str_tab + 1] = str;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ v* p3 w" Q) A- x, r- t+ [
break;妖城在线论坛8 [9 {/ U) k/ K% ?+ e
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: K3 ~( t, E# H! m3 _# V4 q. b
local sub_str = string.sub(str, 1, pos - 1); —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ h, g' p2 U! T a# E
sub_str_tab[#sub_str_tab + 1] = sub_str;
% N4 D$ w7 Y& l8 Y T, U: ubbs.mocwww.com str = string.sub(str, pos + 1, #str);
+ }1 S, i1 b6 ?3 z' ^, @魔力私服,最新魔力宝贝私服技术交流 end妖城在线论坛5 P. Y: @7 g6 r- x, e3 B
return sub_str_tab;2 ^9 y2 P0 n: p3 x8 B E. V; k
end
