测试奖励元宝Npc脚本(提交装备正式区后奖励)

用于战神引擎的测试奖励NPC脚本，玩家在测试期间，打到的祖玛和赤月装备，可以通过这个NPC回收进去，然后自动记录玩家名单，正式开区之前，记得清理数据，玩家不能改名字，从新进去，点NPC领取元宝，脚本是明文版的，可以任意修改里面的领取奖励元宝数量和装备。

部分脚本

program Mir2;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _JHTZ_CY_ZS;
begin
if (This_Player.GetBagItemCount('圣战项链') >= 1) and (This_Player.GetBagItemCount('圣战头盔') >= 1) then
  begin
if This_Player.GetBagItemCount('圣战手镯') >= 2 then
    begin
if This_Player.GetBagItemCount('圣战戒指') >= 2 then
	begin
    This_Npc.NpcDialog(This_Player,
    '赤月套装已经验证成功！\ \' 
	);
	This_Npc.AddStrToFile('\one\赤月名单.txt', This_Player.Name); //写入该玩家名字后给予奖励 
              This_Player.Take('圣战项链',1);
              This_Player.Take('圣战头盔',1);
              This_Player.Take('圣战手镯',2);
              This_Player.Take('圣战戒指',2);
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你的圣战戒指不足2个！\ \' 
	);
	end;
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你的圣战手镯不足2个！\ \' 
	);	
	end;
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你缺少圣战项链或者圣战头盔！\ \' 
	);
	end;
	end;
procedure _JHTZ_CYQT_ZS_NAN;
begin
if This_Player.GetBagItemCount('天魔神甲') >= 1 then
begin
if This_Player.GetBagItemCount('怒斩') >= 1 then
begin
if (This_Player.GetBagItemCount('圣战项链') >= 1) and (This_Player.GetBagItemCount('圣战头盔') >= 1) then
  begin
if This_Player.GetBagItemCount('圣战手镯') >= 2 then
    begin
if This_Player.GetBagItemCount('圣战戒指') >= 2 then
	begin
    This_Npc.NpcDialog(This_Player,
    '赤月套装已经验证成功！\ \' 
	);
	This_Npc.AddStrToFile('\one\赤月全套名单.txt', This_Player.Name); //写入该玩家名字后给予奖励 
              This_Player.Take('天魔神甲',1);
              This_Player.Take('怒斩',1);
              This_Player.Take('圣战项链',1);
              This_Player.Take('圣战头盔',1);
              This_Player.Take('圣战手镯',2);
              This_Player.Take('圣战戒指',2);
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你的圣战戒指不足2个！\ \' 
	);
	end;
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你的圣战手镯不足2个！\ \' 
	);	
	end;
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你缺少圣战项链或者圣战头盔！\ \' 
	);
	end;
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你的身上缺少怒斩！\ \' 
	);
	end;
	  end else
	  begin
    This_Npc.NpcDialog(This_Player,
    '你的身上缺少天魔神甲！\ \' 
	);
	end;
	end;

分享到：

赞(0)