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

china0396

可以放到NPC里面
# h8 r# A$ c# F8 L$ x

1. Program Mir2;
   
2. procedure P100;
   - V% p2 Q5 g. F! g) A: D7 @
3. begin
   ! L. R  w! }" }1 X
4.     exit;
   
5. end;
   
6. procedure _CallMain;
   
7. var
   3 w$ P1 P, C! e% h; w8 K1 b7 h
8.    iTime:integer;
   
9.    Switch:string;
   0 n7 O( b& c9 `9 t
10. begin
    
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    
12. else Switch := '开';
    
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    0 m+ H5 J, |! D
14.     else iTime := This_Player.GetS(111,1);
    ) Z1 |0 X2 g0 W- b3 p/ U
15.     This_NPC.NpcDialog(This_Player,
    1 P0 b% G$ `9 D9 _6 a3 a" S$ m# q
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    $ T8 y! ^" n/ |; i
18. end;
    ! ]% d3 w$ N/ c! @0 [6 w" }8 W
19. procedure LoopNow_2;
    
20. var
    1 G7 a! M! P7 p2 p) I2 V" M
21.    k:integer;
    
22. begin
    / H' |; H4 I8 N# H
23.     if This_Player.GetS(110,1) > 0 then
    " Q6 U; H# {' H- X. [- L1 t0 k
24. begin
    
25.         for k := 0 to 16 do
    % K* [+ v4 R) d+ m8 ~. ?
26. begin
    " P  g( e1 A2 U. h1 U
27.             This_Player.RepairBodyEquip(k);
    
28. end;
    2 |' R1 Z* V8 Y/ [7 v
29. This_Player.PlayerNotice('自动修复成功',1);
    5 y7 I; H' n  m
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
31. end
    
32. else
    7 x# C* G4 J; i: J# u
33. This_Player.PlayerNotice('自动修复已关闭',0);
    + T6 e$ X; z8 K( I& ^: [2 M
34. exit;
    
35. end;
    
36. procedure LoopNow_1;
      G# k7 D. S0 |. s9 m& t* S4 v
37. var
    , K6 p; x+ P7 w, F+ i, n  m
38.    k:integer;
    $ Y. Y/ @- K3 h1 _- s
39. begin
    - \; K) E5 k' o1 U2 H2 y
40.     if This_Player.GetS(110,1) > 0 then
    / \: u6 \" K2 G- r$ O
41. begin
    # H7 Y/ v. ?! R7 i6 ?) q# u; c5 v, A
42.     for k := 0 to 16 do
    
43. begin
    : c. c! O7 [$ u- f. Y' D, D/ S
44.             This_Player.RepairBodyEquip(k);
    ( B& n6 l# T0 x% e4 ]" ^# Q, B7 N6 P
45. end;
    
46. This_Player.PlayerNotice('自动修复成功',1);
    ; Y# Y. G3 ^& F9 O6 k
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    * M/ |1 G- o4 ]. f) O+ I; ~
48. end
    : {( S6 R0 r/ e; z' N/ }& z# q' G
49. else
    
50. This_Player.PlayerNotice('自动修复已关闭',0);
    
51. exit;
    
52. end;
    
53. procedure _SetLoop;
    
54. begin
    
55.     if This_Player.GetS(111,1) < 1 then
    
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    3 B; _2 z' @5 [* n
58. exit;
    3 @2 }  Z) x) f6 I2 n" {7 j
59. end;
    
60.     if This_Player.GetS(110,1) < 1 then
    5 G1 [5 P# C, C
61. begin
    
62.     This_Player.SetS(110,1,1);
    6 S+ @$ M) L; G  w% \9 n( h
63. This_Player.PlayerNotice('自动修复已开启',2);
    
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    . H8 b, r4 U7 C+ w5 f# I9 y) U
65. _CallMain;
    
66. end
    + J7 ]3 R1 w5 ]" ]
67. else
    4 A9 i# f. |  b& h0 k* i
68. This_Player.SetS(110,1,0);
      a8 ^# {; Y: q9 S) \% n
69. _CallMain;
    
70. end;
    
71. procedure P101;
    , l' ]5 `  j1 B" ]
72. var
    8 L/ u: a/ F) [( C+ ^
73.    Inum:integer;
    & u& H$ o+ R* B! Q
74. begin
    ' l6 {1 O# d" j9 p& C  W
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    
76. if (Inum > 0) and (Inum < 65535) then
    0 ~" o$ `+ p* @
77. begin
    
78.         if This_Player.GetS(111,1) < 1 then
    
79.     begin
    
80.     This_Player.SetS(111,1,Inum);
    
81. _CallMain;
    " G5 O, z# j% V) b
82. end;
    
83. end
    
84. else
    
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    % N& ]1 D/ Y- k
86. exit;
    
87. end;
    
88. procedure _SetTime;
    5 d( n( v" c" l( P4 f" d* o
89. begin
    
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    ( y' ?4 @3 k( D( Z
91. end;
    
92. begin
    , M# \5 V) e% G6 X9 G
93.     _CallMain;
    8 R# u8 P/ ?4 G  |6 s% U" |( k5 X
94. end.

复制代码

' e+ G; r/ w6 b" L4 R: z! T1 N
% V0 j$ R: H' C! N