传奇手游自动修理装备NPC

最近博主在折腾传奇手游,也陆续会放出一些自己认为不错的版本分享给大家.

现在分享一个非常不错的NPC脚本,"自动修理.pas"基本上所有的版本都能用.

截图

功能及使用说明

放在土城合适的位置,点一下就能自动修理身上的所有装备,包括血石.

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.