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

unit 会员服务;
5 [  M3 u3 c' u8 C7 o( X. V8 t8 z2 E: H2 u5 C- k
interface' ]  x: d7 }( S: A/ t- o. \0 {
/ D/ C* ~/ ]4 f& S$ h
function  GetToken (aStr, aToken, aSep : String) : String;
7 [% u7 l: Y( N- G3 x/ k% hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
) q( \/ a& M" P& B# i8 ]3 e$ ]6 Lfunction  callfunc (aText: string): string;
. k6 m) T! I3 P" P- [procedure print (aText: string);' a: V7 c* k* ?6 Q  z! z2 N! k7 s3 g
function  Random (aScope: integer): integer;; ?) P" `- n9 S6 O
function  Length (aText: string): integer;
( ^0 m9 h+ H& m. Y* F9 p9 ^5 hprocedure Inc (aInt: integer);6 q2 `6 I7 L) Q5 J8 }$ G) q+ e
procedure Dec (aInt: integer);
: w9 H; K  f2 O5 o6 Dfunction  StrToInt (astr: string): integer;
/ z% Y% ^- E3 M/ }0 ffunction  IntToStr (aInt: integer): string;0 j1 j: N. ^: O' I3 B4 K+ l
procedure exit;8 g: z' A! f# l! F
! T7 q' B/ V! N
procedure OnLeftClick (aStr : String);
  `8 g- _' q+ K( `procedure OnGetResult (aStr : String);9 \0 _/ d5 }7 [7 J3 Q
# A0 b+ R% d/ x1 i4 c6 L. t
implementation- w/ a1 R# k1 w
procedure OnLeftClick (aStr : String);7 d! X2 @5 f  q3 ?, L
var; l1 `% O9 ?; t6 E8 }. X3 i- G
Str : String;
6 `" ?. R/ f9 _7 B" e Race : Integer;
) m9 z7 n. B- Sbegin" F) x, p" S2 f& D5 `0 E
Str := callfunc ('getsenderrace');0 U( g" b, {6 ?. ?2 L( b& O9 r
Race := StrToInt (Str);
* L( {( E1 k0 A$ E% X8 j5 c if Race = 1 then begin+ e) N8 D- \$ x. Y7 ^
   Str := 'showwindow .\help\会员服务.txt 0';( t+ U) Q  I" |, U6 s8 G( d( [0 {! `
   print (Str);
! l, V/ E2 o9 w5 X* b8 V6 E    exit;
) f5 L: s) r( _ end;
% l2 I+ e6 f4 h) V2 A1 zend;# \! I/ |# r. l. }; A+ J; M$ s
procedure OnGetResult (aStr : String);9 T2 G$ X0 Q; l- ?' n
var
+ `( ?0 x9 [  o! ~    Str, Name, MapNo, WqName : String;
, d' D! W6 W. b1 o& B; n5 o: ~       iCount, MapID : Integer;* s9 ?5 R0 M( E3 {3 X/ |- ^- T
begin
: p. y/ H3 h) I2 Z8 d Name := callfunc ('getsendername');
' F1 x1 H2 P) I, R# i) x if aStr = 'close' then begin
' Z. X" h' ?7 T. H5 p+ H- J    exit;
, ]( w3 o9 ]+ i9 x; k end;
/ U8 o) R* {$ h- c. Q1 j if aStr = 'xuanzhe' then begin
8 {) s" o# T6 E& U/ Z    Str := 'showwindow .\help\会员服务1.txt 0';
3 @; R- T4 B0 B# c4 X) P    print (Str);
: v0 a. N4 j) Y+ o4 D. ^0 T    exit;
7 A4 O" H4 G9 G+ L- ? end;& G$ J2 Q+ }( m
  if aStr = 'lingqu' then begin8 [1 a' ]( D- @3 X4 O
Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
0 A7 Y: R$ r4 v; z' m- D if Str = 'false' then begin, N! U1 p: S1 V1 c3 q! n
   print ('say 你不是会员吧');4 u. v. Y' t+ x, L! |0 s
   exit;
6 B- u! d$ S# j7 d; Y, l( L9 R end;5 ]3 K/ l1 u/ E8 G
   Str := callfunc ('checkenoughspace 5');9 Q# T. z. x% k, J" `! \  r
   if Str = 'false' then begin
/ X9 G) l1 D. _& W7 |+ ?7 y, {       print ('say 物品栏已满需要5个空格!');
; p. {# e. I# W3 J5 V# O       exit;
( [& p) F2 o) r    end;
3 ~9 ?/ f4 Q8 J# Q  ^0 _8 h/ w8 ]    for MapId := 0 to 200 do
  e% \6 k# m1 ~% m    begin
; t$ b1 Q. O8 z' P  e" [, T    MapNo := IntToStr (MapID);% @" M$ h) R' ?: q; K2 Q
   str := 'sendnoticemsgformapuser ' + MapNo;
+ U$ Z9 ~6 ?- u    Str := Str + ' ';
  U) @, g0 T) P- Q6 I2 D    Str := Str + '【会员系统】:『';
