一个很好的会员服务脚本

unit 会员服务;
0 @4 g3 R( ^6 R: |' N
interface

function  GetToken (aStr, aToken, aSep : String) : String;
- O& N; C# w. A% a1 a3 ufunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
* p& k% W0 s2 k# b# U# oprocedure print (aText: string);
( h" K0 k/ X# Q5 E( L+ o4 Yfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
3 ^  P" w: Y7 X/ a' Z- D% qprocedure Inc (aInt: integer);
5 M% U! f9 O1 k. dprocedure Dec (aInt: integer);
8 d# J/ V) g2 h$ N9 e3 Vfunction  StrToInt (astr: string): integer;
( P* j5 A6 k6 B  {function  IntToStr (aInt: integer): string;
procedure exit;
( e: x* \7 A0 }+ b. d$ w3 w: h
8 x; |$ R! k! R$ k* B/ Iprocedure OnLeftClick (aStr : String);
( @8 v/ Y- D" p# Q- g! i( [1 dprocedure OnGetResult (aStr : String);
2 b1 F4 I5 R# W
implementation
) q6 |+ r& G+ l! f) cprocedure OnLeftClick (aStr : String);
var
   Str : String;
4 R+ O& _5 J& b7 l( R. r# x. r. E* k   Race : Integer;
: o- n  p2 h# a  g/ H0 C3 n: Wbegin
& w' a. U6 R* |4 x7 c  g   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
6 z$ y3 i, k, ^0 v! u   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
- V; v* e5 O1 f7 g& ]      print (Str);
1 o6 a/ w. J2 l% \# B% R; D) m      exit;
   end;
1 g0 C! J! D% o, [8 l5 zend;
procedure OnGetResult (aStr : String);
& _8 X" `4 q& ?/ t6 L6 E: |var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
: ]# R( b1 U, Q1 V: j- p- Hbegin
9 Y2 V" o6 Y) j5 W# `' Q   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
3 z6 ~3 ?' l) G  M! r, N) f      exit;
; M. M; f2 f+ C! P2 Z5 k3 K3 [# \   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
( f. q+ Q* Y' q7 Z* m      print (Str);
      exit;
. R5 h* _  g. Y( v- I5 L  z: C, v8 A   end;
% |+ f" q  D/ u1 c  r6 ?  if aStr = 'lingqu' then begin
6 I4 T# x: S! v" x, ?/ h6 H8 ?   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
' k1 q5 @7 ~# q3 x* }/ p      print ('say 你不是会员吧');
, w" V. k% O# T- @* Z- D      exit;
    end;
7 ~; A( n" Z! s" Y* E7 N      Str := callfunc ('checkenoughspace 5');
% u  z' W  L% v% v      if Str = 'false' then begin
3 k  V8 X: Y8 _5 k7 T5 Q         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
       begin
( Z7 B: Y8 Y( H. C6 [& J" q$ Y       MapNo := IntToStr (MapID);
6 O5 K& m1 M2 s- z- u2 w( t       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
- q  g: c( t, \, _6 N( u       Str := Str + Name;
, L* l# ~+ \! y3 f- V       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
; G6 |/ F$ r' R       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
2 ]8 B5 a8 F) @$ x    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
8 q+ b( t% S; j! r" {! I    print ('putsendermagicitem 修练剑:1 @会员服务 4');
6 x5 k' I1 m. w: x0 _& a    print ('putsendermagicitem 修练斧:1 @会员服务 4');
. O; k4 J: x' x' o9 a& j. N. ?    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
  \8 p. s6 b! u& o    print (Str);      
    exit;
5 M7 H( E( v- l   end;
: A) b9 i0 {/ \) c9 }8 i  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
( R4 z5 l0 ^0 n* }! l5 ^: w  ~     exit;
# I" Y3 [9 U0 K4 Z  end;
8 }5 A- b, y- Q# W  if WqName = '修炼剑' then begin
& L+ t' z# Y* Z     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
6 f3 \" k, P, W) q) {  if WqName = '修炼刀' then begin
" b, y6 b: }3 K  k     print ('say 你不是吧！想带走修炼武器！');
1 e3 p: P7 `$ }* C( M) h     exit;
  end;
- y/ p  H6 I6 m+ O  if WqName = '修炼斧' then begin
9 z. K8 T$ T0 E+ u0 }# v0 [     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
% o$ M% {+ T0 c. q+ X" A* {8 V( h  end;
* @6 h' I' A$ F! }5 j2 g4 d# ^      for MapId := 0 to 200 do
9 x0 s1 Y& y. A6 B2 D, V      begin
      MapNo := IntToStr (MapID);
( y. }4 `8 y& X( T, `       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
# `8 b. [. c- F' O& O       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
1 k9 X9 k+ K; e6 S4 z: m: p      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
. k  h# `) `/ |3 m3 B0 W7 z; Z      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
) E0 ^) v: i/ N) d6 F" h( `9 N6 n      Str := 'movespace ' + Name;
3 t: }; W! L' e9 v" B      Str := Str + ' user 1 500 500';
      print (Str);
: K) E2 r. E4 B% l    exit;
   end;
end;
' V0 h% g( M# W- nend.

( H( @0 ]9 c" r1 t; r4 L