功能及使用说明
放在土城合适的位置,点一下就能自动修理身上的所有装备,包括血石.
D:\mud2.0\Mir200\Envir\PsNpcscripts
代码放在这个目录,然后去PsNpcScript.txt里面添加
代码
下面的代码仅给懂的人研究,复制保存为”自动修理.pas”想使用的可以直接下载附件.
Program Mir2;
var
sum:Integer;
procedure P100;
begin
exit;
end;
procedure LoopNow_2;
var
k:integer;
begin
if This_Player.GetS(110,1) > 0 then
begin
for k := 0 to 16 do
begin
This_Player.RepairBodyEquip(k);
end;
This_Player.PlayerNotice('自动修复成功',1);
This_Player.CallOutex(This_Npc, 10, 'LoopNow_1'); //“10”代表修复的时间
end
else
This_Player.PlayerNotice('自动修复已关闭',0);
exit;
end;
procedure LoopNow_1;
var
k:integer;
begin
if This_Player.GetS(110,1) > 0 then
begin
for k := 0 to 16 do
begin
This_Player.RepairBodyEquip(k);
end;
This_Player.PlayerNotice('自动修复成功',1);
This_Player.CallOutex(This_Npc, 10, 'LoopNow_2');
end
else
//This_Player.PlayerNotice('自动修复已关闭',0);
exit;
end;
procedure _SetLoop;
begin
//This_Player.PlayerNotice('自动修复已开启',2);
This_Player.CallOutex(This_Npc, 5, 'LoopNow_1');
end;
procedure _z1;
begin
This_Player.setS(110,1,1);
This_Player.PlayerNotice('自动修复已开启',2);
_SetLoop;
end;
procedure _z2;
begin
This_Player.setS(110,1,0);
This_Player.PlayerNotice('自动修复已关闭',2);
_SetLoop;
end;
begin
sum := This_Player.getS(1,10);
begin
This_Player.SetV(69,50,0);
This_Player.SetV(69,11,0);
This_Player.SetV(69,12,0);
This_Npc.NpcDialog(This_Player,
'|您好!这里提供装备自动修复服务\'+
'|每次上线需重新开启\'+
//'|<切割值:/fcolor=155><'+inttostr(sum)+'/c=red> \'+
'|<开启自动修复/@z1> <关闭自动修复/@z2>\'
);
end
end.
声明:
1.本文部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责。
2.若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
3.如果本站有侵犯、不妥之处的资源,请在网站右方客服联系我们。将会第一时间解决!
4.本站所有内容均由互联网收集整理、网友上传,仅供大家参考、学习,不存在任何商业目的与商业用途。
5.本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为。