战神引擎自动修理全身装备脚本

china0396

可以放到NPC里面

1. Program Mir2;
   ; p+ B; E2 Q; G! M% A6 q
2. procedure P100;
   . V& \6 ~5 ^& V# \' [8 x5 a* j' s
3. begin
   
4.     exit;
   3 q5 {4 l* v& j& V
5. end;
   5 S; g1 _( L+ |5 T6 B( X! @% ?
6. procedure _CallMain;
   8 v/ Q3 R' U$ h1 A+ P% F
7. var
   
8.    iTime:integer;
   
9.    Switch:string;
   8 D$ C9 E) j% Z6 D; S/ l* ?% @
10. begin
    % S/ N: n, s1 l, U
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    
12. else Switch := '开';
    
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    
14.     else iTime := This_Player.GetS(111,1);
    $ u+ p7 B; V/ c( l
15.     This_NPC.NpcDialog(This_Player,
    
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    
18. end;
    
19. procedure LoopNow_2;
    
20. var
    5 z0 P2 s" _6 V$ g% X; c* @5 s
21.    k:integer;
    
22. begin
    
23.     if This_Player.GetS(110,1) > 0 then
    - A* U. ~% Z) }- R
24. begin
    + U4 A" y' D0 P1 j
25.         for k := 0 to 16 do
    - [2 C" n& d8 @0 Q4 O. x- ]4 X
26. begin
    
27.             This_Player.RepairBodyEquip(k);
    ; [0 X0 N; _- H
28. end;
    
29. This_Player.PlayerNotice('自动修复成功',1);
    8 I3 z& \  t% {8 G( W! O
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    6 ?& n9 Z' g1 N8 H1 z, r
31. end
    + R* n7 w4 @, s' U
32. else
    $ \  Y) z/ R* g/ R# k" s
33. This_Player.PlayerNotice('自动修复已关闭',0);
    
34. exit;
    % B8 J& L, K, y) j5 p4 u
35. end;
    / g3 u6 h5 T& _
36. procedure LoopNow_1;
    ) I8 ~' C: Q5 q$ {! W+ W2 }  s$ |
37. var
    ' l0 [; [& v; V# j6 y1 c/ L
38.    k:integer;
    & U; Z4 k/ o; X" L1 G
39. begin
    - x0 R* {  q- x( l. r+ q7 r' z- J0 q
40.     if This_Player.GetS(110,1) > 0 then
    " {5 P. Y* Z/ I, X. `0 @1 Q# C
41. begin
    
42.     for k := 0 to 16 do
    7 I$ l' ~5 r8 l7 }9 V( w
43. begin
    
44.             This_Player.RepairBodyEquip(k);
    
45. end;
    # g! y% Y" B3 Y. q9 J2 v
46. This_Player.PlayerNotice('自动修复成功',1);
    
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    * {; Y$ h5 L; Z9 p2 K% F) S
48. end
    ' ?0 E, }& M1 I! j
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    & k. J# c6 b2 G# h7 N! ~
52. end;
    1 w7 Y- x: [4 b  y/ f! v
53. procedure _SetLoop;
    8 A7 `+ W1 y! a* H! b
54. begin
    : L. A+ }* ]2 `( i
55.     if This_Player.GetS(111,1) < 1 then
      l- F- b5 D* P$ s% N
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    
58. exit;
    
59. end;
    
60.     if This_Player.GetS(110,1) < 1 then
      }4 g; t4 P  k, p9 I
61. begin
    8 P  R1 J9 Q& g4 P0 ?
62.     This_Player.SetS(110,1,1);
    
63. This_Player.PlayerNotice('自动修复已开启',2);
    
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
65. _CallMain;
    1 |# n- c! b+ P
66. end
    / T& k' G/ U4 Z5 `; g' S
67. else
    
68. This_Player.SetS(110,1,0);
    9 K) l/ k. ^# x5 C. S
69. _CallMain;
    : b) p" L7 D- X' p, O1 {
70. end;
    8 w: M8 c; s6 ]
71. procedure P101;
    
72. var
    
73.    Inum:integer;
    1 v' p! M! K7 j% j/ N  ~4 ?; ?  Y
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    % d+ l1 g) i2 x% O/ ]
76. if (Inum > 0) and (Inum < 65535) then
    - D; @  ~+ l6 l  R
77. begin
    
78.         if This_Player.GetS(111,1) < 1 then
    ( w" F: i1 e$ v
79.     begin
    8 M7 k4 |* o7 F/ x; O  O
80.     This_Player.SetS(111,1,Inum);
    
81. _CallMain;
    8 f/ |5 Z  t* Y" t0 o' v" N* y" v5 X/ t
82. end;
    9 G; F  S! r; F( m, u, I
83. end
    
84. else
    $ j- V( s' m: _! G0 h
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    % F% m& {$ b( F3 j
87. end;
    3 b' ?. T) R. e  r3 q7 J! m& X" b# J
88. procedure _SetTime;
    
89. begin
    
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    4 u) \: [, y+ D
91. end;
    0 C# \3 e# a; `9 @
92. begin
    1 n$ p5 {" F" Y. `5 {" m3 x
93.     _CallMain;
    , R) U# w. V- V* x
94. end.

复制代码