一个很好的会员服务脚本

unit 会员服务;

$ s# x. F6 E1 J' ?interface
# J; J+ u8 A6 L0 ?. o6 x9 j* _
' g0 W' ]# A; w$ K0 p6 f5 V: W" @/ Jfunction  GetToken (aStr, aToken, aSep : String) : String;
* K* A4 p2 k5 p, m8 Y9 G! ifunction  CompareStr (aStr1, aStr2 : String) : Boolean;
2 F9 {5 _) Q% z% g; ?6 Rfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
. Z! n. T; g. E, C3 W& {procedure Dec (aInt: integer);
- A# E7 e. y- N0 b9 }function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
: @9 L& [$ D" y) f# X$ K% }procedure exit;
0 D6 u$ Z1 ?2 o- W" Y. k
) @# G! z+ f) p4 o: Gprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
1 v0 k% x4 `9 o+ M7 V+ [
2 I3 N6 @- E1 Q6 Q' w! q& yimplementation
procedure OnLeftClick (aStr : String);
2 S8 J" D: e1 w' L/ \0 Q4 \var
" G4 `: t& Q/ J/ p- e   Str : String;
- B% b. ]8 n: Z6 Q   Race : Integer;
# q' M/ H) t, g5 f8 V, z6 Xbegin
! E5 q- G, [: E7 y  F9 S   Str := callfunc ('getsenderrace');
; s0 n. w: U: h9 ~$ I   Race := StrToInt (Str);
2 B6 O/ ~" C! L# K   if Race = 1 then begin
: p& c/ E$ }( i! y' d% X, F% V0 z2 m      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
) B% z+ U1 {' G! q) p; a* e   end;
$ X6 z1 r2 L8 b6 a! Kend;
procedure OnGetResult (aStr : String);
var
. \/ f5 g9 K4 ]) B! |2 Q# R      Str, Name, MapNo, WqName : String;
+ Z: L2 _: e: W" [/ s$ `         iCount, MapID : Integer;
2 o4 ]+ E* W: a$ f0 Rbegin
( K  F$ ]. Y9 p$ M6 C" f( \   Name := callfunc ('getsendername');
0 K% E' u% g3 e. X% z   if aStr = 'close' then begin
      exit;
3 F1 A% }+ K1 a3 k) b   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
/ n9 K! h; T5 x! z      exit;
   end;
) c: a- i5 C) S& z: P5 @$ E  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
: c2 g4 n# s3 ?$ @3 b1 V$ q' G   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
0 R% a. y6 v  g4 s6 ^         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
% A! @5 R* v8 R" f       for MapId := 0 to 200 do
       begin
) G1 p; s7 Q7 D$ Y' f, j       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
' M9 W4 x4 B3 w2 g; o' {1 d       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
/ U3 }6 R! }2 y  R      end;
7 l- R: b* C% p. \$ K) E    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
* F. R7 t  L% v* k0 m0 F; D) @    exit;
   end;
  if aStr = 'chuqu' then begin
* D4 Q6 r: Q0 H: f6 a     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
# U- N& B; l. F" o" i  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
' |( y8 r' g9 h8 _' x     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
, u( m6 `4 L1 ?! C1 V* d2 \1 v% q  if WqName = '修炼刀' then begin
/ K) z9 e( w! @2 h2 I& A     print ('say 你不是吧！想带走修炼武器！');
     exit;
9 ~7 \% ~, A$ j5 |& I  end;
  if WqName = '修炼斧' then begin
, B  l/ q/ F$ O7 X% C     print ('say 你不是吧！想带走修炼武器！');
     exit;
, t! C2 V# B8 P3 b* r2 ?6 A  end;
! i) p( c  t. ^# K2 E6 s6 G9 y  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
" `9 _1 ?) n3 |9 Y4 M, n     exit;
  end;
      for MapId := 0 to 200 do
( y& t3 L" k0 @5 `) B      begin
2 ]. k( H% T1 n, g/ l7 D      MapNo := IntToStr (MapID);
* V, \8 o/ u" v2 b# C' t2 u! i       str := 'sendnoticemsgformapuser ' + MapNo;
; {+ I% ~9 R7 v$ ^- E- g2 ~       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
* w: J/ L1 W5 ?0 F! G  B# a7 v9 L: ^       Str := Str + Name;
, P2 l* f7 Q+ d6 {+ |4 Z       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
! {# P! H3 H5 X; t; ]      end;
, _* ~& K! C1 g* E! m: j      print ('getsenderitem 修练枪:1');//出去就全部删除物品
" W0 r! v# h4 m0 [/ P      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
' H% Z( T7 v1 N* l) H      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
4 B" @$ g, g% M$ d/ r    exit;
+ S9 p( q4 z# E& d( ^   end;
end;
4 i5 n- c  M  v0 C; Wend.