三千论坛

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

---

作者: 快要发癫啦    时间: 2023-3-8 09:11
标题: 一个很好的会员服务脚本

unit 会员服务;

inte**ce
) l: x3 q; H* Z* c. m
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
) O. y7 p+ j( \  d( efunction  callfunc (aText: string): string;
2 E# M/ L" E% j/ _" bprocedure print (aText: string);
function  Random (aScope: integer): integer;
* h/ F! Q& r, A/ G9 r5 ^function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
5 W8 q) R1 Y& o7 q2 g5 d! Afunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
/ F2 f% \  D) D$ ^& G  o& Vprocedure OnGetResult (aStr : String);
) c! {& |7 r) @; m8 x3 X! q& a$ f
implementation
; V0 M: {& p, H- v* x2 c+ Rprocedure OnLeftClick (aStr : String);
( d' a6 X7 [% g6 qvar
   Str : String;
   Race : Integer;
begin
; f1 A) s" B( V7 M: X3 d   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
9 U. p3 {) D1 a/ G, P  G   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
2 D  u+ s5 V  d" x" C6 f      exit;
3 I4 J0 M9 ?. U1 ~$ T- e+ M% X! C: ~   end;
end;
procedure OnGetResult (aStr : String);
var
. |* R" O6 S0 D+ p2 h      Str, Name, MapNo, WqName : String;
2 y6 V! [( m# m  G         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
4 y# l! Z& t0 K; S6 I. ]- ?# G   if aStr = 'close' then begin
      exit;
- z) G8 |, `* _# [' b   end;
  I/ |/ D2 A: _, k% S   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
$ P$ B% W4 O3 x; h0 }* R$ N      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
$ y7 ^( T  [: ]  L" j, r) y9 G$ }      print ('say 你不是会员吧');
) r7 U: M9 i9 s/ z+ u6 P- H' m      exit;
    end;
4 B* M+ C, ~1 I      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
+ T4 Y5 x2 g9 ^/ k* e         exit;
      end;
2 {% \$ _- H9 G8 l       for MapId := 0 to 200 do
; w8 T: Z2 v4 k  s       begin
  J7 y: \+ |0 ^       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
$ P5 N/ ]9 N8 @: r% b' k       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
+ s( d# T2 e+ b# g! z       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
0 i! C. ~. A* n2 l0 j* E. M    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
, D- C% I; x( F. h6 ^  |    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
. @& k3 J. P2 _- r5 w  A    exit;
   end;
  if aStr = 'chuqu' then begin
  F  T8 k6 m, _1 y7 W  v     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
0 I" @' M4 Q) q9 [( P  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
0 M3 C9 A# Q; W     exit;
  end;
: p. y9 \  F  Z$ g/ J' p$ ]2 `  if WqName = '修炼剑' then begin
! J% o* g9 r& w) Q+ X- L( G     print ('say 你不是吧！想带走修炼武器！');
     exit;
! Z! H5 Z- e' b. I0 E  end;
  if WqName = '修炼刀' then begin
# }9 c, A7 l; Y/ T: S     print ('say 你不是吧！想带走修炼武器！');
     exit;
. Z' O) N$ X1 A  end;
7 V) E4 N6 K2 ~1 S  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
) W9 o( C# ~* x1 Z  O2 Q0 X     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
7 t+ ?' ]1 c1 A     exit;
# d9 U0 H9 d6 C) p  end;
2 B; v( h2 h" d0 C0 ~4 V      for MapId := 0 to 200 do
2 |* s0 q0 ?# u# y      begin
" [$ Y& Q+ f. ?; o! v2 k9 b5 L      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
. c! I! A2 r3 h  m* E       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
4 v& {3 q1 y; K" u8 q! b8 {, A       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
) e7 s7 W  d& v" _7 u8 L! E       print (str);
& o1 a/ c! O( K5 H; J. \7 {2 _/ R      end;
  p- ]4 s  T+ O0 T4 c" b( N      print ('getsenderitem 修练枪:1');//出去就全部删除物品
' q& e& _" H+ ?; c      print ('getsenderitem 修练刀:1');
- P7 }0 D- I- c, V      print ('getsenderitem 修练剑:1');
7 ~* C( B! G  t  L1 ~: _. w      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
6 V5 F& O# O  c9 _' A, N. b7 j/ q      print (str);
      Str := 'movespace ' + Name;
6 [6 n/ B& S) X! Q* J. O' s. U/ k      Str := Str + ' user 1 500 500';
      print (Str);
5 t" p/ w" R/ g    exit;
2 [9 R; s5 S' m  _3 H8 j% G   end;
end;
end.

---

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

Powered by Discuz! X3.4