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

china0396

可以放到NPC里面
6 R1 ]- s* [! b$ _0 F/ l! E" _

1. Program Mir2;
   
2. procedure P100;
   * U' L( R# X+ q3 n$ }5 d
3. begin
   2 s3 W! p, X+ |/ l7 F1 T0 M
4.     exit;
   3 ?; b; j# _- t* }& E: |9 a
5. end;
   - f9 h2 y; c' {
6. procedure _CallMain;
   
7. var
   
8.    iTime:integer;
   6 U  {! R" I: S( x' k
9.    Switch:string;
   
10. begin
      b+ C9 g6 u( M7 F4 i1 ^! b
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    
12. else Switch := '开';
    ( y$ Y) U0 x4 b, ?7 M" R
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    
14.     else iTime := This_Player.GetS(111,1);
    
15.     This_NPC.NpcDialog(This_Player,
    1 [: o+ I' v$ j! `7 @
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    6 [( T% O$ r  ?" O/ m8 K
18. end;
    , V, f# {" H% D1 l2 H0 x
19. procedure LoopNow_2;
    ( S- x& U  _3 M
20. var
    . b2 R0 E% T. f) N' Y/ c
21.    k:integer;
    + Y! c4 P" F+ [2 R' F: G
22. begin
    
23.     if This_Player.GetS(110,1) > 0 then
    ) E& j+ [9 j# t& r& ~! P
24. begin
    
25.         for k := 0 to 16 do
    
26. begin
    
27.             This_Player.RepairBodyEquip(k);
    ) i) f4 K& W1 g+ T2 q" v
28. end;
    ' r4 V: E, l5 \3 c
29. This_Player.PlayerNotice('自动修复成功',1);
    
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
31. end
    1 N5 m* r! u3 F3 `7 E
32. else
    
33. This_Player.PlayerNotice('自动修复已关闭',0);
    
34. exit;
    
35. end;
    5 ]( c( h: D8 ]8 {5 n4 d8 C1 Q
36. procedure LoopNow_1;
    1 ?+ ~  ]$ C7 A! p
37. var
    
38.    k:integer;
    & _4 g$ m! n% x. D
39. begin
    ( W, ?8 O; f2 [% S( U+ s
40.     if This_Player.GetS(110,1) > 0 then
    
41. begin
    2 F. q- R9 y3 u7 z: g. z( u% r
42.     for k := 0 to 16 do
    2 G6 k% Z( w; I* H  G
43. begin
    
44.             This_Player.RepairBodyEquip(k);
    1 P  E, H% A+ D. }- C* C: p
45. end;
    6 E$ p8 B- D1 X- G+ x0 d# a
46. This_Player.PlayerNotice('自动修复成功',1);
    
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    * @5 w: n. l4 d
48. end
    
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    $ W1 h$ |; p' Y" b* }2 x# F
52. end;
    
53. procedure _SetLoop;
    
54. begin
    
55.     if This_Player.GetS(111,1) < 1 then
    ! R6 t% _* ^' ~8 L  h3 B
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    4 i& f2 p9 H- U2 ~
58. exit;
    
59. end;
    1 H, @! Q0 K' o4 @0 P! U% O4 C
60.     if This_Player.GetS(110,1) < 1 then
    ( x4 t' }; m  V: P7 g4 d1 ^
61. begin
    
62.     This_Player.SetS(110,1,1);
    - Y0 A  Y7 [& {* L$ U1 D
63. This_Player.PlayerNotice('自动修复已开启',2);
    . P1 B* i- f" [0 n+ l7 a% W
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    $ e/ D8 G. i0 G. T! x9 v2 r4 q- e7 d
65. _CallMain;
    ! L$ v! T% b/ y% ?5 K! r
66. end
    
67. else
    ( }+ C' d1 Q5 n. P* _2 ]
68. This_Player.SetS(110,1,0);
    6 p1 B8 v. t( B4 t6 s
69. _CallMain;
    2 v5 H0 t' t' A
70. end;
    
71. procedure P101;
    
72. var
    
73.    Inum:integer;
    
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    
76. if (Inum > 0) and (Inum < 65535) then
    3 _# j) K- J% z# ^5 t
77. begin
    
78.         if This_Player.GetS(111,1) < 1 then
    6 ^: q" `, C5 Z" @
79.     begin
    
80.     This_Player.SetS(111,1,Inum);
    , Z- F/ |% e3 }
81. _CallMain;
    & _2 E& f$ m% {, [  ?/ M( [
82. end;
    
83. end
    
84. else
    . D" i! ^; N# C9 C) X# R
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    * G1 O* K+ Z6 S/ y3 x; |9 q
87. end;
    
88. procedure _SetTime;
    
89. begin
    # \9 W( x5 D- g+ {" z) H
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    ( w9 y$ U* d/ t1 m. |
91. end;
    3 z9 K' |$ c; N  @
92. begin
    
93.     _CallMain;
    3 ~' o3 \, I! l* H
94. end.

复制代码