一个很好的会员服务脚本

unit 会员服务;

0 f* W; [, l0 F/ r# Vinterface

/ G. @( j$ d6 X3 m7 Z" qfunction  GetToken (aStr, aToken, aSep : String) : String;
$ }3 x# \' X. U8 O( U! x7 zfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
! t" L- L" ~$ [6 @$ ?) [/ mprocedure print (aText: string);
" U6 J0 P2 S" O, Jfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
1 N6 N0 M! w9 P3 Oprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
  `: }: r! E1 l! G* @% h6 f% ]function  IntToStr (aInt: integer): string;
% [8 t* W6 {# D5 [1 Yprocedure exit;

2 `; ^: B( l9 U3 x3 i' }3 Q$ H* {8 yprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
; V" F2 o) V: l( @/ B2 i* l
8 X+ Z# ]4 m8 k3 ]implementation
1 Z' Q! o8 _% h' S* f* `  Zprocedure OnLeftClick (aStr : String);
var
2 z4 R( T: V; e5 l   Str : String;
- B+ U( S0 U0 e3 L  b9 k   Race : Integer;
begin
! `, p2 r- I  x3 ]   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
. f; {# _2 ?6 ?2 z% P+ d   if Race = 1 then begin
# F0 A8 o- S2 a. Z* q      Str := 'showwindow .\help\会员服务.txt 0';
9 S2 n2 a2 ]' }$ w- l' t      print (Str);
' p; g2 \4 Y  y2 }. g      exit;
   end;
$ O$ l5 e8 i4 e0 n' Lend;
$ L' V4 p) m8 w% Oprocedure OnGetResult (aStr : String);
0 Y% a0 i7 y' lvar
4 ^8 F7 a' }% }" q% u      Str, Name, MapNo, WqName : String;
& P1 _" i# }. l; D* W  E% M7 Z* k         iCount, MapID : Integer;
+ t9 j8 ?4 c' n; q) g' m3 Jbegin
" `( }0 ]2 T% e! E   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
$ b$ R  A. B1 [$ r, B( Y6 q3 s      exit;
  ?+ K9 ]" i0 K* f+ [2 `: r0 g   end;
( O( b. C3 y4 e- w   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
1 \, h$ m0 o8 U9 C      print (Str);
8 L5 l% Y1 T; E" f4 x- B( U      exit;
   end;
  if aStr = 'lingqu' then begin
  Z1 a% B, k* r+ f, l   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
7 d( `7 u4 ]' d4 r      Str := callfunc ('checkenoughspace 5');
2 h3 ]. e, a& [) ]/ O      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
' o* \" h  [  i  a3 ~) t4 Q      end;
' Y8 q* s. l* Y" p$ h6 [2 G       for MapId := 0 to 200 do
       begin
. k$ m0 t7 J% C       MapNo := IntToStr (MapID);
6 B6 y6 ~( ^/ V, ~2 s: s6 d       str := 'sendnoticemsgformapuser ' + MapNo;
7 F0 i6 ~0 S% f1 z7 ~       Str := Str + ' ';
8 C9 J$ H( B8 ]# Y) \       Str := Str + '【会员系统】:『';
       Str := Str + Name;
% u$ ~& i$ ~  o& p+ w       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
: x/ E3 G/ M4 Q9 B1 L2 b5 K    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
0 ]% m0 U! \; X" a7 a; s$ r$ U6 D    exit;
1 n$ E! S  A+ Y5 L$ _   end;
  if aStr = 'chuqu' then begin
( K1 d: @+ J4 |/ ?* B0 K" [     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
1 H2 A+ J; f" O$ E* ^* n6 g0 B1 G9 t     exit;
  end;
  if WqName = '修炼剑' then begin
1 m+ Z4 |/ L- G5 O     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
# L( G! G% C1 M7 u& m! H$ A, ?8 x  if WqName = '修炼刀' then begin
& b) j7 u7 D6 Q     print ('say 你不是吧！想带走修炼武器！');
6 _0 Y) v1 b. T8 D3 L* g4 i     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
: m7 ^% {& U; ]; w* V/ j# F; W$ D     exit;
1 L8 @$ _3 \% w. u% m5 ^$ g  end;
  if WqName = '修炼拳套' then begin
5 Z% |. @0 n4 ^+ T     print ('say 你不是吧！想带走修炼武器！');
9 |. m4 Y0 T' R% D' l     exit;
. h) q3 m' O& a) x1 c+ @$ C0 u& A  end;
* F' N4 v) L7 `: Z" L      for MapId := 0 to 200 do
; L$ |7 E4 ]" U      begin
      MapNo := IntToStr (MapID);
; D+ t5 I. v) ?# |) X) l" e       str := 'sendnoticemsgformapuser ' + MapNo;
! J# f7 T! n$ K8 p2 `, _       Str := Str + ' ';
6 n0 \+ ~/ z0 c* d       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
/ x; Q  @. A; S      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
: z+ q6 {, T0 `7 h) |      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
1 J3 ?, s7 t# ^8 i7 I3 C0 N" u      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
/ Z! n# P. W% u0 L3 {    exit;
   end;
end;
end.

4 \# J* _  H8 n8 Y+ A