一个很好的会员服务脚本

unit 会员服务;

" K8 d+ f$ y* `1 r* }' @2 |inte**ce

7 d+ V1 Q3 R4 |! ^$ @, E& yfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
  H3 u3 V4 F8 n1 h9 C: Pprocedure print (aText: string);
# g1 h% C* r) Q4 T/ u7 y. wfunction  Random (aScope: integer): integer;
  e- A: h; q# K/ f5 ]/ ^function  Length (aText: string): integer;
: T& [$ v, U% S  t. }7 T7 ?7 rprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
. m7 E1 n1 n0 H/ gprocedure exit;
8 C0 U2 H& K& j; K. X
procedure OnLeftClick (aStr : String);
1 p" _8 F0 J3 E0 q- I) S: m7 x8 pprocedure OnGetResult (aStr : String);
+ A+ {( U2 l* S  _# _9 l* f
0 T+ _$ A  |, k  y/ Yimplementation
. X( J6 Q' p1 f) X! Fprocedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
1 b2 p% ]* g  Q; ^; rbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
6 I6 m- @* j- R9 F2 }      Str := 'showwindow .\help\会员服务.txt 0';
6 }/ [! G/ p% p      print (Str);
1 C, |3 [" A" c- T      exit;
' L9 v1 \% F: M   end;
end;
" k3 V" @; S& S& p/ zprocedure OnGetResult (aStr : String);
4 @' _+ q# q0 O2 L. v5 ?var
      Str, Name, MapNo, WqName : String;
) a& A+ a. F" m, ~7 F) q         iCount, MapID : Integer;
begin
* O* U9 D4 v8 J4 B# c7 H   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
& d7 A& D" O' G   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
+ j$ B9 C# @" v( f' c+ D: l8 `      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
0 j5 Z( j( O9 k2 u- h1 `8 z   if Str = 'false' then begin
1 C5 s& m. |' ~1 S, i' u      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
/ v0 M3 b0 E$ h         print ('say 物品栏已满需要5个空格!');
+ l5 R; Y: z8 e7 c" M, @         exit;
      end;
* {* m' H. N7 K       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
/ T2 m! w' W$ P/ G0 H! P, l; k       Str := Str + '【会员系统】:『';
       Str := Str + Name;
) }# u' p8 ~5 l3 V  C5 h       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
% E) |0 ^; r) k! o7 y7 Y0 J    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
/ |+ f9 \, s2 O8 V    print ('putsendermagicitem 修练剑:1 @会员服务 4');
; i/ `* V2 m$ I( }2 ^. n: ~; n    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
$ l1 {1 A, R: v3 O" a$ R    exit;
   end;
3 d) A5 y! B" e( |9 S. n1 j  if aStr = 'chuqu' then begin
0 Y8 J. S( F" K& C2 M     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
% g( L1 F& ~, I  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
; P, d0 s/ Y! s0 ]2 x     exit;
. J! Q) |  s' M; u6 }  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
0 y$ U& v7 {; [1 k     exit;
0 e+ ^0 P  b) l% |" o9 E1 P  end;
5 q- H8 s' H* b7 _  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
, j" B8 f/ e8 q; D7 s  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
/ [- w) ?" d. |$ A/ i' U. J     exit;
  end;
      for MapId := 0 to 200 do
1 N3 P3 y, a( p9 S% ]  Z      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
0 c6 ]! f, C: j* c* j       Str := Str + ' ';
; N" d( b7 U3 z4 W0 T$ i7 C       Str := Str + '【会员系统】:『';
( {9 ?3 z/ j! n! s       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
0 |3 `# @1 @0 a' t& [! G6 ]# I! r       print (str);
7 X% U4 ^0 H4 m      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
" K7 d+ R8 U! h      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
6 W6 }) E  j2 n! B) p+ }3 @4 F; x% T      Str := Str + ' user 1 500 500';
" a5 N5 W( q9 ]7 Z% h! D; ~      print (Str);
- T4 ^  F4 R0 T$ p' r    exit;
   end;
9 n2 t- c" X2 y2 jend;
end.

1 d+ ^3 q9 C: Z' D& h, a9 J1 j