Script lửa trại by copday

[na.ilusm89]

sory nhầm tên tác giải
chả cười k đc
bác quockhanh1992 đâu rùi
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]

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 đó.

[voanhnhat20010]

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

[copday]

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]

Nghe tên Quốc Khánh là thấy bốc mùi khắm rồi. Đi nhà nghỉ chụp hình cho lên web rồi khoe là nhà mình Mồm nói thì rất oai,thực ra ko có vẹo gì đâu. Thấy mấy ông anh mình bảo giờ còn đang lang thang kẹt net dưới Hà Nội cơ @@

[___Rookie___]

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]

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

[thanhdinh10]

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 vậy là sao nhỉ ?

[kiemthe_dev]

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

[___Rookie___]

Đâ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 !