[KT] Script lửa trại by copday [Lưu trữ] - CLBGAMESVN MMORPG DEVELOPMENT

voanhnhat20010

08-07-13, 05:28 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>]
Đây là thành quả của a conplay cấm mấy bác gạch tôi share cho newbie

copday

08-07-13, 10:20 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>]
Đây là thành quả của a conplay cấm mấy bác gạch tôi share cho newbie

ac sao share em, kệ anh hihi;);););););););););););););););););) sai tên tác giả nhé

ookurooo

08-07-13, 10:38 PM

chép vào đâu đây chủ thớt
300000000000000

huylouis1996

09-07-13, 12:31 AM

Tiện cho ae luôn

local tbLuaTrai = Npc:GetClass("LuaTrai");

function tbLuaTrai:OnDialog()
tbLuaTrai:ChampionFlagNpc(me, him);
end
---------
function tbLuaTrai:ChampionFlagNpc(pPlayer, pNpc)
self:dotlua(pPlayer, pNpc);
end

function tbLuaTrai:dotlua(pPlayer, pNpc)
tbLuaTrai.SKILL_ID = 391;
tbLuaTrai.NPC_ID = 20170;
tbLuaTrai.EXISTENTIME = Env.GAME_FPS * 3600 * 24;
tbLuaTrai.BASEMULTIP = 100000;
tbLuaTrai.TITLE_GROUP = 4;
tbLuaTrai.TITLE_ID = 1;
if (0 == me.nTeamId) then
me.Msg("Tổ đội mới có thể đốt lửa");
me.CallClientScript({"AutoAi:Resume"});
return 0;
end
if me.IsAccountLock() ~= 0 then
Dialog:Say("Tài khoản đang khóa");
return 0;
end
if me.nLevel < 120 then
Dialog:Say("Dưới cấp 120 k thể đốt");
return 0;
end

pPlayer.CastSkill(self.SKILL_ID, 1, -1, pPlayer.GetNpc().nIndex);
local nNpcMapId, nNpcPosX, nNpcPosY = pPlayer.GetWorldPos();
nNpcPosX=1607;
nNpcPosY=3246;
local tbNpc = Npc:GetClass("gouhuonpc");
local pGouNpc = KNpc.Add2(self.NPC_ID, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
tbNpc:InitGouHuo(pGouNpc.dwId, 0, self.EXISTENTIME, 5, 90, self.BASEMULTIP, 0, 0);
tbNpc:StartNpcTimer(pGouNpc.dwId)
me.Msg(string.format("Ngươi đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."));
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=red>" ..me.szName.. "<color> đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."});
me.SendMsgToFriend("Hảo hữu [" ..me.szName.. "] đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.");
Player:SendMsgToKinOrTong(me, " đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.", 0);
me.AddJbCoin(100000);
pNpc.Delete();
--local nNpc = self.NPC_ID
--if not nNpc then
--local pGouNpc1 = KNpc.Add2(20016, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
--end
end

copday

09-07-13, 02:20 PM

chép vào đâu đây chủ thớt
300000000000000

hàng đã có sẵn rồi, nhìn ondilog là biết mà bạn

voanhnhat20010

09-07-13, 02:37 PM

hàng đã có sẵn rồi, nhìn ondilog là biết mà bạn
sory nhầm tên tác giải =))
chả cười k đc
bác quockhanh1992 đâu rùi ~o)~o)~o)
Kết thúc kiếm thế qua TLBB quậy nào

copday

09-07-13, 09:24 PM

sory nhầm tên tác giải =))
chả cười k đc
bác quockhanh1992 đâu rùi ~o)~o)~o)
Kết thúc kiếm thế qua TLBB quậy nào

Quốc khánh nào ở đây em, quậy nát anh rồi còn gì, gờ tính quậy sang các em TLBB nữa ak

satthupro95

09-07-13, 09:31 PM

Quốc khánh nào ở đây em, quậy nát anh rồi còn gì, gờ tính quậy sang các em TLBB nữa ak

Quốc Khanh là bạn bán vé số ở miền nam ấy a
Ba bạn ý để lại cho cái dây chuyền hiện đang ở tiệm cầm đồ bán lấy tiền để thuê VPS

copday

09-07-13, 10:33 PM

Quốc Khanh là bạn bán vé số ở miền nam ấy a
Ba bạn ý để lại cho cái dây chuyền hiện đang ở tiệm cầm đồ bán lấy tiền để thuê VPS

ac, :-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*, em nói oan cho người ta ak

satthupro95

09-07-13, 10:40 PM

ac, :-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*, em nói oan cho người ta ak

em nói oan làm gì anh chính bạn ý bảo em vậy mà

