Share event by thiencoi55

[khaicafe]

phần server nhé:
- D:\Server\gameserver\script\event\jieri\201206_eur o
chép mấy file nay vào nhé. [Only registered and activated users can see links. ]
- D:\Server\gameserver\setting\item\001\other
giải nén vào nhé [Only registered and activated users can see links. ]
- D:\Server\gameserver\setting\npc [Only registered and activated users can see links. ]
phần client nè:
- ...kiemthe\setting\item\001\other
giải nén vào nhé [Only registered and activated users can see links. ]
- ..kiemthe\setting\npc [Only registered and activated users can see links. ]

chú ý nhé phải update bản vng mới nhất mới được
cách hoạt event các bạn sẽ add id (18,1,1197,1) nay vao tui tan thu hay gm để test nhé
click phải nếu nhận được ngôi sao euro thì bạn đến cây ước nguyện ở vinh lạc trấn để đổi nhé

Qua đây mình cũng muốn nhắn gửi các anh em forum hoặc mod đã tham gia forum là để trao dồi kinh nghiệm và chia sẽ cho anh em đi sau chứ chúng ta tham gia forum mục đích để làm gì vậy ? nhắn gửi tất cả anh em thân gamezone

[satthulauhyh]

Thank bạn nhiều nhiều . Tiện đây cho mình hỏi cách bỏ thuế trong game với, mình cũng đang tập viết script mà hok bít khai báo + lấy spr j hết , bạn nào rành+ có tâm thì share 1 bài hướng dẫn viết event với nha ( VD: khai báo ở những mục nào, để spr ở đâu, khai báo ra sao, làm sao để add vật phẩm event để train quái hay đi hoạt động rớt ra ý)
Thank for all!

[thiencoi55]

vãi cả *** :-SS sợ bố này luôn

[VNGameZoneVN]

cái sự kiện này liên quan đến NPC nào, mình ko dùng cái NPC đó dc. nên bạn nói rõ là NPC nào liên quan để tui cop qua thôi.

[khaicafe]

cái sự kiện này liên quan đến NPC nào, mình ko dùng cái NPC đó dc. nên bạn nói rõ là NPC nào liên quan để tui cop qua thôi.

NPC cây ước nguyện gần án nhược tuyết nhé bạn

[VNGameZoneVN]

NPC cây ước nguyện gần án nhược tuyết nhé bạn

cái này đúng không?

Cây cầu nguyện Cây cầu nguyện_Hoạt động Tết 3723 <color=green>Ước nguyện tốt đẹp<color> 3 5 2 passerby288 0 0 0 0 0 36 36 20 11 10 27 xinnian_vowtree sk intensity0 sc 6 6 400 700 540 18 1

[khaicafe]

cái này đúng không?

Cây cầu nguyện Cây cầu nguyện_Hoạt động Tết 3723 <color=green>Ước nguyện tốt đẹp<color> 3 5 2 passerby288 0 0 0 0 0 36 36 20 11 10 27 xinnian_vowtree sk intensity0 sc 6 6 400 700 540 18 1

đung roi bạn ah chỗ đó hãy chép dòng đó sữa lại 1 chút là sài được còn không copy hết vào mà test

[knighterrant]

Cái event này có dùng scrip 1 vật loại phẩm đổi 1 loại vật phẩm, mình lấy ví dụ scrip 5NAT đổi 5 rương du long

