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

unit 会员服务;, C' W% }" b3 E* g5 ~1 t
/ z: n3 W# T6 R# n0 ~0 [* R
inte**ce/ |3 [6 z/ Y) ?" G' a' ?$ H
/ I" W1 j: ]- t$ C3 u
function  GetToken (aStr, aToken, aSep : String) : String;
6 r9 P. N. L1 ~3 c  Hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
6 N. c' X  J: I! B5 e% c* ]function  callfunc (aText: string): string;( D9 |$ n& B. V+ _8 a2 |
procedure print (aText: string);9 ?% ^8 G2 r, K# \5 J9 L+ ^
function  Random (aScope: integer): integer;
. O2 G& s4 B4 n. F% Kfunction  Length (aText: string): integer;/ ~% F6 d7 l2 K1 T* c% }* B( [
procedure Inc (aInt: integer);$ Q  s: Z# U' S" g7 ^
procedure Dec (aInt: integer);5 y* f5 X- M* e! Y" T, y- f' a
function  StrToInt (astr: string): integer;
; k& w4 @# C& `function  IntToStr (aInt: integer): string;+ x4 }2 ?; a: R8 b
procedure exit;
7 c4 Y- H: Q! S" m+ _/ L% I0 |0 \
' i! |  M  \* Oprocedure OnLeftClick (aStr : String);8 t4 F; G2 q2 U
procedure OnGetResult (aStr : String);
; q4 q/ H+ n. ?8 ~1 `) c' B7 M# `& o) b1 O) g, W/ t) P
implementation
" c3 g7 g8 Z: _3 y4 B* W6 Dprocedure OnLeftClick (aStr : String);5 ^" ^( F4 k) s7 @
var# f2 X; H8 B/ [  |, g2 `4 \
Str : String;) B+ f& Z7 p% B2 [- P& S
Race : Integer;
; t+ y, N7 o& ubegin$ @$ p7 l3 O5 h
Str := callfunc ('getsenderrace');2 @/ h( ]9 ]4 ]$ T2 r6 H/ h) \
Race := StrToInt (Str);' i% Q  G1 C9 b$ H4 Z2 n/ ]! |) e
if Race = 1 then begin# e  r1 [: _" @  X0 ~4 m" \
   Str := 'showwindow .\help\会员服务.txt 0';! V& |. o7 X4 P+ _" W3 t. n+ X
   print (Str);
