一个很好的会员服务脚本

unit 会员服务;
1 Z  s1 P. ^  p; V1 U
1 N' E7 M6 b+ K! qinte**ce

$ U. I( ^4 Y' A  u- Vfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
  A- L/ Z, N4 n/ Q" U: n( k( Zfunction  callfunc (aText: string): string;
7 |+ o: f9 T* D: H' G) ^- R# tprocedure print (aText: string);
, X; a, ]( k5 b5 D+ c- l5 {function  Random (aScope: integer): integer;
( k4 [6 T1 c8 U3 Z! q7 c7 J  cfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
& a/ f, c( k4 i+ Sprocedure exit;
5 T: e( W. j' }+ Z) x) W
8 O6 i9 ^5 w1 ?- Fprocedure OnLeftClick (aStr : String);
# }, s( V! }+ Qprocedure OnGetResult (aStr : String);

/ r0 i0 _# Q; j4 h% F. fimplementation
procedure OnLeftClick (aStr : String);
5 `7 g5 r! Y$ S. N8 |8 w8 J6 Fvar
3 @3 `) E0 d( i" P+ |   Str : String;
$ }5 @( K* F$ M- k' h/ H   Race : Integer;
begin
4 D7 U/ k0 i. P4 h   Str := callfunc ('getsenderrace');
( j+ f' C. |8 P1 ?9 Q' O   Race := StrToInt (Str);
' c8 [2 ?4 E( P* X% ]% A" M) b/ L* Q# g   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
5 t- S" o4 ?1 p6 s      print (Str);
      exit;
   end;
5 F+ i, j8 ]$ Xend;
' O  x6 r' |& i$ v" Bprocedure OnGetResult (aStr : String);
var
+ c# R+ j, n- [% `3 A      Str, Name, MapNo, WqName : String;
7 E; C. z4 ]# q7 u8 W& A         iCount, MapID : Integer;
. g; s4 f! f8 B1 \7 H7 L  Dbegin
   Name := callfunc ('getsendername');
. s; p, i# V. ]+ L   if aStr = 'close' then begin
      exit;
' A7 o$ j, |: @   end;
   if aStr = 'xuanzhe' then begin
3 l* w6 d6 E$ J, ]1 t      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
1 s6 L0 m. a" }9 _' u   end;
$ R9 X% I) P! E  if aStr = 'lingqu' then begin
) K# }7 S* k4 ~4 D) ?" q3 c   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
( [3 L2 v! i' `& @7 ?# B, C      print ('say 你不是会员吧');
, H! w: g8 j& Q8 |$ ~& y# _- M      exit;
* X" {; m- P/ K% |" n% i! c    end;
      Str := callfunc ('checkenoughspace 5');
* p& Y7 N' h+ s) x9 V/ i- B      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
; r7 @- I( C" |. y, y: r      end;
1 p$ H. X* C& p- J       for MapId := 0 to 200 do
8 A( \5 w# T2 e7 ]6 l, o! _/ ?       begin
% r2 N- p) y, x" W6 W       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
8 z  U% L4 \+ s  H& c       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
  H% o0 X5 B7 L9 y7 t0 K: j8 }- q    print ('putsendermagicitem 修练枪:1 @会员服务 4');
* O/ L% E8 [- P. j: P) E    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
5 G' }. K- F, X0 y; v7 T; U: h    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
8 O8 @' \6 C) ~3 f$ F   end;
! A9 D" F6 z+ Q! i7 F: B  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
9 X3 D/ p; _- X2 `& U3 i, U9 c+ b8 i     exit;
  end;
# d7 u' e. N$ O2 C- Z0 ?3 w9 ]  if WqName = '修炼剑' then begin
$ V1 }8 l5 i/ Q     print ('say 你不是吧！想带走修炼武器！');
" g3 J( h' Q- ]' w- G( C     exit;
  end;
  if WqName = '修炼刀' then begin
4 T. n, l$ Y4 @' h+ y. F     print ('say 你不是吧！想带走修炼武器！');
/ _' w* o$ ]! i6 Q; n     exit;
8 a4 H3 ^- b$ z  ]6 ^! K  end;
. ]  p5 `* v* H8 l" ~  [: Q3 k  if WqName = '修炼斧' then begin
$ C% I4 T7 d& o  i% ]' o( ^4 j     print ('say 你不是吧！想带走修炼武器！');
     exit;
0 ^' t; F. P; p* o! T# V3 z4 A  end;
  if WqName = '修炼拳套' then begin
0 ?# H' u/ s% X( k  h     print ('say 你不是吧！想带走修炼武器！');
6 t" A0 t: R$ \. K) X, P     exit;
  end;
& [* i' [- }8 c& R      for MapId := 0 to 200 do
      begin
3 i- f1 W: q! f6 ~      MapNo := IntToStr (MapID);
8 ]# J! a' H2 y9 p. q" Y0 p       str := 'sendnoticemsgformapuser ' + MapNo;
* Z% M: g& i- I9 N& H0 A       Str := Str + ' ';
9 u/ x  H. t' |1 T3 R0 W$ t       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
3 @5 f; m" y) g  X       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
+ \* Y* X1 a; D! Z* e      print ('getsenderitem 修练刀:1');
* h; L  R! h9 D5 }* ^9 X. s2 p      print ('getsenderitem 修练剑:1');
' L4 h2 p% o6 {0 P9 l& O      print ('getsenderitem 修练斧:1');
% [. Q1 B! V/ q5 M4 e# P      print ('getsenderitem 修练拳套:1');
      print (str);
6 p" ~) Y+ b' a% x8 m5 R$ ~      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
4 n4 j/ B) u1 R. N% a3 w    exit;
. o) e* T0 l# N; @, h  _9 W   end;
6 Z& y9 g% ^, p8 ?7 v0 c+ h9 Nend;
end.