Pet Level Sistemi [ LUA ]

[DeadLyEscaPe]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu sistemin güzelliği sadece,
say("Evcil Hayvanınız "..pet_level..".seviyeye ulaştı!") demesinden başka bir güzelliği yok. Oysa pet ilk çağrıldığında özellik seçsek.
Ardından her level başı +3 puan verdiği özellikler artsa. Son levele ulaştığımızda;
Üzgünüm, evcil hayvanınız son seviyeye ulaştı, artık exp kazandıramazsınız. Uyarısı felan çıksa
Yani bu benim düşüncem yapabilen varsa buyursun

 

[ZacqooLeaven]

Bu sistemin güzelliği sadece,
say("Evcil Hayvanınız "..pet_level..".seviyeye ulaştı!") demesinden başka bir güzelliği yok. Oysa pet ilk çağrıldığında özellik seçsek.
Ardından her level başı +3 puan verdiği özellikler artsa. Son levele ulaştığımızda;
Üzgünüm, evcil hayvanınız son seviyeye ulaştı, artık exp kazandıramazsınız. Uyarısı felan çıksa
Yani bu benim düşüncem yapabilen varsa buyursun

quest çalışsa yapıcaz fakat tıklanınca gelmiyor ayrıca geliştirebilecek arkadaş biliyorum

 

[DeadLyEscaPe]

quest çalışsa yapıcaz fakat tıklanınca gelmiyor ayrıca geliştirebilecek arkadaş biliyorum

SKYPE: deadly.escape

ekleyin ben çalıştırırım questinizi. Ayrıca geliştirebilecek olan arkadaşı bende biliyorum fakat beni tınlamıyor kendisi

 

[DeadLyEscaPe]

quest pet_seviye begin    state start begin
        function give_pet_exp(ammount)
            local pet_item = pc.getqf("pet_item")
            local pet_level = pc.getqf("pet_"..pet_item.."_level")
            local pet_exp = pc.getqf("pet_"..pet_item.."_exp")
            local exp_table = {500,1500,3000,4500,6000,7500,9000,10500,12000,13500,15000,16500,18000,19500,21000,22500,24000,25500,27000,29500,31000,32500,34000,35500,37000}
            local mobVnum = pet_seviye.get_pet_info(pet_item)[1]
            
            local MAX_LEVEL = 25
            
            if pet_level <= MAX_LEVEL then
                if pet_exp > exp_table[pet_level] then
                    pet.spawn_effect(mobVnum, "d:ymir workeffectetclevelup_1level_up.mse")
                    pc.setqf("pet_"..pet_item.."_level",pet_level+1)
                    pc.setqf("pet_"..pet_item.."_exp",1)
                    syschat("Evcil Hayvan "..pet_level..".Seviyeye ulaştı!")
                else
                    pc.setqf("pet_"..pet_item.."_exp",pet_exp+ammount)
                end
            end
            
            if pet_level <= 5 then
                if pet_exp > exp_table[pet_level] then
                    pet.spawn_effect(mobVnum, "d:ymir workeffectetclevelup_1level_up.mse")
                    pc.setqf("pet_"..pet_item.."_level",pet_level+1)
                    pc.setqf("pet_"..pet_item.."_exp",1)
                    affect.add_collect(apply.MAX_HP,10000,60*60*24*365*60)
                    end
                end
            
        end
        function get_pet_info(itemVnum)
            pet_info_map = {
                [53001]     = { 34001, "'s", 0},
                [53002]     = { 34002, "'s", 0},
                [53003]     = { 34003, "'s", 0},
                [53005]     = { 34004, "'s", 0},
                [53006]     = { 34008, "'s", 0},
                [53007]     = { 34007, "'s", 0},
                [53008]     = { 34005, "'s", 0},
                [53009]     = { 34006, "'s", 0},
                [53004]     = { 34027, "'s", 0},
                [53010]     = { 34026, "'s", 0},
            }




            itemVnum = tonumber(itemVnum)




            return pet_info_map[itemVnum]
        end
        function get_spawn_effect_file(idx)
            effect_table = {
                [0] = nil,
                [1] = "d:ymir workeffectetcappear_dienpc2_appear.mse",
            }
            return effect_table [idx]
        end
        when 53001.use or 53002.use or 53003.use or 53004.use or 53005.use or 53006.use or 53007.use or 53008.use or 53009.use or 53010.use or 53011.use or 53012.use or 53013.use begin
            local pet_info = pet_seviye.get_pet_info(item.vnum)
            if pc.getqf("pet_"..item.vnum.."_exp") == 0 then
                pc.setqf("pet_"..item.vnum.."_exp",1)
                pc.setqf("pet_"..item.vnum.."_level",1)
            end
            pc.setqf("pet_item",item.vnum)
            if null != pet_info then




                local mobVnum = pet_info[1]
                local petName = pet_info[2]
                local spawn_effect_file_name = pet_seviye.get_spawn_effect_file(pet_info[3])




                if true == pet.is_summon(mobVnum) then
                    if spawn_effect_file_name != nil then
                        pet.spawn_effect (mobVnum, spawn_effect_file_name)
                    end
                    pet.unsummon(mobVnum)
                else
                    if pet.count_summoned() < 1 then
                        pet.summon(mobVnum, petName, false)
                    else
                        syschat(gameforge.pet_seviye._030_chat)
                    end
                    if spawn_effect_file_name != nil then
                        pet.spawn_effect (mobVnum, spawn_effect_file_name)
                    end
                end
            end
        end
        when kill with pet.count_summoned() == 1 and not npc.is_pc() begin
            local exp_give = number(1,40)
            local finnaly_exp = (pc.get_level() * exp_give / 10) * 2
            pet_seviye.give_pet_exp(finnaly_exp)
        end
    end
end

Yukarıda ki quest, pet 5.seviyeye ulaştığında 5.000 K hp verir. Her level atladığında bu sayı 2 katı artar. 6.Seviyeye ulaştığında 10k verir. 7.Seviyede 15. 8.Seviyede 20, böyle devam eder. Yalnız tek sorun pet gönderilince verilen özelliklerin gitmemesi. Benim elimden gelen bu şu questi saltanat gibi yapalım beyler

NOT: ayrıca peti gelmeyenler bu questi kullansınlar.

 

[Bekir Akdemir]

örnek verirmisiniz tam anlayamadım aynı sorun bendede mevcut

gameforge.pet_system._010_say ,0 kısmı Ateş Ankası olarak ayarlanılır veya Ates Ankasi