一个很好的会员服务脚本 - 三千论坛

unit 会员服务;
4 _0 C2 z$ s" T! _7 _% Z5 z( @* g3 b6 P, U: M8 o! c' w
inte**ce
5 f$ W" e" r# z5 H& Q0 i) h9 @4 M6 C9 q2 S5 ?+ b3 @
function  GetToken (aStr, aToken, aSep : String) : String;
5 y" d. o* a2 o8 x/ efunction  CompareStr (aStr1, aStr2 : String) : Boolean;
, B! K! S" r! p5 R' {function  callfunc (aText: string): string;
+ q  @, ?! r9 B2 n' q6 [9 x5 Pprocedure print (aText: string);" N- L* i, r# P5 f' t1 z( P
function  Random (aScope: integer): integer;
  U$ E5 y; U' c: V+ G5 _function  Length (aText: string): integer;' d3 p9 S" T# {& L3 V
procedure Inc (aInt: integer);
9 G! i3 I: ?, u$ [" G8 {% Pprocedure Dec (aInt: integer);5 I) f, [& b% O+ q' u) i) G2 s% F
function  StrToInt (astr: string): integer;$ k- i* d. u" B% W4 a% K
function  IntToStr (aInt: integer): string;% V- y- G; R3 f2 @/ I( {! Z
procedure exit;
' ^/ o% }+ L  X4 Y- z4 R! T1 ]7 q
- Q$ m( f, ~8 g8 S) tprocedure OnLeftClick (aStr : String);$ g0 [5 w4 B: C- m( z/ c
procedure OnGetResult (aStr : String);4 o2 ?3 S7 ]1 k8 B, \( E
9 n: b: y- T; m. s
implementation
' ~* d6 `; ~; Wprocedure OnLeftClick (aStr : String);0 d# y! K- R2 U
var
3 q- V6 u: F- \. y1 T# n2 ^ Str : String;; j5 S* Z  P' v! g" d: W9 Y
Race : Integer;
# n: h& @" e6 j) o. n7 ?4 ebegin
8 I- O- Z, g7 h Str := callfunc ('getsenderrace');2 h$ v; I0 Y) N
Race := StrToInt (Str);% D- U5 `+ |% Q# h9 }$ U: x
if Race = 1 then begin
2 ~6 q8 |% m* A  ~' Z    Str := 'showwindow .\help\会员服务.txt 0';
( y; e/ t6 Z1 O: j9 J3 G+ K: J    print (Str);
0 i5 s5 n8 B; {- N9 p  B    exit; & q% n& S  M% E
end;
/ Z; Q% M4 |+ P2 W- x& n  Rend;
' |/ n9 ^9 @) I8 tprocedure OnGetResult (aStr : String);
+ |$ h& t- @" a5 b7 k/ b  ^var$ a5 t( G1 l; }, W1 Y
   Str, Name, MapNo, WqName : String;
- f7 H/ O) w; _5 R* D8 h       iCount, MapID : Integer;( j! q6 [; f! h  y0 b
begin
3 [2 z! `- o1 f. }* U0 D( [7 V Name := callfunc ('getsendername');  t+ P+ O: U  e
if aStr = 'close' then begin3 i. v, `5 I1 k4 C# e# f1 q
   exit;2 D+ ^# V+ c! W; C4 {
end;
5 b3 `/ m0 }6 k) u6 [: ]- M if aStr = 'xuanzhe' then begin
- J( [- @9 |2 D  C    Str := 'showwindow .\help\会员服务1.txt 0';" C0 ~2 t% i+ A5 f, ]
   print (Str);' b! I7 l) E& ]/ K8 L
   exit;
1 Q# P+ Z( n. d end;+ X" g5 C9 X  Q/ y% u
  if aStr = 'lingqu' then begin
; J) M  s6 F3 z7 u! A$ w Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设+ k4 R+ {! v( o/ ^, \$ y
if Str = 'false' then begin
0 ?+ T+ g8 B9 Q, B4 R( z9 t* t' n, t" a    print ('say 你不是会员吧');) v& a% ]. H- M& }0 S' I3 E0 _
   exit;" I9 Y; }, K; O0 m* o& A( F# M
end;- a+ Q3 Z8 F3 s4 Q+ P/ c; |
   Str := callfunc ('checkenoughspace 5');
  A2 G0 o$ o5 N6 W  u" q    if Str = 'false' then begin1 U+ y9 G0 S! q7 h- Z& h7 I4 [
      print ('say 物品栏已满需要5个空格!');
) @" _7 B$ k" ~6 v* o4 i( @! X       exit;6 t+ x) D: n  A" f
   end;
$ L% e! v3 ~# m    for MapId := 0 to 200 do
0 b; u2 f( ~( [    begin1 S, a$ A# s1 r4 n
   MapNo := IntToStr (MapID);4 T4 ^: O% T5 \
   str := 'sendnoticemsgformapuser ' + MapNo;
/ C+ g# a5 Q" f    Str := Str + ' ';9 K9 @# l6 V& |
   Str := Str + '【会员系统】:『';8 N+ U3 z! ?2 \3 @! }
   Str := Str + Name;9 ]$ d7 i& {4 C; B  \6 x% u0 W
   Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';6 H2 `) }8 F, i% r+ o
   print (str);
7 V' p- i. r% [8 d    end;1 \: N7 J, I5 ~) y# \
print ('putsendermagicitem 修练枪:1 @会员服务 4');" \- X" l, {9 o' Q: n/ T& A# m
print ('putsendermagicitem 修练刀:1 @会员服务 4');
* K& z4 k/ A* ~. r print ('putsendermagicitem 修练剑:1 @会员服务 4');! O4 S- p; z: Z1 \7 _) G- a
print ('putsendermagicitem 修练斧:1 @会员服务 4');- d/ p& u# ~; @7 P) x- T' ~
print ('putsendermagicitem 修练拳套:1 @会员服务 4');, ^) Q# m- A4 e" N5 H% }
print (Str);    2 A6 E( I; I( m, p+ l5 r
exit;
! R% u0 P8 P# t- ?8 c end;
) O1 s+ K9 ~# e, v- ~- c, g( W  if aStr = 'chuqu' then begin/ @8 t; A/ @* U1 ^( I$ G/ x# Z
   WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
& s* j0 y1 A$ n# Y9 t+ n  if WqName = '修炼枪' then begin& @( U' R' F% K% i1 E+ |
   print ('say 你不是吧！想带走修炼武器！');4 L% U' k7 M2 p" ]' x$ }
   exit;
' Z% g3 K$ e7 `: j& z  a4 w9 u  end;
( x: ~# I& v5 M( }, s' Q1 n  if WqName = '修炼剑' then begin) k) ~; l5 r5 Z) @- E6 N
   print ('say 你不是吧！想带走修炼武器！');5 z# z1 X0 ?0 V& b* H" N: ?
   exit;* ^* |# y: X3 N% h
  end;
+ @; F3 t3 i7 P) {: X0 P/ B  if WqName = '修炼刀' then begin
0 n* _- I- r# F    print ('say 你不是吧！想带走修炼武器！');  C6 h8 U7 s- V6 l: t
   exit;( u3 S7 k* g- Y+ u- l( g: k% t
  end;
2 f6 U$ `$ ~0 f# E3 o& G( }  g, |  if WqName = '修炼斧' then begin
% B! Y7 ~/ `# F0 V. I; [- o/ [8 x    print ('say 你不是吧！想带走修炼武器！');
4 Z# R2 S0 s- u2 z" [$ {! i0 P+ J    exit;
, C) _) `8 z8 D. X: m1 Q6 t  end;4 E1 x$ v" ^& f
  if WqName = '修炼拳套' then begin
# ]/ R4 D8 @' o    print ('say 你不是吧！想带走修炼武器！');. M3 H& |* u& q. ]. W
   exit;
% k' I, p6 w6 K/ K  end;) Z9 v2 U9 m3 @7 n  Q& ^$ O% D2 y& w
   for MapId := 0 to 200 do! S; i0 O- V, C
   begin
; i4 P- U: }7 x! R    MapNo := IntToStr (MapID);
! ^' A& l( b* U) w" ~0 O    str := 'sendnoticemsgformapuser ' + MapNo;
  J5 R0 q: Y/ C0 D! i( M8 F    Str := Str + ' ';0 _6 G0 k% O3 O3 l
   Str := Str + '【会员系统】:『';) T( t6 u3 l/ R  V+ X$ B( l  }
   Str := Str + Name;! X7 R% B# R! @; L) I3 K* y* t$ x
   Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';+ I! S2 v4 C2 D+ z( E5 Z
   print (str);
5 u" ^! @; P/ s4 W6 D* `8 ?  {    end;7 V2 t. p, S( l, ]& @; _6 l
   print ('getsenderitem 修练枪:1');//出去就全部删除物品
/ H; a: @3 d5 g* {    print ('getsenderitem 修练刀:1');
" t/ f5 N9 e9 t4 p  Y* j' b' I5 R6 m    print ('getsenderitem 修练剑:1');
+ y% w8 N1 a! [$ L+ Y( ]    print ('getsenderitem 修练斧:1');
8 u2 A5 E  ?$ M' F' C" D    print ('getsenderitem 修练拳套:1');% W; n% Z6 ?, C
   print (str);
, N. u. }7 p/ {! @    Str := 'movespace ' + Name;( {- k7 V) c4 k9 m( \  s
   Str := Str + ' user 1 500 500';7 h& _. z/ ?: c- ?9 \
   print (Str);) i6 D6 x4 x2 z
exit;! I8 w0 i& d  R! b
end;
- `/ G0 K1 q8 E$ m" i4 Lend;
  S. G  M) \) M; _% ], ^8 L. rend.