/ n+ X3 {7 q. y6 {- p+ }, b    exit; % A5 f: h7 ]) @4 J9 z1 ^# e% X& J
end;
% l$ z% |3 y5 Qend;1 |4 g" X) J$ |* M
procedure OnGetResult (aStr : String);- t3 e" s! |2 r( b- _
var
/ s- V( q- p+ d    Str, Name, MapNo, WqName : String;* c* {6 w& `: ]- H
      iCount, MapID : Integer;. r* z9 Y5 w' c' X5 Y  M' \3 S+ L
begin. U+ Y2 L7 u) Z2 C( `
Name := callfunc ('getsendername');
# p; j& M, t. d; K9 s5 K, p% j if aStr = 'close' then begin( H4 y  h/ [5 d- g8 [, p7 D; S
   exit;# a9 m# f- \+ k2 C
end;2 y0 l: b) t$ q4 C
if aStr = 'xuanzhe' then begin
$ \+ {4 ?9 X1 k3 f$ V    Str := 'showwindow .\help\会员服务1.txt 0';7 o; |# g2 L* z# S$ J+ e
   print (Str);
) f0 }+ `% Y: |: h    exit;
' B, `9 P; L/ j6 X5 M2 _ end;* @$ d4 N7 s0 V2 J# O
  if aStr = 'lingqu' then begin, K- x0 K* T6 e( p7 H3 u' Y- H. s3 k
Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设6 m/ D& D& [+ D' v. I6 t+ m6 }
if Str = 'false' then begin# E' e! J  c" q2 F, r2 o5 k
   print ('say 你不是会员吧');' Z  }* w) B0 {/ A: o
   exit;
" Y" |1 E" r! u' `1 z; Z end;
  W& j+ ]8 A  w6 v0 Q: e    Str := callfunc ('checkenoughspace 5');/ J8 E5 g: W. W3 F9 k' }1 [+ n  K
   if Str = 'false' then begin8 Y- ^1 |7 d! H; [  J, w
      print ('say 物品栏已满需要5个空格!');& d7 ^$ ~# O) t( T" d# N: F
      exit;
' D! k# o/ F' H+ Q. y* D2 n4 V6 j    end;
, y' ~  M- |  `7 |    for MapId := 0 to 200 do
" p. n5 e4 }8 K! u    begin
" K3 O5 O: Q; h    MapNo := IntToStr (MapID);
! l: L: b' e: x1 Y& W    str := 'sendnoticemsgformapuser ' + MapNo;: {8 H) z7 K8 y* K
   Str := Str + ' ';
0 K8 h0 ?1 i7 t, d' j4 u$ Y    Str := Str + '【会员系统】:『';$ B* t. T) f7 P3 U3 s3 E
   Str := Str + Name;
0 [2 M$ \- w5 Y6 O1 l6 f, U4 y) T! |    Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';' a3 v0 O) @4 V* x* u
   print (str);( k( }( U& b1 e2 N9 p' b; m( H
   end;
8 f) J! d) C, O2 ` print ('putsendermagicitem 修练枪:1 @会员服务 4');, E) t6 w. F. w. y
print ('putsendermagicitem 修练刀:1 @会员服务 4'); / J/ O) j3 Z  C
print ('putsendermagicitem 修练剑:1 @会员服务 4');% K$ H" b  L, J- z5 q! h. M
print ('putsendermagicitem 修练斧:1 @会员服务 4');
9 e+ k; f5 |% A print ('putsendermagicitem 修练拳套:1 @会员服务 4');: `9 f  v1 S0 @& _# E3 ^6 z5 t
print (Str);    * L0 \6 M4 e( j- d) o
exit;: l! k3 `2 P8 u9 Y$ m6 L, v0 l  R% O* s. Z
end;8 [5 p8 G. X+ X5 }+ P
  if aStr = 'chuqu' then begin& [9 \/ t1 X, J/ D, X5 l+ [- @
   WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
# ?# K) \% c6 Q$ N& K  if WqName = '修炼枪' then begin5 S* P9 C* G1 R
   print ('say 你不是吧！想带走修炼武器！');
3 [5 l/ P! g& e5 Z    exit;
1 B2 l" m$ j4 w2 e$ B  end;% s0 p0 Q/ w7 }% p4 n2 x+ a' C2 W
  if WqName = '修炼剑' then begin
" b) W- ]/ Z4 g1 N! w7 q    print ('say 你不是吧！想带走修炼武器！');+ y4 A9 `+ f+ w: ~$ e
   exit;' k! e7 @  v& ]7 f
  end;
% b& j1 P+ ^7 J- c  if WqName = '修炼刀' then begin
7 x# R- p1 {0 `# d( J  s& A    print ('say 你不是吧！想带走修炼武器！');4 h# o5 k+ {2 [2 f2 h: I0 a5 r8 Y2 `$ m
   exit;
9 V- a& f, b+ |/ V4 G+ L  end;# T! \8 z8 f- j2 k! e
  if WqName = '修炼斧' then begin
& p  y  S+ u' W9 W( C    print ('say 你不是吧！想带走修炼武器！');
" p" Z! c0 p- |% s1 Q    exit;, k! T9 C& L3 r8 ^
  end;) I4 Z. t  R4 T7 _
  if WqName = '修炼拳套' then begin
  T2 z" @! h- G# l9 {+ g/ w    print ('say 你不是吧！想带走修炼武器！');
4 @0 Q* Z8 C5 v/ _, d/ J    exit;+ t( s) }  W* B3 V. a1 i
  end;7 j) A7 o1 v  n7 p' [5 v
   for MapId := 0 to 200 do
2 I0 s0 N; D' R. [7 x) S0 b& s9 U4 n( Z    begin; Z  s( X8 A5 M/ w5 g8 O" J7 r
   MapNo := IntToStr (MapID);0 r# N" f8 G2 u( K
   str := 'sendnoticemsgformapuser ' + MapNo;
  X7 D1 f; X7 a' x% _7 F' V+ M' h. O    Str := Str + ' ';
/ u. ^" X0 z! }# O    Str := Str + '【会员系统】:『';
( S+ T7 H" P- n4 F1 m$ ^% \1 C) O    Str := Str + Name;
: a$ p6 _" @& ?- Y9 r    Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
5 O0 w* K8 b& S; c( S9 i    print (str);
: N! \2 J) Q  M/ k; P    end;* J9 L3 T9 d# m/ Y. W& k3 {
   print ('getsenderitem 修练枪:1');//出去就全部删除物品
" K1 p, w  M. j' c7 m" T    print ('getsenderitem 修练刀:1');! P( }7 C$ Y% x  @2 d& Y
   print ('getsenderitem 修练剑:1');7 k5 Z9 i2 o( F' M: r# R$ q5 l! D
   print ('getsenderitem 修练斧:1');" y4 i6 |4 C; h4 f$ i7 H
   print ('getsenderitem 修练拳套:1');
5 l8 g0 J5 e$ u8 b/ A9 @3 J    print (str);; T. H6 e" C2 P* I, y1 U
   Str := 'movespace ' + Name;# R+ i; {- s( n! J# F3 l% r# x. V
   Str := Str + ' user 1 500 500';
  y$ P  R: c0 F* ?    print (Str);0 s2 E% {7 X) d
exit;
2 b$ r3 R" x  i* _- B end;6 X" C+ j  m) z, l- Q# ~& Y
end;
- |& H* D: Q' o7 Yend.