unit 会员服务;
; b. W+ p; X9 X3 o, X* u& t# J# X$ [
interface
) \9 q; M9 e7 W- j# P. ^" E& Q9 R* e$ T& {, u
function GetToken (aStr, aToken, aSep : String) : String;9 B' Z3 h7 G; C% a$ m
function CompareStr (aStr1, aStr2 : String) : Boolean;" ]# p( k q( h0 b
function callfunc (aText: string): string;
6 Y- g$ G+ _( ]4 Y: v! H2 Eprocedure print (aText: string);* L/ W1 U8 {7 B3 P' {8 x( \$ k" S# H( c
function Random (aScope: integer): integer;
/ R% ~2 ?; n5 E( X7 lfunction Length (aText: string): integer;
% s. W/ H+ V5 m: N: z0 Q8 Q4 Y' tprocedure Inc (aInt: integer);
" V# C, e; ]' I+ e4 Lprocedure Dec (aInt: integer);- L! X0 l9 W# E! j( ?, `" \' S
function StrToInt (astr: string): integer;* h$ }+ @# x! U; K
function IntToStr (aInt: integer): string;2 n3 g( ]8 j8 |2 q9 I* f( g x
procedure exit;( n7 E) H6 H2 Q1 |
* ^6 D; Z; O n
procedure OnLeftClick (aStr : String);
2 @9 ~9 Y: U# |; `* ~+ Sprocedure OnGetResult (aStr : String);
+ c ^4 P1 _' J- u- a% k6 n! m$ a% i( _7 I
implementation
/ [+ y' Q5 X1 o( bprocedure OnLeftClick (aStr : String);
6 o, P- @* p/ s# C: Cvar
; c- v* m# N5 T Str : String;
0 l. @* D) i- k+ A Race : Integer;
( q: g7 s: N: P# {4 Gbegin
/ R# S$ \ Y. A2 `0 B0 C( X Str := callfunc ('getsenderrace');
$ E# C, `$ ?4 } Race := StrToInt (Str);
4 O/ R( d+ S4 _* j8 k0 d if Race = 1 then begin
2 _4 M& t, s, Z! D Str := 'showwindow .\help\会员服务.txt 0';- ?, `7 o0 d7 G2 y6 v- U" Z
print (Str);
. Z2 r4 v. {9 V9 R exit; : |6 Y3 i# B# W" M: F8 Y N
end;
5 o6 ]' J! _7 @; _ a0 ~end;
. J) e+ l0 L9 N: s1 sprocedure OnGetResult (aStr : String);
* ?- B3 S- z/ w$ Ivar
8 O6 _; X- U% w8 S& d! }* ^ Str, Name, MapNo, WqName : String;- X! g C$ R9 U: ]0 z
iCount, MapID : Integer;* R9 B7 ]2 S) \: d" _) T8 A8 z
begin" y" F' y( ~; t( Q8 X
Name := callfunc ('getsendername');
, V8 ? u; I$ S" q5 E if aStr = 'close' then begin$ S/ S; z+ d2 o. j6 h6 ]6 }: _
exit;
A0 J* s' }6 c% {* k" U; c4 G& r end;
! e/ A" D% i3 C; q5 w- m4 r6 } if aStr = 'xuanzhe' then begin/ d* q/ p4 M. c
Str := 'showwindow .\help\会员服务1.txt 0';
$ T0 A3 m$ F1 A- J& _; u1 Y print (Str);# z; d4 x2 S# i& v2 o
exit;3 d- ~' n, b: t
end;0 m4 |8 ^9 Q( s. L" V& @2 V- b* N
if aStr = 'lingqu' then begin. o! W$ f9 V* b$ s, q5 _8 i
Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设# B" e: D/ R/ P5 v8 Y& j* O
if Str = 'false' then begin
, w5 W$ h% U! m( ^3 t, E print ('say 你不是会员吧');1 O# F; Q* t |0 k2 [3 ?
exit;% s" G' u6 J7 B
end;8 H1 h; |! p2 ~9 j _+ t
Str := callfunc ('checkenoughspace 5');
; p/ } M# o- n% W6 L if Str = 'false' then begin
/ ]" }; p' v5 B! d% l5 O& Y print ('say 物品栏已满需要5个空格!');
W# G. j& o* z exit;+ |9 Q, y( f1 G4 `
end;3 G3 Q. M$ t8 e3 ^* Y
for MapId := 0 to 200 do* w4 B9 P V& |
begin
4 h' T" i1 s8 \1 L6 \. F) R6 T4 r MapNo := IntToStr (MapID);
4 f ~8 v( m0 n' Y! u str := 'sendnoticemsgformapuser ' + MapNo;; G* I. Q3 i/ `4 H8 l
Str := Str + ' ';
* Q4 Y( N7 P$ `5 `6 o" H% I8 ^ Str := Str + '【会员系统】:『';/ g; w T9 u9 j3 d. i7 `: V
Str := Str + Name;9 W; d# m" u1 M* w* v" B
Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
0 u4 [5 p' }2 w2 i print (str);1 S, g4 |. L K6 @8 G
end;. i9 y9 d) j6 a3 ?* R. ^' D
print ('putsendermagicitem 修练枪:1 @会员服务 4');
0 d* P) a& R% s7 Q print ('putsendermagicitem 修练刀:1 @会员服务 4');
2 [1 ?* }0 ?6 W8 U print ('putsendermagicitem 修练剑:1 @会员服务 4');
3 e0 N6 H4 i- [ print ('putsendermagicitem 修练斧:1 @会员服务 4');
/ Z$ l% c5 B/ C2 Y# e print ('putsendermagicitem 修练拳套:1 @会员服务 4');* A' w% V* }) w
print (Str); / S) }' q: J' \! q+ }: l
exit;/ }$ k2 m. B. K2 D* V
end;
4 s) v9 N' J3 w4 z ]3 f if aStr = 'chuqu' then begin
, n. W. U( d: W w- p6 M- L- A4 W WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
& k" s% s0 M) ` if WqName = '修炼枪' then begin
, V# L+ Z4 P3 }, I4 O& z print ('say 你不是吧!想带走修炼武器!');
7 _* x9 O' j) u4 a, L7 s( t exit;
. e- n2 _1 f( |1 n/ b, s" \ end;) L' t2 Z9 [1 r/ t
if WqName = '修炼剑' then begin
$ M& e2 l, y) p7 }* X6 Q3 A print ('say 你不是吧!想带走修炼武器!');
) X0 P! R5 ?/ E: p' _ exit;+ s7 \3 e2 p7 n; E/ O/ Y
end;! l3 O$ I& l; g& q
if WqName = '修炼刀' then begin
# i; ]+ k T) N. k/ S2 x/ S print ('say 你不是吧!想带走修炼武器!');
5 R9 {3 P( U; _. n5 J+ B% } exit;7 M* S+ x/ \( T* E. y) w
end;
2 j( o; [- x1 c5 A e if WqName = '修炼斧' then begin
9 g; d" @. m+ l: T print ('say 你不是吧!想带走修炼武器!');) h8 E! j$ C9 f
exit;
6 n; Y% f/ P1 \2 {' r# v end;
2 f: k( B. D6 Y) k1 l( y if WqName = '修炼拳套' then begin6 L3 g1 t5 l$ p' E7 D
print ('say 你不是吧!想带走修炼武器!');( J' R1 d3 F( x" D
exit;4 m+ @6 h$ u$ F( J" s) ^
end;
* N/ @/ D& ]6 P. I for MapId := 0 to 200 do
( h1 e0 C" \$ O4 a4 f begin
* d$ J& L- |" t* j) g MapNo := IntToStr (MapID);
; z4 I7 f& V4 t( o str := 'sendnoticemsgformapuser ' + MapNo;
. x# J/ s8 G3 ?$ c/ B$ ^ Str := Str + ' ';7 }0 g' |* D+ v: N
Str := Str + '【会员系统】:『';/ b' y8 R9 D6 ]: d
Str := Str + Name;
9 e b+ n+ t5 s' b2 `) R Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
7 C+ }4 ?! ], H print (str);
+ p; P. I# X' e* q- ?$ R end;
' p5 f: f6 \9 w( W/ ~* n% L print ('getsenderitem 修练枪:1');//出去就全部删除物品8 E$ s2 f" D- `! c( \! B8 T
print ('getsenderitem 修练刀:1');/ G' X8 O* O; U: X5 b# x! E& _
print ('getsenderitem 修练剑:1');9 H; ]! }! C: V, I$ h
print ('getsenderitem 修练斧:1');
/ O; l+ w/ }2 j4 w4 o print ('getsenderitem 修练拳套:1');
2 `7 ^6 D/ O7 O& `0 a print (str);
- }2 \' ]* H+ H3 I; ] Str := 'movespace ' + Name;
3 T1 z# Y0 n, U3 r" k* C Str := Str + ' user 1 500 500';
" R5 R* s1 O: O$ M' h. O/ i# |! | print (Str);
+ } n, ?% z, v8 a8 h6 e l1 c# a. V exit;% Y; J* R! {0 R+ u# |
end;
# o2 x/ I+ t6 L" q8 Hend;2 k1 H& \3 d' f$ U( s5 \, u8 d
end. ! ~* @" X3 }$ e: B
|