--------------------------------------
function tbnpctest:OnDialog()
local szMsg = "Hãy Chọn Loại Giao Dịch";
local tbOpt = { 
{"<color=yellow>Dùng Nguyệt Ảnh Thạch đổi Vật phẩm", self.ChangeItem, self, 1},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------
function tbnpctest:ChangeItem(nLevel)
    local szContent = string.format("Hãy đặt đúng <color=yellow>5 NAT <color> vào !\n5 KNB đổi lấy 5 rương Tiền Du Long");
    Dialog:OpenGift(szContent, nil, {tbnpctest.OnOpenGiftOk, tbnpctest, nLevel});
end
--------------------------------------
function tbnpctest:OnOpenGiftOk(nLevel, tbItemObj)
    --Vật phẩm dùng để đổi (nguyệt ảnh thạch)
    local vatpham = "18,1,476,1"; 
    --Đếm số lượng nguyên liệu
    local nCount = 0;
    for i = 1, #tbItemObj do
        nCount = nCount + tbItemObj[i][1].nCount;
    end
    --Check đúng 5 NAT hay không?
    if nCount ~= 5 then
        Dialog:Say("<color=pink>Chú ý : <color>Mỗi lần chỉ được đặt vào 5 NAT !", {"Ta biết rồi !"});
        return 0;
    end
    --Check có phải là NAT không!
    for i = 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 ~= vatpham then
            Dialog:Say("Chỉ được dùng NAT để đổi!", {"Ta biết rồi !"});
            return 0;
        end
    end        
    --Kiểm tra ô trống trong túi
    if me.CountFreeBagCell() < 1 then
        Dialog:Say("Cần sắp xếp lại túi!",{"Ta Biết rồi !"});
        return 0;
    end
    --Nếu đúng NAT và số lượng => xóa NAT
    for i = 1, #tbItemObj do
        local pItem = tbItemObj[i][1];
        pItem.Delete(me);
    end
    --Add số lượng vật phẩm mới vào
    for i=1,5 do
    local pItemEx = me.AddItem(18, 1, 1286, 1);--nhận được 5 rương 100 tiền du long
    end
end
----------------------------- 

Có ai có thể phát triển nó lên thành 2 loại vật phẩm đổi thành 1 loại vật phẩm, hoặc ai có scrip sẵn share cho a e với, như thế viết scrip event sẽ thú vị hơn nhiều. Thân

[satthupro95]

Cái event này có dùng scrip 1 vật loại phẩm đổi 1 loại vật phẩm, mình lấy ví dụ scrip 5NAT đổi 5 rương du long

--------------------------------------
function tbnpctest:OnDialog()
local szMsg = "Hãy Chọn Loại Giao Dịch";
local tbOpt = { 
{"<color=yellow>Dùng Nguyệt Ảnh Thạch đổi Vật phẩm", self.ChangeItem, self, 1},
{"Để Ta Suy Nghỉ"},
};
Dialog:Say(szMsg, tbOpt);
end
--------------------------------------
function tbnpctest:ChangeItem(nLevel)
    local szContent = string.format("Hãy đặt đúng <color=yellow>5 NAT <color> vào !\n5 KNB đổi lấy 5 rương Tiền Du Long");
    Dialog:OpenGift(szContent, nil, {tbnpctest.OnOpenGiftOk, tbnpctest, nLevel});
end
--------------------------------------
function tbnpctest:OnOpenGiftOk(nLevel, tbItemObj)
    --Vật phẩm dùng để đổi (nguyệt ảnh thạch)
    local vatpham = "18,1,476,1"; 
    --Đếm số lượng nguyên liệu
    local nCount = 0;
    for i = 1, #tbItemObj do
        nCount = nCount + tbItemObj[i][1].nCount;
    end
    --Check đúng 5 NAT hay không?
    if nCount ~= 5 then
        Dialog:Say("<color=pink>Chú ý : <color>Mỗi lần chỉ được đặt vào 5 NAT !", {"Ta biết rồi !"});
        return 0;
    end
    --Check có phải là NAT không!
    for i = 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 ~= vatpham then
            Dialog:Say("Chỉ được dùng NAT để đổi!", {"Ta biết rồi !"});
            return 0;
        end
    end        
    --Kiểm tra ô trống trong túi
    if me.CountFreeBagCell() < 1 then
        Dialog:Say("Cần sắp xếp lại túi!",{"Ta Biết rồi !"});
        return 0;
    end
    --Nếu đúng NAT và số lượng => xóa NAT
    for i = 1, #tbItemObj do
        local pItem = tbItemObj[i][1];
        pItem.Delete(me);
    end
    --Add số lượng vật phẩm mới vào
    for i=1,5 do
    local pItemEx = me.AddItem(18, 1, 1286, 1);--nhận được 5 rương 100 tiền du long
    end
end
----------------------------- 

Có ai có thể phát triển nó lên thành 2 loại vật phẩm đổi thành 1 loại vật phẩm, hoặc ai có scrip sẵn share cho a e với, như thế viết scrip event sẽ thú vị hơn nhiều. Thân

E thấy trong nhiều scipt có cái chữ %s nó nghĩa là gì vậy mng @@

[vipbk]

E thấy trong nhiều scipt có cái chữ %s nó nghĩa là gì vậy mng @@

local szKey = string.format("%s,%s,%s,%s",pItem.nGenre,pItem.nDetail,pItem.nParticular,pItem.nLevel);

theo Lập trình C cơ sở thì %s, %d, %f ... là các đặc tả dùng để quy định phần in ra màn hình cho các biến
ví dụ ở trên thì giá trị của pItem.nGenre sẽ được in ra vị trí thứ nhất thông qua đặc tả %s (xâu ký tự)
tương tự pItem.nDetail được in ra vị trí thứ hai v.v...
một số nguyên cũng là 1 xâu ký tự nên ở trên có thể thay %s thành %d (số nguyên)
..........