[JX] Giúp Em Add Chức năng gọi boss tiểu, đại vào trong chức năng GM với !!
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 3 của 3
  1. #1
    Thành Viên tongtulenh's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    143
    Thanks
    29
    Thanked 106 Times in 33 Posts

    Icon5 Giúp Em Add Chức năng gọi boss tiểu, đại vào trong chức năng GM với !!

    Đầy Là time_server em muốn dev cái phần gạch chân + chữ đâm đó vào chức năng GM
    Code:
    Include("\\Script\\source\\sourcejx49.lua")
    Include("\\script\\lien_dau\\liendau_head.lua")
    Include("\\script\\phonglangdo\\thoigianpld.lua")
    
    
    npcadd={0,0,0,0,0}
    function OnTimer()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    SubWorld = SubWorldID2Idx(53)
    phonglangdo()
    vuotai()
    thoigianbosshk()
    print("So luong Acc online : "..GetPlayerCount().."");
        if (gio == 12) or (gio == 18) then
            if phut == 0 then        
                hat_huy_hoang()
                Msg2SubWorld("H¹t huy hoµng ®· xuÊt hiÖn t¹i ba l¨ng huyÖn (194/204)")
            elseif phut == 10 then
                del_hat_hh()
                qua_huy_hoang()
                Msg2SubWorld("Qu¶ huy hoµng ®· xuÊt hiÖn t¹i ba l¨ng huyÖn (194/204)")
            elseif phut == 15 then
                del_qua_hh()
            end
        end
        
    
        if phut == 6 or phut == 16 or phut == 26 or phut == 36 or phut == 43 then
        Msg2SubWorld(" TØ LÖ ChÕ LÖnh Bµi Hoµng Kim lµ 40% ",1)
                      AddGlobalCountNews(" NhËn Item Theo Lv 80, 120, 140, 150,170",1)
        elseif phut == 8 or phut == 18 or phut == 28 or phut == 38 then
        AddGlobalCountNews("Server Donate §å + 1 Th«i !! 1 mãn = 20k Vinagame ®Ó tån t¹i sv  ",1)
                      Msg2SubWorld(" Ðp §å TÝm T¹i Thî RÌn Ba L¨ng HuyÖn Vµ Ðp §å Hoµng Kim T¹i Thî RÌn Thµnh ThÞ",1)
        end
    
    if ((gio == 10) or (gio == 12) or (gio == 14) or (gio == 16) or (gio == 18) or (gio == 20) or (gio == 22)) and (phut >= 45) then
    phutcl = 60 - phut
    AddGlobalCountNews("Tèng kim ®ang trong thêi gian b¸o danh, cßn "..phutcl.." phut.",1)
    if (phut == 59) then
    SetGlbMissionV(81,0)
    SetGlbMissionV(82,0)
    SetGlbMissionV(83,0)
    SetGlbMissionV(84,0)
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    DelNpc(npcadd[1])
    DelNpc(npcadd[2])
    return
    end
    end
    
    
    end
    
    elseif (gio == 11) or (gio == 13) or (gio == 15) or (gio == 17) or (gio == 19) or (gio == 21) or (gio == 23) then
    if (phut == 0) then
    
    AddGlobalCountNews("Tèng kim ®¹i chiÕn chÝnh thøc b¾t ®Çu !",1)
    
    elseif (phut == 5) or (phut == 10) then
    
    AddGlobalCountNews("Tèng kim tÝch lòy hiÖn t¹i lµ Tèng : Kim "..GetGlbMissionV(81).." : "..GetGlbMissionV(82),1)
    
    elseif (phut == 20) then
    
    if (GetGlbMissionV(81) > GetGlbMissionV(82)) then
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    idnpc = random(894,898)
    tongkim = SubWorldID2Idx(51)
    npcadd[2] = AddNpc(idnpc,99,tongkim,1968*32,2700*32)
    IsBoss(npcadd[2],2)
    SetNpcScript(npcadd[2], "\\script\\tongkim\\nguyensoai.lua");
    AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe kim ®· xuÊt hiÖn, h·y cè g¾ng lËp c«ng",1)
    return
    end
    end
    elseif (GetGlbMissionV(81) < GetGlbMissionV(82)) then
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    idnpc = random(889,893)
    tongkim = SubWorldID2Idx(51)
    npcadd[1] = AddNpc(idnpc,99,tongkim,1722*32,3044*32)
    IsBoss(npcadd[1],2)
    SetNpcScript(npcadd[1], "\\script\\tongkim\\nguyensoai.lua");
    AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe tèng ®· xuÊt hiÖn, h·y cè g¾ng lËp c«ng",1)
    return
    end
    end
    
    elseif (GetGlbMissionV(81) == GetGlbMissionV(82)) then
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    tongkim = SubWorldID2Idx(51)
    idnpc = random(889,893)
    npcadd[1] = AddNpc(idnpc,99,tongkim,1722*32,3044*32)
    SetNpcScript(npcadd[1], "\\script\\tongkim\\nguyensoai.lua");
    idnpc = random(894,898)
    npcadd[2] = AddNpc(idnpc,99,tongkim,1968*32,2700*32)
    SetNpcScript(npcadd[2], "\\script\\tongkim\\nguyensoai.lua");
    AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe kim vµ tèng ®· xuÊt hiÖn",1)
    return
    end
    end
    end
    elseif (phut == 30) then
    
    if (GetGlbMissionV(81) > GetGlbMissionV(82)) then
    AddGlobalCountNews("Tèng kim ®¹i chiÕn kÕt thóc, phÇn th¾ng thuéc vÒ phe tèng !")
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    if (GetTask(23) == 2) then
    for i=1,10 do
    AddEventItem(137)
    end
    
    SetTask(21,GetTask(21) + 500)
    AddRepute(50)
    Msg2Player("Tèng kim kÕt thóc, nhËn ®­îc 10 Tói Nguyªn LiÖu, 50 danh väng, 500 ®iÓm tÝch lòy")
    SetTask(24,0)
    SetTask(25,0)
    SetTask(26,0)
    toadox = 2047
    toadoy = 2594
    NewWorld(51, toadox, toadoy);
            SetFightState(0)
    elseif (GetTask(23) == 1) then
    for i=1,20 do
    AddEventItem(137)
    end
    
    SetTask(21,GetTask(21) + 1000)
    AddRepute(100)
    Msg2Player("Tèng kim kÕt thóc, nhËn ®­îc 20 Tói Nguyªn LiÖu, 100 danh väng, 1000 ®iÓm tÝch lòy")
    SetTask(24,0)
    SetTask(25,0)
    SetTask(26,0)
    toadox = 1640
    toadoy = 3153
    NewWorld(51,toadox,toadoy) -- tong
            SetFightState(0)
    end
    end
    end
    elseif (GetGlbMissionV(81) < GetGlbMissionV(82)) then
    AddGlobalCountNews("Tèng kim ®¹i chiÕn kÕt thóc, phÇn th¾ng thuéc vÒ phe kim !")
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    if (GetTask(23) == 1) then
    for i=1,10 do
    AddEventItem(137)
    end
    
    SetTask(21,GetTask(21) + 500)
    AddRepute(50)
    Msg2Player("Tèng kim kÕt thóc, nhËn ®­îc 10 Tói Nguyªn LiÖu, 50 danh väng, 500 ®iÓm tÝch lòy")
    SetTask(24,0)
    SetTask(25,0)
    SetTask(26,0)
    toadox = 1640
    toadoy = 3153
    NewWorld(51,toadox,toadoy) -- tong
            SetFightState(0)
    elseif (GetTask(23) == 2) then
    for i=1,10 do
    AddEventItem(137)
    end
    
    SetTask(21,GetTask(21) + 1000)
    AddRepute(100)
    Msg2Player("Tèng kim kÕt thóc, nhËn ®­îc 20 Tói Nguyªn LiÖu, 100 danh väng,1000 ®iÓm tÝch lòy")
    SetTask(24,0)
    SetTask(25,0)
    SetTask(26,0)
    toadox = 2047
    toadoy = 2594
    NewWorld(51, toadox, toadoy);
            SetFightState(0)
    end
    end
    end
    else
    AddGlobalCountNews("Tèng kim kÕt thóc, 2 bªn hßa nhau !")
    for i=1,200 do
    PlayerIndex = i
    if (GetUUID() ~= 0) then
    if (GetTask(23) == 1) then
    for i=1,10 do
    AddEventItem(137)
    end
    
    SetTask(21,GetTask(21) + 750)
    AddRepute(75)
    Msg2Player("Tèng kim kÕt thóc, nhËn ®­îc 10 Tói Nguyªn LiÖu, 75 danh väng, 750 ®iÓm tÝch lòy")
    SetTask(24,0)
    SetTask(25,0)
    SetTask(26,0)
    toadox = 1640
    toadoy = 3153
    NewWorld(51,toadox,toadoy) -- tong
            SetFightState(0)
    elseif (GetTask(23) == 2) then
    for i=1,10 do
    AddEventItem(137)
    end
    
    SetTask(21,GetTask(21) + 750)
    AddRepute(75)
    Msg2Player("Tèng kim kÕt thóc, nhËn ®­îc 10 Tói Nguyªn LiÖu, 750 danh väng,750 ®iÓm tÝch lòy")
    SetTask(24,0)
    SetTask(25,0)
    SetTask(26,0)
    toadox = 2047
    toadoy = 2594
    NewWorld(51, toadox, toadoy);
            SetFightState(0)
    end
    end
    end
    
    end
    SetGlbMissionV(81,0)
    SetGlbMissionV(82,0)
    SetGlbMissionV(83,0)
    SetGlbMissionV(84,0)
    end
    end
            --if (gio == 8) or (gio == 14) or (gio == 18) or (gio == 21) then
                --if (phut == 0) or (phut == 10) or (phut == 20) or (phut == 30) or (phut == 40) or (phut == 50) then
                --AddGlobalCountNews("Liªn ®Êu ®ang trong giai ®o¹n b¸o danh, h·y nhanh ®Õn b¸o danh !",1)
                --end
            --else
        --for i=1,GetPlayerCount() do
        --PlayerIndex = i
        --w,x,y = GetWorldPos()
            --    if w == 42 or w == 43 then
            --    NewWorld(53, 1603, 3210);
            --    SetFightState(0)
            --    end
        --end
        --end
    end
    
    function thoigianbosshk()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    if gio >= 7 and gio <= 9 then 
        if phut == 0 then
            --if GetGlbMissionV(90) == 0 then
                map = SubWorldID2Idx(53)
                bosstieu1 = AddNpc(509,80,map,1513*32,3306*32)
                SetNpcSeries(bosstieu1,random(0,4))
                IsBoss(bosstieu1,2)
                Msg2SubWorld("LiÔu Thanh Thanh ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(188/206)")
    ----
                bosstieu2 = AddNpc(510,80,map,1761*32,3206*32)
                SetNpcSeries(bosstieu2,random(0,4))
                IsBoss(bosstieu2,2)
                Msg2SubWorld("DiÖu Nh­ ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(220/200)")
    ----
                bosstieu3 = AddNpc(511,80,map,1637*32,3057*32)
                SetNpcSeries(bosstieu3,random(0,4))
                IsBoss(bosstieu3,2)
                Msg2SubWorld("Tr­¬ng T«ng ChÝnh ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(204/190)")
                AddGlobalCountNews("Boss hoµng kim tiÓu ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn, c¸c nh©n sü h·y cÈn thËn",1)
    --SetGlbMissionV(90,1)
            --else
    --Msg2SubWorld("LiÔu Thanh Thanh ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(188/206)")
    --Msg2SubWorld("DiÖu Nh­ ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(220/200)")
    --Msg2SubWorld("Tr­¬ng T«ng ChÝnh ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(204/190)")
    
            --end
        end
    else
    --SetGlbMissionV(90,0)
    DelNpc(bosstieu1)
    DelNpc(bosstieu2)
    DelNpc(bosstieu3)
    end
    if gio >= 2 and gio <= 3 then
        if phut == 0 then
            --if GetGlbMissionV(90) == 0 then
                map = SubWorldID2Idx(9)
                bossdai1 = AddNpc(500,100,map,1721*32,3239*32)
                SetNpcSeries(bossdai1,random(0,4))
                IsBoss(bossdai1,2)
                Msg2SubWorld("Gia LuËt TÞ Li ®· xuÊt hiÖn t¹i Sa M¹c II(215/201)")        
                
                map = SubWorldID2Idx(8)
                bossdai2 = AddNpc(502,100,map,1569*32,3294*32)
                SetNpcSeries(bossdai2,random(0,4))
                IsBoss(bossdai2,2)
                Msg2SubWorld("Cæ B¸ch ®· xuÊt hiÖn t¹i Sa M¹c I (195/205)")
                bossdai3 = AddNpc(504,100,map,1398*32,3268*32)
                SetNpcSeries(bossdai3,random(0,4))
                IsBoss(bossdai3,2)
                Msg2SubWorld("YÕn HiÓu Trai ®· xuÊt hiÖn t¹i Sa M¹c I (174/204)")
                
                map = SubWorldID2Idx(8)
                bossdai4 = AddNpc(503,100,map,1817*32,2813*32)
                SetNpcSeries(bossdai4,random(0,4))
                IsBoss(bossdai4,2)
                Msg2SubWorld("TuyÒn C« Tö ®· xuÊt hiÖn t¹i M¹c Cao QuËt(226/175)")
                
                map = SubWorldID2Idx(37)
                bossdai5 = AddNpc(499,100,map,1399*32,3052*32)
                SetNpcSeries(bossdai5,random(0,4))
                IsBoss(bossdai5,2)
                Msg2SubWorld("§¹o Th¹ch Ch©n Nh©n ®· xuÊt hiÖn t¹i T­¬ng D­¬ng(174/190)")
                bossdai6 = AddNpc(501,100,map,1700*32,3355*32)
                SetNpcSeries(bossdai6,random(0,4))
                IsBoss(bossdai6,2)
                Msg2SubWorld("Hµ Nh©n Ng· ®· xuÊt hiÖn t¹i T­¬ng D­¬ng(212/209)")
                
                --map = SubWorldID2Idx(38)
                --bossdai7 = AddNpc(506,100,map,1601*32,2819*32)
                --SetNpcSeries(bossdai7,random(0,4))
                --IsBoss(bossdai7,2)
                --Msg2SubWorld("B¹ch Doanh Doanh ®· xuÊt hiÖn t¹i BiÖn Kinh(200/176)")
                
                map = SubWorldID2Idx(36)
                bossdai8 = AddNpc(507,100,map,1420*32,3270*32)
                SetNpcSeries(bossdai8,random(0,4))
                IsBoss(bossdai8,2)
                Msg2SubWorld("Hµ Linh Phiªu ®· xuÊt hiÖn t¹i Ph­îng T­êng(177/204)")
                
                --map = SubWorldID2Idx(39)
            --    bossdai9 = AddNpc(505,100,map,1550*32,3365*32)
            --    SetNpcSeries(bossdai9,random(0,4))
            --    IsBoss(bossdai9,2)
            --    Msg2SubWorld("HuyÒn Gi¸c ®· xuÊt hiÖn t¹i D­¬ng Ch©u(193/210)")
    --SetGlbMissionV(90,1)
            --else
            ---Msg2SubWorld("Gia Luat Ti Li tai Sa Mac II (215/201)")
            --Msg2SubWorld("Co Bach da tai Sa Mac I (195/205)")
            --Msg2SubWorld("Yen Hieu Trai tai Sa Mac I (174/204)")
            --Msg2SubWorld("Tuyen Co Tu tai Mac Cao Quat (226/175)")
            --Msg2SubWorld("Dao Thanh Chan Nhan tai Tuong Duong (174/190)")
        --    Msg2SubWorld("Ha Nhan Nga tai Tuong Duong (212/209)")
            --Msg2SubWorld("Bach Doanh Doanh tai Bien Kinh (200/176)")
        --    Msg2SubWorld("Ha Linh Phieu tai Phuong Tuong (177/204)")
        --    Msg2SubWorld("Huyen Giac Dai Su tai Duong Chau (193/210)")
            --end
        end
    else
    --SetGlbMissionV(90,0)
    DelNpc(bossdai1)
    DelNpc(bossdai2)
    DelNpc(bossdai3)
    DelNpc(bossdai4)
    DelNpc(bossdai5)
    DelNpc(bossdai6)
    --DelNpc(bossdai7)
    DelNpc(bossdai8)
    --DelNpc(bossdai9)
    end
    end
    
    
    function vuotai()
    ngay = tonumber(date("%d"))
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    giay = tonumber(date("%S"))
    if gio == 1 or gio == 3 or gio == 7 or gio == 9 or gio == 11 or gio == 13 or gio == 15 or gio == 17 or gio == 19 or gio == 21 or gio == 23 then
        if phut > 45 then
        thongbaova()
        elseif phut < 45 and phut > 40 then
        tgva = 45-phut
        AddGlobalCountNews("Sù kiÖn v­ît ¶i b¾t ®Çu sau "..tgva.." phót n÷a",1)
        elseif phut == 45 then
        AddGlobalCountNews("Thêi gian b¸o danh v­ît ¶i b¾t ®Çu !!!",1)
        end
    else
        if phut == 0 then
        chiendauva()
        elseif phut == 46 then
        vuotaitime()
        AddGlobalCountNews("Sù kiÖn v­ît ¶i kÕt thóc !!!!!!",1)
        end
    end
    if gio == 11 or gio == 17 then
        if phut >= 55 then
        thoigian = 60-phut
        AddGlobalCountNews("Sù kiÖn hoa ®¨ng sÏ b¾t ®Çu sau: "..thoigian.." phót n÷a !",1)    
        end
    end
    end
    function thongbaova()
    w,x,y = GetWorldPos();
        a = 60 - phut
        for o=1,1000 do
        PlayerIndex = o
        if GetTaskTemp(25) == 1 or GetTaskTemp(26) == 1 then
        Msg2Player("Sù kiÖn vuît ¶i cßn: "..a.." phót n÷a sÏ b¾t ®Çu !")
        end    
        end
    end
    
    
    function chiendauva()
    w,x,y = GetWorldPos();
    for u = 1,1000 do
    PlayerIndex = u
    if GetTaskTemp(25) == 1 or GetTaskTemp(26) == 1 then
    SetFightState(1)
    Msg2Player("Sù kiÖn V­ît ¶i b¾t ®Çu. Nhãm cña b¹n cã 45 phót ®Ó v­ît qua !")
    end
    end
    end
    function vuotaitime()
    phut = tonumber(date("%M"))
    gio = tonumber(date("%H"))
    SetGlbMissionV(38,0)
    SetGlbMissionV(34,0)
    for q = 1,1000 do
    PlayerIndex = q
    if GetTaskTemp(25) == 1 or GetTaskTemp(26) == 1 then
    NewWorld(53, 200*8, 200*16);
    SetTaskTemp(25,0)
    SetDeathScript("");
    SetFightState(0);
    SetPunish(0)
    Msg2Player("Sù kiÖn V­ît ¶i kÕt thóc, B¹n ®· qu¸ 45 phót nh­ng vÉn toµn m¹ng. Tuy nhiªn, vÉn kh«ng ®ñ ®Ó chiÕn th¾ng !")
    end
    end
    end
    
    
    function vuotai1()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    w,x,y = GetWorldPos()
    if gio == 7 or gio == 9 or gio == 11 or gio == 13 or gio == 15 then
        if phut >= 55 and phut < 60 then
            thoigian = 60 - phut
            AddGlobalCountNews("V­ît ¶i ®ang trong giai ®o¹n b¸o danh, cßn "..thoigian.." phót n÷a sÏ b¾t ®Çu",1)
            SetGlbMissionV(87,1)    
        end
    elseif gio == 8 or gio == 10 or gio == 12 or gio == 14 or gio == 16 then
        if phut == 0 then
            AddGlobalCountNews("V­ît ¶i chÝnh thøc b¾t ®Çu, thêi gian cßn l¹i ®Ó qua ¶i lµ 30 phót",1)
            
            SetGlbMissionV(87,2)
            for i = 1,100 do 
                PlayerIndex = i 
                if (w == 25) then
                    Msg2Player("V­ît ¶i chÝnh thøc b¾t ®Çu, thêi gian cßn l¹i ®Ó qua ¶i lµ 30 phót")
                    SetFightState(1)
                end
            end
        elseif phut == 30 then
            AddGlobalCountNews("Ho¹t ®éng v­ît ¶i ®· kÕt thóc !!",1)
            SetGlbMissionV(88,0)
            SetGlbMissionV(89,0)
            SetGlbMissionV(87,0)
                    end
                end
            end
    
    function qua_huy_hoang()
    qua1 = AddNPCEx(294,1,53,194,203, 3,9,"\\script\\demhuyhoang\\quahuyhoang.lua",5)    -- Map : Ba Lang Huyen
    qua2 = AddNPCEx(294,1,53,193,204, 7,2,"\\script\\demhuyhoang\\quahuyhoang.lua",5)    -- Map : Ba Lang Huyen
    qua3 = AddNPCEx(294,1,53,194,204, 5,5,"\\script\\demhuyhoang\\quahuyhoang.lua",5)    -- Map : Ba Lang Huyen
    qua4 = AddNPCEx(294,1,53,194,203, 10,10,"\\script\\demhuyhoang\\quahuyhoang.lua",5)    -- Map : Ba Lang Huyen
    
    end
    
    function hat_huy_hoang()
    hat1 = AddNPCEx(295,1,53,194,203, 3,9,"\\script\\demhuyhoang\\hathuyhoang.lua",5)    -- Map : Ba Lang Huyen
    hat2 = AddNPCEx(295,1,53,193,204, 7,2,"\\script\\demhuyhoang\\hathuyhoang.lua",5)    -- Map : Ba Lang Huyen
    hat3 = AddNPCEx(295,1,53,194,204, 5,5,"\\script\\demhuyhoang\\hathuyhoang.lua",5)    -- Map : Ba Lang Huyen
    hat4 = AddNPCEx(295,1,53,194,203, 10,10,"\\script\\demhuyhoang\\hathuyhoang.lua",5)    -- Map : Ba Lang Huyen
    
    end
    
    function del_hat_hh()
    DelNpc(hat1)
    DelNpc(hat2)
    DelNpc(hat3)
    DelNpc(hat4)
    end
    
    function del_qua_hh()
    DelNpc(qua1)
    DelNpc(qua2)
    DelNpc(qua3)
    DelNpc(qua4)
    end
    
    
    function phonglangdo()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    w,x,y = GetWorldPos()
        if (gio == 7) or (gio == 19) then
            if (phut >= 55) then
                AddGlobalCountNews("Thuyen Phong lang do chuan bi khoi hanh, gap Thuyen Phu dang ky",1)
            end
        elseif (gio == 8) or (gio == 20) then
            if (phut >= 0) and (phut < 15) then
                    batdaupld()
            elseif (phut == 15) then
                    denbopld()    
            end
        end
    end
            
    
    function batdaupld()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    w,x,y = GetWorldPos()
    phut1 = 15 - phut
     for g=1,100 do
         PlayerIndex = g
        if (w == 45) then
            SetFightState(1)
            Msg2Player("Thuyen da bat dau roi ben, con "..phut1.." phut se den Bac Phong Lang Do")
        end
    end
    end
    
    function denbopld()
    w,x,y = GetWorldPos()
    for u=1,100 do
        PlayerIndex = u
        if (w == 45) then
        NewWorld(46,1331,2861)
        SetFightState(1)
        Msg2Player("Thuyen da den bo Bac Phong Lang Do !")
        end
    end
    end
                    
    [/QUOTE]
    em muốn dev chức năng này vào chức năng GM có thể gọi boss tiểu, đại lúc nào cũng được
    còn đây là manager
    [QUOTE]-------Author: Ohishu
    --Date: 06/06/2010
    
    Include("\\Script\\GM.lua")
    Include("\\Script\\source\\sourcejx49.lua")
    Include("\\Script\\source\\hamchuot.lua")
    
    
    function no()
    end
    
    function manager()
    i = GetPlayerCount()
        SayEx({"Server ®ang cã  <color=yellow>"..i.."<color> ng­êi online !",
            "LÊy trang bÞ/laytrangbi",
            "LÊy vò khÝ/layvukhi",
            "LÊy ngùa/layngua",
            "Hæ trî admin/hotro",
            "Nguyªn liÖu Ðp ®å/nguyenlieu",
            "HuyÒn tinh/ht",
            "LÊy bÝ kÝp/bk",
            "Qu¶n lý ng­êi ch¬i/system",
            "Tho¸t/Exit"})
    end
    
    function nguyenlieu()
    AddEventItem(3)
    AddEventItem(145)
    AddEventItem(146)
    AddEventItem(14)
    AddEventItem(128)
    AddEventItem(129)
    end
    
    function hotro()
    SayEx({"Server ®ang cã  <color=yellow>"..i.."<color> ng­êi online !",
    "T¨ng kinh nghiÖm/kn",
    "TiÒn,danh väng,phuc duyen/diem",
    "Tµi l·nh ®¹o/lanhdao",
    "Hoµng Kim LÖnh/hkl",
    "TiÒn Kú Tr©n C¸c/tienktc",
    "Tho¸t/no"})
    end
    
    function tienktc()
    for i=2,20 do
    AddEventItem(152)
    AddEventItem(155)
    end
    end
    
    function hkl()
    for i=1,10 do 
    AddEventItem(49)
    end
    end
        
    function lanhdao()
    for i=1,20 do
    AddLeadExp(10000000)
    end
    end
    
    function ht()
    Say("Chon huyen tinh may !",11,
    "Huyen tinh 1/ht1",
    "Huyen tinh 2/ht1",
    "Huyen tinh 3/ht1",
    "Huyen tinh 4/ht1",
    "Huyen tinh 5/ht1",
    "Huyen tinh 6/ht1",
    "Huyen tinh 7/ht1",
    "Huyen tinh 8/ht1",
    "Huyen tinh 9/ht1",
    "Huyen tinh 10/ht1",
    "Thoat/no")
    end
    
    function ht1(sel)
    n = sel + 1
    AddEventItem(3+n)
    AddEventItem(3+n)
    AddEventItem(3+n)
    Msg2Player("Nhan duoc HT!")
    end
    
    
    function kn()
    for i=1,20 do
    AddOwnExp(10000000)
    end
    end
    
    function diem()
    Earn(100000000)
    AddRepute(10000)
    SetTask(12,100000)
    SetTask(14,100000)
    end
    
    function bk()
    for i=75,102 do
    AddEventItem(i)
    end
    for i=161,170 do
    AddEventItem(i)
    end
    end
    
    function laytrangbi()
    Say("Xin moi chon !",11,
    "+1/hktb",
    "+2/hktb",
    "+3/hktb",
    "+4/hktb",
    "+5/hktb",
    "+6/hktb",
    "+7/hktb",
    "+8/hktb",
    "+9/hktb",
    "+10/hktb",
    "Thoat/no")
    end
    
    function hktb(sel)
    n = sel + 1
    SetTaskTemp(34,n)
    Say("Xin moi chon !",9,
    "ao/ao",
    "daychuyen/daychuyen",
    "dai/dai",
    "giay/giay",
    "baotay/baotay",
    "non/non",
    "ngocboi/ngocboi",
    "nhan/nhan",
    "thoat/no")
    end
    
    function ao()
    Say("!!!",3,"Loai 1/ao1","Loai 2/ao2","Thoat/no")
    end
    
    function ao1()
    for i=1,9 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    end
    function ao2()
    for i=10,17 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    end
    
    function daychuyen()
    for i=18,26 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    end
    
    function dai()
    for i=27,46 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    end
    
    function giay()
    for i=47,59 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    
    end
    
    function baotay()
    for i=60,73 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    
    end
    
    
    function non()
    for i=74,82 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    AddItem(0,7,39,GetTaskTemp(34),0,0,5)
    end
    
    
    function ngocboi()
    for i=83,94 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    
    end
    
    function nhan()
    for i=95,114 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    
    end
    
    --temp 34 , 35
    
    
        function no()
        SetTaskTemp(34,0)
        end
        
    function layvukhi()
    Say("!!!",3,"Loai 1/vukhi1","Loai 2/vukhi2","Thoat/no")
    end
    
    function vukhi1()
    for i=115,123 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    
    end
    
    function vukhi2()
    for i=124,131 do
    AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
    end
    
    end
    function layngua()
    Say("Xin moi chon !",10,"Phi Van/ngua","Bon Tieu/ngua","Phien Vu/ngua","Xich Long Cau/ngua","Sieu Quang/ngua","Cop Trang/ngua","Cop Vang/ngua","Cop Den/ngua","Ngua vip/ngua","Thoat/no")
    end
    
    function ngua(sel)
    --if GetTask(147) == 0 then
    n = sel + 1
    if n == 1 then
    a = 8
    b = 10
    elseif n == 2 then
    a = 6
    b = 10
    elseif n == 3 then
    a = 7
    b = 10
    elseif n == 4 then
    a = 9
    b = 10
    elseif n == 5 then
    a = 11
    b = 10
    elseif n >= 6 or n <= 9 then
    a = 12
    b = n - 5
    else
    end
    
    --SetTask(147,1)
    AddItem(0,10,a,b,0,0,0)
    Msg2Player("Nhan duoc Ngua")
    --else
    --Msg2Player("Moi nhan vat chi duoc nhan ngua 1 lan")
    --end
    end
    ai giúp với dev mãi không đc !! gà mà !!
    Lần sửa cuối bởi thaihoa91, ngày 22-05-12 lúc 12:37 PM.
    Khách viếng thăm hãy cùng tongtulenh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên tongtulenh's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    143
    Thanks
    29
    Thanked 106 Times in 33 Posts

    Ðề: Giúp Em Add Chức năng gọi boss tiểu, đại vào trong chức năng GM với !!

    Del chức năng Gọi Boss Tiêu và Boss Đại + Del Boss Tiểu và Boss Đại luôn nha anh
    tkssssssssssssssssssssssssssssssssssssssssssssssss sssss
    Khách viếng thăm hãy cùng tongtulenh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    Thành Viên
    Ngày tham gia
    Jul 2010
    Bài viết
    362
    Thanks
    18
    Thanked 6 Times in 6 Posts

    Ðề: Giúp Em Add Chức năng gọi boss tiểu, đại vào trong chức năng GM với !!

    bạn có thể pm yahoo : duc.alone mìh sẽ giúp bạn
    Khách viếng thăm hãy cùng mrduc121 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. Xin Sever JXOFF đã có chức năng boss HK sẵn !
    Bởi sevendays trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 7
    Bài viết cuối: 13-06-12, 08:08 AM
  2. [KT] Cần xin 1 Túi tân thủ full trang bị + tính năng + có thế gọi đc boss
    Bởi kuboon113 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 21-02-12, 04:34 PM
  3. làm sao để chỉnh item trong các NPC & mở chức năng của NPC
    Bởi lovedark90 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 13-05-11, 07:27 PM
  4. server của thaihoa91 chức năng săn boss sát thủ lỗi
    Bởi nguyenquocbo trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 28-11-10, 08:26 AM
  5. Hướng dẫn sử dụng chức năng trong game
    Bởi dangquangdai trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 28-02-09, 08:39 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à 12:02 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ệ.