一个很好的会员服务脚本

unit 会员服务;

! ]7 n6 ]: d/ `4 U+ yinte**ce
+ |+ f7 x% v( K, B8 J
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
5 I$ G7 M; u! w3 z5 Z& l  n8 ?procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
2 X4 _" C, P: cprocedure Inc (aInt: integer);
& q, n6 }9 C6 ]! o  w) k; ]procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
" I3 X( C$ V; Ofunction  IntToStr (aInt: integer): string;
) q: J( i4 y, [+ |9 a, ^procedure exit;
7 X" [- f. K- `. s$ p3 {5 N
: r$ N9 o* S8 n8 Z( Y3 ]procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

1 T8 i0 g! i& E3 uimplementation
procedure OnLeftClick (aStr : String);
/ k" F9 u3 ]& Q7 C/ ivar
   Str : String;
   Race : Integer;
begin
- B1 O: u9 H. j* a$ l- w   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
4 a; e( s- F# v7 Y7 h( E      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
: Z5 i5 B6 Q2 N$ ?1 }2 v         iCount, MapID : Integer;
begin
8 s' K1 o3 v  X; {. [   Name := callfunc ('getsendername');
0 s) D7 [8 ]. m( p0 a* r& I; d  D   if aStr = 'close' then begin
8 R* B8 |: h+ ]. P3 S      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
8 o' \: ^4 G$ ?  c  H( E      print (Str);
* z( N6 V7 x, n! v* H- f9 K) n& |1 l      exit;
   end;
' {' l7 h+ J7 V: s! C; b. S: o  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
2 d% Q0 d% N( f   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
# l7 p3 {. {" H    end;
      Str := callfunc ('checkenoughspace 5');
1 a$ P" O% g: i' `# F$ K      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
! _  I: Q4 v! [" i5 S' V         exit;
( O& a6 g7 v  U+ X1 n      end;
$ M5 {; `7 [" v       for MapId := 0 to 200 do
* ]6 Z% k* a# H2 W. E& J       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
: [0 Z: E5 v0 h1 }1 c- z       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
0 U7 j9 B% ^) }7 g9 d4 T" A$ {      end;
; D- s1 j9 p. e5 T& M& ^    print ('putsendermagicitem 修练枪:1 @会员服务 4');
) m1 a5 }) y4 u  T    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
8 a3 U. {: G( R    print ('putsendermagicitem 修练剑:1 @会员服务 4');
0 _. ]2 p  J. n  z    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
  n9 ?& ?1 E8 a- I  K; X. y    exit;
3 f7 q7 o8 u1 t% V* M   end;
: f( N# \7 c: a' F6 P  if aStr = 'chuqu' then begin
  m! \) V) x* M  E$ K8 Z- H     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
8 C" E% m, Y- R  if WqName = '修炼枪' then begin
" L; _+ j: \/ _3 N     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
6 ]; q1 i( |/ f6 C$ m     exit;
3 t  s7 r$ n5 ]# E- s  end;
4 R9 r( e. _/ T- @) {  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
# ]- r6 b( [$ s8 z) O- Q* a- k  end;
  if WqName = '修炼斧' then begin
1 @0 u: s; r4 `$ Z* b6 K% m     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
( p! l: ^" R" @- d; n$ Y' L     exit;
  end;
( A- a' Z6 [7 H' ?9 L      for MapId := 0 to 200 do
1 |& i7 S, D" m; D% {+ x      begin
5 {5 ~$ @3 x; g      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
- U7 F" l$ t" C7 _$ J) ^" p& w* w       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
- _( S# ]7 Y5 V% M      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
. e" G( O) F9 ?( X      print ('getsenderitem 修练剑:1');
1 `4 J" y- v2 f      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
( L( Y2 y0 w% j1 F2 P, k" _      print (str);
# y% N$ c0 f& Y2 v8 C) Y8 y3 h) ?      Str := 'movespace ' + Name;
: Z: V% o* y) _0 n8 ~- k; d/ o3 W5 u      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
   end;
end;
7 H( t7 j) \/ Z% S' wend.