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

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

可以放到NPC里面

Program Mir2;/ ?9 K* p0 D; x9 |$ `
procedure P100;1 H8 q- S, p Q# Z" \( y
begin$ j! l+ e- P1 C# a8 @$ @5 T( Z
exit;8 b2 Q+ @6 @; r6 @; S$ y. q' b# S
end;
9 ]+ K& G8 J0 x
procedure _CallMain;
& t0 E, c3 V: s
var6 e p* @. _( c/ O( h9 Q
iTime:integer;. f- D% h6 S& m+ @
Switch:string;% A' g4 \/ | d
begin8 g9 t6 C$ Y! A- Q+ @+ X
if This_Player.GetS(110,1) < 1 then Switch := '关'
else Switch := '开';7 N1 b5 {2 \7 K' |' Q$ H
if This_Player.GetS(111,1) < 1 then iTime := 0
9 T z. g- V4 P1 D' A. U
else iTime := This_Player.GetS(111,1);6 F# x5 R+ ~* ^8 v3 J4 z
This_NPC.NpcDialog(This_Player,
4 e2 i) E5 w2 t1 I5 ?. l/ K
'设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+, |* G3 v; v1 m7 f& W& T
'{cmd}<关闭界面/@exit>');; E9 ~6 E+ t \) K. \# ]# N0 ^! F
end;( ?1 g& u4 i, A: e" }6 f1 Q: z
procedure LoopNow_2;1 l2 A* e0 I/ h }
var: `& l! g+ U/ h/ N
k:integer;
5 y$ A0 P% n& \* Q# H* R2 K: t
begin
# G, i! X* @4 t1 N( h
if This_Player.GetS(110,1) > 0 then( l( |& @+ v v* ?: a: j& H2 t- x6 x; |
begin$ W5 s; t* F: S8 Y
for k := 0 to 16 do* g* q7 a( X8 Q
begin+ T0 _' ~; k+ G6 ?# P
This_Player.RepairBodyEquip(k);$ s2 W- A! v/ o2 U9 J$ r
end;# ]' H) a% T+ I5 F" e
This_Player.PlayerNotice('自动修复成功',1);" g: m7 @5 ^* o
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
@$ s4 i L) V4 t
end
- ^& H1 v4 f, [
else K, @7 N: P q! @1 R
This_Player.PlayerNotice('自动修复已关闭',0);( B" o# m& G9 \
exit;' d8 u: H0 ~- y+ g
end;- i6 c! U2 _$ I/ ?, _
procedure LoopNow_1;2 I; N w) n" F' ^1 I& q
var4 |; B! j3 m3 `1 l4 A$ H6 }& P
k:integer;) n3 H/ Q2 M, y, q5 k
begin: B3 ^) M. @% E% ^
if This_Player.GetS(110,1) > 0 then
, Z2 n2 h* ?! M3 I* G
begin, A5 E4 x9 b" @+ ?9 h l, H1 N2 l
for k := 0 to 16 do
' H& ?) V( |1 R* n E8 S A/ Z
begin
/ o1 u, D$ C4 S3 O' N
This_Player.RepairBodyEquip(k);
& }5 z H( A& j% ^4 K
end;
9 H# w, q" y4 O' {9 P5 p! V" l
This_Player.PlayerNotice('自动修复成功',1);* K3 n( j6 ~ A
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');5 f) c1 l9 f% N3 I4 C9 z4 t
end8 Z4 [8 c, |* f7 |5 w* e0 V. F& d
else6 `* i" D& e( |3 B; d6 T
This_Player.PlayerNotice('自动修复已关闭',0);) D1 B& W8 g2 U, a( S% D* m
exit;6 h- p( L$ I) B% t
end;0 u/ F; |6 W$ I6 g- R8 j3 J
procedure _SetLoop;- ]- Q1 z7 _" r, I7 U# {
begin
, ?1 t% \, y r! x0 Z' F" v
if This_Player.GetS(111,1) < 1 then/ b5 B5 C2 |7 C) u) ]0 f
begin
' d8 }2 S6 j) H0 r4 c8 Z+ C
This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
/ i% o2 B, {0 u' e
exit;# ?2 o5 M6 V' z* J3 }/ t- p" W- y
end;
( w; V' D; V! m5 ?, t# e2 M
if This_Player.GetS(110,1) < 1 then
# E, a0 _' F9 u9 x! D7 F2 R( w2 Z
begin6 r* i6 C2 b, t c% z! A
This_Player.SetS(110,1,1);. n' I8 a# T4 s: L
This_Player.PlayerNotice('自动修复已开启',2);( `& ?& P) l' o
This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');8 U5 s0 r* X6 T
_CallMain;: R% t. p' G. [$ D& D
end# F/ a$ h6 }& ~
else1 V: C. X* C8 `# l/ Z1 E; n6 L
This_Player.SetS(110,1,0);
7 B- N$ e' N( H; g# J+ k- r0 Z
_CallMain;! y9 D: ^3 u5 I' b1 c
end;$ M4 m* t- F# C% @) T8 h5 U
procedure P101;& |0 r0 S8 S- V, N
var( \& P* `! s1 b/ g" u
Inum:integer;
( h" `6 D1 I0 |
begin/ _- k3 X5 `6 v* t( X! M1 c9 ~8 y
Inum := StrToIntDef(This_NPC.InputStr,-1);
2 x S$ g" \$ b8 s$ A( q* a* D
if (Inum > 0) and (Inum < 65535) then; I% s7 B2 C2 k/ S
begin( D3 V: |4 D8 ]! H, W( u' A
if This_Player.GetS(111,1) < 1 then
% g w4 J% w) j' n
begin$ }! ? j5 Z! T. ]
This_Player.SetS(111,1,Inum);, [% \+ S2 F. l, |. ~
_CallMain;
& v1 m D, @* [5 [# i( ?. [
end;
' ^6 H0 h4 M3 H, h
end' d0 q3 f1 ^' ~+ v) y+ T, M; Y1 x1 ]
else) s: C, Z. Z" q
This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
9 S2 @/ W' |- y6 H
exit;- R7 q# K+ Q! C/ E% f8 A& N7 R' X7 C
end;
d8 [2 b- x3 d9 Z! Y( s- w; y
procedure _SetTime;% ~/ S% z& e2 m" M1 l- ^& H
begin
" Y7 H" k- X4 Q/ D
This_NPC.InputDialog(This_Player,'请输入时间',0,101);
; i6 i- v' c) f$ c
end;3 p) Q5 ~6 \8 Z$ O& [, r
begin
6 @) p% ~7 C d7 H
_CallMain;. T' @. T6 t2 ?9 U" J2 J: Q D
end.

复制代码

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

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

相关帖子

浏览过的版块