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

china0396

可以放到NPC里面

! @- ^' _$ Q, z; `( s' T" ~

1. Program Mir2;
   # A  E( i3 F' z) q6 M! l+ K
2. procedure P100;
   
3. begin
   
4.     exit;
   5 o1 _0 z$ T, W8 o) `
5. end;
   8 H9 `. }4 j. l7 G2 n' Z2 M
6. procedure _CallMain;
   
7. var
   ; Z, d! k" }; z: j" Y
8.    iTime:integer;
   ' n7 D$ h: `& q2 @
9.    Switch:string;
   
10. begin
    
11.     if This_Player.GetS(110,1) < 1 then Switch := '关'
    : V% d. ?% {/ L9 @' Y4 y7 @# @7 _# ]
12. else Switch := '开';
    ! _3 p- o7 Q4 E' \# \8 w. g
13. if This_Player.GetS(111,1) < 1 then iTime := 0
    : w* n+ w9 q3 Z) F
14.     else iTime := This_Player.GetS(111,1);
    
15.     This_NPC.NpcDialog(This_Player,
    & f; I( l3 v& a
16.     '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
    
17.     '{cmd}<关闭界面/@exit>');
    
18. end;
    
19. procedure LoopNow_2;
    8 Y9 B$ h1 w! d  w, o) r1 h- |' O
20. var
    ; r! }) ]2 [9 k: O
21.    k:integer;
    * K7 g: U/ y. {% b5 f6 N$ @* M
22. begin
    % D& Q6 a+ j* T5 b  p, A9 @9 g
23.     if This_Player.GetS(110,1) > 0 then
    
24. begin
    , P; x; _2 Y# B/ L7 m+ ~" n' |
25.         for k := 0 to 16 do
    
26. begin
    $ k; f5 O3 ~" l7 c
27.             This_Player.RepairBodyEquip(k);
    
28. end;
    % ?) @3 i: A9 @3 S3 ?; E' C
29. This_Player.PlayerNotice('自动修复成功',1);
    
30. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
31. end
    
32. else
    8 c, o" b$ y* X+ i+ x6 H, G
33. This_Player.PlayerNotice('自动修复已关闭',0);
    ! U  `3 H2 P1 W. e  j
34. exit;
    & H- L2 a8 J1 m; `" j8 b
35. end;
    * K: B/ |/ H) H' o  h% o
36. procedure LoopNow_1;
    
37. var
    ! o# k% `, @% `; g( X) @
38.    k:integer;
    
39. begin
    ' `' t- `9 ]; g
40.     if This_Player.GetS(110,1) > 0 then
    # s! ~; ^* Y$ v; \* L& K$ `6 g
41. begin
    
42.     for k := 0 to 16 do
    
43. begin
    7 G+ z' R$ D" p: d0 w% m
44.             This_Player.RepairBodyEquip(k);
    
45. end;
    " ^# F+ \* z" Z4 o
46. This_Player.PlayerNotice('自动修复成功',1);
    
47. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
    
48. end
    
49. else
    4 \- Q/ \2 M5 o
50. This_Player.PlayerNotice('自动修复已关闭',0);
    ! C2 p' |0 U, _% L. z2 M, k
51. exit;
    & |" u7 x) n) Y. p2 e4 n$ ?8 J
52. end;
    7 Q6 P5 z; q  v. s9 G, I; p6 E
53. procedure _SetLoop;
    " E( H! A, ]- q7 s
54. begin
    3 ^- ^' N2 U$ [, A% j
55.     if This_Player.GetS(111,1) < 1 then
    & }8 f! R. x# j) R" f' ~& K, n8 x: F
56. begin
    
57.     This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
    9 j, a5 K7 F' L1 ^# S4 n+ y) o; h
58. exit;
    
59. end;
    
60.     if This_Player.GetS(110,1) < 1 then
    
61. begin
    % `, b/ C  U- i. P2 h$ T1 h- m! K; J7 u: V
62.     This_Player.SetS(110,1,1);
    
63. This_Player.PlayerNotice('自动修复已开启',2);
    & B4 }; d0 x* O! ~, J6 o
64. This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
    
65. _CallMain;
    " W* Y$ s5 ]7 N9 x5 u8 R
66. end
    * _; @0 x/ U9 u! ^9 p
67. else
    + ]" s, b& u8 V7 E+ M
68. This_Player.SetS(110,1,0);
    + a3 j8 t. z' ?5 ?9 }4 c3 r
69. _CallMain;
    
70. end;
    
71. procedure P101;
    ; a/ q# Z' h" `$ e# o: B
72. var
    1 A# ~) `2 R3 _7 K) [. o
73.    Inum:integer;
    ! O6 r! }  l) n( d6 u
74. begin
    : [) n: `* p: [' X# H4 B
75.     Inum := StrToIntDef(This_NPC.InputStr,-1);
    
76. if (Inum > 0) and (Inum < 65535) then
    1 F5 q" F% Y8 A2 \* b4 ]+ H# [; p6 R
77. begin
    . V: ^: I5 B5 e8 W* o
78.         if This_Player.GetS(111,1) < 1 then
    
79.     begin
    8 l# I6 u) ?+ {3 b
80.     This_Player.SetS(111,1,Inum);
    ' `- k' h% Q. m. P: |
81. _CallMain;
    5 ], i; n3 N4 V; \- y. p9 a) o7 D
82. end;
    ' \$ n( J3 G; t
83. end
    2 s9 j( T# q. c! ^8 W: f" Z
84. else
    
85. This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
    
86. exit;
    % ~1 `7 {0 g& i# \9 S4 S9 h# j
87. end;
    
88. procedure _SetTime;
    . @* Q4 \1 I1 h" N3 _
89. begin
    
90.     This_NPC.InputDialog(This_Player,'请输入时间',0,101);
    
91. end;
    6 v! i. e% W2 ^2 q3 g- s5 b
92. begin
    1 @9 w8 L: O9 v( J. q" W- W& t
93.     _CallMain;
    % E. M4 c; g4 Z2 I3 ~1 ]1 ?$ q
94. end.

复制代码

1 t1 `5 o, t5 K: U3 o