三千论坛

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

---

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

unit 会员服务;
2 x' z" Z/ D/ w) l1 ?
0 i" J* E' \  H4 C# |  uinte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
* {6 K/ E; \" `( S3 Efunction  callfunc (aText: string): string;
  b+ |, i- a: Q3 B% vprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
! X1 X' D4 \; W% W. A3 ^. Aprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
% Z/ U# t9 [5 u3 @/ H# `! `: u# _, X$ _9 ufunction  IntToStr (aInt: integer): string;
+ ~- r& _  x8 n, W  Qprocedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
, Q3 P3 t$ A$ e# L) Z; yprocedure OnLeftClick (aStr : String);
var
& L, z4 u" [( K1 `( N0 g5 j   Str : String;
   Race : Integer;
, s4 z. \# n3 s; |+ Zbegin
   Str := callfunc ('getsenderrace');
( y, Z2 }8 c& b2 _   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
& q6 [( g  y- Z! w      print (Str);
- A( L* {+ e! Y8 A" ^6 I+ T      exit;
   end;
- j1 U4 K" W9 m7 q! G  Q  p5 xend;
procedure OnGetResult (aStr : String);
. e* U% _$ Y4 S" ^/ i: V+ C% [var
; C# X* R0 [9 i1 @      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
! ^" H" f5 ]+ Y" {# s      exit;
   end;
" P5 ?% m3 k. }- H1 c7 _   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
$ \. \5 S$ u# A. o      print (Str);
# Y9 D/ [+ d: N/ E7 k  u# p2 @+ J      exit;
   end;
% g) v; ^8 K2 s) m- g* j& N; @  if aStr = 'lingqu' then begin
, d; q1 n. I% Y   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
# }7 c6 F  c* ?' u2 R! d. p1 _  z2 K   if Str = 'false' then begin
8 P0 K' _: x" n) @6 }  m! B! |      print ('say 你不是会员吧');
7 X# I' e6 G  f( C      exit;
    end;
2 d# w+ u; u! W9 ~      Str := callfunc ('checkenoughspace 5');
3 q) g5 D4 U  m/ {7 C% o! b      if Str = 'false' then begin
$ z  s5 ~& U6 v         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
4 u5 _6 T# Z3 m& G       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
# x4 L" `2 ^& B5 r8 z       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
( J" M% b2 P  g3 B$ H9 n    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
* L$ S  U& X8 \2 V! Y    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
! H" C0 v0 ^. ]5 A; ~- B! j. @    exit;
   end;
/ n* D8 J" w. Y1 b! X: Y7 e+ v  if aStr = 'chuqu' then begin
8 h, ~' h. ?5 x) i- R" |     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
/ P& ]0 C( l3 _  if WqName = '修炼枪' then begin
) k$ ?+ I) k5 v$ O! m' |- ~: W     print ('say 你不是吧！想带走修炼武器！');
     exit;
0 M1 n# x& E& e" p. e  end;
8 t7 v# ^5 M" g" z0 G8 P- ?  if WqName = '修炼剑' then begin
* |) w$ Y  z* M: b& b     print ('say 你不是吧！想带走修炼武器！');
' ]8 N% E9 d  v; f! p; \     exit;
  end;
  if WqName = '修炼刀' then begin
5 d# F/ N$ s- V; H+ u4 M4 E     print ('say 你不是吧！想带走修炼武器！');
     exit;
5 @2 j7 g* ~  W  D  end;
1 Y% _# ^+ O: B% l3 |  if WqName = '修炼斧' then begin
. i6 P7 @2 _3 T4 `8 T     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 V; j5 ^) x( n) x  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
9 B5 d, ?. X6 A3 r  end;
      for MapId := 0 to 200 do
, o& w8 g. q4 @* f9 x* a      begin
. |& W  `0 h( V$ M5 ?      MapNo := IntToStr (MapID);
2 j6 z5 o" G* l" Y7 v0 w       str := 'sendnoticemsgformapuser ' + MapNo;
( N" r* B2 U, H; u8 k9 M       Str := Str + ' ';
- D5 g, w6 u8 D" q       Str := Str + '【会员系统】:『';
       Str := Str + Name;
' ^6 z6 }; M3 r$ F       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
  T5 g1 e. A( \& y; e! C      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
* s2 T) y- I7 n* S      print ('getsenderitem 修练刀:1');
3 v5 {) ~2 \" c3 x/ C3 t      print ('getsenderitem 修练剑:1');
4 w* n. q5 k: [) \7 H1 k& Q      print ('getsenderitem 修练斧:1');
3 X8 C. L: Y, [0 u      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
, m/ A8 S/ N' e. y5 z# I4 ~      Str := Str + ' user 1 500 500';
1 R/ J" _3 ?* v& q* o. [3 X, X9 F2 J      print (Str);
' H# r( H% T: s% A$ H$ f    exit;
- \5 \0 Q. j/ ?& N   end;
end;
1 O5 z9 {4 i- d; {+ Oend.

---

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

Powered by Discuz! X3.4