一个很好的会员服务脚本

unit 会员服务;

inte**ce

& l7 \5 a+ P$ d9 \5 B; Z" J6 P  V  L0 Z( Pfunction  GetToken (aStr, aToken, aSep : String) : String;
3 a$ L3 e* ?: Z2 }& L8 F! dfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
* ^; ?: W/ V3 y8 N- y: V% M5 Afunction  Length (aText: string): integer;
, Z& n: T; h) h. n! T8 Q" J- Iprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
+ W8 ~! u, \; n' nfunction  IntToStr (aInt: integer): string;
# }/ v' Z, D7 M( e4 }/ Nprocedure exit;
2 H9 F# ^: w0 W* {5 @# c( E2 q
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

6 X4 B5 f$ K- g1 {, Uimplementation
8 {- @1 Z! k- v4 }' _) L0 lprocedure OnLeftClick (aStr : String);
- _) g4 ^1 q9 T2 _3 nvar
   Str : String;
9 K0 v# {! u) o$ b3 W0 `) B   Race : Integer;
5 S+ o9 }$ q$ E5 f/ y% a! Obegin
# U* G, w* Q+ @& v1 ~# X   Str := callfunc ('getsenderrace');
7 \, h: H* Z* j2 D6 S" j   Race := StrToInt (Str);
   if Race = 1 then begin
  p% @" t" l. s& c/ d5 P      Str := 'showwindow .\help\会员服务.txt 0';
& h" p: I4 O1 D+ k1 @# G      print (Str);
, I4 S/ C) m/ r3 R1 q: g; L6 U      exit;
, K# f+ g  I3 C) b  ^' c% g   end;
end;
- `) @3 ~3 W$ g+ k: ?5 ^" gprocedure OnGetResult (aStr : String);
/ g7 e, i. k& C- H5 ]( m) Z0 Kvar
1 c: x: y5 ~! I8 n0 c      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
0 Q* I1 I3 w, N9 H/ X   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
) Y: Y2 Z$ h5 n) [; L   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
2 {. @. z' A  f; i/ U9 S% [; _0 ]      print (Str);
      exit;
8 _" t8 r/ t4 K) B   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
# `7 F, D9 G3 g; I5 u* c8 G/ g6 @   if Str = 'false' then begin
; C8 T4 V* x5 m. q: @      print ('say 你不是会员吧');
      exit;
  X0 h* g8 ~  g    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
2 N7 {* g! |+ R& h1 D2 \, c) B         exit;
      end;
       for MapId := 0 to 200 do
( J7 O2 T$ M" h" C- ^- n       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
3 n3 E& w0 J# X0 p* A' N       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
/ B; H* W& ]! J0 M! M    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
4 h) Z  E: Q% ^- t' l    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
6 a* {9 q# a' {; u     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
5 v9 x  f. E9 f: y  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
/ W2 J! o4 T- P# N1 K! s     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
* {1 Q6 e/ h: k4 v! H9 n/ N     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
4 u- U9 {1 n9 H     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
" ^6 V1 j; c. J/ U0 y  end;
; s9 i' f) T/ ?; H7 r1 f6 t      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
, b6 _; l9 k2 D3 u# k0 g       Str := Str + ' ';
* r" q$ O' b$ v       Str := Str + '【会员系统】:『';
/ s0 \9 e; f, X8 K( q       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
) f3 f# a* a* W8 a% K9 P* c      print ('getsenderitem 修练枪:1');//出去就全部删除物品
7 Z% a) {  \# W      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
' S8 R5 e2 a& t  V9 z      print ('getsenderitem 修练斧:1');
7 N) n' x- D* G) `/ Y      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
3 @8 s8 |! Y% N5 ?1 X; ?. G1 ^      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
   end;
* C' z) F. ?$ n, A' Hend;
- }: E" p. J  K. @6 a. B( y  N+ F; Zend.

8 t0 [/ b2 X' |9 P2 P  L