三千论坛

标题: 一个很好的会员服务脚本 [打印本页]

---

作者: 异仟年    时间: 2022-9-5 20:48
标题: 一个很好的会员服务脚本

unit 会员服务;
/ z4 o4 _( j6 Z8 a' p: w0 ^
" b- ~) l$ Z9 |- Hinterface

' N4 L. U( ~+ `- s9 cfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
* A+ c9 }  R: Z$ P& ^2 X+ r3 ffunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
# v) i( L' V) f, V% a. u0 G1 `function  IntToStr (aInt: integer): string;
+ _; Z1 F4 B% v# X* j' hprocedure exit;

( k0 I9 R# t- Gprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
4 L- b) i# q: s4 n0 f, B9 X
  I, G" W1 ~! W; h, A1 x/ W. \implementation
: e' z* i: a4 z" d# }2 J. `procedure OnLeftClick (aStr : String);
7 Q, M3 M2 A) P( Y& svar
( v  p/ o( A( Y) k# c/ B   Str : String;
   Race : Integer;
begin
8 ~0 ], ]. E) b9 R  q& _   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
8 u) Q2 V0 _# Y; Z& v+ Q5 b      print (Str);
      exit;
   end;
end;
- U6 [0 n; z& p* |% C. Wprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
  i: [$ `  Q9 P2 R+ Y2 g3 _$ d   Name := callfunc ('getsendername');
( u3 s( y; d2 Y( c0 P- `3 p( V( y   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
9 C8 s; i. X: A' g. N7 D8 m      print (Str);
      exit;
1 ]  G/ `5 J4 z( D- q   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
$ K/ P+ I+ M- P+ U1 P7 V4 l      print ('say 你不是会员吧');
8 Q3 @: e5 R( J! S* }      exit;
6 U: W8 z/ @. @' v1 w+ T' y    end;
( b. T. \0 b1 @8 k/ j+ r      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
( {$ e9 `7 R8 j5 C9 X0 [         exit;
      end;
0 u8 U+ ?# s3 p+ z7 D       for MapId := 0 to 200 do
       begin
$ }5 q  z" i5 s+ C       MapNo := IntToStr (MapID);
0 X: o/ i1 t/ N$ t' J- q       str := 'sendnoticemsgformapuser ' + MapNo;
  R8 U$ H. S1 Z. }. ~$ t7 ]& w       Str := Str + ' ';
& \2 v$ ?' ^7 U6 V0 ]4 I8 e       Str := Str + '【会员系统】:『';
       Str := Str + Name;
, T% x' n4 S$ E0 t% u# p8 @       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
! |/ O- n$ s. ^" H. {. S6 R. w. k       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
( ~& k! e2 {  }' i  U2 K    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
0 q2 K4 H3 S; d- X" e    print (Str);      
    exit;
$ s- j$ e" a- a  \; J6 E! G% w$ c& U   end;
! |- n8 v) ~) o0 o0 V; n2 H9 Q7 `  if aStr = 'chuqu' then begin
: J9 R- z" W# L* L6 G/ {     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
4 E/ o; U, m% R1 c2 K/ {* P  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
# r: l( _3 e+ i% C) b$ H5 O     exit;
" t+ d/ ]  A/ G7 T3 W1 q! }' ^# Q  end;
9 A: A3 ]5 Q% I! R  w  if WqName = '修炼剑' then begin
. Z1 C3 V; I7 U% m     print ('say 你不是吧！想带走修炼武器！');
  g9 d" T' h# S! m     exit;
  end;
4 B* F) K4 f( r" G: P3 U  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
. D2 L! Y1 @- E' |( X9 X. F  end;
4 q% Q3 _2 E' A+ W' Z  if WqName = '修炼斧' then begin
3 u. J6 a1 c* O  _: D     print ('say 你不是吧！想带走修炼武器！');
     exit;
: d. ~0 }6 @! \, [1 Q  end;
  if WqName = '修炼拳套' then begin
. S( W, y# |# C/ _( R8 [) L% t     print ('say 你不是吧！想带走修炼武器！');
) U4 h5 Z( ~8 A% |7 V; D     exit;
& Z( a% j% i# r# Q$ e* B2 X  end;
      for MapId := 0 to 200 do
      begin
# d' F* N" V6 X* K      MapNo := IntToStr (MapID);
, D$ n1 c  A  x- s! g8 x1 L       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
& D8 q9 W8 g. ?7 D       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
) Q$ `5 G# B7 p  ^- P5 l: R& {      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
7 V9 Z  Q; X; P3 L5 I" g2 b" g. |      print (str);
# N5 a! X8 v$ j: R      Str := 'movespace ' + Name;
- @5 R8 m9 h8 z7 ^% n0 v! S+ {      Str := Str + ' user 1 500 500';
4 b5 c3 o" v! v5 L      print (Str);
' d. a* q" R" c  M7 l' h$ @    exit;
2 K' u; O! m3 d" e5 k   end;
end;
; Q: ^( f( U' k! f; q% yend.

---

欢迎光临 三千论坛 (http://www.3000y.com.cn/)

Powered by Discuz! X3.4