全名乱斗Npc脚本(奖励经验+元宝)

用于战神引擎的全名乱斗Npc脚本，参与活动的玩家，可以获得经验和元宝，获得经验跟元宝的数量取决于玩家的人数，玩家人数越少，获得的经验和元宝就越多，反之则越少，脚本是明文版的，带时间控制，添加的时候，根据自己需求，设置开启时间。NPC文件总共有2个，一个是要加到活动地图，一个是加在土城传送。

全名乱斗Npc脚本(奖励经验+元宝)

部分脚本

procedure _DoExit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
procedure _Exit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
procedure Execute;
begin 
     if ((GetHour = 19) or (GetHour = 210) or (GetHour = 341) )and (GetMin = 55) then
     begin 
       if (GetHour = 19) and (GetMin = 55) then
       begin 
	   This_Npc.NPCSay('【全民乱斗】将于五分钟后开启,请各位玩家提前做好准备.');
       This_NPC.NpcNotice('活动提示:【全民乱斗】将于五分钟后开启,请各位玩家提前做好准备.');
       ServerSay('活动提示:【全民乱斗】将于五分钟后开启,请各位玩家提前做好准备.', 3);
	   ServerSay('活动提示:【全民乱斗】将于五分钟后开启,请各位玩家提前做好准备.', 2);
	   ServerSay('活动提示:【全民乱斗】将于五分钟后开启,请各位玩家提前做好准备.', 1);
       end;
	   end;
	   end; 
procedure _goToMonMap; 
  begin
    if  (GetHour() = 20) and (GetMin() >= 0) and (GetMin() <= 10) then
      begin
      This_Player.RandomFlyTo('D5071~30');
 ServerSay('大佬<' + This_Player.Name + '>手持神器,冲进了全民大乱斗,又将掀起腥风血雨,活动入口将于20.10分关闭！', 2);
  end
  else
  begin
    This_Npc.NpcDialog(This_Player,
    '进入时间为20.00-20.10。');
  end;
end;
procedure domain;  
begin 
    This_NPC.NpcDialog(This_Player, 
  '|<热血复古. 精心打造，值得体验/fcolor='+inttostr(random(14)+242)+'>'+	
  '|每天<20:00>分将会举行乱斗活动\\'+
  '|活动持续时间为20分钟,8:10分后无法进图\'+
  '|比赛结束剩余最后生存者可以获得丰厚奖励\'+
  '|<进入地图每秒可获得大量经验/c=250>\'+
  '|<元宝奖励活动结束后将自动到账/c=250>\'+
  '|<地图中人越少获得的奖励越多,最高40W每秒>\'+
  '|                      \'+
  '|<地图剩余人数1人:10000元宝/c=253>\'+
  '|<地图剩余人数2人:8000元宝/c=255>\'+
  '|<地图剩余人数3人:5000元宝/c=251>\'+
  '|<地图剩余人数4人:3000元宝/c=250>\'+
  '|<地图剩余人数5人:2000元宝/c=243>\'+
  '|<地图剩余人数<10人:800元宝/c=242>\'+
  '|<地图剩余人数<20人:200元宝/c=241>\'+
  '|<新人散人必玩推荐/c=254>\'+
    +'|{cmd}<进入地图/@goToMonMap>  \' 
    );  
end;  
begin 
 domain;  
end.

分享到：

赞(0)