" h8 @# ]9 d" t    Str := Str + Name;
/ s0 R4 n9 w$ w4 }" N    Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
) b: h  h& e* i* |' k  G2 O% F    print (str);
6 w' ]% m1 O; N8 s    end;
* u, ?: p! f- i7 @ print ('putsendermagicitem 修练枪:1 @会员服务 4');
3 R- _* |" X+ V% L# E7 m print ('putsendermagicitem 修练刀:1 @会员服务 4');
- M/ e. h- m6 P( ?5 N5 x2 i6 r: S print ('putsendermagicitem 修练剑:1 @会员服务 4');$ {% F- Y" L3 ], A" P: O
print ('putsendermagicitem 修练斧:1 @会员服务 4');' l% U- j( c2 J) v9 _8 Q
print ('putsendermagicitem 修练拳套:1 @会员服务 4');
- M5 c% U$ ^2 S, R  _ print (Str);    ; h( g0 y6 r+ _4 M
exit;
; v: w4 |4 K, ? end;
3 W. X9 F2 m. Y. s  if aStr = 'chuqu' then begin
" n& z; a3 k/ {* ~% D* z( @, A    WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!3 }. `. i( W2 p) Q1 t
  if WqName = '修炼枪' then begin
" @) q8 L# y2 |" R    print ('say 你不是吧！想带走修炼武器！');+ U( c) C8 b; o( N
   exit;
! F6 k3 Y* i& Y. i  end;! S; V* \: j! t% j# R, f
  if WqName = '修炼剑' then begin; l8 ^. I% i1 T8 z* t
   print ('say 你不是吧！想带走修炼武器！');" O# V+ ?9 a4 ^0 o! b8 `4 K, o
   exit;
5 K! Q$ T# j" n4 b8 Z, f  end;5 J5 R5 y- m& P8 _/ X! G6 K+ N7 w- H
  if WqName = '修炼刀' then begin! T, b! F7 B6 C! h6 P
   print ('say 你不是吧！想带走修炼武器！');) C" m. u; k& F: F
   exit;1 J( a  o) X+ o/ l7 j9 z! I4 }5 U  M
  end;1 i# e. [+ i, @7 T5 t  \
  if WqName = '修炼斧' then begin
2 b" U/ u- `( ~! g: N; `8 Q# }- Z    print ('say 你不是吧！想带走修炼武器！');
9 t6 T  v7 v( h/ Y  w    exit;8 K3 S$ a; `: z2 ^% Z) g1 w6 y* p
  end;" b# W$ O# d2 s: Z+ l' [6 t
  if WqName = '修炼拳套' then begin5 D7 c0 {9 a& }" L1 r3 N' P8 X
   print ('say 你不是吧！想带走修炼武器！');4 ^$ h, ^9 L- d, |& J
   exit;
& j8 b$ k( i) P7 y: F3 u# S8 |  end;7 B3 y: N( X# s6 k
   for MapId := 0 to 200 do
( e  X8 N0 T8 K0 y4 \! J    begin
4 C' F5 h! z; a+ q. L- w    MapNo := IntToStr (MapID);
6 K1 ?9 l7 p, v- `2 u1 A8 o    str := 'sendnoticemsgformapuser ' + MapNo;
; p& |; o) D0 I5 U0 I* h8 w    Str := Str + ' ';. U& q1 t' Y: J
   Str := Str + '【会员系统】:『';
" x/ _7 |" S* F, x3 v. E; p' J    Str := Str + Name;3 D! z6 Z2 }1 p
   Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
  O( A: A0 t1 i: h- E9 S$ j0 ~! _    print (str);! H8 o" Y8 O2 k' O3 I
   end;% Y$ U6 O8 V2 |* R1 j( m
   print ('getsenderitem 修练枪:1');//出去就全部删除物品- M/ r9 ?" \* P7 _7 \- ^4 \2 U
   print ('getsenderitem 修练刀:1');
7 W) }* I& U' A( u    print ('getsenderitem 修练剑:1');
8 y0 E$ ?2 R. w/ z7 Y    print ('getsenderitem 修练斧:1');7 {2 S! M1 Q6 h6 S4 x& o
   print ('getsenderitem 修练拳套:1');* h' _( g& ~. B4 N& h- i
   print (str);% X& W0 m+ {" F) \# {
   Str := 'movespace ' + Name;
3 ^9 q3 z) {6 d! K0 Q  L4 v3 z    Str := Str + ' user 1 500 500';
7 G& L( \% d7 S    print (Str);- `6 o! u6 m  E4 d& j- m
exit;
* h* T1 g* Z) r- \( U end;
, Y+ s8 {5 M: l* k+ f' [end;- k. I" R: I7 N% c6 b; }
end.