【变态烈焰私服无限元宝】如何把烈焰的封魔岭改为获得内功经验

function ontalk2030(npc,event,player)
 player:echo(0,npc:GetLowGUID(),[[
#&task_describe#&
 自从烈焰私服城面对怪物物入侵而加紧防御之后
 强大的怪物物打算从侧面袭击荒漠皇城
 只要成功阻截魔物的勇士均可获得大量奖励
 以后此岭就被称为“封魔岭”

 <font color="#FFFF00">您今天还可进入]]..3 - player:get_param(215)..[[次封魔岭</font>
 <font color="#FF0000">注：射杀怪物越多,奖励越丰厚</font>

#&item10079#&   <font color="#FFFF00">奖励：</font><font color="#28FF28">海量内功经验</font>

               <u><a href='event:M2402,1'>进入封魔岭阻击怪物</a></u>

                 <u><a href='event:M2402,2'>领取封魔岭经验</a></u>
]]);
end

function ontalk2030_2(npc,event,player)
 player:echo(0,npc:GetLowGUID(),[[
#&task_describe#&

 <font color="#FFFF00">你当前未领取的封魔岭经验：]]..player:get_param(217)..[[</font>

 <u><a href='event:M2402,200'>免费领取</a></u>                <u><a href='event:M2402,201'>二倍领取</a></u> <font color="#FF8000">(6000元宝)</font>
 <u><a href='event:M2402,202'>三倍领取</a></u> <font color="#FF8000">(9000元宝)</font>     <u><a href='event:M2402,203'>四倍领取</a></u> <font color="#FF8000">(12000元宝)</font>
 <u><a href='event:M2402,204'>五倍领取</a></u> <font color="#FF8000">(15000元宝)</font>     <u><a href='event:M2402,205'>六倍领取</a></u> <font color="#FF8000">(18000元宝)</font>
 <u><a href='event:M2402,206'>八倍领取</a></u> <font color="#FF8000">(25000元宝)</font> 
 <u><a href='event:M2402,0'>返回首页</a></u>
]]);
end

function ontalk2030_1(npc,event,player)
 if player:get_level() >= 50 then
  if player:get_param(217) == 0 then
   if player:num_bag_black() >= 8 then
    if player:isenter_map() == 0 then
     if player:get_param(215) < 3 then
      if player:gen_has(5192) == 0 and player:gen_has(5193) == 0 and player:gen_has(5194) == 0 and player:gen_has(5195) == 0 and player:gen_has(5300) == 0 and player:gen_has(5301) == 0 and player:gen_has(5302) == 0 and player:gen_has(5303) == 0 then
       player:set_param(215,player:get_param(215) + 1);
       player:set_param(218,0);
       player:set_param(219,0);
       player:set_timer(3,3600);
       player:add_item(10187,8,1);
       player:alert(14,0,0,"使用背包里的弓箭手召唤令,召唤弓箭手射杀怪物");
       player:enter_map(30,10,70);
      else
       player:alert(10,0,0,"您正在押镖或押送灵兽,不能进入封魔岭");
       ontalk2030(npc,0,player,0);
      end
     else
      player:alert(10,0,0,"您今天已经进入了3次封魔岭");
      ontalk2030(npc,0,player,0);
     end
    else
     player:alert(10,0,0,"你刚退出副本,再次进入需要"..player:isenter_map().."秒");
     ontalk2030(npc,0,player,0);
    end
   else
    player:alert(10,0,0,"您的背包不足8格,无法赠送给您【弓箭手召唤令牌】");
    ontalk2030(npc,0,player,0);
   end
  else
   player:alert(10,0,0,"您还有未领取的封魔岭经验,领取后才能进入封魔岭!");
   ontalk2030(npc,0,player,0);
  end
 else
  player:alert(10,0,0,"等级达到50级才能进入封魔岭!");
  ontalk2030(npc,0,player,0);
 end
end

function ontalk2030_200(npc,event,player)
 if player:get_param(217) >= 1 then
      player:add_inter_exp(player:get_param(217));
  player:alert(19,0,0,"内功经验爆涨 + "..player:get_param(217).."");
  player:set_param(217,0);
 else
  player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
 end
 ontalk2030_2(npc,0,player,0);
end

