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

china0396

可以放到NPC里面
/ G' }& c" C" U' `6 F  s* l- s

1. Program Mir2;
   
2. procedure P100;
   & ?; e! b9 L! }: L
3. begin
   
4.     exit;
   3 {2 I, q/ n( S7 b
5. end;
   ; u5 a) |6 w& n4 Z- [7 r
6. procedure _CallMain;
   # y2 f1 T1 \  i+ w
7. var
   
8.    iTime:integer;
   
9.    Switch:string;
   
10. begin
    
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    6 S! O( r% z  T
12. else Switch := '开';
    / H; ^6 j" K* E  R: d" {( K
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    6 ~6 k2 V5 C  A
14.     else iTime := This_Player.GetS(111,1);
    - r- a4 k# C- ?# R2 L
15.     This_NPC.NpcDialog(This_Player,
    
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    4 |* j4 ]4 X% Q
18. end;
    ( |; f& p( k$ b1 P
19. procedure LoopNow_2;
    
20. var
    
21.    k:integer;
    $ C# v" E# ?3 X: u$ V
22. begin
    
23.     if This_Player.GetS(110,1) > 0 then
    - N5 \/ s, }9 F
24. begin
    - V+ c& L, r$ Y+ \2 p  ~
25.         for k := 0 to 16 do
    
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
    
32. else
    9 v6 w6 M' G8 B$ t7 k
33. This_Player.PlayerNotice('自动修复已关闭',0);
    ( U8 C& r6 d- p& X% M5 N
34. exit;
    
35. end;
    4 j/ o' }, P% o# t( Z( Q+ x
36. procedure LoopNow_1;
    2 k, U. q( c' S  p
37. var
    3 ~8 E( [- ^% c- u! }
38.    k:integer;
    4 Y  Z& f" U' t( e8 f
39. begin
    7 H; w  t0 q- M6 V9 [% i
40.     if This_Player.GetS(110,1) > 0 then
    
41. begin
    3 d0 |1 e; T! [9 W  r# x
42.     for k := 0 to 16 do
    
43. begin
    ' Q& v+ f  ^2 a  ^. n: S8 Q1 S/ ^
44.             This_Player.RepairBodyEquip(k);
    ' K/ T0 \" I7 `! p" }, I  y8 Q
45. end;
    
46. This_Player.PlayerNotice('自动修复成功',1);
    
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    : E. t- Y% w( ?0 S$ R
48. end
    * t1 e4 ~* l& H9 u* h3 O6 P
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    8 I. r9 ~$ }# u8 H9 ~7 I
51. exit;
    
52. end;
    " \: S/ z' m- K. D7 d% [
53. procedure _SetLoop;
    
54. begin
    8 L0 T& d  {- ^+ B1 U+ x
55.     if This_Player.GetS(111,1) < 1 then
    
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    8 Z: C# m2 E  M; U
58. exit;
    
59. end;
    4 S6 R. P8 C4 n4 m+ n5 J
60.     if This_Player.GetS(110,1) < 1 then
    
61. begin
    5 a+ `5 @" K& y! `/ p8 g. W' M
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');
    . K% G- M7 ^8 F. L% I7 `
65. _CallMain;
    3 ], b+ K1 f4 ?. C, y" r6 k% A- N
66. end
    
67. else
    4 ^0 |1 p4 v$ c( n) I
68. This_Player.SetS(110,1,0);
    
69. _CallMain;
    " V0 k. ^3 d+ d, \' J
70. end;
    2 w; h% y4 S% p5 P  Z' \
71. procedure P101;
    ( g) G1 V  b7 E# U. g$ D4 V
72. var
    
73.    Inum:integer;
    
74. begin
    
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    0 d" l5 j3 F' _! A- l& ?0 A
76. if (Inum > 0) and (Inum < 65535) then
    " T0 G5 d+ S0 r$ [/ Z
77. begin
    ( o4 x4 I* }1 I
78.         if This_Player.GetS(111,1) < 1 then
    * g! y2 s5 g; t! Z2 H8 j
79.     begin
    
80.     This_Player.SetS(111,1,Inum);
    ) `3 k$ w. E* r. F
81. _CallMain;
    $ o+ p: v/ e+ r1 T5 ]$ R; e0 K
82. end;
    , [& E+ S8 d" ]
83. end
    
84. else
    1 ?2 ~0 z& K7 k; [) b- f
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    
87. end;
    ! j$ @5 A0 p( H. }8 @% O8 H0 o
88. procedure _SetTime;
    
89. begin
    8 l7 K) H- `$ s, t  t8 e: T$ K
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    
91. end;
    
92. begin
    
93.     _CallMain;
    
94. end.

复制代码

/ h: s) M. d0 r7 I  `( b
9 b" k+ S. \1 Z