na.ilusm89

09-07-13, 11:06 PM

sory nhầm tên tác giải =))
chả cười k đc
bác quockhanh1992 đâu rùi ~o)~o)~o)
Kết thúc kiếm thế qua TLBB quậy nào

Bạn với Quốc Khánh cơ à ở dơ gặp nhau rồi =))~

copday

09-07-13, 11:06 PM

em nói oan làm gì anh chính bạn ý bảo em vậy mà

ac, hình như anh cũng nghe thoang thoảng rồi đó.\:D/\:D/\:D/

voanhnhat20010

10-07-13, 05:25 PM

chà bên BOX KT có vẻ hot lại rùi :((
free đâu qua đây với ta

copday

31-07-13, 12:45 AM

Bạn với Quốc Khánh cơ à ở dơ gặp nhau rồi =))~

đã cảnh báo rồi, không nghe, giờ mới biết sao

kiemthe_dev

02-08-13, 09:31 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>]

___Rookie___

02-08-13, 10:10 PM

Tiện cho ae luôn

local tbLuaTrai = Npc:GetClass("LuaTrai");

function tbLuaTrai:OnDialog()
tbLuaTrai:ChampionFlagNpc(me, him);
end
---------
function tbLuaTrai:ChampionFlagNpc(pPlayer, pNpc)
self:dotlua(pPlayer, pNpc);
end

function tbLuaTrai:dotlua(pPlayer, pNpc)
tbLuaTrai.SKILL_ID = 391;
tbLuaTrai.NPC_ID = 20170;
tbLuaTrai.EXISTENTIME = Env.GAME_FPS * 3600 * 24;
tbLuaTrai.BASEMULTIP = 100000;
tbLuaTrai.TITLE_GROUP = 4;
tbLuaTrai.TITLE_ID = 1;
if (0 == me.nTeamId) then
me.Msg("Tổ đội mới có thể đốt lửa");
me.CallClientScript({"AutoAi:Resume"});
return 0;
end
if me.IsAccountLock() ~= 0 then
Dialog:Say("Tài khoản đang khóa");
return 0;
end
if me.nLevel < 120 then
Dialog:Say("Dưới cấp 120 k thể đốt");
return 0;
end