function ontalk2030_201(npc,event,player)
 if player:get_param(217) >= 1 then
  if player:get_vcoin() >= 6000 then
      player:add_inter_exp(2*player:get_param(217));
           g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]在封魔岭领取了二倍内功经验，内功经验爆涨",2,1000,0,1);
   player:alert(19,0,0,"内功经验爆涨 + "..2*player:get_param(217).."");
   player:set_param(217,0);
   player:sub_vcoin(6000);
  else
   player:alert(10,0,0,"元宝不足6000个,无法领取二倍内功经验");
  end
 else
  player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
 end
 ontalk2030_2(npc,0,player,0);
end

function ontalk2030_202(npc,event,player)
  if player:get_param(217) >= 1 then
   if player:get_vcoin() >= 9000 then
      player:add_inter_exp(3*player:get_param(217));
           g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]在封魔岭领取了三倍内功经验，内功经验爆涨",2,1000,0,1);
    player:alert(19,0,0,"内功经验爆涨 + "..3*player:get_param(217).."");
    player:set_param(217,0);
    player:sub_vcoin(9000);
   else
    player:alert(10,0,0,"元宝不足9000个,无法领取三倍内功经验");
   end
  else
   player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
  end
 ontalk2030_2(npc,0,player,0);
end

function ontalk2030_203(npc,event,player)
  if player:get_param(217) >= 1 then
   if player:get_vcoin() >= 12000 then
      player:add_inter_exp(4*player:get_param(217));
           g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]在封魔岭领取了四倍内功经验，内功经验爆涨",2,1000,0,1);
    player:alert(19,0,0,"内功经验爆涨 + "..4*player:get_param(217).."");
    player:set_param(217,0);
    player:sub_vcoin(12000);
   else
    player:alert(10,0,0,"元宝不足12000个,无法领取四倍内功经验");
   end
  else
   player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
  end
 ontalk2030_2(npc,0,player,0);
end

function ontalk2030_204(npc,event,player)
  if player:get_param(217) >= 1 then
   if player:get_vcoin() >= 15000 then
      player:add_inter_exp(5*player:get_param(217));
           g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]在封魔岭领取了五倍内功经验，内功经验爆涨",2,1000,0,1);
    player:alert(19,0,0,"内功经验爆涨 + "..5*player:get_param(217).."");
    player:set_param(217,0);
    player:sub_vcoin(15000);
   else
    player:alert(10,0,0,"元宝不足15000个,无法领取五倍内功经验");
   end
  else
   player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
  end
 ontalk2030_2(npc,0,player,0);
end

function ontalk2030_205(npc,event,player)
  if player:get_param(217) >= 1 then
   if player:get_vcoin() >= 18000 then
      player:add_inter_exp(6*player:get_param(217));
           g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]在封魔岭领取了六倍内功经验，内功经验爆涨",2,1000,0,1);
    player:alert(19,0,0,"内功经验爆涨 + "..6*player:get_param(217).."");
    player:set_param(217,0);
    player:sub_vcoin(18000);
   else
    player:alert(10,0,0,"元宝不足18000个,无法领取六倍内功经验");
   end
  else
   player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
  end
 ontalk2030_2(npc,0,player,0);
end

function ontalk2030_206(npc,event,player)
   if player:get_param(217) >= 1 then
    if player:get_vcoin() >= 25000 then
      player:add_inter_exp(8*player:get_param(217));
           g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]在封魔岭领取了八倍内功经验，内功经验爆涨",2,1000,0,1);
     player:alert(19,0,0,"内功经验爆涨 + "..8*player:get_param(217).."");
     player:set_param(217,0);
     player:sub_vcoin(25000);
    else
     player:alert(10,0,0,"元宝不足25000个,无法领取八倍内功经验");
    end
   else
    player:alert(10,0,0,"你的封魔岭内功经验已经全部领取了!");
   end
 ontalk2030_2(npc,0,player,0);
end

Npc2030Funid = 
{
[0] = ontalk2030;
[1] = ontalk2030_1;
[2] = ontalk2030_2;
[200] = ontalk2030_200;
[201] = ontalk2030_201;
[202] = ontalk2030_202;
[203] = ontalk2030_203;
[204] = ontalk2030_204;
[205] = ontalk2030_205;
[206] = ontalk2030_206;
}

function CreatureNpcFun(npc,event,player,funid)
 if Npc2030Funid[funid] ~= nil then
  Npc2030Funid[funid](npc,event,player);