烈焰服务端用烈焰币兑换烈焰会员的脚本

function ontalk2206(npc,event,player)
    player:echo(0,npc:GetLowGUID(),[[
#&talk_line#&
在我这只要你有足够的烈焰币,即可升级铂金,至尊会员.

#&talk_line#&
                 <font color="#FF0000">铂金会员</font> 
    需1000万烈焰币(50元自动提升)     <u><a href='event:M2402,1'>提升</a></u>
#&talk_line#&
                 <font color="#FF0000">至尊会员</font> 
    需2000万烈焰币(100元自动提升)    <u><a href='event:M2402,2'>提升</a></u>
#&talk_line#&
]]);
end

function onTalk2206_1(npc,event,player)
    if player:get_player_type() <= 8 then
        if player:get_vcoin_bind() >= 10000000 then
            player:sub_vcoin_bind(10000000);
            player:set_vip_status(9,0,5);
        player:set_name_pre(9,"<font color='#FFAC00'>"..viplist[player:get_player_type()].name.."</font>");
        player:set_status(viplist[player:get_player_type()].buff,0,100,5);
        ------左下角VIP数字等级
            player:alert(11,0,0,"恭喜您,成为 铂金会员 <br>新登录激活属性");
            g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]使用[烈焰币<font color='#FF0000'>x800万</font>]在[城主雕像]兑换成为本服 铂金会员!",2,1000,0,1);
        else
            player:alert(10,0,0,"您没有烈焰币<font color='#FF0000'>x1000万</font>,提升失败!");
        end
    else
        player:alert(10,0,0,"您已经是 铂金会员 或 至尊会员 兑换失败!");
    end
    ontalk2206(npc,0,player,0);    
end

function onTalk2206_2(npc,event,player)
    if player:get_player_type()==9 then
        if player:get_vcoin_bind() >= 20000000 then
            player:sub_vcoin_bind(20000000);
            player:set_vip_status(10,0,5);            ------左下角VIP数字等级
        player:set_name_pre(9,"<font color='#FFAC00'>"..viplist[player:get_player_type()].name.."</font>");
        player:set_status(viplist[player:get_player_type()].buff,0,100,5);
            player:alert(11,0,0,"恭喜您,成为 至尊会员!<br>重新登录激活属性");
            g_alert("[<font color='#FF0000'>"..player:GetName().."</font>]使用[烈焰币<font color='#FF0000'>x1500万</font>]在[城主雕像]兑换成为本服 至尊会员 ！",2,1000,0,1);
        else
            player:alert(10,0,0,"您没有烈焰币<font color='#FF0000'>x2000万</font>,提升失败!");
        end
    elseif player:get_player_type()<9 then
        player:alert(10,0,0,"请先提升至铂金会员!");
    else
        player:alert(10,0,0,"您已经是 至尊会员,兑换失败!");
    end
        ontalk2206(npc,0,player,0);    
end

Npc2206Funid = 
{
[1] = onTalk2206_1;
[2] = onTalk2206_2;
}

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

RegisterUnitEvent(2206,20,"ontalk2206")
RegisterUnitEvent(2206,29,"CreatureNpcFun")