一个很好的会员服务脚本 - 三千论坛

unit 会员服务;
/ n( V( a3 i: U4 x( g7 a; s
; V% x+ D" L' K+ {inte**ce" p4 D! z. v  w5 j5 M
: q; w" V6 J4 y5 R2 k4 H
function  GetToken (aStr, aToken, aSep : String) : String;
2 ]; o  Y; J' ]$ @0 v& ofunction  CompareStr (aStr1, aStr2 : String) : Boolean;/ `" ], }8 j- d
function  callfunc (aText: string): string;
/ q' ~! G! v0 H4 fprocedure print (aText: string);+ n+ n0 C! q1 a8 C: A- A' \3 r
function  Random (aScope: integer): integer;. S3 Q# U$ u  v  K
function  Length (aText: string): integer;
; J+ u( _% B0 K9 i! r+ uprocedure Inc (aInt: integer);
; f+ J/ Y  {  {0 a2 ?, ]4 D$ C- Zprocedure Dec (aInt: integer);4 y7 O& b8 h2 ~# h; e
function  StrToInt (astr: string): integer;
! P. z% t( u6 p- ?" x. Efunction  IntToStr (aInt: integer): string;
: Y  C. `: @3 \$ {. n! h) @* kprocedure exit;! G( d. S0 T6 `
7 `5 E& O0 a" F9 i
procedure OnLeftClick (aStr : String);
7 Q& a0 m& |; a" V9 qprocedure OnGetResult (aStr : String);! H/ m" ~, S, e
0 G  ~1 t3 \5 G3 e- ^5 P  R
implementation; U0 e6 h2 W5 |' H3 ^3 e% L4 s
procedure OnLeftClick (aStr : String);
; [% X# N8 Z- H" x. q4 t0 d5 |var/ _! Z, ~( O1 d
Str : String;
2 w0 Q/ c7 @# }4 [& A Race : Integer;
, a! x3 }/ I& n6 S- Qbegin
, ^' r' q- ?5 h+ h5 @4 G Str := callfunc ('getsenderrace');
  S8 T6 _6 @. [; i Race := StrToInt (Str);  f/ a: @8 n; n7 }8 J6 O. Y
if Race = 1 then begin- @$ o# s3 @2 G: f0 d# y
   Str := 'showwindow .\help\会员服务.txt 0';/ S' I% r. c% Y1 n
   print (Str);
- p2 \, M' E: n' P. ~, a% ~    exit; & L5 Y' n$ M' o0 }
end;; S2 r+ v, F9 I/ `* O, d- n+ c* V- j
end;% R$ C7 D% n  ^
procedure OnGetResult (aStr : String);2 N7 U4 S' R6 J
var
/ K& ?3 T& L  I* F, F5 V    Str, Name, MapNo, WqName : String;
$ r6 e* }) w6 P* f7 T       iCount, MapID : Integer;# N% y4 ~) l1 P+ s( n  ]
begin
8 F$ K: x. M, A5 O3 ?5 I, v; i Name := callfunc ('getsendername');
. _) h* m7 ~4 G/ m( M if aStr = 'close' then begin% [: ^9 M% p9 C9 g: k" Q
   exit;7 K; U+ B9 N9 B& `0 a; J+ u& t5 G
end;# A- o3 K5 z! U: \" \9 U
if aStr = 'xuanzhe' then begin
* E/ L8 f" F9 T! ?$ w$ z. Z" h    Str := 'showwindow .\help\会员服务1.txt 0';
2 R! z& ^% q+ ^$ ~    print (Str);
5 p3 m  Q; t$ `    exit;$ T9 O% L: u( n' Z7 f
end;
' Z+ U. [1 S# ?  if aStr = 'lingqu' then begin
/ ]* G' j& W1 P% S Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
0 M* O# V9 C* Z3 R if Str = 'false' then begin
9 ^) r+ ]# ?2 R: g% a5 j    print ('say 你不是会员吧');
) j1 Y4 S0 f; L) A    exit;- B  O( F* o' C. q  e
end;0 C/ e& H  k& M) l
   Str := callfunc ('checkenoughspace 5');
  e1 ^" u3 N1 f9 h) V    if Str = 'false' then begin
' E% x/ f) T& k) N* y; ^0 _& u       print ('say 物品栏已满需要5个空格!');
7 ?, W# j9 }/ J( U: l0 L       exit;! U4 g/ x3 Q0 k7 n$ h; E
   end;2 z, S; O4 b0 h/ @
   for MapId := 0 to 200 do
