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

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

可以放到NPC里面

Program Mir2;( l. @$ O- U k0 Q$ b" z! O! S
procedure P100;
5 ?2 L, q/ L, Z
begin
/ q' d, c P7 l# ?* G: D/ S( V: v
exit;( k! i! U+ V. l' r8 N1 x. p# X
end;
) Y. k3 o: J" ^$ W2 @# e2 ]2 |8 I
procedure _CallMain;9 `3 R( T+ H3 {' M
var; A3 g4 Q, w) _$ \9 c
iTime:integer;' F$ t# |; O# r. b! ^1 J* L: |
Switch:string;* ~! u- i; A1 r) e1 D B7 L
begin( ^ B& q$ z5 p5 F: c8 b& ~
if This_Player.GetS(110,1) < 1 then Switch := '关'
; n; N; e5 V; E8 `5 [' O' r
else Switch := '开';
( L! m$ z1 t( x/ V% Z; r, t; \
if This_Player.GetS(111,1) < 1 then iTime := 0
/ h) I2 K$ n7 c+ i: @* t- p
else iTime := This_Player.GetS(111,1);
: H; p5 @( O6 m$ T; }
This_NPC.NpcDialog(This_Player,
: K, c/ [ M2 J- {# m. N
'设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
5 A2 f9 X' d/ I
'{cmd}<关闭界面/@exit>');1 p7 ^3 C7 Z4 s5 K. H/ T& `" j8 I
end;
0 f" m3 W6 k4 s6 K6 `; v% O
procedure LoopNow_2;
, e5 y, w) @+ [4 d2 t5 X
var
. t8 _+ S7 p6 O" R+ A
k:integer;
: y- }3 u- C1 Z, p
begin S" }% B" @$ B$ w4 k" |. f4 L/ r
if This_Player.GetS(110,1) > 0 then9 p3 o$ B- Y$ H( f( R' S0 Q
begin
5 G& P, A1 b4 q2 o/ G; z9 l
for k := 0 to 16 do
- y* a# f, t9 N/ E0 h+ w
begin6 \8 |* o/ D8 W& X+ ]
This_Player.RepairBodyEquip(k);) \! z+ |5 \" g h- p: s
end;9 @- h& A: K( _$ s( ?( A! G+ z9 C* [
This_Player.PlayerNotice('自动修复成功',1);
" e9 Z( W& H0 O) z8 Q; w# M- J1 l
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
7 `. J' D( S" H/ g8 T8 v; \
end5 I& p3 \( T$ s3 b' V
else q! r. w1 D! f: X1 c0 N8 ~
This_Player.PlayerNotice('自动修复已关闭',0);
8 l9 K* }3 |' J% k/ v/ t/ o: G
exit;5 C2 A; T; l+ V# p, ?
end;
. N3 T* A9 k( Z3 y. q* i
procedure LoopNow_1;9 D G, {6 a( k7 @% D' {+ W: _0 S1 z
var
|2 C" l. T) c9 `4 N* A
k:integer;
. a" x4 N' B5 Y8 s/ l2 [% |
begin
( f7 D+ S1 A* a4 T" m6 |& i- I% A
if This_Player.GetS(110,1) > 0 then" z( g3 N M% O* e' z& x
begin
* A) D; a2 [; s: a: Z# X7 s: R3 G& h: u
for k := 0 to 16 do
3 y# T, e+ I H
begin
2 ]- q) B$ d$ i! s( T
This_Player.RepairBodyEquip(k); m& G0 B* _/ V, f4 b2 r
end;0 Q, n/ r% e' U+ f0 z
This_Player.PlayerNotice('自动修复成功',1);
' M: k8 u/ e. @ ^4 w2 U
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
4 b9 t- J$ a9 h# p o: F
end# M2 U) u2 c; u V1 K2 Y8 L S
else2 O" b1 G3 j0 ?$ V, a. j
This_Player.PlayerNotice('自动修复已关闭',0);
' ? p" d/ p' m
exit;) R! X% v( N0 f1 J5 [$ X- X
end;6 m! ?0 `8 Z: X0 p1 c+ y
procedure _SetLoop;; L3 o' i7 A/ G- g8 I" v
begin
, n% E2 h& x7 B6 G. _ A
if This_Player.GetS(111,1) < 1 then0 @! r% i! x f W, i
begin
3 J8 T8 b5 U8 p! F. C$ c b
This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);0 [ W5 C5 p4 {! z
exit;
2 x7 [2 ^- j1 P( o* N
end;) Z3 R& N$ G: V
if This_Player.GetS(110,1) < 1 then# i' W& Y) }8 l$ @- f7 Y F# |
begin. J& e# f6 [. O
This_Player.SetS(110,1,1);- L: K5 j) U3 p0 d+ |
This_Player.PlayerNotice('自动修复已开启',2);
' H5 r. h% I, N8 X2 ~% y" Z
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');( C# M2 _; h7 q; S6 {. W# N) n
_CallMain;
0 c' J* D/ R- W% R: W
end- `# z( j' b# l- P g
else
: u5 O: ~5 r5 u5 ?" q
This_Player.SetS(110,1,0);
8 i, y4 f" t) e+ T5 H, V- H
_CallMain;( y& a9 i. G( }
end;# s( U7 Z: w0 t6 i
procedure P101;8 i, H0 ]0 f4 T+ q% ~
var
% b( o$ f! @. J5 J7 p" q/ u
Inum:integer;3 X7 R+ i* }: _+ j
begin
- I: |8 ` n, a4 M6 f
Inum := StrToIntDef(This_NPC.InputStr,-1);
, i1 n S5 d" U% P- s/ ~
if (Inum > 0) and (Inum < 65535) then
2 ~" G# m; Z& P% f" u
begin
. o+ q+ {0 V/ ]2 V, @1 `. R
if This_Player.GetS(111,1) < 1 then& G( p$ b) A' R) Y
begin
2 N' Z" c. y/ G) F+ R" r8 z0 E8 V/ w
This_Player.SetS(111,1,Inum);1 D/ |4 y8 y0 E9 ]+ {+ j$ G
_CallMain;
1 Z0 X+ a. O5 K7 D
end;% W# G% p$ _% d$ ]
end
( x0 w9 C5 M9 |" e; l! J) ] W; ^
else
1 N% X1 l: L3 y* d x
This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
9 I% c' S' o ~8 J( F( I @* g
exit;9 M0 ~' l! S) Y1 ~7 w2 t' s& `
end; I7 x+ O. b! j2 t
procedure _SetTime;
+ I5 Y. X& k1 y; ~' I" m3 @
begin; g8 @/ p- _* q3 |9 Q) q
This_NPC.InputDialog(This_Player,'请输入时间',0,101);# G7 }2 M v; f2 x' R- A, ~
end;2 E0 D" c8 x/ `6 Y8 C2 w3 @4 f6 U
begin3 q7 L/ u7 v" D% e" ]1 c( a8 c
_CallMain;
- e7 n& w1 {! z( s. A1 ^
end.

复制代码

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

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

相关帖子

浏览过的版块