三千论坛

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

---

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

unit 会员服务;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
/ ~) f5 |+ V! N) f$ ~% W$ rfunction  callfunc (aText: string): string;
1 y6 A( J: b# ]! \$ Oprocedure print (aText: string);
* Z! w) X3 f) P. Zfunction  Random (aScope: integer): integer;
: \6 y4 X$ o5 k) h4 r: F2 hfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
. x' e6 x6 c; d, A5 Sprocedure Dec (aInt: integer);
( Q4 ~& p  y6 \$ Cfunction  StrToInt (astr: string): integer;
" ^2 T0 ?  c$ G* b& Z' Sfunction  IntToStr (aInt: integer): string;
procedure exit;

2 p% S; F$ E9 q, K; u& `procedure OnLeftClick (aStr : String);
8 B. d5 P- C) G  v4 h9 i6 Bprocedure OnGetResult (aStr : String);
9 q  z: K. i2 C3 H- K1 Z, J! p
- @$ \& w5 P6 H& l6 V5 h) w, Gimplementation
procedure OnLeftClick (aStr : String);
7 |4 P5 o9 O6 n' o. n% O: @7 ]var
3 [0 p6 E/ V' ?   Str : String;
   Race : Integer;
( t$ Z0 j  ~& q8 a% Bbegin
   Str := callfunc ('getsenderrace');
9 T3 h6 a' ~4 n7 S/ ^6 z) A   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
end;
procedure OnGetResult (aStr : String);
( r  x0 n( v! Xvar
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
8 @. |0 T( \. C  tbegin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
% m, Y4 f4 l) }7 I# x- I   if aStr = 'xuanzhe' then begin
* P  [7 A8 a$ `8 W* o      Str := 'showwindow .\help\会员服务1.txt 0';
. ]- p5 D  _- X) l, i      print (Str);
4 j( o( |3 k* m! e/ {      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
0 l5 g  x2 b2 [+ x      print ('say 你不是会员吧');
& n) R* f# [: G: A' i& A/ s$ S! w      exit;
. Z0 p9 Z. ], \    end;
! a& l" {/ A) ?      Str := callfunc ('checkenoughspace 5');
4 e9 b) b% M3 u      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
: \; Z" k+ {# j4 |. m  ]         exit;
$ `4 q: g" [3 c      end;
' m, g; x% P3 a6 T8 p% `' j* U       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
3 u. s8 Q% i8 M, m, }       str := 'sendnoticemsgformapuser ' + MapNo;
, }* `9 N4 g& c$ R. U1 i' T       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
8 T# A& l6 i  d4 i/ m       Str := Str + Name;
+ b+ U+ s# L  @" _; h+ m4 Q       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
4 B# t+ ~% t# Z+ X+ Z* ?2 J0 y+ j      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
5 _& A9 s" N- w9 {% k$ Z    print ('putsendermagicitem 修练剑:1 @会员服务 4');
9 W+ y  L$ d& m  ?$ n# E; J& _, Y    print ('putsendermagicitem 修练斧:1 @会员服务 4');
2 g8 D& D, c) U/ V+ D/ B# f: H    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
! _. M" s% @( y$ v% v    print (Str);      
- ^* n* z7 w* R5 i    exit;
   end;
  if aStr = 'chuqu' then begin
+ F( B8 d& b" v$ ^, \     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
$ n( k+ D7 M$ ~% Z/ c  if WqName = '修炼枪' then begin
6 L5 H4 U! K, |" [' U6 C     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  l% d9 e; i! \" \2 O  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
  y+ t1 F% r8 s- e% ^% J     exit;
' L# L+ S$ z' T% k) n  end;
! p  E- _1 Q' a0 E8 l/ D- |( W  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
2 W9 L; x* |# B  end;
) ]: X  ?0 B2 b  if WqName = '修炼斧' then begin
. H1 v9 [- l9 h1 w6 B     print ('say 你不是吧！想带走修炼武器！');
; a6 p0 C3 Y) V2 w! |: ~. `( {     exit;
  end;
( l* m1 \5 H  Y+ a  if WqName = '修炼拳套' then begin
5 z" s8 ~9 \0 ]( z: B     print ('say 你不是吧！想带走修炼武器！');
0 |1 _& H7 M! B7 N* F. i     exit;
! n0 `- G5 @- R& S8 r) M6 E  end;
( a- H  O5 v1 D      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
7 Q( P* j; R4 g       Str := Str + ' ';
8 X. n9 r- i8 U& ?! Y9 H       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
& f" L; g% j, E; D       print (str);
      end;
; v7 D) a" @2 l      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
& Y/ E4 f* f% b" D% K      print ('getsenderitem 修练剑:1');
1 D: h7 }6 ^5 w9 K      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
) Y- t7 x+ V/ ~  Q5 M      Str := 'movespace ' + Name;
4 B% J4 A7 f3 h( r! z, R" x      Str := Str + ' user 1 500 500';
5 u! `( |7 E* U( ]' B, R      print (Str);
    exit;
   end;
$ p7 B# S; D' l4 D- \$ q. D3 r, bend;
; H3 L' E5 V5 _. B- S/ D$ F0 p8 Oend.

---

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

Powered by Discuz! X3.4