斩杀任务Npc脚本_传奇帮论坛

用于战神引擎的斩杀任务Npc脚本，玩家通过斩杀对应的怪物数量，获得对应的奖励，脚本是明文版，可以任意修改里面的战神怪物名称和获得奖励的内容。

斩杀任务Npc脚本

部分脚本

program mir2;
{$I TaoZhuang.pas}
var today,num,cnum : integer;
procedure _exit;
begin
    This_NPC.CloseDialog(This_Player);
end;
procedure domain;
begin
    This_Player.SetV(55,56,0);
    cnum := This_Player.GetV(55,54);
    num := This_Player.GetV(55,55);
    This_NPC.NpcDialog(This_Player,
    +'<┍━━━━━━━━━━━━━━━━━━━┑/fcolor=253>' 
    +'|<│/fcolor=253><今天剩余次数/fcolor=250>：<'+ inttostr(3-cnum) +'/fcolor=21>< 每次限时30分钟/fcolor=249>< │/fcolor=253>'
    +'|<│/fcolor=253><斩杀高达数量/fcolor=250>：<'+ inttostr(num) +'/fcolor=21>< 退出地图时间清零/fcolor=249> < │/fcolor=253>'
    +'|<┝━━━━━━━━━━━━━━━━━━━┥/fcolor=253>'                                          
    +'|<│/fcolor=253>< 2 0只高达/fcolor=250>：<兑换 100万经验 + 100元宝 /fcolor=21>< │/fcolor=253>'
    +'|<│/fcolor=253>< 5 0只高达/fcolor=250>：<兑换 500万经验 + 500元宝 /fcolor=21>< │/fcolor=253>'
    +'|<│/fcolor=253><100只高达/fcolor=250>：<兑换1000万经验+1000元宝/fcolor=21>< │/fcolor=253>'
    +'|<┕━━━━━━━━━━━━━━━━━━━┙/fcolor=253>' 
    +'|{cmd}<兑换20只高达/@tijiao~1> ^<兑换50只高达/@tijiao~2>^<兑换100只高达/@tijiao~3>' 
    +'|{cmd}<进入珍珑岛/@gotomapz> ^<退出/@xeit>'  
    );
end;
procedure _gotomapz;
begin
    This_NPC.NpcDialog(This_Player,
    '珍珑岛有珍珑仙子守在里面的，进去需要小心'+
    '|不要被仙子发现，不然很难缠的.......'+
    '|<珍珑仙子不会爆装备的哦,别恋战/fcolor=249>'+
    '|{cmd}<进入珍珑岛/@gotomapz1>^<很难缠不去了/@xeit>' 
    );
end; 
procedure _gotomapz1;
begin
    cnum := This_Player.GetV(55,54);
    if cnum < 3 then
    begin
        This_Player.SetV(55,54,cnum+1); 
        This_Player.SetS(73,45,GetDateNum(GetNow));
        This_Player.SetS(73,46,ConvertDateTimeToDB(GetNow));
        This_Player.SetV(55,56,1); 
        This_Player.RandomFlyTo('sscc5');
        ServerSay('玩家【'+ This_Player.Name +'】进入珍珑岛斩杀高达了',0); 
    end else This_NPC.NpcDialog(This_Player,'今天进入珍珑岛的次数已用完'); 
end;

分享到：

赞(0)