unit 会员服务;' _& L+ _1 [- _9 _5 s
/ X' \( I+ I. f
interface
+ F+ Z$ F: E% S5 d
; i! g7 r; V' a1 |0 ]function GetToken (aStr, aToken, aSep : String) : String;/ c1 M2 e# b W
function CompareStr (aStr1, aStr2 : String) : Boolean;) ~" v1 z2 _1 f
function callfunc (aText: string): string;
4 X: u; O8 L( J$ Kprocedure print (aText: string);6 G0 X( Z* L4 e2 w& g1 x
function Random (aScope: integer): integer;. q6 [: D0 L, z* _' p
function Length (aText: string): integer;
! `7 P1 q: B& B+ Y% `3 |9 [" E% \procedure Inc (aInt: integer);
' m, x3 R* ~' R S( y) \procedure Dec (aInt: integer);
@/ @) t. G- L% n6 _5 Wfunction StrToInt (astr: string): integer;
+ w0 m( @. S- o- n& ^2 n" }* Mfunction IntToStr (aInt: integer): string;! {* j, G' e) \- t. l9 L. H* ?
procedure exit;
! P" g7 H4 {) L1 f6 f% k
; j* a! q) C+ m, T/ }* Tprocedure OnLeftClick (aStr : String);! H0 P9 x* u; _: _
procedure OnGetResult (aStr : String);' d3 p: Y7 \2 m4 j& Q, ]; T2 N0 ~
! ^8 ~3 X7 ?& M# r$ n% B' A- O1 rimplementation
3 C/ R6 o. k$ Y& Eprocedure OnLeftClick (aStr : String);" d" V( z7 b* m& }) d
var
* j0 E8 g& v; k& W! j3 V Str : String;
% ^) x+ u% \( }+ [, N5 Z Race : Integer;
( t) P; ?. @# m3 x. |0 @- x. tbegin) F d: r8 ?& T( A! y; v, |2 P& J
Str := callfunc ('getsenderrace');: _4 L$ a' u) @6 t1 ~
Race := StrToInt (Str);* a+ O; c# G3 ~$ L& J, K5 U6 n# C
if Race = 1 then begin
8 O& c' A- H9 Q( M Str := 'showwindow .\help\会员服务.txt 0';
% b- I! L$ L7 O# x print (Str);
! b7 Q" _* @6 g exit;
+ G1 Y |) X0 N, o) L! s9 I* S end;4 m- Y7 R7 e$ P- }9 R$ X
end;
& C" M- {3 R3 G( q; _procedure OnGetResult (aStr : String);" e" T" t: B ]# P% o- a0 `
var
! y+ i& x& i) x. B: H* n" J Str, Name, MapNo, WqName : String;
7 z( N8 R+ Z. L7 U! N0 p# F iCount, MapID : Integer;
3 R! ?, ]4 W1 a7 U7 f5 e) xbegin
9 N3 Z. U' R& |, v- G# C Name := callfunc ('getsendername');; @+ w" W+ B4 S1 v# I4 \
if aStr = 'close' then begin# j) Z3 N7 H# M7 m: ?
exit;9 l6 b7 p( `& i! l9 \" f
end;
5 J3 E7 ^1 M+ j3 | if aStr = 'xuanzhe' then begin
) S9 f; c. N) @# Z. k$ u: p. i/ I; S- G Str := 'showwindow .\help\会员服务1.txt 0';/ H4 ^ ^) g- W1 O
print (Str);
' [! o! t; i$ R' m exit;3 {0 H% F7 {5 \
end;
# b1 f ?, }9 q1 L: Q6 | if aStr = 'lingqu' then begin
8 P5 Y h2 U7 q4 k. @, _ Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
, S5 }# {0 a& J8 E& ?/ I if Str = 'false' then begin
7 Z0 y4 _9 ^" n$ M; `* P) n1 V print ('say 你不是会员吧');2 k5 U4 g6 w, Y1 g
exit;/ E: G3 X* ` ^& N) M6 I
end;6 E4 S. w6 ^+ S* ` ~# Y y
Str := callfunc ('checkenoughspace 5');
2 N5 f6 W$ b( W. p& o if Str = 'false' then begin) O: e; t! w( C$ ]" m
print ('say 物品栏已满需要5个空格!');
5 X' J; B- L9 d, Y4 v0 P4 y" t. \ exit;
; n: G) |: \ @' G6 r end;- h* ^$ g4 ?2 h
for MapId := 0 to 200 do+ f: S, F" B# |- w9 e4 {6 O9 N' J
begin
7 f' k# F( b/ | M, j. k) g MapNo := IntToStr (MapID);5 H- _! s4 J/ V% b- P- c9 M
str := 'sendnoticemsgformapuser ' + MapNo;
/ w; |2 y% t% H; y Str := Str + ' ';' t) _' r% `) @
Str := Str + '【会员系统】:『';
, y) i' }: |, p* T5 F7 Z Str := Str + Name;
. f$ X4 x( ~# f" C9 ~ Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';3 L% G7 C, W/ R2 Z6 k, c, t2 l
print (str);
) z, `9 h" N* m& D end;
6 K$ b9 N, y' w6 V2 \7 S! P print ('putsendermagicitem 修练枪:1 @会员服务 4');; X# K5 v; [5 P: [) V
print ('putsendermagicitem 修练刀:1 @会员服务 4'); 1 t* S+ r& T) d" U! k
print ('putsendermagicitem 修练剑:1 @会员服务 4');$ a \1 q- `; {
print ('putsendermagicitem 修练斧:1 @会员服务 4');
4 z2 }, W$ g1 D2 E. C4 V7 k print ('putsendermagicitem 修练拳套:1 @会员服务 4');! m9 O( d- p I" }# q
print (Str);
! d8 N( l; B$ C) p1 g, z4 w6 N exit;
# x1 c9 ~8 {$ x7 U end;
) `: t: n& Z4 p0 e. { if aStr = 'chuqu' then begin
v8 }. K, b6 I6 ]0 b0 | WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!. m, e; t5 Z8 v: o
if WqName = '修炼枪' then begin6 P- K4 G, {3 [8 h0 C- O) a2 h
print ('say 你不是吧!想带走修炼武器!');( D/ Z: [; i! \* w% y- c9 v0 l
exit;
9 Q) _9 Q2 `. u' q5 X end;
& r4 e: Z: Z8 P W4 T if WqName = '修炼剑' then begin% }' A% F2 p+ N! ?# x" _
print ('say 你不是吧!想带走修炼武器!');
+ ^ P- I# ^+ e# l exit;
; x% t o- ~3 e4 @- M end;9 q& W: o% F0 ?0 Y I
if WqName = '修炼刀' then begin
_% A+ M- r* Z+ E: N, { print ('say 你不是吧!想带走修炼武器!');
O" @& x' N6 U! r8 Q- C" S exit;
/ {) k3 N% _) E, I+ S6 w+ p9 l end;( Q" F5 @4 l2 L. Q! y- T
if WqName = '修炼斧' then begin
, Y) E1 e: m2 `9 E+ n* {; e print ('say 你不是吧!想带走修炼武器!');; N& S" m7 z: ~' c- w/ @
exit;
) p7 [# C' p# z. P2 s" b2 D end;
' U7 O, S# \3 k4 a k ]# m if WqName = '修炼拳套' then begin8 c2 J+ R. w( o% L2 k1 k
print ('say 你不是吧!想带走修炼武器!');
( }7 u) S R6 W2 T+ y6 _4 u exit;
- j( s2 r4 @; t6 ~; \ end;
! M( a3 |8 S( N/ {$ F for MapId := 0 to 200 do
# K0 _+ w! \- K# R: q: [' v( O begin C4 X1 w* [6 J
MapNo := IntToStr (MapID);) w3 z# b5 x7 O1 T3 y5 A$ f6 u* _& ]/ G- O
str := 'sendnoticemsgformapuser ' + MapNo;4 r# B) U" m; P3 ]$ Z C4 ]
Str := Str + ' ';
, D3 O" |8 f" z Str := Str + '【会员系统】:『';' S. m$ ~+ ~1 E5 X
Str := Str + Name;* |, v/ s2 G+ f) I8 W
Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
* M$ m/ J+ A, a8 L* | print (str);( n* l9 k6 `+ i* G) W
end; J9 Y5 t; N+ Y; `
print ('getsenderitem 修练枪:1');//出去就全部删除物品, @5 ^4 _0 n7 A% G5 c
print ('getsenderitem 修练刀:1');! j- B) g+ ^0 a3 a1 Y. X0 W8 C, f
print ('getsenderitem 修练剑:1');" Z4 ? M, {8 y' L! F
print ('getsenderitem 修练斧:1');
0 C" r( c3 R" _5 K% Y print ('getsenderitem 修练拳套:1');- V; F! o4 E$ A# @3 N
print (str);
. C0 c5 E1 w: N, x Str := 'movespace ' + Name;, g0 y% m; ~5 {' G! Z* c1 N
Str := Str + ' user 1 500 500';
" T6 j, Z# l9 J print (Str);
# e0 [; c y! R- D- S( Y2 x exit;& _. J6 Q) Y! ^; e
end;" _4 L! ^" S; e: a' a4 r! S, N
end;: ]- A7 [$ e6 Z9 J% Q- ^5 v. ^
end.
9 X3 ~2 K* w/ i7 o. { |