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

china0396

可以放到NPC里面

1. Program Mir2;
   , G5 ?1 Y- C& J( {/ R
2. procedure P100;
   % X+ n% v4 D7 G  Z
3. begin
   
4.     exit;
   
5. end;
   1 K2 E, ~) P( q% S
6. procedure _CallMain;
   
7. var
     t) m0 _6 j5 F- H+ _- }1 c
8.    iTime:integer;
     n2 X6 Y1 e8 P' W. |! J+ o
9.    Switch:string;
   1 U) i9 O8 N- M2 l9 P; J% n
10. begin
    
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    2 V# ^4 T1 P2 \$ n+ f- B
12. else Switch := '开';
    
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    ; k4 w" _, r2 B4 n
14.     else iTime := This_Player.GetS(111,1);
    
15.     This_NPC.NpcDialog(This_Player,
    
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    % P% }* T$ s5 n! _: @
18. end;
    ; }- s: @, F0 ^# `& S
19. procedure LoopNow_2;
    
20. var
    
21.    k:integer;
    
22. begin
    4 P* X5 _  {# p
23.     if This_Player.GetS(110,1) > 0 then
    
24. begin
    
25.         for k := 0 to 16 do
    
26. begin
    1 K2 n' r3 h3 k( H8 k4 B- W
27.             This_Player.RepairBodyEquip(k);
      _( N/ G+ B# ^
28. end;
    . P, g8 ~/ n9 A  ?1 b- A
29. This_Player.PlayerNotice('自动修复成功',1);
    
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    # E* S& P; s8 {$ d5 P3 c# j
31. end
    , i5 K8 F" v% {, g+ S, Q& k2 W
32. else
    
33. This_Player.PlayerNotice('自动修复已关闭',0);
    . \. `! n7 \2 w2 ~
34. exit;
    
35. end;
    
36. procedure LoopNow_1;
    6 Z- l4 s! ?/ o2 |( Q
37. var
    
38.    k:integer;
    ' J( Z& _  U0 }) Q  `) y/ [
39. begin
    9 ~) b' ^* F8 @
40.     if This_Player.GetS(110,1) > 0 then
    - K, I6 ?0 v5 X; V/ a5 k
41. begin
    7 s# Z7 k/ {9 K+ C# J. q) K3 O+ Y
42.     for k := 0 to 16 do
    ) I& w  s4 e8 q! V
43. begin
    
44.             This_Player.RepairBodyEquip(k);
    
45. end;
    
46. This_Player.PlayerNotice('自动修复成功',1);
    ( H% h' K4 ?( k$ p
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    & J5 [7 F' `' R1 j" D4 o/ f
48. end
    , G! z1 z8 ?2 Y. ^7 S. m5 `
49. else
    & d9 b& X/ u' ]- I6 ^  n, |* \
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    ; ^1 l( i; l( g% S# v
52. end;
    
53. procedure _SetLoop;
    ! K! b7 r0 V% }
54. begin
    
55.     if This_Player.GetS(111,1) < 1 then
    
56. begin
    " m6 \/ H: [0 o0 E* [
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    ( |2 A* s3 s6 {- q4 b
58. exit;
    ( v! U6 {! I. g2 i" x- z( A! q% N
59. end;
    
60.     if This_Player.GetS(110,1) < 1 then
    3 U* T2 n( b  Y4 L" X
61. begin
    
62.     This_Player.SetS(110,1,1);
    8 X9 p2 G$ b$ M; p1 R( O* ?0 \
63. This_Player.PlayerNotice('自动修复已开启',2);
    
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
65. _CallMain;
    
66. end
    
67. else
    ) P- E0 X5 Z# ~! T% d  z/ P9 l
68. This_Player.SetS(110,1,0);
    
69. _CallMain;
    ; _- V5 l/ x6 r4 X7 h7 v9 ^
70. end;
    
71. procedure P101;
    . J  \$ r6 s+ ?" @( g5 r5 V
72. var
    
73.    Inum:integer;
    * M9 i9 z1 V. W. S8 R4 b6 t
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    7 U0 y+ C- t& o/ u, \) H
76. if (Inum > 0) and (Inum < 65535) then
    ) i1 `, l' i! p3 A3 {. I* G# p5 E
77. begin
    
78.         if This_Player.GetS(111,1) < 1 then
    : v2 k& B1 k' I9 x
79.     begin
    0 W. D, ]9 B7 G
80.     This_Player.SetS(111,1,Inum);
    
81. _CallMain;
    8 U! `( M4 a4 ?% h# {
82. end;
    ; q  e8 L7 `. Y( M( }
83. end
    ' Y. Q7 o8 F; c( ~
84. else
    
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    # t- ~& h6 \4 [
87. end;
    
88. procedure _SetTime;
    
89. begin
    % h3 q) g7 v8 k1 l+ r$ z4 z
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    . F. U* ?% ^0 W) V' ~
91. end;
    
92. begin
    
93.     _CallMain;
    $ d' R4 l  Q' F; Y+ l7 l$ b- `
94. end.

复制代码

1 I2 U% J7 r6 F3 i) q/ j
/ a9 J& ~6 I4 d