烈焰私服魔龙深渊闯关脚本代码

function ontalk2101(npc,event,player)
 player:echo(0,npc:GetLowGUID(),[[
#&talk_line#&
魔龙深渊一共7层，到达第6层可以100%进入第7层
只需要给我20000金币（或绑定金币）我就可以将你随机传送至2-6层，确定进入下一层？
#&talk_line#&

                                <u><a href='event:M2402,1'>立刻传送</a></u>
]]);
end

function CreatureNpcFun(npc,event,player,funid)
 if funid == 1 then
  onTalk2101_1(npc,player);
 end
end

function onTalk2101_1(npc,player)
 if npc:GetLowGUID() == 29601 then
  if player:get_gamemoney_bind() >= 20000 then
   player:sub_gamemoney_bind(20000);
   player:randomthismap(297);
   return;
  end
  if player:get_gamemoney() >= 20000 then
   player:sub_gamemoney(20000);
   player:randomthismap(297);
  else
   player:alert(10,0,0,"您的金币不足2万,无法传送");
  end
 else
  local a = math.random(1,100);
  if a >= 1 and a <= 25 then
   if player:get_gamemoney_bind() >= 20000 then
    player:sub_gamemoney_bind(20000);
    player:randomthismap(292);
    return;
   end
   if player:get_gamemoney() >= 20000 then
    player:sub_gamemoney(20000);
    player:randomthismap(292);
   else
    player:alert(10,0,0,"您的金币不足2万,无法传送");
   end
   return;
  end
  if a >= 26 and a <= 50 then
   if player:get_gamemoney_bind() >= 20000 then
    player:sub_gamemoney_bind(20000);
    player:randomthismap(293);
    return;
   end
   if player:get_gamemoney() >= 20000 then
    player:sub_gamemoney(20000);
    player:randomthismap(293);
   else
    player:alert(10,0,0,"您的金币不足2万,无法传送");
   end
   return;
  end
  if a >= 51 and a <= 65 then
   if player:get_gamemoney_bind() >= 20000 then
    player:sub_gamemoney_bind(20000);
    player:randomthismap(294);
    return;
   end
   if player:get_gamemoney() >= 20000 then
    player:sub_gamemoney(20000);
    player:randomthismap(294);
   else
    player:alert(10,0,0,"您的金币不足2万,无法传送");
   end
   return;
  end
  if a >= 66 and a <= 85 then
   if player:get_gamemoney_bind() >= 20000 then
    player:sub_gamemoney_bind(20000);
    player:randomthismap(295);
    return;
   end
   if player:get_gamemoney() >= 20000 then
    player:sub_gamemoney(20000);
    player:randomthismap(295);
   else
    player:alert(10,0,0,"您的金币不足2万,无法传送");
   end
   return;
  end
  if a >= 86 and a <= 100 then
   if player:get_gamemoney_bind() >= 20000 then
    player:sub_gamemoney_bind(20000);
    player:randomthismap(296);
    return;
   end
   if player:get_gamemoney() >= 20000 then
    player:sub_gamemoney(20000);
    player:randomthismap(296);
   else
    player:alert(10,0,0,"您的金币不足2万,无法传送");
   end
   return;
  end
 end
end

RegisterUnitEvent(2101,20,"ontalk2101")
RegisterUnitEvent(2101,29,"CreatureNpcFun")