三千论坛

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

---

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

unit 会员服务;

2 j/ J# `$ k7 tinte**ce
1 D; r2 J. ^" t4 C0 a& ?
; h& R. }% P! W8 H8 ]% bfunction  GetToken (aStr, aToken, aSep : String) : String;
: i6 T+ j' s% ^7 x" K2 X0 ~function  CompareStr (aStr1, aStr2 : String) : Boolean;
) L! [8 w  b: o$ B' r$ Mfunction  callfunc (aText: string): string;
4 @; \0 i% l6 N0 z* W3 gprocedure print (aText: string);
+ Y0 ^6 |1 j$ @# w( Ufunction  Random (aScope: integer): integer;
* D  U  }4 l1 p4 E2 }5 ifunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
& Y- E7 w; S# \/ m$ k9 Zprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
5 A5 o# E- b1 A; }/ Ofunction  IntToStr (aInt: integer): string;
3 P% Y  A% y' ]! `) t5 C4 Bprocedure exit;

procedure OnLeftClick (aStr : String);
0 i1 c: l' E+ w; f9 H; Tprocedure OnGetResult (aStr : String);
$ c" J4 e0 W/ @2 r8 H
6 u( c& m' ^- T: vimplementation
! n% U& I: v# ]! C' M- ]( [procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
& f7 G# @2 p) P5 i; ?8 Q8 p   Race := StrToInt (Str);
   if Race = 1 then begin
3 `% b& \: @4 k6 S2 @) _      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
% X1 a: D& e2 G7 F3 ~3 h      exit;
" I% r( j0 r7 R9 ~   end;
% D/ S& c+ S' a* U/ Q5 T* @; Tend;
2 O, u! c# F/ R  X  X$ u7 U7 o' Jprocedure OnGetResult (aStr : String);
var
: X6 v* n1 S% D* d      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
1 }1 L4 O# D4 t6 ~" [/ E; H0 O7 nbegin
( C8 l4 e1 T/ l! X6 h) a, [   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
+ t1 p; h3 }2 n; x- L      exit;
" C, b! I0 D5 N& K$ B2 ~  ?   end;
0 E7 `( k4 [# g9 Q   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
* y" C3 \9 v+ v5 O      exit;
4 ?5 U$ @' _6 E) r5 B   end;
( h# ~% [8 L8 Y4 y& I6 j6 ~6 `# |  if aStr = 'lingqu' then begin
3 q1 t- K9 l: Q' M4 [2 M  d   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
) ^5 E2 O$ ^2 N   if Str = 'false' then begin
( ?0 [2 s/ e! y, m      print ('say 你不是会员吧');
0 M) Z$ U  k7 P3 c- `      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
5 s: b  t1 `( V( d& n         print ('say 物品栏已满需要5个空格!');
$ U* \! S! ?! A0 W         exit;
6 r& ?1 t8 o- Q% n4 h2 B      end;
0 H& D4 H' o  ~       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
. E9 S: `" K1 O# X; D       Str := Str + '【会员系统】:『';
$ @- j) H4 e7 F9 [/ e       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
7 l4 u: n7 U. ~0 F      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
$ u7 F( B0 z2 x; K- n    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
  p" \/ X9 |: q2 F' \1 l3 O' ~6 ^    print (Str);      
5 a6 U& p2 ?0 G    exit;
- i) N9 W' G& f, v# f( V; p   end;
* P; c" t+ f' i9 c, s. Y" O  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
6 k6 q& y0 w/ z# J& I# r. A  if WqName = '修炼枪' then begin
+ z* ~/ ^2 M8 c, f1 n. X8 S$ `' B     print ('say 你不是吧！想带走修炼武器！');
# Z/ x  q) e9 b9 O& q0 p8 J     exit;
8 t, M0 W! }" ~* p! J3 y  end;
: L& ~. p( e* J+ E, R  if WqName = '修炼剑' then begin
$ U( t2 |- m" `, G+ `# s6 A* M5 p     print ('say 你不是吧！想带走修炼武器！');
$ {# E1 n' S* f5 y8 [. T: f     exit;
  end;
& U' E: V& T) R4 d  if WqName = '修炼刀' then begin
/ u$ [2 F# v2 o  t8 F     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
6 E8 J& V% s" q     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
+ r; Q* _9 ]' h  B$ A+ T  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
4 X0 |) P7 N# B5 y2 H       Str := Str + '【会员系统】:『';
# @; Z" I% y3 v% u+ ~$ @1 S       Str := Str + Name;
; T0 C7 x8 S/ j+ K       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
3 H+ K( @$ I  V      print ('getsenderitem 修练剑:1');
* P0 B- f/ K0 R8 i; L! Q) P; c      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
# b0 H9 y! [. H" r" O, \      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
9 N0 ^2 P+ f. l3 O      print (Str);
, n! x8 m3 z# {+ o; B    exit;
6 a& a' w  n7 T; M, ^   end;
end;
end.

) R/ a5 [  D8 s9 r1 n7 v2 M3 u

---

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

Powered by Discuz! X3.4