[KT] Share event by thiencoi55 [Lưu trữ] - CLBGAMESVN MMORPG DEVELOPMENT

khaicafe

16-07-12, 01:35 PM

phần server nhé:
- D:\Server\gameserver\script\event\jieri\201206_eur o
chép mấy file nay vào nhé. [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
- D:\Server\gameserver\setting\item\001\other
giải nén vào nhé [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
- D:\Server\gameserver\setting\npc [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
phần client nè:
- ...kiemthe\setting\item\001\other
giải nén vào nhé [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
- ..kiemthe\setting\npc [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

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

16-07-12, 02:14 PM

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

16-07-12, 02:18 PM

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

VNGameZoneVN

16-07-12, 03:12 PM

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

16-07-12, 03:44 PM

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

16-07-12, 03:49 PM

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

16-07-12, 04:08 PM

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

16-07-12, 04:44 PM

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,pIte m.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

16-07-12, 04:53 PM

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,pIte m.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

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

vipbk

16-07-12, 05:45 PM

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

local szKey = string.format("%s,%s,%s,%s",pItem.nGenre,pItem.nDetail,pItem.nParticular,pIte m.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)
..........

VNGameZoneVN

16-07-12, 09:54 PM

test rồi đặt 10 ngôi sao may mắn vào sao chẳng dc gì nhỉ

vipbk

17-07-12, 12:36 AM

Bạn chủ topic fix lại rồi up lại link nhé, nếu không sẽ close !

khaicafe

17-07-12, 12:51 AM

các bạn có làm theo y chang như minh không có up bản mới nhất của vng không có tải hết mấy file của mình không chưa gì đã nói thế

Lãng Tử Sầu

17-07-12, 09:41 AM

Like Khải Tặc vì câu cuối ^^! Chúc Kiếm Thế - Gamezone mãi trường tồn.

thiencoi55

17-07-12, 09:56 AM

của share ko hoàn chỉnh thì chả thế :))

ngockiem

17-07-12, 11:19 AM

thanks chủ pic
cái này sửa lại là sài ngon
sao phải cứ chờ người ta sửa nhỉ :))
,nếu có lòng share lun hàm check nguyên liệu rồi add bánh đi :))

nh0kk3n2310

17-07-12, 01:48 PM

thanks chủ pic
cái này sửa lại là sài ngon
sao phải cứ chờ người ta sửa nhỉ :))
,nếu có lòng share lun hàm check nguyên liệu rồi add bánh đi :))

ham check co ng share goy do chi thay id cua cai banh la dc chu gj :D

Lần sau nhớ viết tiếng Việt có dấu !

luumin

25-07-12, 07:57 AM

ai giúp em cái em đặt đủ số nguyên liệu vào rồi sao nó toàn báo là số nguyên liệu không đủ là sao vậy sửa ở đâu thế chỉ giùm em

luumin

27-07-12, 10:12 AM

em không biết là lỗi do client hay do server khi em chép cái Scriptitem.txt tứ server sang client thì vào game khi goi cái Ngôi Sao Euro thì nó xuất hiện đúng hình ảnh của nó nhưng khi em thoát game ra rồi vào lại thì nó cái hình ảnh của ngôi sao euro lại là cái Bình Nước còn cái "Thẻ Ngẫu Nhiên Euro" thì lại là cái hạt giồng. và em vào folder chứa game tìm đến cái Scriptitem.txt thì nó lại là cái Scriptitem.txt của bọn VNG chứ ko phải là cái Scriptitem.txt mà em đã chép vào từ server .em ko hiểu sao lại vậy làm đi làm lại nhiều lần vẫn bị. cũng đã xóa hản cái file Scriptitem.txt của VNG rồi mới chép cái Scriptitem.txt của server vào thì vào game nó lại hiện đúng nhưng khi uot game vào lại thì nó lại hiện sai hình ảnh và cái Scriptitem.txt nó cũng bị thay đổi lại cái Scriptitem.txt ban đầu
Bác nào biết cách chỉ em với?

namphongbody

24-10-12, 02:40 PM

em không biết là lỗi do client hay do server khi em chép cái Scriptitem.txt tứ server sang client thì vào game khi goi cái Ngôi Sao Euro thì nó xuất hiện đúng hình ảnh của nó nhưng khi em thoát game ra rồi vào lại thì nó cái hình ảnh của ngôi sao euro lại là cái Bình Nước còn cái "Thẻ Ngẫu Nhiên Euro" thì lại là cái hạt giồng. và em vào folder chứa game tìm đến cái Scriptitem.txt thì nó lại là cái Scriptitem.txt của bọn VNG chứ ko phải là cái Scriptitem.txt mà em đã chép vào từ server .em ko hiểu sao lại vậy làm đi làm lại nhiều lần vẫn bị. cũng đã xóa hản cái file Scriptitem.txt của VNG rồi mới chép cái Scriptitem.txt của server vào thì vào game nó lại hiện đúng nhưng khi uot game vào lại thì nó lại hiện sai hình ảnh và cái Scriptitem.txt nó cũng bị thay đổi lại cái Scriptitem.txt ban đầu
Bác nào biết cách chỉ em với?

cái này set thuộc tính read-only cho file scriptitem.txt trên client.

cfcvnbg

25-10-12, 04:57 PM

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,pIte m.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

Cho mình hỏi script này chỉnh sao để đổi 5 vật phẩm chỉ được 1 vật phẩm vậy.Giúp mình với...Thanks

Đã tìm ra được.Hi..

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

Thay ''5'' = 1 :)

nghichtu91

25-10-12, 05:48 PM

Cho mình hỏi script này chỉnh sao để đổi 5 vật phẩm chỉ được 1 vật phẩm vậy.Giúp mình với...Thanks

Đã tìm ra được.Hi..

Thay ''5'' = 1 :)

xoa dòng vòng lập for di là được :)) :-*