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

china0396 · 发表于 2026-6-9 17:36:28

可以放到NPC里面

Program Mir2;8 ^4 Z6 L! S( ^
procedure P100;
$ O. M+ T7 c: z9 g8 G ]+ P: d
begin# G: b" x* b$ t; p) N$ x) `
exit;
, w/ {# q ]% A' s6 t& r
end;
2 t6 l8 K6 Y; Y) E$ R& Q7 g/ U$ `
procedure _CallMain;
" E; s1 q2 m( m5 M$ p) \& _* Z8 ]! S
var! L; M# _, i9 N9 e
iTime:integer;. T" Q3 x% d' a( o9 ~
Switch:string;
4 Z* `$ V- l, i+ M$ k/ l5 j
begin
# X9 b( [. G' W: u0 I$ D
if This_Player.GetS(110,1) < 1 then Switch := '关'
0 u$ x5 `7 e2 c% c# U% m
else Switch := '开';1 ~/ S" i, {& o, r
if This_Player.GetS(111,1) < 1 then iTime := 0 Y% W( I; h6 A4 F
else iTime := This_Player.GetS(111,1);
2 p- f0 J8 z) [/ [3 A4 j4 I9 V
This_NPC.NpcDialog(This_Player,2 Q9 A2 [- A1 ?8 G7 V
'设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+8 Z+ n4 i: R& D5 [! ?# ^
'{cmd}<关闭界面/@exit>');7 I2 }3 T: B- ~
end;
" e0 K( V S' P
procedure LoopNow_2;
1 Y8 V; |" n5 {2 s
var
1 i9 K* u, }1 X0 o8 G1 A4 ~& W
k:integer;% z* r. M6 T; i9 C7 E0 C, R* y9 t
begin. Y; P! H( r1 E5 s
if This_Player.GetS(110,1) > 0 then2 Y1 T2 E( n( W1 W2 R* |6 N; U
begin' \9 B/ n& [/ S4 l: u, A
for k := 0 to 16 do
" t p" V5 i D$ g+ F( R7 e
begin* F1 a- ~! u3 [+ v! G/ x
This_Player.RepairBodyEquip(k);
" V4 B. c9 L I$ ]* K- ?0 ?( R
end;- ^- \/ m8 f A' G- }) x
This_Player.PlayerNotice('自动修复成功',1);
- g- I" _: R" z8 L/ ]' F
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');; I3 H W; x( {* L( R9 `9 B' a
end; J8 @) Y6 y( F1 r2 c- g
else
( i5 a+ s2 {" }; x
This_Player.PlayerNotice('自动修复已关闭',0);
- ^. X% `8 {2 J: z* H
exit;
, |! `4 O' y$ }* J% z+ A% ?
end;' O) ]7 d1 O2 D1 x3 B
procedure LoopNow_1;
0 J8 _- n/ ]# t- [$ @& i: _
var. f+ D7 s9 l+ ?
k:integer;4 G1 V$ q. J6 H" [8 O
begin8 f6 E& \* ]8 U2 _3 X, y4 m
if This_Player.GetS(110,1) > 0 then$ m6 H) }; P! J3 M( k9 g" W& s
begin$ V$ R) C V& V$ I1 {$ i _
for k := 0 to 16 do
) m! ~9 P1 [) w& E
begin o" p- e8 v8 d% E/ d
This_Player.RepairBodyEquip(k);
, x" E" v# g5 Y' V9 J
end;* K4 P3 y( y& _6 d' G. I# m, D$ X
This_Player.PlayerNotice('自动修复成功',1);( ~' l! Q) B3 x5 P3 r% [
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
/ o$ \! Y) p. K* D5 c/ S6 r
end
6 Q. L* }9 w( _# g, c9 D3 U! |6 @
else
, L3 K, D8 L; h5 o; Y/ P
This_Player.PlayerNotice('自动修复已关闭',0);
9 ~' m, ? U2 U( n
exit;- _1 P" ?6 u/ Q7 T; |
end;
. I9 q; w4 \1 R4 |+ `. `. [0 a
procedure _SetLoop;- s) j+ J' M& u% U
begin* h" |. N9 l$ s( }
if This_Player.GetS(111,1) < 1 then& T; Z5 N. i% C/ {( {1 X
begin+ v" m* d. [! ]
This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
) [* T8 g8 g! B- [7 O# ~, }
exit;
1 K. p: N9 t9 }7 E
end;
8 O z- I7 M1 R/ p/ w- L
if This_Player.GetS(110,1) < 1 then
$ v: j2 V W4 ?9 V4 D w
begin0 g& o4 S- u$ B+ A
This_Player.SetS(110,1,1);
' q! b6 W8 S2 r
This_Player.PlayerNotice('自动修复已开启',2);2 G1 X* z, ]+ t, R* H c
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');, C; ]/ N* D: d, e) _' M
_CallMain;
0 M8 Y5 `8 `' I
end- t E. [2 J+ c3 s# H2 p- F, M
else7 @3 {8 T: v4 b/ h& E& m; a
This_Player.SetS(110,1,0);( e- e. O" Q+ Q, v+ |( t4 v o& q
_CallMain;4 |$ a9 M4 q& S. B
end;& W9 t0 |8 ^, v' p i |
procedure P101;- p7 N; Y. S/ Z
var. t0 g5 i( P( ~
Inum:integer;$ S8 W; ^$ i+ H9 x- r. C6 O
begin
5 O: w* u! m' G. w
Inum := StrToIntDef(This_NPC.InputStr,-1);# u, F7 r* Y g+ y
if (Inum > 0) and (Inum < 65535) then$ n) x+ h- E* N+ x
begin0 x* M/ S/ [( K0 u
if This_Player.GetS(111,1) < 1 then
: X! v' J* ~. H* c- z2 U( x
begin
2 f% S/ R; {$ t, M0 i, K
This_Player.SetS(111,1,Inum);4 g8 \! `& d! z
_CallMain;, |) j" D4 O9 f- R
end;: Q* w3 ?2 }- e6 e, _4 R
end
# V: _$ z+ M" p& w; e% E# Z
else
. ]) G5 P; F( \9 `' L
This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);# G4 p5 Y# a4 X4 {0 m6 L
exit;$ Q0 l D8 O! r# T7 v8 m
end;
% E6 ?% {8 W8 F$ Y+ B: k
procedure _SetTime;
+ O3 T# d$ G# F" [' i
begin* r# h+ S2 V' b0 o
This_NPC.InputDialog(This_Player,'请输入时间',0,101);
4 J+ n4 E k+ t# Q- r! z! o
end;/ s+ `" O) @ u8 w# g
begin
* m6 g. q, ^+ Q1 `
_CallMain;
3 k. l4 u d- \+ X4 b" {4 s
end.

复制代码

账号		自动登录	找回密码
密码			立即注册

[教程/工具] 战神引擎自动修理全身装备脚本

相关帖子

浏览过的版块