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

china0396

可以放到NPC里面
$ V6 F! A/ b) R1 e# B
- x: ?# M2 x* F  i1 l2 _* `

1. Program Mir2;
   7 e/ C# w# l& G; O' K% |; S! ?
2. procedure P100;
   0 v9 p5 q3 ]) q& Q) f6 U/ W* v4 G7 b
3. begin
   5 L: `* D) z5 {( i! f2 D
4.     exit;
   : s4 s0 u  c5 u+ k: x0 O
5. end;
   ' P6 r/ w! [5 W$ B  E5 a9 p, R) x$ B
6. procedure _CallMain;
   
7. var
   
8.    iTime:integer;
   5 Z! {: u4 E; l
9.    Switch:string;
   
10. begin
    . y' e: q3 L! o
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);
    
15.     This_NPC.NpcDialog(This_Player,
    # E8 n* U, o1 E0 ~8 ?
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    / h# Y7 N! Y! |4 c0 u2 D5 z5 a
17.     '{cmd}<关闭界面/@exit>');
    / x1 _% }: r4 @. o
18. end;
    
19. procedure LoopNow_2;
    
20. var
    ( }& K5 f( |$ o, {/ y0 @+ S, \8 C3 M
21.    k:integer;
    
22. begin
      s( k* J/ \2 x' `4 O
23.     if This_Player.GetS(110,1) > 0 then
    + N4 l# {# Q5 j! E7 {' a+ u7 r
24. begin
    
25.         for k := 0 to 16 do
    
26. begin
    7 y( X6 T: `, C( c3 r+ U8 {& O( f
27.             This_Player.RepairBodyEquip(k);
    4 @  o! @1 N" U5 O' e: J; }3 E
28. end;
    
29. This_Player.PlayerNotice('自动修复成功',1);
    
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    $ G# K/ u& g( s) s$ o
31. end
    " S9 U8 u$ p: ^/ Q
32. else
    
33. This_Player.PlayerNotice('自动修复已关闭',0);
    
34. exit;
    
35. end;
    
36. procedure LoopNow_1;
    0 w$ }* u2 ~$ B7 f0 d# Z: k
37. var
    6 O2 L! _2 E, u7 `
38.    k:integer;
    
39. begin
    1 B3 w9 L  J4 K
40.     if This_Player.GetS(110,1) > 0 then
    
41. begin
    3 z* C4 v% t% s- z, D$ Y& d
42.     for k := 0 to 16 do
    
43. begin
    
44.             This_Player.RepairBodyEquip(k);
    5 }" a! Y6 V5 z; t! |, v) t* ~
45. end;
    : j5 d% I. X" z/ g! A0 [
46. This_Player.PlayerNotice('自动修复成功',1);
    
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    
48. end
    
49. else
    % Y0 Y( l. t; y  z; G
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    
52. end;
    
53. procedure _SetLoop;
    ; J$ E' n1 o3 v* c# Z8 d" h
54. begin
    
55.     if This_Player.GetS(111,1) < 1 then
    
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    " {9 M3 \' o1 k1 S4 ]
58. exit;
    
59. end;
    
60.     if This_Player.GetS(110,1) < 1 then
    
61. begin
    
62.     This_Player.SetS(110,1,1);
    2 r" n; ^+ z% d- m, F
63. This_Player.PlayerNotice('自动修复已开启',2);
    6 k7 Y9 H) P# Q
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    # d  G6 \3 s" u5 _- Q- c0 L
65. _CallMain;
    
66. end
    
67. else
    8 ?  H9 d- A) a' h, F
68. This_Player.SetS(110,1,0);
    : S7 L/ ~* K1 z- ?# A6 ]
69. _CallMain;
    
70. end;
    
71. procedure P101;
    % h) }( p) G0 x, e$ [+ M
72. var
    7 y6 ~8 F9 T# [+ [" o
73.    Inum:integer;
    # R0 [! L. m. |) }/ ^% H! Z$ M
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    8 w$ Y' M) i0 Q+ }/ B- h
76. if (Inum > 0) and (Inum < 65535) then
    
77. begin
    & C7 ?/ V  ^* ?
78.         if This_Player.GetS(111,1) < 1 then
    1 ]6 t+ {+ T8 ^! Z0 }* E
79.     begin
    : ~; k) B' Y. s* I  x; h
80.     This_Player.SetS(111,1,Inum);
    
81. _CallMain;
    
82. end;
    
83. end
    
84. else
    
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    - ~* {2 I# ~( b. A
86. exit;
    
87. end;
    1 n# @3 }1 K# I* d: t
88. procedure _SetTime;
    0 j; ^- [% S9 w% u! `2 C
89. begin
    ( M0 g) H# b" @' J
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    
91. end;
    
92. begin
    ; ~% m$ K! M  ^: r7 Q0 C& N0 u
93.     _CallMain;
    7 F1 a# |  }+ ]# w0 A2 @
94. end.

复制代码

' W4 M* B& D5 v4 }4 u9 K