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

china0396

可以放到NPC里面

/ q( |+ Y- K2 f/ H" N' L$ d2 f) M8 O

1. Program Mir2;
   % E0 C) ~8 A" W; ^" l1 X
2. procedure P100;
   4 s3 O. H) D: R/ e8 N
3. begin
   
4.     exit;
   0 F0 y2 o- `% O, m7 `
5. end;
   8 M. g5 d6 P$ f, M4 _; i
6. procedure _CallMain;
   
7. var
   
8.    iTime:integer;
   
9.    Switch:string;
   
10. begin
    
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    
12. else Switch := '开';
    ( [1 `4 T% z7 W6 h9 i/ b
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    0 k6 u. E3 d0 x
14.     else iTime := This_Player.GetS(111,1);
    
15.     This_NPC.NpcDialog(This_Player,
    6 v. F/ d; s6 q/ N# f9 L" k
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    * w! \" C* t$ y) a; T
17.     '{cmd}<关闭界面/@exit>');
    5 u& G2 f5 ?, g. H
18. end;
    $ I$ a+ c: _9 P. j# D
19. procedure LoopNow_2;
    8 W: b5 G! B* @
20. var
    8 V; S1 ?4 j# X
21.    k:integer;
    
22. begin
    
23.     if This_Player.GetS(110,1) > 0 then
    
24. begin
    ! F1 k# g9 z/ p/ j5 L" u
25.         for k := 0 to 16 do
    ( b: D+ ?9 i; l; \: p
26. begin
    
27.             This_Player.RepairBodyEquip(k);
    
28. end;
    
29. This_Player.PlayerNotice('自动修复成功',1);
    
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
31. end
    ( {* w6 d" g5 D6 d
32. else
    0 f" U) m# X) C$ I2 ?% s8 @% h9 h- V
33. This_Player.PlayerNotice('自动修复已关闭',0);
    
34. exit;
    ( S, m( H* h0 I/ m$ z/ `# {
35. end;
    / b# h) n9 E* W, T( N
36. procedure LoopNow_1;
    
37. var
    
38.    k:integer;
    
39. begin
    * ~& E4 T, m; n) u3 k3 V
40.     if This_Player.GetS(110,1) > 0 then
    
41. begin
    
42.     for k := 0 to 16 do
      h% n' p" w& D- I' y
43. begin
    ' j% A4 x, n: i5 G: L6 X* R) R
44.             This_Player.RepairBodyEquip(k);
    1 J0 u5 b, M9 o. T/ `
45. end;
    
46. This_Player.PlayerNotice('自动修复成功',1);
    9 v6 \" b, ~; U; b
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    / p) o9 N3 |2 t9 i, p  U" u9 N7 A1 l. _% E
48. end
    $ Z5 q7 a* b' S/ R) K( {
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    
52. end;
    
53. procedure _SetLoop;
    
54. begin
      M0 b- k" @& f' h
55.     if This_Player.GetS(111,1) < 1 then
    7 q9 H5 A8 R0 b& t# [9 _# Y
56. begin
    4 b+ `8 |" P6 [; J+ \9 c5 |. O
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    
58. exit;
    
59. end;
    / ?! w2 i$ X0 l( C5 {+ b* y
60.     if This_Player.GetS(110,1) < 1 then
    
61. begin
    8 C/ D% v! ]8 }# K- z' d; }
62.     This_Player.SetS(110,1,1);
    
63. This_Player.PlayerNotice('自动修复已开启',2);
    1 `7 M( P& l# K
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
65. _CallMain;
    / D% r1 K6 V" r
66. end
    
67. else
    $ Z/ i' m; P- Z& J( I% ~) E
68. This_Player.SetS(110,1,0);
    
69. _CallMain;
    
70. end;
    / P. D- t) ~3 E
71. procedure P101;
    
72. var
    3 K6 K; i* [' Z4 B& L( j' _6 C* T, Q9 |  [
73.    Inum:integer;
    
74. begin
    , n# `1 p1 G6 ]; y
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    , l1 N6 ^7 k% w' w! ~+ Q; h: V
76. if (Inum > 0) and (Inum < 65535) then
    
77. begin
    ; }; p/ ?+ F' ?( T3 z# }
78.         if This_Player.GetS(111,1) < 1 then
    
79.     begin
    & ?' o  p* B/ T1 C, [
80.     This_Player.SetS(111,1,Inum);
    % I2 d4 Q% D$ k  z* l; c1 s
81. _CallMain;
    
82. end;
    , J2 M2 ~* m! m* f( W' N1 k3 w
83. end
    ! T+ l  k! q4 ]- v
84. else
    
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    + ]" C7 ]7 y+ F! b
87. end;
    1 b! x# z+ `; ^$ M
88. procedure _SetTime;
    % E1 N4 D% E  k- B1 b3 f4 {' v
89. begin
    
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    
91. end;
    
92. begin
    5 i7 a7 X$ _# t1 Y7 \
93.     _CallMain;
    
94. end.

复制代码

6 i6 x: P) @  a1 ~  u" c$ `