[TLBB] Chia sẻ Script GiftCode
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 6 của 6
  1. #1
    Thành Viên s2bac95's Avatar
    Ngày tham gia
    Nov 2011
    Bài viết
    220
    Thanks
    53
    Thanked 70 Times in 51 Posts

    Chia sẻ Script GiftCode

    Thao tác ở client:
    PHP Code:
                Clear_XSCRIPT();
                    
    Set_XSCRIPT_Function_Name("GiftCode");
                    
    Set_XSCRIPT_ScriptID(id scipt);
                    
    Set_XSCRIPT_Parameter(0,xâu truyền về);
                    
    Set_XSCRIPT_ParamCount(1);
                
    Send_XSCRIPT(); 
    Script:
    PHP Code:

    x990127_g_scriptId 
    990127

    x990127_g_MaxBagSize 
    60        
    x990127_g_Key 
    = {
                    
    1234567891,
                    }


    --**********************************
    -- 
    ʼþ½»»¥Èë¿Ú
    --**********************************
    function 
    x990127_OnDefaultEventsceneIdselfId )
        if 
    GetNumText() =100 then
            x990127_Check
    (sceneIdselfId0,0)
        
    end
    end

    --**********************************
    --
    ×°±¸¹¦ÄÜ
    --**********************************
    function 
    x990127_BackToIndexsceneIdselfId )
        
    x399999_OnDefaultEventsceneIdselfId, -)
    end
    --**********************************
    --
    Íæ¼ÒÆÁÄ»ÖмäÌáʾ
    --**********************************
    function 
    x990127_TipssceneIdselfIdstr )
        
    BeginEventsceneId )
            
    AddTextsceneIdstr )
        
    EndEventsceneId )
        
    DispatchMissionTipssceneIdselfId )
    end

    --**********************************
    --
    ¶Ô»°´°¿ÚÐÅÏ¢Ìáʾ
    --**********************************
    function 
    x990127_MsgBoxsceneIdselfIdmsg )
        
    BeginEventsceneId )
            
    AddTextsceneIdmsg )
        
    EndEventsceneId )
        
    DispatchEventListsceneIdselfId, -)
    end
    --**********************************
    --
    ¹Ø±Õ¶Ô»°¿ò
    --**********************************
    function 
    x990127_CloseMe(sceneIdselfId)
        
    BeginUICommand(sceneId)
        
    EndUICommand(sceneId)
        
    DispatchUICommand(sceneId,selfId1000)
    end
    --**********************************
    --
    ËæÉí¹¦ÄÜ
    --**********************************
    function 
    x990127_Check(sceneId,selfId,key,isNPC)
        if 
    key==0 then
            key
    =GetNumText()    
        
    end
        
    if key==100 then
        local strGUID 
    LuaFnGetGUIDsceneIdselfId )
        
    local Is_Active GetMissionData(sceneIdselfIdMD_ACTIVE_CODE)    
            
    BeginEvent(sceneId)


                
    AddText(sceneId"  #GXin chào các hÕ! #r#WM¶i ch÷n nhæng chÑc nång h² trþ các hÕ c¥n.")        
                if (
    Is_Active <= 190000000then
                    AddNumText
    (sceneIdx990127_g_scriptId,"#b#GNh§p Gift Code (C¥n 4 Ô tr¯ng)"4114)
                
    end            
                
    if isNPC==0 then
                    AddNumText
    (sceneIdx990127_g_scriptId,"Quay lÕi"88888)
                else    
                
    end    
                
            EndEvent
    (sceneId)
            
    DispatchEventList(sceneId,selfId,-1)
                

        elseif 
    key==114  then --doi gift code
            BeginUICommand
    sceneId )
                
    UICommand_AddIntsceneIdselfId )
            
    EndUICommandsceneId )
            
    DispatchUICommandsceneIdselfId12125185 )        
                
        
    end
    end

    --**********************************
    --
    Gift Code
    --**********************************
    function 
    x990127_GiftCodesceneIdselfIdGiftCode)
        
    local    nam    LuaFnGetNamesceneIdselfId )
        
    local Code=GiftCode;
        
    local Is_Active GetMissionData(sceneIdselfIdMD_ACTIVE_CODE)
        --
    i=1;
        
    local FreeSpace1 LuaFnGetMaterialBagSpacesceneIdselfId )
        
    local FreeSpace2 LuaFnGetPropertyBagSpacesceneIdselfId )
        if( 
    FreeSpace1 then
           x990127_NotifyFailTips
    sceneIdselfId,"Khu nguyên li®u cüa bÕn không ðü ch² tr¯ng.");
           
    x990127_CloseMe(sceneIdselfId)
        elseif( 
    FreeSpace2 then
           x990127_NotifyFailTips
    sceneIdselfId,"Khu v§t ph¦m cüa bÕn không ðü ch² tr¯ng.");
        else
            if(
    Is_Active <= 190000000then
                
    for 1,10 do
                    if (
    Code == x990127_g_Key[i]) then
                        local BindBagIndex1 
    TryRecieveItemsceneIdselfId39999901QUALITY_CREATE_DEFAULT ) -- Vat pham
                        SetMissionData
    (sceneIdselfIdMD_ACTIVE_CODE200000001 )
                        
    x990127_NotifyFailTipssceneIdselfId,"Chúc m×ng "..nam.." nh§n thß·ng thành công v¾i Code "..Code.." .");            
                        return
                    
    end
                end
                x990127_NotifyFailTips
    sceneIdselfId,"BÕn ðã nh§p sai Code");

            else
                
    x990127_NotifyFailTipssceneIdselfId,"BÕn ðã nh§n thß·ng r°i!");
            
    end    
       end        

    end

    function x990127_MsgBoxsceneIdselfIdmsg )
        
    BeginEventsceneId )
            
    AddTextsceneIdmsg )
        
    EndEventsceneId )
        
    DispatchEventListsceneIdselfId, -)
    end

    function x990127_NotifyFailTipssceneIdselfIdTip )
        
    BeginEventsceneId )
            
    AddTextsceneIdTip )
        
    EndEventsceneId )
        
    DispatchMissionTipssceneIdselfId )
    end

    function x990127_Restore_hpmpsceneIdselfIdtargetId )
        
    RestoreHpsceneIdselfId )
        
    RestoreMpsceneIdselfId )
        
    RestoreRagesceneIdselfId )
    end 
    nhớ khai náo hàm mới để cho client hiểu nhé !
    Khách viếng thăm hãy cùng s2bac95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. The Following 2 Users Say Thank You to s2bac95 For This Useful Post:

    ckmaiyeuvk3798 (23-11-15), thanhluan12a14 (04-12-15)

  3. #2
    Super Moderator Sói Đẹp Trai's Avatar
    Ngày tham gia
    Apr 2011
    Đang ở
    ハノイ
    Bài viết
    3,946
    Thanks
    369
    Thanked 3,851 Times in 1,379 Posts

    Ðề: Chia sẻ Script GiftCode

    Cái này mình đã làm và xong, gợi ý là cái code dùng MD check thì không ổn vì nhiều nhân vật có thể nhập cùng 1 loại code để kích hoạt. Không tin cứ thử. Giải pháp là dùng biến cao cấp hơn MD để lưu. Biến có tác dụng trên toàn sv

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

    Còn cái nữa là không truyền đc string về sv đâu nhé

  4. 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 !

    s2bac95 (23-11-15)

  5. #3
    Thành Viên s2bac95's Avatar
    Ngày tham gia
    Nov 2011
    Bài viết
    220
    Thanks
    53
    Thanked 70 Times in 51 Posts

    Ðề: Chia sẻ Script GiftCode

    Trích dẫn Gửi bởi Sói Đẹp Trai Xem bài viết
    Cái này mình đã làm và xong, gợi ý là cái code dùng MD check thì không ổn vì nhiều nhân vật có thể nhập cùng 1 loại code để kích hoạt. Không tin cứ thử. Giải pháp là dùng biến cao cấp hơn MD để lưu. Biến có tác dụng trên toàn sv

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

    Còn cái nữa là không truyền đc string về sv đâu nhé
    đúng là xâu khi phải chuyển về tonumber. cám ơn sói
    Khách viếng thăm hãy cùng s2bac95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #4
    Thành Viên
    Ngày tham gia
    Jun 2010
    Đang ở
    Việt Nam
    Bài viết
    128
    Thanks
    160
    Thanked 128 Times in 47 Posts

    Icon7 Ðề: Chia sẻ Script GiftCode

    Trích dẫn Gửi bởi s2bac95 Xem bài viết
    Thao tác ở client:
    PHP Code:
                Clear_XSCRIPT();
                    
    Set_XSCRIPT_Function_Name("GiftCode");
                    
    Set_XSCRIPT_ScriptID(id scipt);
                    
    Set_XSCRIPT_Parameter(0,xâu truyền về);
                    
    Set_XSCRIPT_ParamCount(1);
                
    Send_XSCRIPT(); 
    Script:
    PHP Code:

    x990127_g_scriptId 
    990127

    x990127_g_MaxBagSize 
    60        
    x990127_g_Key 
    = {
                    
    1234567891,
                    }


    --**********************************
    -- 
    ʼþ½»»¥Èë¿Ú
    --**********************************
    function 
    x990127_OnDefaultEventsceneIdselfId )
        if 
    GetNumText() =100 then
            x990127_Check
    (sceneIdselfId0,0)
        
    end
    end

    --**********************************
    --
    ×°±¸¹¦ÄÜ
    --**********************************
    function 
    x990127_BackToIndexsceneIdselfId )
        
    x399999_OnDefaultEventsceneIdselfId, -)
    end
    --**********************************
    --
    Íæ¼ÒÆÁÄ»ÖмäÌáʾ
    --**********************************
    function 
    x990127_TipssceneIdselfIdstr )
        
    BeginEventsceneId )
            
    AddTextsceneIdstr )
        
    EndEventsceneId )
        
    DispatchMissionTipssceneIdselfId )
    end

    --**********************************
    --
    ¶Ô»°´°¿ÚÐÅÏ¢Ìáʾ
    --**********************************
    function 
    x990127_MsgBoxsceneIdselfIdmsg )
        
    BeginEventsceneId )
            
    AddTextsceneIdmsg )
        
    EndEventsceneId )
        
    DispatchEventListsceneIdselfId, -)
    end
    --**********************************
    --
    ¹Ø±Õ¶Ô»°¿ò
    --**********************************
    function 
    x990127_CloseMe(sceneIdselfId)
        
    BeginUICommand(sceneId)
        
    EndUICommand(sceneId)
        
    DispatchUICommand(sceneId,selfId1000)
    end
    --**********************************
    --
    ËæÉí¹¦ÄÜ
    --**********************************
    function 
    x990127_Check(sceneId,selfId,key,isNPC)
        if 
    key==0 then
            key
    =GetNumText()    
        
    end
        
    if key==100 then
        local strGUID 
    LuaFnGetGUIDsceneIdselfId )
        
    local Is_Active GetMissionData(sceneIdselfIdMD_ACTIVE_CODE)    
            
    BeginEvent(sceneId)


                
    AddText(sceneId"  #GXin chào các hÕ! #r#WM¶i ch÷n nhæng chÑc nång h² trþ các hÕ c¥n.")        
                if (
    Is_Active <= 190000000then
                    AddNumText
    (sceneIdx990127_g_scriptId,"#b#GNh§p Gift Code (C¥n 4 Ô tr¯ng)"4114)
                
    end            
                
    if isNPC==0 then
                    AddNumText
    (sceneIdx990127_g_scriptId,"Quay lÕi"88888)
                else    
                
    end    
                
            EndEvent
    (sceneId)
            
    DispatchEventList(sceneId,selfId,-1)
                

        elseif 
    key==114  then --doi gift code
            BeginUICommand
    sceneId )
                
    UICommand_AddIntsceneIdselfId )
            
    EndUICommandsceneId )
            
    DispatchUICommandsceneIdselfId12125185 )        
                
        
    end
    end

    --**********************************
    --
    Gift Code
    --**********************************
    function 
    x990127_GiftCodesceneIdselfIdGiftCode)
        
    local    nam    LuaFnGetNamesceneIdselfId )
        
    local Code=GiftCode;
        
    local Is_Active GetMissionData(sceneIdselfIdMD_ACTIVE_CODE)
        --
    i=1;
        
    local FreeSpace1 LuaFnGetMaterialBagSpacesceneIdselfId )
        
    local FreeSpace2 LuaFnGetPropertyBagSpacesceneIdselfId )
        if( 
    FreeSpace1 then
           x990127_NotifyFailTips
    sceneIdselfId,"Khu nguyên li®u cüa bÕn không ðü ch² tr¯ng.");
           
    x990127_CloseMe(sceneIdselfId)
        elseif( 
    FreeSpace2 then
           x990127_NotifyFailTips
    sceneIdselfId,"Khu v§t ph¦m cüa bÕn không ðü ch² tr¯ng.");
        else
            if(
    Is_Active <= 190000000then
                
    for 1,10 do
                    if (
    Code == x990127_g_Key[i]) then
                        local BindBagIndex1 
    TryRecieveItemsceneIdselfId39999901QUALITY_CREATE_DEFAULT ) -- Vat pham
                        SetMissionData
    (sceneIdselfIdMD_ACTIVE_CODE200000001 )
                        
    x990127_NotifyFailTipssceneIdselfId,"Chúc m×ng "..nam.." nh§n thß·ng thành công v¾i Code "..Code.." .");            
                        return
                    
    end
                end
                x990127_NotifyFailTips
    sceneIdselfId,"BÕn ðã nh§p sai Code");

            else
                
    x990127_NotifyFailTipssceneIdselfId,"BÕn ðã nh§n thß·ng r°i!");
            
    end    
       end        

    end

    function x990127_MsgBoxsceneIdselfIdmsg )
        
    BeginEventsceneId )
            
    AddTextsceneIdmsg )
        
    EndEventsceneId )
        
    DispatchEventListsceneIdselfId, -)
    end

    function x990127_NotifyFailTipssceneIdselfIdTip )
        
    BeginEventsceneId )
            
    AddTextsceneIdTip )
        
    EndEventsceneId )
        
    DispatchMissionTipssceneIdselfId )
    end

    function x990127_Restore_hpmpsceneIdselfIdtargetId )
        
    RestoreHpsceneIdselfId )
        
    RestoreMpsceneIdselfId )
        
    RestoreRagesceneIdselfId )
    end 
    nhớ khai náo hàm mới để cho client hiểu nhé !
    Cám ơn bạn nhé!

    Nhưng bỏ lâu quá rồi giờ không còn biết gì trơn trọi. Bạn có thể giúp mình về các bước được không? Hoặc cho mình xin đường dẫn các bài viết tương tự cũng được.
    Cám ơn bạn nhiều!
    Khách viếng thăm hãy cùng thanhluan12a14 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #5
    Thành Viên s2bac95's Avatar
    Ngày tham gia
    Nov 2011
    Bài viết
    220
    Thanks
    53
    Thanked 70 Times in 51 Posts

    Ðề: Chia sẻ Script GiftCode

    có gì cứ liên hệ tớ qua ib hoặc fb nhé.
    https://www.facebook.com/profile.php?id=100009440310527
    Khách viếng thăm hãy cùng s2bac95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #6
    Thành Viên
    Ngày tham gia
    Nov 2015
    Bài viết
    134
    Thanks
    16
    Thanked 16 Times in 13 Posts

    Ðề: Chia sẻ Script GiftCode

    [QUOTE=s2bac95;1049884]Thao tác ở client:
    PHP Code:
                Clear_XSCRIPT();
                    
    Set_XSCRIPT_Function_Name("GiftCode");
                    
    Set_XSCRIPT_ScriptID(id scipt);
                    
    Set_XSCRIPT_Parameter(0,xâu truyền về);
                    
    Set_XSCRIPT_ParamCount(1);
                
    Send_XSCRIPT(); 

    cái này chép ở đâu client vậy anh ơi
    Khách viếng thăm hãy cùng Metalcore xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [Gunny] Cần xin code giftcode và DB giftcode gunny 3.0
    Bởi YahooMesenger trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 17-07-13, 06:06 PM
  2. [KT] Xin script Giftcode nhập mã tại NPC hoạt động
    Bởi kiemthe_dev trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 18-03-13, 05:18 PM
  3. [JX] Cần giúp đỡ học vài chiêu về add npc và viết script
    Bởi bboybest trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 07-01-12, 11:03 AM
  4. Chia sẻ ý tưởng về JX Script
    Bởi banynavy trong diễn đàn Scripts
    Trả lời: 9
    Bài viết cuối: 22-04-10, 07:21 PM

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:35 AM.
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ệ.