战神引擎玩家每日任务做完领取经验Npc脚本

用于战神引擎玩家每日任务做完领取经验Npc脚本，在添加脚本的时候，需要根据自己的版本情况，单独填写里面的地图编号和怪物名称，也就是任务内容，不能直接添加进去使用，需要修改一下。脚本是明文版的，可以任意修改做完任务以后玩家领取的经验数值。

部分脚本

program Mir2;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _ChuMoRDM;
begin
   if This_Player.Level < 36 then
   begin
      This_Npc.NpcDialog(This_Player,
      '<你的等级没到36级，为了你的安全，我不能让你去冒险！/FCOLOR=254>\ \|{cmd}<返回/@main>');
   end else
   begin
      This_Npc.NpcDialog(This_Player,
      '<你可以在我这里领取除魔任务，完成后可以获得高额奖励。/FCOLOR=254>\'+
      '<如果你觉得领取的任务太难，你也可以花费50000金币重新领取任务。/FCOLOR=254>\'+
      '<不过你每天只能完成一轮的除魔任务……/FCOLOR=254>\ \'+
      '|{cmd}<领取任务/@GetCMShaG>             ^<重置任务/@ChgCMShaG>            ^<领取奖励/@DoneCMShaG>\ \'+
      '|{cmd}<返回/@main>');
   end;
end;
procedure kq;
begin
begin
if (GetHour = 18) and (GetMin = 0) then 
    begin
    This_Player.PlayerDialog(         
   +'|<【怪物攻城介绍】:/FCOLOR=245><每日18点-19点/FCOLOR=222>\'
   +'|<【怪物攻城介绍】:/FCOLOR=245><刷全服所有boss/FCOLOR=222>\'
   +'|{cmd}<进入怪物攻城/@gongcheng>\ \'
	); 
end
else
This_Player.CallOut(This_NPC,1,'kq');
end;
begin
if (GetHour = 19) and (GetMin = 0) then 
    begin
    This_Player.PlayerDialog(         
   +'|<【介绍】:/FCOLOR=245><每日19点-19点10分可以进入/FCOLOR=222>\'
   +'|<【介绍】:/FCOLOR=245><率先跑到终点的十位玩家可获得大量奖励/FCOLOR=222>\'
   +'|{cmd}<进入赛跑比赛/@zhengfen>\ \'
	); 
end
else
This_Player.CallOut(This_NPC,1,'kq');
end;
begin
if compareText(This_Player.MapName,'D5071~33')= 0 then
begin
end
else
if  (GetHour = 23) and (GetMin = 00)    then 
begin 
This_Player.PlayerDialog( 
  '|<每天23.00-23.30可以进入！/FCOLOR=254>\\'+
  '|<23.00分正式激情，截至最后一人！/FCOLOR=254>\\'+
  '|<地图剩余1人可以领取800万经验奖励！/FCOLOR=245>\\'+
  '|<24.00关闭活动,地图还有多人将取消资格！/FCOLOR=245>\\'+
    +'|{cmd}<进入战场/@goToMonMap>  \' 
    );
end
else
This_Player.CallOut(This_NPC,1,'kq');
end;
begin
if compareText(This_Player.MapName,'D2004~01')= 0 then
begin
end
else
if (GetHour() = 10) and (GetMin() = 30) then
begin
This_Player.PlayerDialog(
  '|每天的10:30－11:00或20:00-20:30进入\'
  +'|可以通过我进入夺宝地图，\'
  +'|在地图中的送宝人偶处就可以获得奖励。\'
  +'|送宝人偶还会送出大量珍宝，只有有实力的勇士才能夺得宝藏！\ \'
  +'|{cmd}<我要进入夺宝地图/@enter>'
  ); 
end
else
This_Player.CallOut(This_NPC,1,'kq');
end;
begin
if compareText(This_Player.MapName,'D2004~01')= 0 then

分享到：

赞(0)