qialisi_music.lua--恰莉丝唱歌

Global_Reg.RegInit("qialisi_Init");--注册创建NPC事件


function qialisi_Init()
        qialisi_event1();
        return 0;
end

function qialisi_event1(npc)
        if npc == nil or npc < 0 then
        npc = NL.CreateNpc(nil,"qialisi_event2")
        end
        Char.SetData(npc,%对象_形象%,14679)
        Char.SetData(npc,%对象_原形%,14679)
        Char.SetData(npc,%对象_地图%,60005)
        Char.SetData(npc,%对象_X%,31)
        Char.SetData(npc,%对象_Y%,5)--要改成5
        Char.SetData(npc,%对象_方向%,6)
        Char.SetData(npc,%对象_原名%,"大明星恰莉丝")
        NLG.UpChar(npc)
        LuaNpcIndex["qialisi_Init"]=npc;
        InstallNpc("qialisi_Init",npc);
        Char.SetTalkedEvent(nil, "qialisi_event3",npc)
        return true
end

function qialisi_event2(index)
        return true;
end

function qialisi_event3(npc,player)
        if NLG.CanTalk(npc,player) then
                local msg = "\n好棒的舞台,总算有点干劲了。助手跑哪去了呢?\n\n[恰莉丝唱起了歌曲,通过广播整个阳光之铃内都听得到哦](需打开背景音乐)"
                local num = math.random(1,6)
                local fd=Protocol.GetFdByChar(player)
                if num==1 then
                        Protocol.Send(fd,"WinmlSendBgm ./sound/はじまりの歌.mp3");
                elseif num==2 then
                        Protocol.Send(fd,"WinmlSendBgm ./sound/TroubleMaker.wav");
                elseif num==3 then
                        Protocol.Send(fd,"WinmlSendBgm ./sound/被贴上标签的人.wav");
                elseif num==4 then
                        Protocol.Send(fd,"WinmlSendBgm ./sound/安娜的橱窗.mp3")
                elseif num==5 then
                        Protocol.Send(fd,"WinmlSendBgm ./sound/桃花庵.wav")
                elseif num==6 then
                        Protocol.Send(fd,"WinmlSendBgm ./sound/影子小姐.mp3")
                end
                NLG.ShowWindowTalked(player,0,1,0,msg,npc)
        end
end