[TLBB] Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến - Trang 2
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 2 của 4 Đầu tiênĐầu tiên 1 2 3 4 CuốiCuối
Kết quả 11 đến 20 của 32
  1. #11
    Thành Viên
    Ngày tham gia
    May 2007
    Bài viết
    453
    Thanks
    280
    Thanked 24 Times in 19 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi Sói Đẹp Trai [Only registered and activated users can see links. ]
    Mình có đoạn code này bạn sửa theo nó là được nhé. Toàn bộ các Q kịch tình hộ tống đều làm như này hết. Đã test rất OK.

    PHP Code:
    -- ¾ÛÏÍׯ֮ ÂåÑô³¡¾°»¤ËÍ£¬Öص㲿·ÖŶ
    -- ´¥·¢Ìõ¼þ£¬Íê³ÉÈÎÎñ21£¬È»ºó½øÈëÂåÑôµÄʼþÇøÓò

    --MisDescBegin
    --½Å±¾ºÅ
    x200022_g_ScriptId 
    200022

    --ÈÎÎñºÅ
    x200022_g_MissionId 
    22

    --Ç°ÐøÈÎÎñºÅ
    x200022_g_PreMissionId 
    47

    --Ä¿±êNPC
    x200022_g_Name    
    ="Ki«u Phong"
    x200022_g_Name1 ="T× Kinh Lôi"

    --ÈÎÎñ¹éÀà
    x200022_g_MissionKind 
    47

    --ÈÎÎñµÈ¼¶
    x200022_g_MissionLevel 
    40

    --ÊÇ·ñÊǾ«Ó¢ÈÎÎñ
    x200022_g_IfMissionElite 
    0

    --ÈÎÎñÃû
    x200022_g_MissionName
    ="Dù vÕn ng߶i, ta vçn cÑ tiªn"
    --ÈÎÎñÃèÊö
    x200022_g_MissionInfo
    ="#{Mis_juqing_0022}"
    --ÈÎÎñÄ¿±ê
    x200022_g_MissionTarget
    ="#{Mis_juqing_Tar_0022}"        
    --ÌύʱnpcµÄ»°
    x200022_g_MissionComplete
    ="  Ki«u Phong th§t là...l¨ nào huynh ta chï vì mµt cô nß½ng, dám quên cä tính mÕng mình? Không khéo gi¶ ðây Tø Hi«n Trang ðã ðÕi loÕn m¤t.."        

    x200022_g_MoneyBonus=9000
    x200022_g_exp
    =9600

    x200022_g_RadioItemBonus
    ={{id=10423008 ,num=1},{id=10423009,num=1},{id=10423010,num=1},{id=10423011,num=1}}

    x200022_g_Custom    = {{id="Dù vÕn ng߶i, ta vçn cÑ tiªn",num=1}}
    --
    MisDescEnd

    -- ¶ÓÎéId
    x200022_g_GroupId 
    0

    -- »¤ËÍ·ÏßId
    x200022_g_PatrolPathIndex 
    4

    -- ³¡¾°¼ÆʱÆ÷Index
    x200022_g_SceneTimerIndex 
    = -1
    x200022_g_Step 
    0
    x200022_g_StartTime 
    0
    x200022_g_PlayerNum 
    0
    x200022_g_PlayerId
    = {-1,-1,-1,-1,-1,-1}

    function 
    x200022_DisplayBonus(sceneIdmissionIndex)
        
    end

    --**********************************
    --
    ÈÎÎñÈë¿Úº¯Êý
    --**********************************
    function 
    x200022_OnDefaultEventsceneIdselfIdtargetIdmissionIndex )    --µã»÷¸ÃÈÎÎñºóÖ´Ðд˽ű¾

        
    --Èç¹ûÍæ¼ÒÍê³É¹ýÕâ¸öÈÎÎñ
        
    if (IsMissionHaveDone(sceneId,selfId,x200022_g_MissionId) > then
            
    return
        elseif( 
    IsHaveMission(sceneId,selfId,x200022_g_MissionId) > 0)  then
            
    if GetName(sceneIdtargetId) == x200022_g_Name1   then
                x200022_OnContinue
    sceneIdselfIdtargetId )
            
    end
        
        
    --Âú×ãÈÎÎñ½ÓÊÕÌõ¼þ
        
    elseif x200022_CheckAccept(sceneId,selfId) > 0 then
            
    -- ÅжÏÊÇÔÚ¸±±¾£¬
            
    if GetName(sceneIdtargetId) == x200022_g_Name   then
                
    --·¢ËÍÈÎÎñ½ÓÊÜʱÏÔʾµÄÐÅÏ¢
                BeginEvent
    (sceneId)
                    
    AddText(sceneId,x200022_g_MissionName)
                    
    AddText(sceneId,x200022_g_MissionInfo)
                    
    AddText(sceneId,"#{M_MUBIAO}#r")
                    
    AddText(sceneId,x200022_g_MissionTarget)
                    
    AddText(sceneId,"#{M_SHOUHUO}#r")
                    for 
    iitem in x200022_g_RadioItemBonus do
                        
    AddRadioItemBonussceneIditem.iditem.num )
                    
    end
                    AddMoneyBonus
    sceneIdx200022_g_MoneyBonus )
                
    EndEvent( )
                
    DispatchMissionInfo(sceneId,selfId,targetId,x200022_g_ScriptId,x200022_g_MissionId)
            
    end
        end

    end

    function x200022_OnMissionRefuse()
    end

    --**********************************
    --
    ʼþÁбíÑ¡ÖÐÒ»Ïî
    --**********************************
    function 
    x200022_OnEventRequestsceneIdselfIdtargetIdeventId )
        
        if 
    GetName(sceneIdtargetId) == x200022_g_Name   then
            
    if GetNumText() == 0    then
                BeginEvent
    (sceneId)
                    
    AddText(sceneId,x200022_g_MissionName)
                    
    AddText(sceneId,x200022_g_MissionInfo)
                    
    AddText(sceneId,"#{M_MUBIAO}#r")
                    
    AddText(sceneId,x200022_g_MissionTarget)
                
    EndEvent( )
                
    DispatchMissionInfo(sceneId,selfId,targetId,x200022_g_ScriptId,x200022_g_MissionId)
            
    end
        end
        
    end

    --**********************************
    --
    ÁоÙʼþ
    --**********************************
    function 
    x200022_OnEnumeratesceneIdselfIdtargetId )
        --
    Èç¹ûÍæ¼ÒÍê³É¹ýÕâ¸öÈÎÎñ
        
    if IsMissionHaveDone(sceneId,selfId,x200022_g_MissionId) > 0 then
            
    return 
        --
    Èç¹ûÒѽӴËÈÎÎñ
        
    elseif IsHaveMission(sceneId,selfId,x200022_g_MissionId) > 0 then
            
    if GetName(sceneIdtargetId) == x200022_g_Name1   then
                AddNumText
    (sceneIdx200022_g_ScriptId,x200022_g_MissionName,2,-1);
            
    end
        
    --Âú×ãÈÎÎñ½ÓÊÕÌõ¼þ
        
    elseif x200022_CheckAccept(sceneId,selfId) > 0 then
            
    if GetName(sceneIdtargetId) == x200022_g_Name    then
                AddNumText
    (sceneId,x200022_g_ScriptId,x200022_g_MissionName,1,-1);
            
    end
        end

    end

    --**********************************
    -- 
    --**********************************
    function 
    x200022_OnLockedTargetsceneIdselfIdtargetIdmissionIndex )

    end

    --**********************************
    --
    ¼ì²â½ÓÊÜÌõ¼þ
    --**********************************
    function 
    x200022_CheckAcceptsceneIdselfId )
        -- 
    ½ÓÈÎÎñµÄÌõ¼þÊÇ£¬ÈËÎï´ïµ½20¼¶ÒÔÉÏ£¬²¢ÇÒÍê³ÉÁËÇ°ÐøÈÎÎñ
        
    if GetLevel(sceneIdselfId) < 40   then
            
    return 0
        end
        
        
    if IsMissionHaveDone(sceneIdselfIdx200022_g_PreMissionId ) < 1   then
            
    return 0
        end
        
        
    return 1
    end

    --**********************************
    --
    ½ÓÊÜ
    --**********************************
    function 
    x200022_OnAcceptsceneIdselfIdtargetId )

        -- 
    ¼ì²âÍæ¼ÒÊDz»ÊÇÒѾ­Íê³É¹ýÕâ¸öÈÎÎñ
        
    if IsMissionHaveDone(sceneIdselfIdx200022_g_MissionId) > 0   then
            
    return
        
    end
        
        
    if x200022_CheckAccept(sceneIdselfId)  < 1   then
            
    return
        
    end

        
    if x200022_g_Step ~= 0  and x200022_g_Step ~= 2   then
            BeginEvent
    (sceneId)
                
    AddText(sceneId"Møc tiêu ðang b§n, xin ðþi mµt lát!")
            
    EndEvent()
            
    DispatchMissionTips(sceneIdselfId)
            return
        
    end
        
        
    -- ÕâÀïµÄ»¤ËÍÐèÒªÆô¶¯³¡¾°µÄ¼ÆʱÆ÷£¬²»ÄÜʹÓÃÈÎÎñ¼ÆʱÆ÷
        
    if x200022_g_Step == 0   then
            local ret 
    AddMissionsceneId,selfIdx200022_g_MissionIdx200022_g_ScriptId00)
            if 
    ret <= 0 then
                Msg2Player
    (  sceneIdselfId,"#YNh§t ký nhi®m vø cüa các hÕ ðã ð¥y" MSG2PLAYER_PARA )
                return
            
    end
            local misIndex 
    GetMissionIndexByID(sceneId,selfId,x200022_g_MissionId)
            -- 
    Õâ¸ö³¡¾°¼ÆʱÆ÷£¬Ó¦¸ÃÊÇÒ»Ö±±»Õâ¸ö»î¶¯Õ¼Óõģ¬ËùÒÔ£¬Ö»ÒªÕâ¸öÖµ²»µÈÓÚ-1£¬¾Í²»ÒªÔÙÉêÇë
            
    if x200022_g_SceneTimerIndex == -1  then
                x200022_g_SceneTimerIndex 
    SetTimer(sceneIdselfIdx200022_g_ScriptId"OnSceneTimer"1)
                
    SetMissionByIndex(sceneId,selfId,misIndex,3,x200022_g_SceneTimerIndex)
            
    end
            
            x200022_g_StartTime 
    LuaFnGetCurrentTime()
            
    x200022_g_Step 1
            
            Msg2Player
    (  sceneIdselfId,"#YNh§n nhi®m vø#W: Dù vÕn ng߶i, ta vçn cÑ tiªn",MSG2PLAYER_PARA )
            
            
    SetMissionByIndex(sceneId,selfId,misIndex,2,0)
        
    end
        
        
    if x200022_g_Step == 2   then
            
    -- °ÑÕâ¸öÍæ¼Ò¼Óµ½»¤ËÍÁбíÖÐÈ¥
            
            local ret 
    AddMissionsceneId,selfIdx200022_g_MissionIdx200022_g_ScriptId00)
            if 
    ret <= 0 then
                Msg2Player
    (  sceneIdselfId,"#YNh§t ký nhi®m vø cüa các hÕ ðã ð¥y" MSG2PLAYER_PARA )
                return
            
    end
            
            x200022_g_PlayerNum 
    x200022_g_PlayerNum 1
            x200022_g_PlayerId
    [x200022_g_PlayerNum] = selfId
            Msg2Player
    (  sceneIdselfId,"#YNh§n nhi®m vø#W: Dù vÕn ng߶i, ta vçn cÑ tiªn",MSG2PLAYER_PARA )
            
            
    local misIndex GetMissionIndexByID(sceneId,selfId,x200022_g_MissionId)
            
    SetMissionByIndex(sceneId,selfId,misIndex,2,0)
        
    end
        
    end

    --**********************************
    --
    ³¡¾°Timer
    --**********************************
    function 
    x200022_OnSceneTimersceneIdselfId )

        if 
    LuaFnIsObjValid(sceneId,selfId)~=1 then
            
    return
        
    end

        local misIndex 
    GetMissionIndexByID(sceneId,selfId,x200022_g_MissionId)
        if 
    not misIndex or misIndex<or misIndex>5000 then
            
    return
        
    end
        
        local nStep
    =GetMissionParam(sceneId,selfId,misIndex,2)
        
        
    x200022_g_PlayerId[1] = selfId
        x200022_g_PlayerNum 
    1
        
        
    if nStep==100 then
            x200022_g_SceneTimerIndex
    =GetMissionParam(sceneId,selfId,misIndex,3)
            
    StopTimer(sceneIdx200022_g_SceneTimerIndex)
            return
        
    end
        
        
    if nStep == 0 then
            x200022_g_StartTime 
    LuaFnGetCurrentTime()
            --
    nStep 1
            SetMissionByIndex
    (sceneId,selfId,misIndex,2,1)
        
    end
        
        
    if nStep 3  then
            local nSelfId 
    = -1
            local bHavePlayer 
    0
        
    --    if LuaFnIsObjValid(sceneIdnSelfId)==1  and
        --         
    LuaFnIsCanDoScriptLogic(sceneIdnSelfId) == 0   then
                
    for i=1x200022_g_PlayerNum  do    
                    if 
    x200022_g_PlayerId[i] ~= -1  then
                        
    if LuaFnIsObjValid(sceneIdx200022_g_PlayerId[i])==1  and
                             
    LuaFnIsCanDoScriptLogic(sceneIdx200022_g_PlayerId[i]) == 1   then
                            bHavePlayer 
    1
                            nSelfId 
    x200022_g_PlayerId[i]
                            
                            break
                        
    end
                    end
                end
        
    --    else
        --        
    bHavePlayer 1
        
    --    end
            
            
    if bHavePlayer == 0   then
                
    -- ¼ÆʱÆ÷Í£Ö¹£¬Çå³ýËùÓеÄÈ«¾Ö±äÁ¿
                
    --x200022_g_Step 0
                SetMissionByIndex
    (sceneId,selfId,misIndex,2,100)
                
    x200022_g_StartTime 0
                x200022_g_PlayerId
    [1] = -1
                x200022_g_PlayerId
    [2] = -1
                x200022_g_PlayerId
    [3] = -1
                x200022_g_PlayerId
    [4] = -1
                x200022_g_PlayerId
    [5] = -1
                x200022_g_PlayerId
    [6] = -1
                x200022_g_PlayerNum 
    0
                x200022_g_StartTime 
    0
                
                
    return
            
    end
            
    --end
        end
        
        
    -- ¼ì²âÖ»ÒªÇÇ·åºÍ°¢ÖéÖеÄÈκÎÒ»¸öÈ˲»ÔÚ³¡¾°ÖÐÁË£¬¾ÍÇå¿ÕËùÓеÄÈ«¾Ö±äÁ¿
        local nNpcNum 
    GetMonsterCount(sceneId)
        
    local kk 0
        local bHaveQiao 
    0
        
    for kk 0nNpcNum-do
            
    local nNpcId GetMonsterObjID(sceneId,kk)
            if 
    GetName(sceneIdnNpcId)  == "Ki«u Phong"  then
                bHaveQiao 
    1+bHaveQiao
            end
            
            
    if GetName(sceneIdnNpcId)  == "A Châu"  then
                bHaveQiao 
    1+bHaveQiao
            end
        end
        
        
    if     bHaveQiao ~= 2   then
            
    --StopTimer(sceneIdx200022_g_SceneTimerIndex)
            --
    x200022_g_SceneTimerIndex = -1
            nStep 
    0
            SetMissionByIndex
    (sceneId,selfId,misIndex,2,100)
            
    x200022_g_StartTime 0
            x200022_g_PlayerId
    [1] = -1
            x200022_g_PlayerId
    [2] = -1
            x200022_g_PlayerId
    [3] = -1
            x200022_g_PlayerId
    [4] = -1
            x200022_g_PlayerId
    [5] = -1
            x200022_g_PlayerId
    [6] = -1
            x200022_g_PlayerNum 
    0
            x200022_g_StartTime 
    0
            
            
    return
        
    end
        
        
        
    if nStep == 1   then
            
    -- ¸øС¶ÓµÄËùÓÐÍæ¼Ò·¢ËÍÒ»Æð»¤Ë͵ÄÑûÇë
            
    --local groupId AllocateMonsterGroup(sceneId)
            
    local nMonsterNum GetMonsterCount(sceneId)
            
    local jj 0
            local nQiaofenId 
    0
            local bHaveMonster 
    0
            
    for jj=0nMonsterNum-do
                
    local nMonsterId GetMonsterObjID(sceneId,jj)
                if 
    GetName(sceneIdnMonsterId)  == "Ki«u Phong"  then
                    nQiaofenId 
    nMonsterId
                    bHaveMonster 
    1
                end
            end
            
            
    for i=1x200022_g_PlayerNum  do    
                if 
    x200022_g_PlayerId[i] ~= -1  then
                    
    if LuaFnIsObjValid(sceneIdx200022_g_PlayerId[i])==1  and
                         
    LuaFnIsCanDoScriptLogic(sceneIdx200022_g_PlayerId[i]) == 1   then
                        bHavePlayer 
    1
                        nSelfId 
    x200022_g_PlayerId[i]
                        
                        break
                    
    end
                end
            end
    --        PrintNum(nSelfId)
    --        
    PrintNum(x200022_g_PlayerNum)
            
    local nTeamCount GetNearTeamCount(sceneIdnSelfId)
            for 
    i=0nTeamCount-do
                
    local PlayerId GetNearTeamMember(sceneIdnSelfIdi)
                if 
    PlayerId ~= nSelfId    then
                    CallScriptFunction
    ((200022), "OnDefaultEvent"sceneIdPlayerIdnQiaofenId )
                
    end
            end
            
            
    -- ¼ÇÏÂÕâ¸ö½ÓÁËÈÎÎñµÄÍæ¼Ò
            
    --x200022_g_PlayerNum 1
            
    --x200022_g_PlayerId[1]= nSelfId
            x200022_g_StartTime 
    LuaFnGetCurrentTime()
            
            --
    x200022_g_Step 2
            SetMissionByIndex
    (sceneId,selfId,misIndex,2,2)

            
    CallScriptFunction((200060), "Paopao",sceneId"Ki«u Phong""LÕc Dß½ng""#{juqing_start_007}")
            
        elseif 
    nStep == 2   then
            
    -- µÈ´ý5Ã룬Õâ¸öʱ¼äÊǵȴý±ðµÄÍæ¼ÒÒ»Æð½øÐÐÕâ¸ö»¤Ë͵Äʱ¼ä
            
    if LuaFnGetCurrentTime() - x200022_g_StartTime 5   then
                CallScriptFunction
    ((200060), "Paopao",sceneId"Ki«u Phong""LÕc Dß½ng""#{juqing_start_008}")
                --
    x200022_g_Step 3
                SetMissionByIndex
    (sceneId,selfId,misIndex,2,3)
                return
            
    end
            
        
    elseif nStep == 3   then
            CallScriptFunction
    ((200060), "Paopao",sceneId"Ki«u Phong""LÕc Dß½ng""#{juqing_start_009}")
            
            -- 
    ÉêÇëÒ»¸öѲÂß×飬¿ªÊ¼×ß
            
    --local groupId AllocateMonsterGroup(sceneId)

            -- 
    Ô­À´ÊÇÓõÄÊÇÉêÇëÒ»¸öеÄѲÂß×飬ÏÖÔÚʹÓÃÒ»¸ö¹Ì¶¨µÄѲÂß×éÀ´Íê³É
            
    -- ÔÚ¿ªÊ¼Õâ¸öȺÌ廤ËÍÇ°£¬ÏÖÇå¿ÕÒ»ÏÂÕâ¸ö×é
            ReleaseMonsterGroup
    (sceneIdx200022_g_GroupId)
            
    local nMonsterNum GetMonsterCount(sceneId)
            
    local jj 0
            local nHaveMonster 
    0
            local nQiaofenId 
    0
            
    for jj=0nMonsterNum-do
                
    local nMonsterId GetMonsterObjID(sceneId,jj)
                if 
    GetName(sceneIdnMonsterId)  == "A Châu"  then
                    AddGroupMember
    (sceneIdx200022_g_GroupIdnMonsterId21)
                    
    SetConvoyNPC(sceneIdnMonsterId1)
                    
    nHaveMonster nHaveMonster 1
                end
                
    if GetName(sceneIdnMonsterId)  == "Ki«u Phong"  then
                    AddGroupLeader
    (sceneIdx200022_g_GroupIdnMonsterId)
                    
    nQiaofenId nMonsterId
                    nHaveMonster 
    nHaveMonster 1
                end
            end
            SetIntervalDistOfGroupMember
    (sceneIdx200022_g_GroupId1)
            
            
    RefixPosOfGroupMember(sceneId,x200022_g_GroupId,nQiaofenId)
            --
    µÃµ½»¤ËÍѲÂß·Ïß
            SetPatrolId
    (sceneIdnQiaofenIdx200022_g_PatrolPathIndex)
            
            --
    x200022_g_Step 4
            SetMissionByIndex
    (sceneId,selfId,misIndex,2,4)
            
        elseif 
    nStep == 4   then
        
            
    -- ¼ÆʱÆ÷ÿ´Î¼ì²âÍæ¼ÒÊDz»ÊÇÓÐÈÎÎñʧ°ÜµÄÇé¿ö³öÏÖ£¬
            
    for i=1x200022_g_PlayerNum  do
                -- 
    Èç¹ûÍæ¼ÒÀ뿪Á˳¡¾°£¬¾ÍÈÎÎñʧ°Ü
                
    if x200022_g_PlayerId[i] ~= -1   then
                    
    if LuaFnIsObjValid(sceneIdx200022_g_PlayerId[i])==0  or
                         
    LuaFnIsCanDoScriptLogic(sceneIdx200022_g_PlayerId[i]) == 0  then
                        x200022_g_PlayerId
    [i] = -1
                    end    
                end
            end
            
            
    -- ÔÚÕâÀïÌí¼ÓÂåÑô¾ÓÃñµÄÅÝÅÝ£¬Ôö¼ÓÆø·Õ
            
            
            
    -- ¼ì²â»¤Ë͵ÄÍê³ÉÌõ¼þ£¬ÇÇ·å ×ßµ½ÁËÄ¿±êµã
            local nMonsterNum 
    GetMonsterCount(sceneId)
            
    local jj 0
            local bHaveMonster 
    0
            
    for jj=0nMonsterNum-do
                
    local nMonsterId GetMonsterObjID(sceneId,jj)
                if 
    GetName(sceneIdnMonsterId)  == "Ki«u Phong"  then
                    
    -- ÅжÏÇÇ·åÊDz»ÊÇ×ßµ½ÁË
                    local targetX
    targetZ GetWorldPos(sceneIdnMonsterId)
                    
    local xGetLastPatrolPoint(sceneIdx200022_g_PatrolPathIndex)
                    
    local distance floor(sqrt((targetX-x)*(targetX-x)+(targetZ-z)*(targetZ-z)))
                    
    local Pos_X,Pos_Y=GetWorldPos(sceneId,selfId)
                    
                    if 
    floor(sqrt((targetX-Pos_X)*(targetX-Pos_X)+(targetZ-Pos_Y)*(targetZ-Pos_Y)))>=20 then
                        BeginEvent
    (sceneId)
                            
    AddText(sceneId"Hµ t¯ng Ki«u Phong th¤t bÕi, khoäng cách quá xa!")
                        
    EndEvent()
                        
    DispatchMissionTips(sceneIdselfId)
                        for 
    kk=0nMonsterNum-do
                            
    local nMonsterId1 GetMonsterObjID(sceneId,kk)
                            if 
    GetName(sceneIdnMonsterId1)  == "Ki«u Phong" or  GetName(sceneIdnMonsterId1)  == "A Châu" then
                                
    --SetCharacterDieTime(sceneId,nMonsterId1,100)
                                
    LuaFnDeleteMonster(sceneIdnMonsterId1)
                            
    end
                        end
                        local MstId
    =LuaFnCreateMonster(sceneId,1,378,265,3,0,113001)
                        
    SetCharacterName(sceneId,MstId,"Ki«u Phong")
                        
    local MstId=LuaFnCreateMonster(sceneId,5,382,265,3,0,113001)
                        
    SetCharacterName(sceneId,MstId,"A Châu")
                        
    local misIndex GetMissionIndexByID(sceneIdselfIdx200022_g_MissionId)--µÃµ½ÈÎÎñÔÚ20¸öÈÎÎñÖеÄÐòÁкÅ
                        SetMissionByIndex
    (sceneIdselfIdmisIndex02)
                        
    SetMissionByIndex(sceneId,selfId,misIndex,2,100)
                        return
                    
    end
                    
                    
    if distance<=2   then
                        
    --x200022_g_Step 5
                        SetMissionByIndex
    (sceneId,selfId,misIndex,2,5)
                        -- 
    ֪ͨËùÓÐÈË£¬»¤Ëͳɹ¦
                        
    for i=1x200022_g_PlayerNum   do
                            if 
    x200022_g_PlayerId[i]~=-1   then
                                local misIndex 
    GetMissionIndexByID(sceneIdx200022_g_PlayerId[i], x200022_g_MissionId)--µÃµ½ÈÎÎñÔÚ20¸öÈÎÎñÖеÄÐòÁкÅ
                                SetMissionByIndex
    (sceneIdx200022_g_PlayerId[i], misIndex01)
                                
    BeginEvent(sceneId)
                                    
    AddText(sceneId"Hµ t¯ng Ki«u Phong thành công")
                                
    EndEvent()
                                
    DispatchMissionTips(sceneIdx200022_g_PlayerId[i])
                            
    end
                        end
                    end
                end
            end
            
        
    elseif nStep == 5  then
            
    --º°»°¾çÇé
            CallScriptFunction
    ((200060), "Paopao",sceneId"T× Kinh Lôi""LÕc Dß½ng""#{JQ_PaoPao_79}"
            --
    x200022_g_Step 6
            SetMissionByIndex
    (sceneId,selfId,misIndex,2,6)
            
    x200022_g_StartTime LuaFnGetCurrentTime()
            
        elseif 
    nStep == 6  then
            
    if LuaFnGetCurrentTime()-x200022_g_StartTime 3   then
                CallScriptFunction
    ((200060), "Paopao",sceneId"Ki«u Phong""LÕc Dß½ng""#{JQ_PaoPao_80}")
                --
    x200022_g_Step 7
                SetMissionByIndex
    (sceneId,selfId,misIndex,2,7)
                
    x200022_g_StartTime LuaFnGetCurrentTime()
            
    end
            
        
    elseif nStep == 7  then
            
    if LuaFnGetCurrentTime()-x200022_g_StartTime 3   then
                CallScriptFunction
    ((200060), "Paopao",sceneId"T× Kinh Lôi""LÕc Dß½ng""#{JQ_PaoPao_81}")
                --
    x200022_g_Step 8
                SetMissionByIndex
    (sceneId,selfId,misIndex,2,8)
                
    x200022_g_StartTime LuaFnGetCurrentTime()
            
    end
            
        
    elseif nStep == 8  then
            
    if LuaFnGetCurrentTime()-x200022_g_StartTime 5   then
            
                
    -- ¼ÆʱÆ÷Í£Ö¹£¬Çå³ýËùÓеÄÈ«¾Ö±äÁ¿
                
    --StopTimer(sceneIdx200022_g_SceneTimerIndex)
                
                --
    x200022_g_SceneTimerIndex = -1
                
    --x200022_g_Step 0
                SetMissionByIndex
    (sceneId,selfId,misIndex,2,100)
                
    x200022_g_StartTime 0
                x200022_g_PlayerId
    [1] = -1
                x200022_g_PlayerId
    [2] = -1
                x200022_g_PlayerId
    [3] = -1
                x200022_g_PlayerId
    [4] = -1
                x200022_g_PlayerId
    [5] = -1
                x200022_g_PlayerId
    [6] = -1
                x200022_g_PlayerNum 
    0
                x200022_g_StartTime 
    0
                
                
    --ɾ³ýÇÇ·åºÍ°¢Öì
              local nMonsterNum 
    GetMonsterCount(sceneId)
                
    local ii 0
                local bHaveMonster 
    0
                
    for ii=0nMonsterNum-do
                    
    local nMonsterId GetMonsterObjID(sceneId,ii)
                    if 
    GetName(sceneIdnMonsterId)  == "Ki«u Phong"  then
                        LuaFnDeleteMonster
    (sceneIdnMonsterId)
                    
    end
                    
                    
    if GetName(sceneIdnMonsterId)  == "A Châu"  then
                        LuaFnDeleteMonster
    (sceneIdnMonsterId)
                    
    end
                end
            end    
            
            local MstId
    =LuaFnCreateMonster(sceneId,1,378,265,3,0,113001)
            
    SetCharacterName(sceneId,MstId,"Ki«u Phong")
            
    local MstId=LuaFnCreateMonster(sceneId,5,382,265,3,0,113001)
            
    SetCharacterName(sceneId,MstId,"A Châu")
        
    end
        
    end

    --**********************************
    --
    ·ÅÆú
    --**********************************
    function 
    x200022_OnAbandonsceneIdselfId )
      --
    ½«»¤ËÍnpc˲ÒÆ»ØÔ­À´Î»ÖÃ
      DelMission
    (sceneIdselfIdx200022_g_MissionId)
      
    end

    --**********************************
    --
    ¼ÌÐø
    --**********************************
    function 
    x200022_OnContinuesceneIdselfIdtargetId )
        
        if 
    x200022_CheckSubmit(sceneIdselfId) ~= 1 then 
            BeginEvent
    (sceneId)
                
    strText "Các hÕ ðã hoàn thành nhi®m vø chßa?"
                
    AddText(sceneId,strText);
            
    EndEvent(sceneId)
            
    DispatchEventList(sceneId,selfId,targetId)
            return
        
    end
        
        BeginEvent
    (sceneId)
            
    AddText(sceneId,x200022_g_Name)
            
    AddText(sceneId,x200022_g_MissionComplete)
            
    AddText(sceneId,"#{M_MUBIAO}#r")
            
    AddText(sceneId,x200022_g_MissionTarget)
            
    AddText(sceneId,"#{M_SHOUHUO}#r")
            
    AddMoneyBonussceneIdx200022_g_MoneyBonus )
            for 
    iitem in x200022_g_RadioItemBonus do
                
    AddRadioItemBonussceneIditem.iditem.num )
            
    end
        EndEvent
    ( )
        
        
    DispatchMissionContinueInfo(sceneIdselfIdtargetIdx200022_g_ScriptIdx200022_g_MissionId)

    end

    --**********************************
    --
    ¼ì²âÊÇ·ñ¿ÉÒÔÌá½»
    --**********************************
    function 
    x200022_CheckSubmitsceneIdselfId )
        
    local misIndex GetMissionIndexByID(sceneIdselfIdx200022_g_MissionId)--µÃµ½ÈÎÎñÔÚ20¸öÈÎÎñÖеÄÐòÁкÅ
        local bComplete 
    GetMissionParam(sceneIdselfIdmisIndex0)    
        if 
    bComplete == 1 then
            
    return 1
        
    else
            return 
    0
        end
    end

    --**********************************
    --
    Ìá½»
    --**********************************
    function 
    x200022_OnSubmitsceneIdselfIdtargetIdselectRadioIdmissionIndex )
        -- 
    ¼ì²âÊDz»ÊÇÂú×ãÍê³ÉÈÎÎñµÄÌõ¼þ
        
    if x200022_CheckSubmit(sceneIdselfId) ~= 1 then 
            
    return
        
    end
        BeginAddItem
    (sceneId)
        for 
    iitem in x200022_g_RadioItemBonus do
            if 
    item.id == selectRadioId then
                AddItem
    sceneId,item.iditem.num )
            
    end
        end
        ret 
    EndAddItem(sceneId,selfId)
        --
    Ìí¼ÓÈÎÎñ½±Àø
        
    if ret 1 then
            
    --ÈÎÎñ½±ÀøûÓмӳɹ¦
            BeginEvent
    (sceneId)
                
    strText "Nhi®m vø th¤t bÕi!"
                
    AddText(sceneId,strText);
            
    EndEvent(sceneId)
            
    DispatchMissionTips(sceneId,selfId)
            return
        
    end
        AddItemListToHuman
    (sceneId,selfId)

        
    AddMoney(sceneId,selfId,x200022_g_MoneyBonus );
        
    LuaFnAddExpsceneIdselfId,x200022_g_exp)
        
        
    DelMissionsceneId,selfIdx200022_g_MissionId )
        --
    ÉèÖÃÈÎÎñÒѾ­±»Íê³É¹ý
        MissionCom
    sceneId,selfIdx200022_g_MissionId )
        
    Msg2Player(  sceneIdselfId,"#YNhi®m vø hoàn thành#W: Dù vÕn ng߶i, ta vçn cÑ tiªn",MSG2PLAYER_PARA )

    end

    function x200022_OnHumanDie(sceneIdselfId)

    end

    --**********************************
    --
    ¶¨Ê±Ê¼þ
    --**********************************
    function 
    x200022_OnTimer(sceneId,selfId)--,missionIndex)
        
    end 

    Chú ý cái nStep là đoạn mình mới thêm vào. Đọc chút là hiểu.
    Mình copy cái này vào file juxianzhuang_03.lua là fix được nhiệm vụ kịch tình Kiều Phong hả Sói!
    Khách viếng thăm hãy cùng phiyeutuan08 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #12
    Thành Viên aphrodite's Avatar
    Ngày tham gia
    Apr 2016
    Bài viết
    49
    Thanks
    65
    Thanked 2 Times in 2 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    mình hộ tống xong ko trả quest đc
    Khách viếng thăm hãy cùng aphrodite xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #13
    Thành Viên
    Ngày tham gia
    May 2007
    Bài viết
    453
    Thanks
    280
    Thanked 24 Times in 19 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Mình sử dụng file của chủ topic cũng không trả được Quest chỗ Từ Tịnh Lôi!
    Làm theo cách của Sói thì Kiều Phong di chuyển nhưng đến cho Từ Tịnh Lôi cũng không trả được quest!
    Mong cao nhân giúp!
    Khách viếng thăm hãy cùng phiyeutuan08 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #14
    Thành Viên Dark.Hades's Avatar
    Ngày tham gia
    Apr 2014
    Đang ở
    cd /tmp/
    Bài viết
    646
    Thanks
    205
    Thanked 626 Times in 145 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi phiyeutuan08 [Only registered and activated users can see links. ]
    Mình sử dụng file của chủ topic cũng không trả được Quest chỗ Từ Tịnh Lôi!
    Làm theo cách của Sói thì Kiều Phong di chuyển nhưng đến cho Từ Tịnh Lôi cũng không trả được quest!
    Mong cao nhân giúp!
    diff file rồi merge code trả quest là ok
    Khách viếng thăm hãy cùng Dark.Hades xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #15
    Super Moderator Sói Đẹp Trai's Avatar
    Ngày tham gia
    Apr 2011
    Đang ở
    地獄
    Bài viết
    3,991
    Thanks
    369
    Thanked 4,047 Times in 1,402 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Code của mình nó chỉ là cái tư tưởng để fix các Q sau này thôi, còn đoạn code đó tùy sv của bạn như nào. Nó run đc hay ko còn thuộc vào tên của NPC có khớp file không nữa. Ngoài ra còn nhiều yếu tố khác...

    --- Chế độ gộp bài viết ---

    Lưu ý thêm là khi làm Q chính tuyến chỗ Thạch Lâm hộ tống thằng gì ấy quên tên rồi. Script đó nó sẽ LỖI không chạy được. Cái này nguyên nhân cũng do cái step kia thôi. Thế nên mình nói toàn bộ Q hộ tống về sau (Q thạch lâm, Bảo tiêu đậu đậu - Tuyết nguyên, Linh hồn của A vũ - Miêu cuơng..., Q Quỳnh Châu) đều dùng cơ chế này sẽ ok hết.
    Khách viếng thăm hãy cùng Sói Đẹp Trai xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. Các thành viên gởi lời cảm ơn đến Sói Đẹp Trai vì bài viết này !

    phiyeutuan08 (19-10-17)

  7. #16
    Thành Viên
    Ngày tham gia
    May 2007
    Bài viết
    453
    Thanks
    280
    Thanked 24 Times in 19 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi Sói Đẹp Trai [Only registered and activated users can see links. ]
    Code của mình nó chỉ là cái tư tưởng để fix các Q sau này thôi, còn đoạn code đó tùy sv của bạn như nào. Nó run đc hay ko còn thuộc vào tên của NPC có khớp file không nữa. Ngoài ra còn nhiều yếu tố khác...

    --- Chế độ gộp bài viết ---

    Lưu ý thêm là khi làm Q chính tuyến chỗ Thạch Lâm hộ tống thằng gì ấy quên tên rồi. Script đó nó sẽ LỖI không chạy được. Cái này nguyên nhân cũng do cái step kia thôi. Thế nên mình nói toàn bộ Q hộ tống về sau (Q thạch lâm, Bảo tiêu đậu đậu - Tuyết nguyên, Linh hồn của A vũ - Miêu cuơng..., Q Quỳnh Châu) đều dùng cơ chế này sẽ ok hết.
    Đã sửa được nhiệm vụ kịch tình 40 rồi, cám ơn Sói nhiều! Đang cùng Tiêu Phong chiến quần hùng phê quá!
    Khách viếng thăm hãy cùng phiyeutuan08 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #17
    Thành Viên
    Ngày tham gia
    Sep 2011
    Bài viết
    703
    Thanks
    87
    Thanked 277 Times in 164 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi phiyeutuan08 [Only registered and activated users can see links. ]
    Đã sửa được nhiệm vụ kịch tình 40 rồi, cám ơn Sói nhiều! Đang cùng Tiêu Phong chiến quần hùng phê quá!
    share scipt đi bồ tèo ơi

    mò mãi mà chưa dc nè
    Khách viếng thăm hãy cùng phamvuong xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  9. #18
    Thành Viên
    Ngày tham gia
    May 2007
    Bài viết
    453
    Thanks
    280
    Thanked 24 Times in 19 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi phamvuong [Only registered and activated users can see links. ]
    share scipt đi bồ tèo ơi

    mò mãi mà chưa dc nè
    Đây bạn hiền ơi!
    Mình cũng đang xài 0.26 như bạn mà.
    [Only registered and activated users can see links. ]
    Đường dẫn cho ai chưa biết: tlbb\Public\Data\Script\event\juqing
    Khách viếng thăm hãy cùng phiyeutuan08 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. Các thành viên gởi lời cảm ơn đến phiyeutuan08 vì bài viết này !

    muwa04 (11-08-22)

  11. #19
    Thành Viên
    Ngày tham gia
    Sep 2011
    Bài viết
    703
    Thanks
    87
    Thanked 277 Times in 164 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi phiyeutuan08 [Only registered and activated users can see links. ]
    Đây bạn hiền ơi!
    Mình cũng đang xài 0.26 như bạn mà.
    [Only registered and activated users can see links. ]
    Đường dẫn cho ai chưa biết: tlbb\Public\Data\Script\event\juqing
    hự mình đang chạy sv của darkhades
    chắc script cũng giống nhau nhỉ
    tks bạn hiền
    Khách viếng thăm hãy cùng phamvuong xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  12. #20
    Thành Viên Dark.Hades's Avatar
    Ngày tham gia
    Apr 2014
    Đang ở
    cd /tmp/
    Bài viết
    646
    Thanks
    205
    Thanked 626 Times in 145 Posts

    Ðề: Share Nhiệm Vụ Kịch Tình Dù Vạn Người Ta Vẫn Cứ Tiến

    Trích dẫn Gửi bởi phamvuong [Only registered and activated users can see links. ]
    hự mình đang chạy sv của darkhades
    chắc script cũng giống nhau nhỉ
    tks bạn hiền
    Bác test thử xem nhé, nếu chạy thì báo mình, tiện thể update source sv luôn
    Khách viếng thăm hãy cùng Dark.Hades xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 
Trang 2 của 4 Đầu tiênĐầu tiên 1 2 3 4 CuốiCuối

Các Chủ đề tương tự

  1. Trả lời: 72
    Bài viết cuối: 15-03-15, 02:17 PM
  2. [KT] Tiền Du Long (100) Rơi tiền ngẫu nhiên ?
    Bởi newhorizon1811 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 09-08-13, 11:20 PM
  3. Sever Nhiều Người Biết Ít Người Chơi Đây, Mời Vào
    Bởi kadjck2 trong diễn đàn Thục Sơn Kỳ Hiệp
    Trả lời: 0
    Bài viết cuối: 24-03-13, 07:25 PM
  4. Sever Nhiều Người Biết Ít Người Chơi Đây
    Bởi kadjck2 trong diễn đàn Thục Sơn Kỳ Hiệp
    Trả lời: 0
    Bài viết cuối: 22-03-13, 07:42 PM
  5. Cần người rip skin bao nhiêu tiền ts2gvn trả
    Bởi TS2GVN trong diễn đàn SQL Server & Website
    Trả lời: 2
    Bài viết cuối: 22-04-11, 11:27 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 03:40 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.