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

china0396

可以放到NPC里面
5 y" M, `, R: @7 j) d

1. Program Mir2;
   
2. procedure P100;
   
3. begin
   
4.     exit;
   
5. end;
   1 u7 [' l$ N5 X  |; Q
6. procedure _CallMain;
   
7. var
   
8.    iTime:integer;
   ! y8 i, h5 q* u8 s# x- E
9.    Switch:string;
   # S$ X# j( c) A! A1 p4 f
10. begin
    6 |- x! ?( U5 r; P* p
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    
12. else Switch := '开';
    
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    $ ^9 O$ ]3 O5 ?$ R( ?# C
14.     else iTime := This_Player.GetS(111,1);
    
15.     This_NPC.NpcDialog(This_Player,
    ; g$ M+ ]8 [: M- S  z/ O
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    " p1 q5 `! o: f1 \* |
18. end;
    8 q6 S, Z/ H3 k' X" d, K
19. procedure LoopNow_2;
    
20. var
    
21.    k:integer;
    $ n: u, ^/ v. \: O+ P
22. begin
    
23.     if This_Player.GetS(110,1) > 0 then
    
24. begin
    4 I/ @1 a! D, B; R. a' k' W$ D# O
25.         for k := 0 to 16 do
    : g% Q$ j/ n4 M: s& }& R& w0 r& `
26. begin
    $ h3 f  K! |2 w  a+ ]& l' z  M
27.             This_Player.RepairBodyEquip(k);
    
28. end;
    
29. This_Player.PlayerNotice('自动修复成功',1);
    8 q! G& `; j7 {/ i7 @2 u
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;
    , P0 I( f! l$ X) f+ c) c# }  J. T
39. begin
    & ^2 X8 Z- w9 g
40.     if This_Player.GetS(110,1) > 0 then
    ( ]2 t) s6 |' L1 ^
41. begin
    
42.     for k := 0 to 16 do
    
43. begin
    2 y" S8 c) }- e
44.             This_Player.RepairBodyEquip(k);
    / j4 ~, K6 ~- V7 ~3 k" E
45. end;
    
46. This_Player.PlayerNotice('自动修复成功',1);
    ! {( \0 \$ m3 i" C
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    3 h6 ^. v6 E7 h) x( _) i# `
48. end
    
49. else
    + i6 S' m( h/ |4 x2 ^1 F  i
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    
52. end;
    
53. procedure _SetLoop;
    ) ^. }2 Z9 d# v- v* s2 c
54. begin
    0 p7 P. }: J% O' V4 D: e
55.     if This_Player.GetS(111,1) < 1 then
    ; l% Z- P7 C! X% B, i6 \
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    
58. exit;
    
59. end;
      ^1 y4 k6 o7 p$ U
60.     if This_Player.GetS(110,1) < 1 then
    
61. begin
    
62.     This_Player.SetS(110,1,1);
    ) y- k) \. D, ~
63. This_Player.PlayerNotice('自动修复已开启',2);
    5 g1 I: b8 v) s4 v) |) ?/ O/ @
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    6 F$ K$ ^, n. f$ y8 v
65. _CallMain;
    1 c) W# y1 g$ e3 [6 [
66. end
    / d4 s# I1 R5 z  a* M" H
67. else
    2 [$ p9 n8 l4 g) m! ]! E5 Q
68. This_Player.SetS(110,1,0);
    . h! s& f6 q. `9 t5 O; \
69. _CallMain;
    7 Q, g8 x3 E4 ^; H8 `) v4 N
70. end;
    ! h: D# x% X$ Q4 I
71. procedure P101;
    
72. var
    - D) s' D4 t* Z: @% E
73.    Inum:integer;
    
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    
76. if (Inum > 0) and (Inum < 65535) then
    
77. begin
    ! V/ {. m5 Y1 C
78.         if This_Player.GetS(111,1) < 1 then
    $ J# l# m! Y0 \
79.     begin
    + f/ R$ F9 u6 P" y6 f# R
80.     This_Player.SetS(111,1,Inum);
    
81. _CallMain;
    
82. end;
    2 m6 }6 n* ]7 C$ G: p
83. end
    
84. else
    ( K# N; ]# U3 h8 F2 W
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    
87. end;
    
88. procedure _SetTime;
    
89. begin
    
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    
91. end;
    6 T# ?% o* k! e/ S* s0 P
92. begin
    9 W" G+ b6 j5 L8 O3 L, `" G; o5 W( j
93.     _CallMain;
    
94. end.

复制代码