5 p% b$ U, T& h9 Y" M. t    begin* Q' Q$ g& m8 m& z# G
   MapNo := IntToStr (MapID);8 k- A  ]) Z4 {2 q
   str := 'sendnoticemsgformapuser ' + MapNo;5 R4 i: @/ \0 Q4 [( X/ P
   Str := Str + ' ';# ~8 V' C4 _7 a: g( X
   Str := Str + '【会员系统】:『';! t3 N/ @/ ~0 v7 K4 `
   Str := Str + Name;
" N) ^/ M( Q7 ~    Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
$ }) r. I1 |" d0 I/ {    print (str);+ h$ M: q  e3 f' v; D- z# n7 I
   end;
3 R# S% r0 v1 C  K5 Q% @ print ('putsendermagicitem 修练枪:1 @会员服务 4');. E: T. R2 Z& A6 A8 }; T
print ('putsendermagicitem 修练刀:1 @会员服务 4');
3 J) {  p, r. n" G, [  p print ('putsendermagicitem 修练剑:1 @会员服务 4');2 z9 R0 P! w4 c% h+ R0 x# a
print ('putsendermagicitem 修练斧:1 @会员服务 4');: K# a* U! H1 X
print ('putsendermagicitem 修练拳套:1 @会员服务 4');& q+ E8 K6 Y, e, z& e- X2 a
print (Str);    0 {; I& U# ^' l8 ^% A
exit;8 \$ D! X8 w- j2 g; e3 {
end;9 m6 b/ P# ~2 H& h, B  X3 R0 q+ ?5 f
  if aStr = 'chuqu' then begin
9 |3 x; F9 L" V    WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!) a1 `+ B7 B: u' B8 a* s
  if WqName = '修炼枪' then begin
' `, r. J& X) w5 Q    print ('say 你不是吧！想带走修炼武器！');
+ v6 k) o# Z2 M    exit;: o8 S1 W# O- q
  end;
* G# c! n% b/ Z: |  if WqName = '修炼剑' then begin* N) |1 t' T; I1 I
   print ('say 你不是吧！想带走修炼武器！');! ^. s. H4 s& `6 H+ F) a
   exit;4 P* h, `1 M( h- q. N
  end;
& n# E9 M6 D1 ?  if WqName = '修炼刀' then begin
3 R% e' E$ X4 @    print ('say 你不是吧！想带走修炼武器！');. w: |, [+ _1 }6 p. Z1 b
   exit;
% Z9 v& O- D7 m: @2 @1 V- ^* p  end;
  E* h9 V, Q2 v: X- p! m  if WqName = '修炼斧' then begin  Q: d4 z$ i& @. D
   print ('say 你不是吧！想带走修炼武器！');( c) F8 G* @, g& d" B
   exit;
6 q$ |0 f, q# d; b3 P, |4 ?) N  end;3 y5 I" M$ J  V
  if WqName = '修炼拳套' then begin7 c8 e8 Y" v; j" E+ @
   print ('say 你不是吧！想带走修炼武器！');0 W, I% D- a+ y0 b; j2 R
   exit;) a9 Q* ^/ J& @0 ~6 Y8 p: o& Y
  end;$ F/ K1 U7 T+ ^8 J
   for MapId := 0 to 200 do
9 ?0 e$ ?& @& J0 z    begin" |$ C* X  F0 h% P6 ^! X- G. H/ _
   MapNo := IntToStr (MapID);
# C) n0 M9 g# @' \+ Z: j    str := 'sendnoticemsgformapuser ' + MapNo;1 Y2 z3 i. B1 T- i, z1 G
   Str := Str + ' ';
/ |8 J% V/ L% U+ ]/ S# A4 l+ O    Str := Str + '【会员系统】:『';3 v6 C6 F) f0 `* n  X! Q
   Str := Str + Name;9 J+ z. u. C' A& h; |: u
   Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';3 D& f! ?0 T. U4 M' R
   print (str);
( X! \( B& ]" Z7 w  `$ a& h    end;: x* M! ^! N' s3 d, x  m4 x
   print ('getsenderitem 修练枪:1');//出去就全部删除物品
$ t9 ?7 `0 q/ d8 d0 v$ h4 r4 h1 B7 E    print ('getsenderitem 修练刀:1');1 k" O' M1 O6 G: P7 h
   print ('getsenderitem 修练剑:1');
& N( e$ }, c% A7 h    print ('getsenderitem 修练斧:1');7 D1 [' j  E! G/ L) ]; q
   print ('getsenderitem 修练拳套:1');3 }( g( U7 a% B6 R
   print (str);
" ?7 s+ z4 e! W; ]  q    Str := 'movespace ' + Name;/ Z8 V4 J2 k& T
   Str := Str + ' user 1 500 500';
- Q8 L# W7 B# E3 N" V    print (Str);
5 B# C$ }( g! h' b$ A exit;
! H+ v9 @/ ^2 G8 z( {! ^ end;) t8 G; h  u6 z: F
end;
$ _+ h) ?. C* \! I3 i. Y% Y" \end.