三千论坛

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

---

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

unit 会员服务;

: Z& ?( |: L. f% l6 H+ @inte**ce
- t( q) H0 x0 C  j5 G
function  GetToken (aStr, aToken, aSep : String) : String;
6 M; G- r; N9 S( i5 w) M" Zfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
  l6 ?4 H$ P, }7 n) I9 ?6 {  sfunction  callfunc (aText: string): string;
, B9 T- g! G' Z' Z: G; Cprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
) `7 K5 V) j& k- r3 r+ X# rprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
# @% `* k! w0 |2 N4 jfunction  IntToStr (aInt: integer): string;
procedure exit;
# c/ h, Z7 a4 N- ]' s
$ t+ d% J/ z7 _8 Z: w4 pprocedure OnLeftClick (aStr : String);
- P2 n- E1 [5 q; i" ?, k) Bprocedure OnGetResult (aStr : String);

implementation
2 }7 H* B. h# w. Pprocedure OnLeftClick (aStr : String);
+ H* v6 L  S: E) L3 @var
6 W9 D2 z; b) N  X   Str : String;
! o% e0 q9 W. Y% M) e- I; t   Race : Integer;
begin
4 a, R* Y4 r/ p1 v+ H   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
$ t/ s% }7 @* |1 S0 i- ]   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
5 o) I% S5 \" ]9 G( J, n1 E, m      exit;
, z2 s+ h' v- V   end;
end;
& B! `- d. h! I2 Eprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
2 T  n# k: P4 o. s% B3 {         iCount, MapID : Integer;
begin
. f3 H4 C* x1 T5 F" I' Y   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
2 e, K9 W5 T& h' Q% \; ?! h( N9 C      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
/ n: o& P8 T, k      print (Str);
      exit;
   end;
: Z4 u  I5 Z) _. z3 a  if aStr = 'lingqu' then begin
$ ?/ W6 r. w1 Z   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
3 |: c: _" r$ @5 Z: M      print ('say 你不是会员吧');
      exit;
. ], I! g5 b: l3 x5 ~# k$ O0 j3 H    end;
      Str := callfunc ('checkenoughspace 5');
4 u; |3 B, i) s; v      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
$ [/ S+ l2 }' Y; ^7 O         exit;
! K; X% N- G  T# t      end;
! R! x6 s0 M3 e- v! B( p2 B8 A       for MapId := 0 to 200 do
       begin
5 L6 b$ D9 u* X) A" \       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
; e! }3 K/ `) s' A* m       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
( S( \5 j/ j. g8 P       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
* T, A7 G8 J9 f5 S4 ]' L) }      end;
, m+ ]: |6 w( v0 o6 j    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
0 F3 x/ G1 S4 p+ j8 S9 i& l. p    print ('putsendermagicitem 修练剑:1 @会员服务 4');
- W! P, T0 i  W6 {. Y5 P! o    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
3 u5 n2 @4 p( P* O1 e; X     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
5 {" `% B% }3 L+ Y  if WqName = '修炼枪' then begin
) R7 D; L6 Z/ W1 n- P7 U( Y& z; H     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
& y& i# H- i5 W- F6 S- y: _* ~2 E  T+ d     print ('say 你不是吧！想带走修炼武器！');
     exit;
5 I4 |& s2 C7 \  end;
  if WqName = '修炼刀' then begin
/ b; f. m* ~7 O( \     print ('say 你不是吧！想带走修炼武器！');
2 a. i; F# ]! }. t     exit;
) _9 U# `- s1 G3 O  |8 \" f  end;
: w. b3 r8 g( J, U) J  if WqName = '修炼斧' then begin
2 U9 Q' u& h* P- v& Z     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
! k8 L  U, D1 I' Z1 W+ u     exit;
  end;
+ E7 F; Y2 Q+ t; D- z0 b      for MapId := 0 to 200 do
' ^! s$ f5 C( b# w# |      begin
- f9 N. o" |5 t0 [8 y; \9 p8 r8 f      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
) h8 X+ o; ~, h8 v       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
9 N- R# [- f& f7 H4 G6 k' F1 I" \3 U       Str := Str + Name;
& H; o9 W/ Y+ i- d' e       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
) `9 U/ ]# J: k; h- ^! y       print (str);
      end;
+ ]( S2 d- D8 _0 @& b! R7 y      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
! l& ?! }5 D+ `      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
5 e3 s; T' t' u' o0 e      print (str);
      Str := 'movespace ' + Name;
  h$ n' g8 ^( F' {& C8 C      Str := Str + ' user 1 500 500';
; k8 n8 A' w& p5 g7 H& }      print (Str);
    exit;
   end;
end;
, M3 R1 f- z2 u) Aend.

  @2 Z- v' G7 k4 C! A

---

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

Powered by Discuz! X3.4