[KT] hỏi thêm vật phẩm KHÓA trong script này
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
 
Kết quả 1 đến 8 của 8
  1. #1
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    hỏi thêm vật phẩm KHÓA trong script này

    trong script như thế này
    PHP Code:
    local tbNpcNpc:GetClass("xinnian_vowtree");
    SpecialEvent.Euro SpecialEvent.Euro or {};
    local Euro SpecialEvent.Euro or {};

    function 
    tbNpc:OnDialog()
        
    local szMsg "Xin chào, ta có thể giúp được gì?";
        
    local tbOpt=
        {
            {
    "Cuồng nhiệt cùng <color=yellow>EURO<color>",self.eventeuro,self},
            {
    "Kết thúc đối thoại"},
        };

        
    Dialog:Say(szMsg,tbOpt);
    end
    function tbNpc:eventeuro()
        
    local szMsg "Hãy đi tìm những Ngôi sao danh vọng Euro đem về đây ta sẽ đổi cho ngươi phần thưởng xứng đáng!";
        
    local tbOpt 
        {
            {
    "Tao muốn đỗi<color=yellow>5<color> ngôi sao"self.ChangePartnerMiJExiself1},--uc van
            
    --{"<color=yellow>20<color> ngôi sao"self.ChangePartnerMiJExi2self1},--ngua 2 skill
            
    --{"<color=yellow>50<color> ngôi sao"self.ChangePartnerMiJExi3self1},--mat na
            
    --{"<color=yellow>100<color> ngôi sao"self.ChangePartnerMiJExi4self1},-- ấn
            
    --{"<color=yellow>300<color> ngôi sao"self.ChangePartnerMiJExi5self1},--hổ cap +3
            
    {"Kết thúc đối thoại"},
        };
        
    Dialog:Say(szMsgtbOpt);
    end

    function tbNpc:ChangePartnerMiJExi(nLevel)
        
    local tbType = {5} --Số lượng vật phẩm cần đê đổi
        local szContent 
    string.format("Đặt %s <color=yellow>Ngôi sao danh vọng Euro<color> vào đây và ta sẽ thực hiện điều ước của ngươi!"tbType[nLevel]);
        
    Dialog:OpenGift(szContentnil, {tbNpc.OnOpenGiftOktbNpcnLevel});
    end

    function tbNpc:OnOpenGiftOk(nLeveltbItemObj)
        
    local tbType = {5} --Số lượng vật phẩm cần đê đổi
        local szPartnerCaiLiao 
    "18,1,25067,1" ;     --Vật phẩm cần để đổi
        
    --数量判断
        local nCount 
    0;
        for 
    1#tbItemObj do
            
    nCount nCount tbItemObj[i][1].nCount;
        
    end
        
    if nCount ~= tbType[nLevelthen
            Dialog
    :Say("Số lượng không đủ", {"Ta biết rồi"});
            return 
    0;
        
    end
        
    --物品判定
        
    for 1#tbItemObj do
            
    local pItem tbItemObj[i][1];
            
    local szKey string.format("%s,%s,%s,%s",pItem.nGenre,pItem.nDetail,pItem.nParticular,pItem.nLevel);
            if 
    szKey ~= szPartnerCaiLiao then
                Dialog
    :Say("Loại nguyên liệu không đúng", {"Ta biết rồi"});
                return 
    0;
            
    end
        end
        
    --背包判定
        
    if me.CountFreeBagCell() < 1 then
            Dialog
    :Say("Hành trang đã đầy, hãy thu xếp rồi nhận lại",{"Ta biết rồi"});
            return 
    0;
        
    end
        
    --删除交的东西
        
    for 1#tbItemObj do
            
    local pItem tbItemObj[i][1];
            
    pItem.Delete(me);
        
    end
        local pItemEx 
    me.AddItem(18,1,356,1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
        
    if pItemEx then
            pItemEx
    .Bind(1);
            --
    me.SetItemTimeout(pItemEx60*24*300);
            
    EventManager:WriteLog(string.format("[兑换同伴秘籍]获得物品:%s",pItemEx.szName), me);
            
    me.PlayerLog(Log.emKPLAYERLOG_TYPE_JOINSPORTstring.format("[兑换同伴秘籍]获得物品:%s",pItemEx.szName));
        else
            
    EventManager:WriteLog(string.format("[兑换同伴秘籍]获得失败,扣除材料%s个",nCount), me);
            
    me.PlayerLog(Log.emKPLAYERLOG_TYPE_JOINSPORTstring.format("[兑换同伴秘籍]获得失败,扣除材料%s个",nCount));        
        
    end
        GlobalExcute
    ({"Dialog:GlobalNewsMsg_GS""Người chơi <color=cyan>"  ..me.szName.. "<color> đem 5 Ngôi Sao danh Vọng Ero cầu nguyện được 1 huyền tinh vô hạ cấp 9 xin chúc mừng!"});
        
    me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName 
            
    .. "<color>] đem 10 Ngôi Sao danh Vọng Ero cầu nguyện được 1 huyền tinh vô hạ cấp 9 xin chúc mừng!");
        
    Dialog:Say("<color=wheat>Chúc mừng ngươi đã đem 10 Ngôi Sao danh Vọng Ero cầu nguyện được 1 huyền tinh vô hạ cấp 9 xin chúc mừng!!<color>", {"Cảm ơn !"});
    end 
    sẽ nhận được 1 hòa thị bích khóa giờ muốn thêm 2 vũ khí khóa thì mình add như thế này nhận vẫn dc nhưng gs báo lõi

    PHP Code:
    local pItemEx me.AddItem(18,1,356,1).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
            local pItemEx 
    me.AddItem(2,1,1292,10).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
            local pItemEx 
    me.AddItem(2,1,1292,10).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
        
    if pItemEx then
            pItemEx
    .Bind(1); 
    bạn nào rành cho mình hỏi add như thế nào để dc thêm trang bị khóa mà gs ko báo lõi nhé thanks
    Lần sửa cuối bởi lyvanbethao, ngày 10-03-13 lúc 01:11 PM.
    Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên Tâm Huyết nghichtu91's Avatar
    Ngày tham gia
    Nov 2010
    Bài viết
    2,230
    Thanks
    69
    Thanked 743 Times in 356 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    Trích dẫn Gửi bởi lyvanbethao [Only registered and activated users can see links. ]
    trong script như thế này

    sẽ nhận được 1 hòa thị bích khóa giờ muốn thêm 2 vũ khí khóa thì mình add như thế này nhận vẫn dc nhưng gs báo lõi

    PHP Code:
    local pItemEx me.AddItem(18,1,356,1).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
            local pItemEx 
    me.AddItem(2,1,1292,10).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
            local pItemEx 
    me.AddItem(2,1,1292,10).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
        
    if pItemEx then
            pItemEx
    .Bind(1); 
    bạn nào rành cho mình hỏi add như thế nào để dc thêm trang bị khóa mà gs ko báo lõi nhé thanks
    lỗi thứ nhất không nên gán lệnh giống nhau pItemEx = me.AddItem(xxx) ,pItemEx = me.AddItem
    nếu muốn dùng kiểu như thế thi khai báo như thế này
    local pItemEx =
    {
    {18,1,356,1}, --1
    {18,1,356,1},--2
    {18,1,356,1},--3
    }

    khi goi no ra thì nhu me.AddItem(unpak(pItemEx[1])).Bind(1);

    và trong kiêm thế ko nên dùng vong lập for ......................
    Lần sửa cuối bởi nghichtu91, ngày 10-03-13 lúc 02:16 PM.
    Nhận thiết kế web
    skype:nhatthanh5891_3
    fb:fb.com/ThanhNaruto208
    SDT:0165.3749.679

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

    satthupro95 (10-03-13)

  4. #3
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    Trích dẫn Gửi bởi nghichtu91 [Only registered and activated users can see links. ]
    lỗi thứ nhất không nên gán lệnh giống nhau pItemEx = me.AddItem(xxx) ,pItemEx = me.AddItem
    nếu muốn dùng kiểu như thế thi khai báo như thế này
    local pItemEx =
    {
    {18,1,356,1}, --1
    {18,1,356,1},--2
    {18,1,356,1},--3
    };

    khi goi no ra thì nhu me.AddItem(unpak(pItemEx[1])).Bind(1);

    và trong kiêm thế ko nên dùng vong lập for ......................
    sữa lại như thế này thì đổi mất nguyên liệu nhưng ko nhận dc gì gs báo lõi
    PHP Code:
        for 1#tbItemObj do
            
    local pItem tbItemObj[i][1];
            
    pItem.Delete(me);
        
    end
        
        local pItemEx 

            {
            {
    18,1,356,1}, --1
            
    {18,1,356,1},--2
            
    {18,1,356,1},--3
            
    };
        if 
    pItemEx then
            me
    .AddItem(unpak(pItemEx[1])).Bind(1); 
    sai chổ nào vậy
    Lần sửa cuối bởi lyvanbethao, ngày 10-03-13 lúc 04:11 PM.
    Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    Thành Viên Tâm Huyết nghichtu91's Avatar
    Ngày tham gia
    Nov 2010
    Bài viết
    2,230
    Thanks
    69
    Thanked 743 Times in 356 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    Trích dẫn Gửi bởi lyvanbethao [Only registered and activated users can see links. ]
    sữa lại như thế này thì đổi mất nguyên liệu nhưng ko nhận dc gì gs báo lõi
    PHP Code:
        for 1#tbItemObj do
            
    local pItem tbItemObj[i][1];
            
    pItem.Delete(me);
        
    end
        
        local pItemEx 

            {
            {
    18,1,356,1}, --1
            
    {18,1,356,1},--2
            
    {18,1,356,1},--3
            
    };
        if 
    pItemEx then
            me
    .AddItem(unpak(pItemEx[1])).Bind(1); 
    sai chổ nào vậy
    if pItemEx then dk là gì

    đã cảnh báo script ko nên dùng vòng lập for mà cứ dùng .....
    Nhận thiết kế web
    skype:nhatthanh5891_3
    fb:fb.com/ThanhNaruto208
    SDT:0165.3749.679

  6. #5
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    vậy thì làm thế nào để nhận thêm vật phẩm khóa trên cái script của em vậy em ko rành nhiều về script help!
    Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #6
    Thành Viên Tâm Huyết nghichtu91's Avatar
    Ngày tham gia
    Nov 2010
    Bài viết
    2,230
    Thanks
    69
    Thanked 743 Times in 356 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    Trích dẫn Gửi bởi lyvanbethao [Only registered and activated users can see links. ]
    vậy thì làm thế nào để nhận thêm vật phẩm khóa trên cái script của em vậy em ko rành nhiều về script help!
    bác không xác định được script viết về cái gì, và làm gì ... ko biết cách sử dụng hàm .. hàm nào nên dùng , hàm nào ko nên dùng ..
    Nhận thiết kế web
    skype:nhatthanh5891_3
    fb:fb.com/ThanhNaruto208
    SDT:0165.3749.679

  8. #7
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    co ai giúp ko .................................................. ........................
    Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  9. #8
    Thành Viên Tâm Huyết __Jie__'s Avatar
    Ngày tham gia
    Sep 2008
    Bài viết
    1,314
    Thanks
    256
    Thanked 738 Times in 558 Posts

    Ðề: hỏi thêm vật phẩm KHÓA trong script này

    Đơn giản nhất là không dùng local pItemEx nữa
    Mà viết thẳng hàm Add hoặc đổi local pItem = or pItem1 =
    rồi đùng
    if pItem then
    pItem.Bind(1);
    end
    là nó khóa thôi
    Khách viếng thăm hãy cùng __Jie__ 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 __Jie__ vì bài viết này !

    lyvanbethao (10-03-13)

 

 

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

  1. [KT] xin script nhận bạc và bạc khóa trong túi tân thủ
    Bởi babychum trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 28-01-12, 12:54 AM
  2. [KT] Cách chỉnh script trong server Kiếm Thế ko bị lỗi ai bik chỉ giùm
    Bởi zZK3yL0v3Zz trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 8
    Bài viết cuối: 22-01-12, 11:59 PM
  3. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  4. Cho mình hỏi 1 lỗi về script trong sever hút hít
    Bởi concabach trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 11-06-11, 08:36 AM
  5. Tìm hiểu ngôn ngữ lập trình script trong JX.
    Bởi giangleloi trong diễn đàn Scripts
    Trả lời: 11
    Bài viết cuối: 28-12-09, 04:00 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à 11: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ệ.