用元宝打造金刚石和经验Npc脚本

用于战神引擎手游版本的用元宝打造金刚石和经验Npc脚本，玩家如果有元宝，但需要金刚石或者经验，那么可以通过这个NPC来获得，每天可以打造3次，一次需要10分钟。脚本是明文版的，可以任意修改里面的所有条件。

用元宝打造金刚石和经验Npc脚本

部分脚本

procedure _ForgeDiamondStart_YB4;
var
temp:integer;
begin
   if This_Player.Level < 15 then begin This_Npc.NpcDialog(This_Player, '你的等级不满15级，不可锻造金刚石。' ); end else if This_Player.GetS(73,49) > 2 then
   begin
   This_Npc.NpcDialog(This_Player,
   '你今天已经进行过3次锻造了，请明天再来吧！'
   ); 
   end else
   if This_Player.GetS(73,46) > 0 then
   begin
      temp:= (ConvertDateTimeToDB(GetNow) - This_Player.GetS(73,46)) div 60;
      if temp >= 10 then
      begin
      This_Npc.NpcDialog(This_Player,
      '你尚有未领取的金刚石，请先领取后再来锻造！'
      ); 
      end else 
      This_Npc.NpcDialog(This_Player,
      '你上次的锻造还未完成，不可再次进行锻造。'
      ); 
   end else
   begin
   This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20149,3000,1); 
   end;  
end;
{
procedure _ForgeDiamondStart_JD4;
var
temp:integer;
begin
   if This_Player.Level < 15 then begin This_Npc.NpcDialog(This_Player, '你的等级不满15级，不可锻造金刚石。' ); end else if This_Player.GetS(73,45) = GetDateNum(GetNow) then begin This_Npc.NpcDialog(This_Player, '你今天已经进行过金刚石锻造了，请明天再来吧！' ); end else if This_Player.GetS(73,46) > 0 then
   begin
      temp:= (ConvertDateTimeToDB(GetNow) - This_Player.GetS(73,46)) div 60;
      if temp >= 10 then
      begin
      This_Npc.NpcDialog(This_Player,
      '你尚有未领取的金刚石，请先领取后再来锻造！'
      ); 
      end else 
      This_Npc.NpcDialog(This_Player,
      '你上次的锻造还未完成，不可再次进行锻造。'
      ); 
   end else
   begin
      if This_Player.GloryPoint >= 3000 then 
      begin
        if This_Player.DecGloryPoint(30081,3000,1,false,'金刚石锻造') then
        begin
          ForgeDiaYB(30,1);
        end; 
      end else
      begin
      This_Npc.NpcDialog(This_Player,
      '你的金锭不足！\' );
      end;      
   end;  
end;
   }
procedure _ForgeDiamondGet;
var
temp,num,expnum:integer;
begin
   if This_Player.GetS(73,46) > 0 then
   begin
      temp:= (ConvertDateTimeToDB(GetNow) - This_Player.GetS(73,46)) div 60;
      if temp >= 10 then
      begin
        if This_Player.FreeBagNum > 0 then
        begin
          num:= This_Player.GetS(73,47);
          This_Player.SetS(73,46,0);
          This_Player.SetS(73,47,0); 
          This_Player.GiveBindItem('金刚石',num*5);
          case num of
          1:expnum:=1000000;
          5:expnum:=3000000;
          10:expnum:=8000000;
          30:expnum:=20000000;
          end;
          This_Player.Give('经验',expnum);
		  ServerSay('玩家<' + This_Player.Name + '>锻造金刚石获得额外：'+inttostr(expnum)+'经验。', 2);
          This_Npc.NpcDialog(This_Player,
          '恭喜你获得了锻造完成的奖励：'+inttostr(num*5)+'颗金刚石。\'+
          '恭喜你获得了额外的奖励：'+inttostr(expnum)+'经验。'
          );  
        end else
        This_Npc.NpcDialog(This_Player,
        '你的包裹太满了，先整理一下吧。'
        );  
      end else 
      This_Npc.NpcDialog(This_Player,
      '你上次锻造的金刚石尚未完成，不可领取金刚石。\'+
      '请'+inttostr(10-temp)+'分钟后再来领取。'
      ); 
   end else
   This_Npc.NpcDialog(This_Player,
   '你还未进行金刚石锻造，不可领取金刚石。'
   );     
end;
begin    
  This_Npc.NpcDialog(This_Player,
  '|<锻造时间10分钟，每天只能锻造三次！/c=251>\'+ 
  '|<100元宝可锻造5颗金刚石+100万经验！。/c=253>\ \'+
    '|<500元宝可锻造25颗金刚石+300万经验！。/c=253>\ \'+
	  '|<1000元宝可锻造50颗金刚石+800万经验！。/c=253>\ \'+
	    '|<3000元宝可锻造150颗金刚石+2000万经验！。/c=253>\ \'+
		'|<金刚石是练体的必需品！。/c=254>\ \'+
  '|{cmd}<我要开始金刚石锻造/@ForgeDiamondStart>\'+
  '|{cmd}<领取锻造完成的金刚石/@ForgeDiamondGet>\' 
  //'|{cmd}<查询金刚石锻造规则/@ForgeDiamondRule>'
  );
end.

分享到：

赞(0)