烈焰召唤宠物BB的NPC脚本方法

function ontalk2104(npc,event,player)
 player:echo(0,npc:GetLowGUID(),[[
#&talk_line#&
       召唤远古炎龙
#&talk_line#&
       召唤远古炎龙
#&talk_line#&
       召唤远古炎龙
#&talk_line#&
       召唤远古炎龙
#&talk_line#&
       召唤远古炎龙
]]);
end

function onTalk2104_1(npc,event,player)
  if player:get_vcoin() >= 888 then
  player:sub_vcoin(888)
     player:gen_slave(5314,5304,"360安仔（"..player:GetName().."）",1);
 player:alert(10,0,0,"花费888元宝 成功360安仔");
     else
     player:alert(10,0,0,"元宝不够888,召唤失败");
   end
 end

function onTalk2104_2(npc,event,player)
  if player:get_vcoin() >= 888 then
  player:sub_vcoin(888)
     player:gen_slave(5316,5507,"远古炎龙（"..player:GetName().."）",1);
 player:alert(10,0,0,"花费888元宝 成功360安仔");
     else
     player:alert(10,0,0,"元宝不够888,召唤失败");
   end
 end

function onTalk2104_3(npc,event,player)
  if player:get_vcoin() >= 888 then
  player:sub_vcoin(888)
     player:gen_slave(5315,5507,"远古炎龙（"..player:GetName().."）",1);
 player:alert(10,0,0,"花费888元宝 成功360安仔");
     else
     player:alert(10,0,0,"元宝不够888,召唤失败");
   end
 end

function onTalk2104_4(npc,event,player)
  if player:get_vcoin() >= 888 then
  player:sub_vcoin(888)
     player:gen_slave(5314,5507,"远古炎龙（"..player:GetName().."）",1);
 player:alert(10,0,0,"花费888元宝 成功360安仔");
     else
     player:alert(10,0,0,"元宝不够888,召唤失败");
   end
 end

function onTalk2104_5(npc,event,player)
  if player:get_vcoin() >= 888 then
  player:sub_vcoin(888)
     player:gen_slave(5507,5507,"远古炎龙（"..player:GetName().."）",1);
 player:alert(10,0,0,"花费888元宝 成功360安仔");
     else
     player:alert(10,0,0,"元宝不够888,召唤失败");
   end
 end

Npc2104Funid = 
{
[1] = onTalk2104_1;
[2] = onTalk2104_2;
[3] = onTalk2104_3;
[4] = onTalk2104_4;
[5] = onTalk2104_5;
}

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

RegisterUnitEvent(2104,20,"ontalk2104")
RegisterUnitEvent(2104,29,"CreatureNpcFun")