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

china0396

可以放到NPC里面
. X( M8 Q+ N& G0 d9 Y
( n: N" H: ~& u: `; B4 R

1. Program Mir2;
   - s6 r5 h- O% {2 |8 Z! f3 h
2. procedure P100;
   * k4 R9 V( l& M- P  Y( l, h0 |+ B
3. begin
   
4.     exit;
   
5. end;
   
6. procedure _CallMain;
   . Y. B6 E( e% ?$ P: e
7. var
   ) Z- B+ n& O/ f; ~
8.    iTime:integer;
   6 \% J+ H. b% U% `
9.    Switch:string;
   
10. begin
    / X0 x* J+ I# R7 L& U: R
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    2 o$ p  i  [0 }, v5 X: x
12. else Switch := '开';
    
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    
14.     else iTime := This_Player.GetS(111,1);
    : G/ @2 S+ E& A
15.     This_NPC.NpcDialog(This_Player,
    
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
      L& O0 {: }2 d( W8 x" G
17.     '{cmd}<关闭界面/@exit>');
    & Z. i, r7 ?7 ]
18. end;
    
19. procedure LoopNow_2;
    ; E# h. P0 ^4 ^8 N. L( S
20. var
    % q& \: z# q9 d: Y- a( T$ ^% A& S  J
21.    k:integer;
    
22. begin
    ' ~/ N2 }/ P/ |6 g  m. U
23.     if This_Player.GetS(110,1) > 0 then
    9 [, l7 v( l, {4 @' K- T: H
24. begin
    
25.         for k := 0 to 16 do
    / q) Q( ]& F3 L  ]; e- P5 L
26. begin
    
27.             This_Player.RepairBodyEquip(k);
    
28. end;
    ( E3 W7 s5 E: p$ O4 i( U( T. _# T
29. This_Player.PlayerNotice('自动修复成功',1);
    * L5 _* d" p5 ]
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
31. end
    
32. else
    
33. This_Player.PlayerNotice('自动修复已关闭',0);
    
34. exit;
    
35. end;
    
36. procedure LoopNow_1;
    
37. var
    
38.    k:integer;
    8 _" U, d4 |8 F7 g9 d4 x
39. begin
    
40.     if This_Player.GetS(110,1) > 0 then
    & \* F0 m+ C, X) J8 c: q
41. begin
    ' H# p! Q, i1 L9 U- h  e5 e
42.     for k := 0 to 16 do
    
43. begin
    2 V* p) A5 |* N$ c
44.             This_Player.RepairBodyEquip(k);
    + o$ c4 k3 g! b5 @% @8 B# M
45. end;
    : Q& D2 e% K0 C4 e: c
46. This_Player.PlayerNotice('自动修复成功',1);
    1 A( J& c8 i9 w7 d
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    3 [9 ^0 i- l9 Q( |
48. end
    ; [% _* g" K- n3 Z  M# K
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    - o3 d/ Q& S  d# d/ F' d3 W
51. exit;
    
52. end;
    
53. procedure _SetLoop;
    ) I9 M3 O* }9 m# U* ^8 b9 Z* t1 ]
54. begin
    $ x" M# a+ t! a
55.     if This_Player.GetS(111,1) < 1 then
    
56. begin
    8 F4 {6 s" V6 Q# g
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    
58. exit;
    
59. end;
    # E9 S% M" g. I$ H9 w% L3 m, ~7 s
60.     if This_Player.GetS(110,1) < 1 then
    / o3 o  i7 X: U7 I# ^
61. begin
    
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;
    0 @% @0 X2 K' r
66. end
    
67. else
    " N3 |* @8 B, W' Y
68. This_Player.SetS(110,1,0);
    % G) I0 m! m* ]
69. _CallMain;
    
70. end;
    
71. procedure P101;
    
72. var
    
73.    Inum:integer;
    
74. begin
    9 x/ T* O. c+ A" G! w6 U5 e, z
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    
76. if (Inum > 0) and (Inum < 65535) then
    
77. begin
    
78.         if This_Player.GetS(111,1) < 1 then
    
79.     begin
    + m) L: N' _/ K! F5 @" e) C
80.     This_Player.SetS(111,1,Inum);
    
81. _CallMain;
    8 r$ U- p- z" N" E* m- \6 I
82. end;
    
83. end
    $ T, M8 \1 h" V. m1 D
84. else
    % T$ s! v; O6 q+ G- A/ Q
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    - Y9 ]# `* \2 H. m  p: D
87. end;
    
88. procedure _SetTime;
    5 U* Z9 x; ~# ]
89. begin
    
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    ) P$ p8 X! d, `
91. end;
    
92. begin
    % D- I9 u& I4 Y- R
93.     _CallMain;
    
94. end.

复制代码

9 d; {$ `# J; ~! z- U% r