一个很好的会员服务脚本

unit 会员服务;

1 F" _. b& k' F) cinte**ce
$ B) g4 l0 E  c
function  GetToken (aStr, aToken, aSep : String) : String;
! H- e% d# V/ O8 H* M& ~, \function  CompareStr (aStr1, aStr2 : String) : Boolean;
% y& K* ^& i3 |* Jfunction  callfunc (aText: string): string;
0 m7 A1 c9 x9 |% q) V4 K9 f. gprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
- R/ O2 Q- o6 Z- p9 q, Zprocedure Inc (aInt: integer);
1 w5 V) g* K- x) ~procedure Dec (aInt: integer);
  h; m  i, @: _. q: xfunction  StrToInt (astr: string): integer;
9 n) V6 |9 w9 Z$ |function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
# W9 v2 B/ b! Z: wprocedure OnGetResult (aStr : String);
% v; H' w: j) j' Y
/ K, t/ m6 a, d  ~5 ]% p2 aimplementation
procedure OnLeftClick (aStr : String);
var
' D& a" Y7 g& A: b, n: v4 ?6 Y   Str : String;
3 t6 g' A4 M" k/ |- |5 ~   Race : Integer;
begin
  f( ]/ _% c7 ^* T" v/ U   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
2 N3 A) j8 c: [/ j4 c% x   if Race = 1 then begin
9 x% g9 P* N- S3 L; i      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
9 |* _/ q! `, t3 ?      exit;
   end;
end;
4 Z) m" M8 A0 {  k& I  j- kprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
+ X( q3 x) R- W   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
" L, c8 n+ `  s- i4 H. a0 k   end;
   if aStr = 'xuanzhe' then begin
6 y  Z. s# \* L) U+ o/ p( x4 w      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
9 h, v" ^2 _- w2 m      exit;
7 `" V! g6 f2 m" U* @    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
* @: H/ Y" \! I- j5 ?         exit;
) n2 s$ ^9 k; A0 H      end;
       for MapId := 0 to 200 do
6 s. h3 t, p) T) x6 }/ k2 x7 O/ t       begin
       MapNo := IntToStr (MapID);
7 A9 K1 y6 `# I       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
( m' |) c# [' p: S3 B       Str := Str + '【会员系统】:『';
' N& a) i6 Q) K8 R; G       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
. N) K5 i' h/ R" R7 }% r       print (str);
- X* j2 N  t# J% L$ ]0 R; p% s/ P; w      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
! c1 N9 p2 N/ I! P    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
% O* }3 n. B) u$ M* B    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
6 T/ c) s2 i' O3 J7 u    exit;
   end;
0 _; n  l5 ]4 X, v4 `- @9 y; V  if aStr = 'chuqu' then begin
6 ^9 p9 S! P  W1 s     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
1 O" b8 _* E% |) w$ m; g+ j! ?7 o- O     exit;
3 T5 K: d, P+ k  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
' r  E- L2 t' q     exit;
  end;
  if WqName = '修炼刀' then begin
, E( b& U, V( N, D' ~. l  a4 _     print ('say 你不是吧！想带走修炼武器！');
  Q" R% X2 ~8 T; R# g     exit;
! S& Y% v, L; G  m7 O8 c& D  end;
* E5 |5 Z. b: P; P4 m6 X" _8 a  if WqName = '修炼斧' then begin
- `3 V- r. I3 G7 N, K" K     print ('say 你不是吧！想带走修炼武器！');
     exit;
2 s% ~9 k( W" a; C  end;
" z* s( E0 [) z0 C$ X6 @' y$ i  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
4 C' y" F& `" v( [% l  s  end;
) [" ?) G# B) V. n      for MapId := 0 to 200 do
      begin
4 ^# r* _& H7 M6 }# [      MapNo := IntToStr (MapID);
1 f# @6 \$ G/ [' L& `7 K       str := 'sendnoticemsgformapuser ' + MapNo;
( G8 p8 `: I1 e. B  I5 d       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
' K" Y* M7 N7 b* p/ w/ f( X       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
1 i( C4 D5 Q+ M  H5 I" U4 e+ _/ U; Y      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
/ Q- Y! s1 T7 r- {/ ]* k1 @      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
$ z8 I( {) c7 a; j! j& M      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
' L; ]# f# O2 ]+ }3 a( G3 z   end;
end;
8 k! p; w2 C$ fend.

- V; g6 c7 `; f: K4 }* V