unit 会员服务;$ h3 L) [( X' L' w) h6 `6 @$ n
* ^ K) U0 d% E" `6 l4 z5 {% pinterface9 J; }$ J( x0 q
3 I7 R4 A9 {4 H6 Y; rfunction GetToken (aStr, aToken, aSep : String) : String;: G# ~0 i5 w. u& ^8 S b
function CompareStr (aStr1, aStr2 : String) : Boolean;# |* s. \) i& K, ^& P, v+ h8 x
function callfunc (aText: string): string;
$ Z/ Q4 v% Z7 v9 ^, o* {; Xprocedure print (aText: string);2 D$ @- p. p& ^7 H( t- y9 c5 k
function Random (aScope: integer): integer;
$ f$ s, v8 e4 Y. F" _+ Ofunction Length (aText: string): integer;
8 d9 Z! M l% r; H7 N4 M( r# ?9 pprocedure Inc (aInt: integer);
( t& c8 ?2 I( |: c+ Oprocedure Dec (aInt: integer);5 m( P. ]& P( r
function StrToInt (astr: string): integer;
: ~5 l9 V* a( L" U- I w% K) Ffunction IntToStr (aInt: integer): string;6 `9 u0 ?. x0 `. M1 F! \. ]3 e. N
procedure exit;
" e* R+ [! H3 U0 j
; H1 z( b0 I; q9 J& Pprocedure OnLeftClick (aStr : String);* O/ [6 @! P- p
procedure OnGetResult (aStr : String);
8 L: V# Z5 j" e7 F
3 b2 t; R' ?, Z& J( kimplementation; R6 ~1 u+ K0 F+ [! Z1 ^
procedure OnLeftClick (aStr : String);
5 E3 h: \, R6 n9 K: [$ }) z' Avar
; `1 Z p* A' |% g Str : String;" k- J' n6 Q4 `1 S8 H0 c/ a
Race : Integer;
3 ]! ^' c3 n0 O& _9 I) {begin6 Z. b) Q( `1 C- z
Str := callfunc ('getsenderrace');
- V6 G& h" G- _5 X3 D Race := StrToInt (Str);' j, O' l: n) @2 K+ _
if Race = 1 then begin
& d) F5 W3 c7 u, A Str := 'showwindow .\help\会员服务.txt 0';. _5 C8 _8 z# _
print (Str);
, _- J1 E: q+ w3 w: G. B exit; 9 g8 R; s: s3 H; O
end;
$ W- p. y7 A2 U( E2 ^end;8 L& i( I% \: f4 p
procedure OnGetResult (aStr : String);
4 Q8 ]8 q- Q. j: `. v1 wvar7 q- G7 _/ K( A. V" `/ y
Str, Name, MapNo, WqName : String;
/ `7 @1 v3 K' u/ H# L! \+ E iCount, MapID : Integer;, e, p6 [, a: J ]
begin+ {* v! U9 P9 ^* K9 c* n, i" s
Name := callfunc ('getsendername');) ]' t1 J' A; b$ b8 H3 [3 F+ m
if aStr = 'close' then begin
6 _& F2 m' A# X5 p exit;# U" N- M k" w
end;# A# i7 K6 D4 k" @ a8 q4 W5 n, [, ^
if aStr = 'xuanzhe' then begin
( `" b& f* g- ~# @7 e# `2 @& k Str := 'showwindow .\help\会员服务1.txt 0';
- Y3 w3 H1 L* {7 h1 t print (Str);
% J6 ~: e2 A( x& S exit;
3 H/ O3 w& {) C W4 N end;+ [% b0 {4 m3 U {/ d4 F& f% }8 [0 v
if aStr = 'lingqu' then begin1 @3 G" x7 k7 `8 {7 _. D7 z
Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设3 @: g+ `8 h3 _! w1 L/ v
if Str = 'false' then begin
- E9 ~' P7 Q# V, S3 A print ('say 你不是会员吧');2 c+ }6 @# X9 p1 F
exit;
; \* C) j2 C1 s4 | end;; H2 a0 l, U& C/ i3 {& u
Str := callfunc ('checkenoughspace 5');/ `; ]4 k3 r4 X5 M
if Str = 'false' then begin9 X) T1 H* l' L6 p. B
print ('say 物品栏已满需要5个空格!');
0 s4 ~3 N1 X3 d/ ?' g3 t) d exit;% @/ ~% p% P. o1 o% P
end;
) d! X* ^+ n; j( L V for MapId := 0 to 200 do
, [( \) u0 c a4 r5 @ begin0 Z @5 ^. J/ l& `# ~0 K- Y1 |
MapNo := IntToStr (MapID);$ s9 k3 s" t& d( ]$ J% r* [
str := 'sendnoticemsgformapuser ' + MapNo;
4 f% T+ a' H+ W Str := Str + ' ';0 u- K3 b# z* _* E J
Str := Str + '【会员系统】:『';& M% M9 Q& [6 y
Str := Str + Name;# I* k1 U! i" A, J6 D( Q5 T! D4 q
Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';8 ~; s, A; ?6 O
print (str);
/ @) m( N; @ p/ e$ V end;1 a2 m8 `* X7 B$ \
print ('putsendermagicitem 修练枪:1 @会员服务 4');
% g h% Q2 ?8 _ print ('putsendermagicitem 修练刀:1 @会员服务 4');
% ]( w2 F1 t% p/ A$ d* l print ('putsendermagicitem 修练剑:1 @会员服务 4');7 P5 X$ s9 x' {$ b
print ('putsendermagicitem 修练斧:1 @会员服务 4');
6 \ R+ Y% F' I2 j7 E) {+ @ z/ P print ('putsendermagicitem 修练拳套:1 @会员服务 4');" _$ [" J9 n8 l
print (Str);
& H6 J- a5 K5 q c& i; b exit;
% o6 y% L1 N* `* Y' d- M6 ` end;" y) j1 N: Q3 S
if aStr = 'chuqu' then begin
$ g0 k$ K* x0 t& C3 o* {5 _ WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!2 Q) D' N% o* ]1 j, [% L
if WqName = '修炼枪' then begin7 `0 v1 h1 {: c# W4 I2 H! S
print ('say 你不是吧!想带走修炼武器!');
3 f4 }9 B9 f- Y4 T8 I# w exit;
9 |/ [6 u+ |4 c3 \9 D9 _1 v end;
# {# a* {, S$ a7 B( Z if WqName = '修炼剑' then begin2 [. G/ H G1 Z8 q' Y
print ('say 你不是吧!想带走修炼武器!');
2 T! K Z, L' B t' B exit;0 @' f" m/ |2 m1 A/ X
end;
! R8 n: J. ]7 l: F2 P8 p if WqName = '修炼刀' then begin: x6 G6 U: s6 O. h, l2 \
print ('say 你不是吧!想带走修炼武器!');
$ |; y; T; B& F' r+ \+ |' B3 m exit;3 l( I, ]% R: l2 X
end;
i3 ]5 U$ A6 h if WqName = '修炼斧' then begin" a$ D$ t2 L8 s, B3 H' P
print ('say 你不是吧!想带走修炼武器!');" o' Z, r! D. N
exit;0 Z H4 F) u3 c6 _% I3 R& D) g& l
end;7 G5 v6 O5 m) }" n
if WqName = '修炼拳套' then begin
" C+ e/ M0 v" Y* Q, ] print ('say 你不是吧!想带走修炼武器!');6 q- k0 C, @! J0 k
exit;
; k6 e" J5 N2 U! u4 t6 h end;- e/ g& v% k9 ~' ^* ~
for MapId := 0 to 200 do, S1 \9 f8 O7 T- D
begin7 ?% l1 _$ M' p! g- I# V; c
MapNo := IntToStr (MapID);
: @+ b( U6 R+ \: t' x str := 'sendnoticemsgformapuser ' + MapNo;4 p% n8 H o. \# y2 \; z# f" q3 r. u
Str := Str + ' ';- U( H; y7 R! Z% _$ U% a
Str := Str + '【会员系统】:『';' L, e/ y' P1 B
Str := Str + Name;
" _# Y3 H( P( i' }5 J Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';/ \; T0 a6 z u& x
print (str);
: f! a; t Y* e. W6 f; M end;! g1 s; }( f. B" O
print ('getsenderitem 修练枪:1');//出去就全部删除物品
* x! @6 a; i* @0 c4 i6 N4 I# { h print ('getsenderitem 修练刀:1');* c& z2 Z3 U% s: ^7 x9 J: z
print ('getsenderitem 修练剑:1');/ @: `1 d3 Q' s* f, l" e
print ('getsenderitem 修练斧:1');
) o2 } i, X; l) C" s print ('getsenderitem 修练拳套:1');
; f4 d0 i. I! t print (str);6 y/ R/ i8 j# W2 |; j( _* n2 i' i
Str := 'movespace ' + Name;' f& |9 n. H; T/ k5 F) Q( q
Str := Str + ' user 1 500 500';7 T( O( Y$ N& S9 O, ^
print (Str);4 [" F- A) V, x! w! L
exit;
- h2 O1 g% H* ^ end;
( @" m7 g- `( L8 d$ \# E7 H* Dend;
1 @, B& G& p0 i7 Oend. ) R, @2 v5 |3 C/ U) d
|