三千论坛

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

---

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

unit 会员服务;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
# n5 s3 \3 E# `function  CompareStr (aStr1, aStr2 : String) : Boolean;
+ ?/ g$ b6 [/ d9 g. f2 B. Qfunction  callfunc (aText: string): string;
. B2 k- s+ K# }' M! C! r* Kprocedure print (aText: string);
7 w# i1 l, M: g' z. d% i# qfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
/ P+ l, ]! k% l: C* pprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
- B0 \$ k. L8 T  @5 V% w  lfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

; ]  [. i/ I' Z. V/ G* k3 ?procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
- O" ?& n1 b7 c! r1 I/ J   Race : Integer;
  c/ B! v5 k4 Q. I/ z3 P  N+ Zbegin
   Str := callfunc ('getsenderrace');
: X/ L, V/ h" C# z; n4 r; D' {- t   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
1 h: c4 A7 y" s2 N1 E# U      print (Str);
      exit;
( @9 o, B/ D2 F   end;
end;
5 i) f; s, K% h5 lprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
. g+ J$ s0 N' C2 x2 N+ A8 dbegin
   Name := callfunc ('getsendername');
% \: Y9 \7 H0 q1 R1 S# e   if aStr = 'close' then begin
) ]$ a5 F$ ^2 K" u      exit;
' Z4 b- [* T; f, l9 s   end;
2 j9 M! Z+ @- @9 _" K4 d* V   if aStr = 'xuanzhe' then begin
2 t" n5 P% R. o: s4 Q8 u4 U+ I      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
% K0 g4 u2 v) Q: P: s2 I/ p4 S; G   end;
  if aStr = 'lingqu' then begin
: X# i& @& O5 c+ p   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
2 S: w* S: y9 i; r/ E5 x7 L1 z. i      print ('say 你不是会员吧');
" t6 b6 D: e# w2 d  w7 L5 _7 }5 h      exit;
2 h! v1 s5 u9 B8 d    end;
      Str := callfunc ('checkenoughspace 5');
2 [; W6 v7 e0 y. _      if Str = 'false' then begin
8 ~8 j4 U! V; l8 `  h  i4 P         print ('say 物品栏已满需要5个空格!');
8 `3 [( v- ^- x. O; y         exit;
      end;
4 M! M. {$ a! t9 o% V, r# q       for MapId := 0 to 200 do
  `# k- Y- M; m3 K8 A. `       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
' F; ?+ P3 ?" S9 J       Str := Str + Name;
' e& g- s8 n! ^- ?, Q1 x       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
$ d* N4 v+ Z# \8 r* @       print (str);
2 S+ A/ H7 E( l8 a8 v  Q5 ^      end;
1 n9 {# m/ H+ {1 y5 w    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
. P0 i4 b; p: G( q2 i    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
  \% F9 p; J" Z3 O. c    print (Str);      
    exit;
- N3 Q. Z/ Y3 M! R9 z$ y   end;
/ o, v: \6 T+ l) o  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
. }9 Z5 l# u' t3 K2 a  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
9 e' `( r# X  h/ U  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 s4 B5 d/ P& I3 o: k" r     exit;
9 J) n3 f  a! j- {4 Y  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
& h. V% S, E0 ^$ R! B7 \( E     exit;
& ~/ y, C3 S  M  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
% i$ S5 p6 X: x8 _  end;
8 h( O2 D) k7 _$ ]  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
4 a7 T1 I& Y# V9 r9 n      MapNo := IntToStr (MapID);
* U5 ^4 h/ \8 ^) p" k6 \       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
1 ~2 ?; N* Y3 R- P1 b, T3 K       Str := Str + Name;
& }5 X/ v/ t5 z7 M9 V: `       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
: G! }0 u$ F' B/ ^$ B& d# g       print (str);
1 }* Z- D4 {5 x( k" v      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
. ?0 d  Y) g2 Z  k( K      print ('getsenderitem 修练刀:1');
( O$ T* K+ U! a$ W7 T* ]- g      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
  m# u5 Z1 H; {. y1 G$ w      Str := 'movespace ' + Name;
1 p2 P4 h% w& w% R* s; {      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
1 ^- E7 u) Z) l7 i  w; n3 `7 _   end;
end;
end.

, Y6 T3 _$ E' ?. w1 I: v' R

---

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

Powered by Discuz! X3.4