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

china0396

可以放到NPC里面

: c: a7 |$ y' x

1. Program Mir2;
   
2. procedure P100;
   . Y7 b: }9 W' E& N8 _8 z
3. begin
   6 @, N% B, r$ {* \
4.     exit;
   ) z% R7 Y1 T2 q( P  D
5. end;
   
6. procedure _CallMain;
   
7. var
   ; e- S. i+ r/ {/ p* N- K
8.    iTime:integer;
   + n# r! b: T& _9 I/ ^* @
9.    Switch:string;
   - s* V7 j! q" q  m
10. begin
    
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    2 |' ?" ?+ w; {- n% g8 A; x5 |
12. else Switch := '开';
    7 {! v" h4 o: a1 g1 }
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    
14.     else iTime := This_Player.GetS(111,1);
    3 X1 r! n: |% o' u6 J7 }* `
15.     This_NPC.NpcDialog(This_Player,
    3 k, w9 B0 r6 x* a, g$ E
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    
18. end;
    
19. procedure LoopNow_2;
    : w( v2 i& t5 x9 \1 c" Q
20. var
    
21.    k:integer;
    $ i, E4 h) J+ T& o! N, g
22. begin
    
23.     if This_Player.GetS(110,1) > 0 then
    1 K  m/ ]8 A! i9 u4 k% \; m
24. begin
    
25.         for k := 0 to 16 do
    2 p; K/ p! P9 ]5 p' N2 K
26. begin
    
27.             This_Player.RepairBodyEquip(k);
    4 z; k* {0 a2 ^  Q5 v% _, r
28. end;
    
29. This_Player.PlayerNotice('自动修复成功',1);
    
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
      O! N6 F7 U$ ^( r% R* ?5 y
31. end
    + O& |! B* n: B. I* Q3 }
32. else
    
33. This_Player.PlayerNotice('自动修复已关闭',0);
    & S) L9 a+ |) [* j
34. exit;
    ( x$ H$ b+ y( l
35. end;
    
36. procedure LoopNow_1;
    : p5 |- Y! i5 v9 e# C
37. var
    
38.    k:integer;
    
39. begin
    
40.     if This_Player.GetS(110,1) > 0 then
    * w3 H* M) ]9 O' b; V# Q. a! V
41. begin
    5 y- k# C$ q# _+ r+ m
42.     for k := 0 to 16 do
    
43. begin
    ) q3 e# }, A" E+ R& |$ c8 R+ K
44.             This_Player.RepairBodyEquip(k);
    
45. end;
    * v3 v; R) }# M5 l7 }/ [$ g- e
46. This_Player.PlayerNotice('自动修复成功',1);
    
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    2 i; e4 g( A7 f) A2 g# O5 V( e
48. end
    
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    7 l$ A4 o; T, z! _3 F9 H
51. exit;
    
52. end;
    ( _2 X# u" \+ _( Z1 a6 F
53. procedure _SetLoop;
    ( M$ L' R& @( f! O
54. begin
    1 b" L- }7 R9 Z8 Q3 `( I5 M
55.     if This_Player.GetS(111,1) < 1 then
    ) {" U# ?4 D: t" d
56. begin
    , \9 n5 w: m4 T5 w9 W
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    
58. exit;
    - {* i4 z$ R( F, U. u
59. end;
    / w# K+ P" c" K' B3 B
60.     if This_Player.GetS(110,1) < 1 then
    
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');
    ! D' p! U. E% e( M1 V6 N/ F# p
65. _CallMain;
    
66. end
      j( R: f# F% U, o6 C2 V" i
67. else
    
68. This_Player.SetS(110,1,0);
    
69. _CallMain;
    
70. end;
    
71. procedure P101;
    ; u) F, \9 b; q, O+ I
72. var
    8 M! J! B! ?5 l. _" E+ \% z
73.    Inum:integer;
    
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    
76. if (Inum > 0) and (Inum < 65535) then
    : p, ]8 f: W7 t# V
77. begin
    
78.         if This_Player.GetS(111,1) < 1 then
    0 G+ i. G1 N6 {
79.     begin
    
80.     This_Player.SetS(111,1,Inum);
    & l6 S( o+ J; ?* L
81. _CallMain;
    
82. end;
    2 g& k$ \5 _- C
83. end
    
84. else
    
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    ( ^9 G: T6 O3 u9 M" U
86. exit;
    
87. end;
    8 t9 t' S9 |0 y' k" L# J
88. procedure _SetTime;
    
89. begin
    . m" x3 b+ _5 ?7 z: Y
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    
91. end;
    ; e; I' G8 o) d
92. begin
    
93.     _CallMain;
    
94. end.

复制代码

& r1 z- n& h% P