一个很好的会员服务脚本

unit 会员服务;
; j  o  @& ~# g2 l' P3 Z6 }1 p- r1 D& \7 s
5 }  p' A5 w  m8 X" k; J9 Rinterface
2 k* F8 F7 l+ _( z; L) S) J6 S+ {
function  GetToken (aStr, aToken, aSep : String) : String;
! J# z% ^! c1 c3 H' Sfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
8 N% v" s$ ^7 H3 y& Z6 aprocedure print (aText: string);
function  Random (aScope: integer): integer;
* r8 q; ?4 I' w. D" dfunction  Length (aText: string): integer;
1 B  b  d: l4 _) ]( B4 F, {procedure Inc (aInt: integer);
# V0 A) V/ g9 @: O( J% c$ wprocedure Dec (aInt: integer);
6 K$ M" F8 Y. y. W8 i0 bfunction  StrToInt (astr: string): integer;
+ ?' C6 D& Y. i+ E# E6 S, Hfunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
; E4 t8 e; T8 r- wprocedure OnGetResult (aStr : String);
! F  P5 i1 a6 i1 P2 [
& \3 y* _* w4 z& i0 R) Eimplementation
" j# D% s7 g; r0 x5 D7 k" O) Oprocedure OnLeftClick (aStr : String);
var
0 V/ w4 J* B2 G  j8 E   Str : String;
6 s& O6 w- K  c% S% v+ E  t   Race : Integer;
begin
% h: e; P4 h) g; e/ a8 {   Str := callfunc ('getsenderrace');
+ \9 K- }% ~" ]; c* @# J   Race := StrToInt (Str);
   if Race = 1 then begin
# V/ P, B' p7 n: u* P# P, V! l      Str := 'showwindow .\help\会员服务.txt 0';
8 z# C: e4 H0 V7 o1 G# X      print (Str);
* B# a8 y- X" B5 |9 B      exit;
   end;
! B* {: y& l2 h. Send;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
9 ~/ |# D" J  ?   if aStr = 'close' then begin
1 o$ g, y: g; t! n9 T# B      exit;
   end;
2 S# g) \4 p/ N( \   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
$ ]0 `4 f" h" C; e+ V      exit;
" N: @8 ]( v* h4 q- G  b/ D/ H   end;
8 m+ W  G3 j0 E$ j6 T0 R  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
* P6 u- D/ w  g' A9 o7 h, v    end;
) y5 y3 O2 T5 C$ F* ?! ]$ N      Str := callfunc ('checkenoughspace 5');
( o1 H3 U$ G5 F+ k0 e1 h  s6 Y9 |      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
0 c7 a( K+ w# ~9 S; M& u- l  }      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
! B$ u/ @( _7 |% U       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
% [+ J/ [/ f; O$ M       print (str);
      end;
8 q; J& Z  q" V6 w    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
8 e) n( P, N9 H2 Z5 |4 Y0 Q" O    print ('putsendermagicitem 修练剑:1 @会员服务 4');
# d3 E, Z$ j; {8 U- f( y    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
& V, \- u3 {6 W5 w4 o7 t, k    print (Str);      
" H) l; m9 p3 i5 C' V2 X) |/ E    exit;
* H) k+ q+ ~8 t( V* r- W   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
, e0 T: c- N! b: P# g  if WqName = '修炼枪' then begin
. n8 L$ z; C3 i+ F) Q! V     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 ~4 [* y. W9 U" V  end;
: v' S( p  z: X4 J  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
: u: F' h/ _) {" R- l; Z     exit;
4 R7 w% ?7 i: ~# L6 B! b  end;
% @- g% V4 d) i3 F  D' K5 ?  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
, l. Q, J, a% ?% H6 v1 ?     exit;
- V% T0 `  i- _+ _# E  j3 P0 E( X  end;
  if WqName = '修炼斧' then begin
( d  x1 J5 y# L3 I' E/ m  F3 J) u     print ('say 你不是吧！想带走修炼武器！');
3 k3 M4 |0 n5 l     exit;
$ F/ B; b  H% {% Z( V7 b  end;
6 p, ]! E+ W0 h3 P, E  if WqName = '修炼拳套' then begin
- }5 i* r% ?8 h8 K. L     print ('say 你不是吧！想带走修炼武器！');
9 Z9 |$ x, D2 y& ]9 Y     exit;
  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
$ h+ Y' s! b4 K3 N# K- Q       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
& m- _& K5 m* e+ }  K9 Q2 `5 M5 @       Str := Str + Name;
" @5 M' Q5 M* h3 T# k4 J3 x" B6 n( R       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
) g5 e) A, P" ]* v/ ?       print (str);
      end;
) L+ C1 s4 E1 K# h      print ('getsenderitem 修练枪:1');//出去就全部删除物品
( f- ^$ U5 Y& g/ E+ Y      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
3 d4 U8 ~, U4 g$ \( y, e  J      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
; X% D/ A# o( W/ x7 g0 P5 z& `      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
   end;
4 C' ]* b9 Z3 k1 v; L" B$ Lend;
end.