价值500R复古披风通用脚本(黑墨原创)

用于战神引擎的复古披风通用脚本，带了配套的自定义NPC素材，但客户端需要使用了或者裤衩插件，否则无法使用自定义NPC功能，脚本是黑墨(Q1797962565)原创编写的。

部分脚本

procedure _zs111;
begin
if (This_Player.YBnum >=100) and (This_Player.GetBagItemCount ('洗髓丹') >= 100) then
begin
This_Player.ScriptRequestSubYBNum(100);
		This_Player.Take('洗髓丹',100);
				This_Player.SetV(2,2,1);
		This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs112;
begin
if (This_Player.YBnum >=100) and (This_Player.GetBagItemCount ('洗髓丹') >= 100) then
begin
This_Player.ScriptRequestSubYBNum(100);
		This_Player.Take('洗髓丹',100);
				This_Player.SetV(2,2,2);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs113;
begin
if (This_Player.YBnum >=200) and (This_Player.GetBagItemCount ('洗髓丹') >= 200) then
begin
This_Player.ScriptRequestSubYBNum(200);
		This_Player.Take('洗髓丹',200);
				This_Player.SetV(2,2,4);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs114;
begin
if (This_Player.YBnum >=200) and (This_Player.GetBagItemCount ('洗髓丹') >= 200) then
begin
This_Player.ScriptRequestSubYBNum(200);
		This_Player.Take('洗髓丹',200);
				This_Player.SetV(2,2,4);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs115;
begin
if (This_Player.YBnum >=400) and (This_Player.GetBagItemCount ('洗髓丹') >= 400) then
begin
This_Player.ScriptRequestSubYBNum(400);
		This_Player.Take('洗髓丹',400);
				This_Player.SetV(2,2,5);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs116;
begin
if (This_Player.YBnum >=400) and (This_Player.GetBagItemCount ('洗髓丹') >= 400) then
begin
This_Player.ScriptRequestSubYBNum(400);
		This_Player.Take('洗髓丹',400);
				This_Player.SetV(2,2,6);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs117;
begin
if (This_Player.YBnum >=800) and (This_Player.GetBagItemCount ('洗髓丹') >= 800) then
begin
This_Player.ScriptRequestSubYBNum(800);
		This_Player.Take('洗髓丹',800);
				This_Player.SetV(2,2,7);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs118;
begin
if (This_Player.YBnum >=800) and (This_Player.GetBagItemCount ('洗髓丹') >= 800) then
begin
This_Player.ScriptRequestSubYBNum(800);
		This_Player.Take('洗髓丹',800);
				This_Player.SetV(2,2,8);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;
procedure _zs119;
begin
if (This_Player.YBnum >=1600) and (This_Player.GetBagItemCount ('洗髓丹') >= 1600) then
begin
This_Player.ScriptRequestSubYBNum(1600);
		This_Player.Take('洗髓丹',1600);
				This_Player.SetV(2,2,9);
						This_Player.SetV(38,1,This_Player.GetV(38,1)+1); 
		This_Player.SetV(170,4,This_Player.GetV(170,4)+5); 
				TZJH_NPC;	
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦成功激活！', 3);
 end
	else
         This_Player.PlayerDialog('失败,材料不足');
end;

分享到：

赞(0)