pPlayer.CastSkill(self.SKILL_ID, 1, -1, pPlayer.GetNpc().nIndex);
local nNpcMapId, nNpcPosX, nNpcPosY = pPlayer.GetWorldPos();
nNpcPosX=1607;
nNpcPosY=3246;
local tbNpc = Npc:GetClass("gouhuonpc");
local pGouNpc = KNpc.Add2(self.NPC_ID, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
tbNpc:InitGouHuo(pGouNpc.dwId, 0, self.EXISTENTIME, 5, 90, self.BASEMULTIP, 0, 0);
tbNpc:StartNpcTimer(pGouNpc.dwId)
me.Msg(string.format("Ngươi đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."));
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=red>" ..me.szName.. "<color> đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."});
me.SendMsgToFriend("Hảo hữu [" ..me.szName.. "] đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.");
Player:SendMsgToKinOrTong(me, " đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.", 0);
me.AddJbCoin(100000);
pNpc.Delete();
--local nNpc = self.NPC_ID
--if not nNpc then
--local pGouNpc1 = KNpc.Add2(20016, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
--end
end

code loằn ngoại 2 đoạn function thay vì như vầy :

local tbLuaTrai = Item:GetClass("LuaTrai");

tbLuaTrai.SKILL_ID = 391;
tbLuaTrai.NPC_ID = 20170;
tbLuaTrai.EXISTENTIME = Env.GAME_FPS * 3600 * 24;
tbLuaTrai.BASEMULTIP = 100000;
tbLuaTrai.TITLE_GROUP = 4;
tbLuaTrai.TITLE_ID = 1;

function tbLuaTrai:OnUse()

if (0 == me.nTeamId) then
me.Msg("Tổ đội mới có thể đốt lửa");
me.CallClientScript({"AutoAi:Resume"});
return 0;
end
if me.IsAccountLock() ~= 0 then
Dialog:Say("Tài khoản đang khóa");
return 0;
end
if me.nLevel < 120 then
Dialog:Say("Dưới cấp 120 không thể đốt");
return 0;
end

me.CastSkill(self.SKILL_ID, 1, -1, me.GetNpc().nIndex);
local nNpcMapId, nNpcPosX, nNpcPosY = me.GetWorldPos();
local szNameMap = GetMapNameFormId(nNpcMapId)
local tbNpc = Npc:GetClass("gouhuonpc");
local pGouNpc = KNpc.Add2(self.NPC_ID, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY); -- add npc
local AddCoin = me.AddJbCoin(100000);-- số lượng đồng
local nSlCoin = AddCoin/10000; -- số lượng chia nhỏ
tbNpc:InitGouHuo(pGouNpc.dwId, 0, self.EXISTENTIME, 5, 90, self.BASEMULTIP, 0, 0);
tbNpc:StartNpcTimer(pGouNpc.dwId);
me.Msg(string.format("Ngươi đã đốt lửa tại %s nhận được % vạn đồng.",szNameMap,nSlCoin));
GlobalExcute({"Dialog:GlobalNewsMsg_GS", string.format("Người chơi <color=red>%s<color> đã đốt lửa tại %s nhận được %s vạn đồng.",me.szName,szNameMap,nSlCoin)});
me.SendMsgToFriend(string.format("Hảo hữu [%s] đã đốt lửa tại %s nhận được %s vạn đồng.",me.szName,szNameMap,nSlCoin));
Player:SendMsgToKinOrTong(me, string.format(" đã đốt lửa tại %s nhận được %s vạn đồng.",szNameMap,nSlCoin), 0);
him.Delete();
end

copday

03-08-13, 09:36 AM

có gì không muốn share là vậy:(:(:(:(:(:(:(:(:(:(:(:(

thanhdinh10

03-08-13, 09:05 PM

Tiện cho ae luôn

local tbLuaTrai = Npc:GetClass("LuaTrai");

function tbLuaTrai:OnDialog()
tbLuaTrai:ChampionFlagNpc(me, him);
end
---------
function tbLuaTrai:ChampionFlagNpc(pPlayer, pNpc)
self:dotlua(pPlayer, pNpc);
end

function tbLuaTrai:dotlua(pPlayer, pNpc)
tbLuaTrai.SKILL_ID = 391;
tbLuaTrai.NPC_ID = 20170;
tbLuaTrai.EXISTENTIME = Env.GAME_FPS * 3600 * 24;
tbLuaTrai.BASEMULTIP = 100000;
tbLuaTrai.TITLE_GROUP = 4;
tbLuaTrai.TITLE_ID = 1;
if (0 == me.nTeamId) then
me.Msg("Tổ đội mới có thể đốt lửa");
me.CallClientScript({"AutoAi:Resume"});
return 0;
end
if me.IsAccountLock() ~= 0 then
Dialog:Say("Tài khoản đang khóa");
return 0;
end
if me.nLevel < 120 then
Dialog:Say("Dưới cấp 120 k thể đốt");
return 0;
end

pPlayer.CastSkill(self.SKILL_ID, 1, -1, pPlayer.GetNpc().nIndex);
local nNpcMapId, nNpcPosX, nNpcPosY = pPlayer.GetWorldPos();
nNpcPosX=1607;
nNpcPosY=3246;
local tbNpc = Npc:GetClass("gouhuonpc");
local pGouNpc = KNpc.Add2(self.NPC_ID, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
tbNpc:InitGouHuo(pGouNpc.dwId, 0, self.EXISTENTIME, 5, 90, self.BASEMULTIP, 0, 0);
tbNpc:StartNpcTimer(pGouNpc.dwId)
me.Msg(string.format("Ngươi đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."));
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=red>" ..me.szName.. "<color> đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."});
me.SendMsgToFriend("Hảo hữu [" ..me.szName.. "] đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.");
Player:SendMsgToKinOrTong(me, " đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.", 0);
me.AddJbCoin(100000);
pNpc.Delete();
--local nNpc = self.NPC_ID
--if not nNpc then
--local pGouNpc1 = KNpc.Add2(20016, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
--end
end

mình lấy script này của bạn add vào 1 NPC trong tân thủ thôn bất kỳ khi nhấn vào NPC thỳ bắn pháo hoa cả thành :D vậy là sao nhỉ ?

kiemthe_dev

03-08-13, 10:13 PM

Đây là bắn pháo hoa chứ mình có thấy lửa trại đâu :|

___Rookie___

04-08-13, 08:41 AM

Đây là bắn pháo hoa chứ mình có thấy lửa trại đâu :|

:)) sao lại bắn pháo nhỉ mình cũng chưa xem kỹ code này nhưng muốn có lửa trại thì vào script/item/class/gouhuo_team.lua là được !

chaolegion01

04-08-13, 07:53 PM

các bạn phải thêm npc của mình vào , vì đây là script gọi 1 npc và add chức năng lửa trại vào đó

tbNpc:InitGouHuo(--id của npc, 0,--thời gian, 5, 90,-- kinh nghiệm của lửa trại, 0, 0);

hieudkny11o2

10-04-14, 08:29 PM

Đại ca nào còn script lửa trại khác ko cho e xin với :(
script ở topic này click vào nó toàn ra cái pháo hoa đâu không à
mong các pro giúp script khác :D

hieudkny11o2

11-04-14, 11:13 AM

Đại ca nào còn script lửa trại khác ko cho e xin với :(
script ở topic này click vào nó toàn ra cái pháo hoa đâu không à
mong các pro giúp script khác :D

ai giúp em script khác với :(............................

__Jie__

11-04-14, 11:18 AM

Muốn lửa trại như nào |-)
Việt Nam có thủ đô là gì ? (viết tắt 2 ký tự đầu và viết thường )

anhnhianh

11-04-14, 11:27 AM

Muốn lửa trại như nào |-)
Việt Nam có thủ đô là gì ? (viết tắt 2 ký tự đầu và viết thường )

ý của hieudkny11o2 là cái script lửa trại vừa xuất hiện nếu player đứng gần thì đc exp + đồng cứ mỗi 5s 1 lần

__Jie__

11-04-14, 11:34 AM

à có mà dựa vào cái lửa trại tất cả mọi người viết
Cái này cũng khá hay có thể qui định thời gian nó xuất hiện và kết thúc .
Cần thì hú yahoo bên dưới ;))
. Có thể qui định số exp đạt được ( cho dù có pt vẫn chỉ được số đó ). Tránh trình trạng người cấp cao thì exp nhiều hơn cấp thấp
. Có thể qui định đồng khóa , bạc khóa...
. Có thể qui định thời gian xuất hiện ...

ookurooo

07-05-14, 02:05 PM

mình đã làm thành công cái lửa trại cho tất cả người chơi đứng trong map
file phần thưởng lửa trại là script/npc/gouhuonpc.lua nhé

ookurooo

08-05-14, 12:08 PM

up up up up

30 charrrrrrrrrrrr

namk020

12-09-14, 10:04 PM

vậy còn tạo npc lửa trại với map của nó thì làm sao ví dụ cho lửa trại đốt tại băng lăng huyện tọa độ là 20119 thì làm sao

malong6120

09-12-15, 07:37 PM

Tiện cho ae luôn

local tbLuaTrai = Npc:GetClass("LuaTrai");

function tbLuaTrai:OnDialog()
tbLuaTrai:ChampionFlagNpc(me, him);
end
---------
function tbLuaTrai:ChampionFlagNpc(pPlayer, pNpc)
self:dotlua(pPlayer, pNpc);
end

function tbLuaTrai:dotlua(pPlayer, pNpc)
tbLuaTrai.SKILL_ID = 391;
tbLuaTrai.NPC_ID = 20170;
tbLuaTrai.EXISTENTIME = Env.GAME_FPS * 3600 * 24;
tbLuaTrai.BASEMULTIP = 100000;
tbLuaTrai.TITLE_GROUP = 4;
tbLuaTrai.TITLE_ID = 1;
if (0 == me.nTeamId) then
me.Msg("Tổ đội mới có thể đốt lửa");
me.CallClientScript({"AutoAi:Resume"});
return 0;
end
if me.IsAccountLock() ~= 0 then
Dialog:Say("Tài khoản đang khóa");
return 0;
end
if me.nLevel < 120 then
Dialog:Say("Dưới cấp 120 k thể đốt");
return 0;
end

pPlayer.CastSkill(self.SKILL_ID, 1, -1, pPlayer.GetNpc().nIndex);
local nNpcMapId, nNpcPosX, nNpcPosY = pPlayer.GetWorldPos();
nNpcPosX=1607;
nNpcPosY=3246;
local tbNpc = Npc:GetClass("gouhuonpc");
local pGouNpc = KNpc.Add2(self.NPC_ID, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
tbNpc:InitGouHuo(pGouNpc.dwId, 0, self.EXISTENTIME, 5, 90, self.BASEMULTIP, 0, 0);
tbNpc:StartNpcTimer(pGouNpc.dwId)
me.Msg(string.format("Ngươi đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."));
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=red>" ..me.szName.. "<color> đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng."});
me.SendMsgToFriend("Hảo hữu [" ..me.szName.. "] đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.");
Player:SendMsgToKinOrTong(me, " đã đốt lửa tại Đạo hương Thôn nhận được 10v đồng.", 0);
me.AddJbCoin(100000);
pNpc.Delete();
--local nNpc = self.NPC_ID
--if not nNpc then
--local pGouNpc1 = KNpc.Add2(20016, 1, -1, nNpcMapId, nNpcPosX, nNpcPosY);
--end
end

cái đó chép vào đâu bác?
e moi tap choi