一个很好的会员服务脚本

unit 会员服务;

5 I5 u4 o1 T7 n# n3 C) n! Sinte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
9 C9 i0 _' y( L" Rfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
9 F( J0 ]; F) sprocedure print (aText: string);
function  Random (aScope: integer): integer;
% |0 `$ g+ X, r  \; C) F1 kfunction  Length (aText: string): integer;
$ o& f6 ?6 ^% U* D7 U0 c" Y: C/ bprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
: T8 ^& n8 o9 |1 \+ K$ y6 u$ Nfunction  IntToStr (aInt: integer): string;
procedure exit;
0 j# g# _8 m% h8 ~
7 U7 k5 T* e1 Nprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
$ @( A1 g+ }/ p+ ?, I7 O% ?
implementation
- S; S! V) e3 b- {2 Y( }procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
! @9 P8 a9 t3 r- t1 Fbegin
" h9 l& [  i( F   Str := callfunc ('getsenderrace');
' ?3 j. k3 I8 j' a4 ^& N' B   Race := StrToInt (Str);
  f# N- H% |2 r$ w% C* v' G9 w  y   if Race = 1 then begin
4 K* T6 M0 ~7 S2 F7 u5 Q" Z( k9 `/ f$ u      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
/ g0 Q9 m. N8 u      exit;
/ K/ k# e9 S: O, M3 I; V7 t   end;
end;
/ i  L  m9 N% a; |# w9 \& S+ v$ F/ `procedure OnGetResult (aStr : String);
1 v4 T) u3 @9 fvar
+ t/ p: `4 j# [( L' E+ s0 S      Str, Name, MapNo, WqName : String;
: F- Z' _/ r0 E% G) G$ k5 S$ A         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
3 E8 ]) q  G/ \0 V  v% L0 U   if aStr = 'close' then begin
' G' f2 _8 S2 j/ V) b) Y      exit;
7 w. t' o# T# i) N5 y. L   end;
   if aStr = 'xuanzhe' then begin
+ q: [4 ?' Z% j3 q9 I1 _- B! b7 g      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 你不是会员吧');
      exit;
! {8 s1 a& }1 |1 a7 y9 ^    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
( J2 A) Y+ E6 z7 m/ {( N         exit;
  d* I! D( w+ N- q+ R) }      end;
2 q' o) W* P; ^3 I       for MapId := 0 to 200 do
       begin
$ f# e: x1 Y' Y% F5 c- W8 Q7 c       MapNo := IntToStr (MapID);
: f/ H4 f1 O& [* F+ F       str := 'sendnoticemsgformapuser ' + MapNo;
7 a; f+ P; D4 @6 n9 T       Str := Str + ' ';
9 F5 C' C! X- t8 Q3 `6 O9 r       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
0 p0 X9 B9 Y+ F/ ^9 A' a       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
  M, o# k- E# U    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
( k& Y$ Q2 e% E& }8 R0 w# @* _    exit;
2 W3 @) S/ Z$ C1 y6 ^: @   end;
; t% o3 t/ O# _  U4 \) ^5 a1 k  u  H  if aStr = 'chuqu' then begin
7 Q. ^& v7 T; G( v# }8 o% M6 b     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
# {& s; }) t8 D- \  W/ ?     exit;
5 K1 E) C9 |9 A0 o  end;
  if WqName = '修炼剑' then begin
7 q, I! h) h' w: |/ F0 Y- ?1 c     print ('say 你不是吧！想带走修炼武器！');
( e: ?# b/ c0 m     exit;
) O! j" C! d7 S3 f3 n* @' o  end;
8 _0 g2 N, o4 m5 K! t# U  if WqName = '修炼刀' then begin
0 h" H6 F# d( c9 g     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
4 }" U+ x: K' M: R+ H% g  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
+ Z2 [- Z) N9 q6 N  end;
8 ^; Q' s4 [1 y. G  if WqName = '修炼拳套' then begin
9 K$ T. L& S1 `' L( T/ Y     print ('say 你不是吧！想带走修炼武器！');
% s6 z8 U% Z# `6 `8 p; D     exit;
  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
+ v6 M" p' q2 o8 u2 O       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
5 A% a$ p( E5 @9 o3 m$ Z       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
6 \! ?! A0 @# T  Q      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
% ~( F! O. r; ], C5 ~# j' D$ k      print (str);
* \  l8 E* Q: E8 }- I' U      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
4 ]4 E+ p0 E, v- P+ ]( Q      print (Str);
/ x1 j) L, z( E+ E# Q) z; K    exit;
   end;
end;
end.

% o  C' m+ K2 H1 a  H; w& H