Kaynak Kodu Metin2 Pvp Quest [At Geliştirme Questi]

[PeterParker]

Spoyler: LUA KOD

quest horse_upgrade begin
state start begin
when 20349.chat."Atimi gelistirmek istiyorum." begin
say_title("Seyis:")
say_size(350,380)

if game.get_event_flag("horse_upgrade_active") != 1 then
say("Üzgünüm, at geliştirme sistemi şu anda aktif değil.")
say("Lütfen daha sonra tekrar deneyin.")
return
end

local para = {
1000000, 2000000, 3000000, 4000000, 5000000, 6000000, 7000000, 8000000, 9000000, 10000000,
11000000, 12000000, 13000000, 14000000, 15000000, 16000000, 17000000, 18000000, 19000000, 20000000,
21000000, 22000000, 23000000, 24000000, 25000000, 26000000, 27000000, 28000000, 29000000, 30000000
}

local item = {
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30
}

local itemID = 50050
local maxLevel = 30

function hesapla(baslangic_seviye, bitis_seviye)
local toplam_para, toplam_item = 0, 0
for i = baslangic_seviye, bitis_seviye - 1 do
toplam_para = toplam_para + (para or 0)
toplam_item = toplam_item + (item or 0)
end
return toplam_para, toplam_item
end

function kontrol(required_para, required_item)
if pc.get_money() < required_para or pc.count_item(itemID) < required_item then
say_title("Seyis:")
say("")
say_reward("Uzgunum, yeterli kaynak yok.")
if pc.get_money() < required_para then
say_reward("Yang miktariniz yetersiz.")
end
if pc.count_item(itemID) < required_item then
say_reward("At madalyonu miktariniz yetersiz.")
end
say_item("At madalyonu", itemID, "Bu, eski bir zirhtan alinmis bir parcadir.")
say_reward("Gerekli kaynaklari topladiginizda tekrar gelin.")
return false
end

pc.change_money(-required_para)
pc.remove_item(itemID, required_item)
return true
end

function gelistir(seviye_artisi)
local currentLevel = horse.get_level()
if currentLevel >= maxLevel then
say_title("Seyis:")
say("")
say_reward("Atiniz zaten maksimum seviyede.")
return
end

local hedef_seviye = math.min(currentLevel + seviye_artisi, maxLevel)
local required_para, required_item = hesapla(currentLevel, hedef_seviye)

say_title("Seyis:")
say("")
say_orange(" - Gerekenler -")
say_item_vnum_inline(50050, 0, 2) -- İlk eşya
say_item_vnum_inline(1, 1, 2) -- İkinci eşya
say_reward("Gelistirmek icin gereken Yang miktari: " .. format_number(required_para))
say_reward("Gelistirmek icin gereken At madalyonu: " .. required_item .. " adet")

local mesaj
if seviye_artisi == maxLevel - currentLevel then
mesaj = "Atinizi maksimum seviyeye yukseltmek istiyor musunuz?"
else
mesaj = "Atinizi " .. seviye_artisi .. " seviye gelistirmek istiyor musunuz?"
end
say_reward(mesaj)

if select("Evet", "Hayir") == 1 then
if kontrol(required_para, required_item) then
for i = currentLevel, hedef_seviye - 1 do
horse.advance()
end
say_title("Seyis:")
say("")
if hedef_seviye == maxLevel then
say_reward("Tebrikler! Atiniz basariyla maksimum seviyeye yukseltildi.")
else
say_reward("Tebrikler! Atiniz basariyla gelistirildi.")
end
say_reward("Atinizin yeni seviyesi: " .. hedef_seviye)
end
end
end

function say_orange(text)
local orange = color256(255, 165, 0) -- Turuncu renk
say(""..orange..text..color256(196, 196, 196))
end

function at_gelistirme_sistemi()
local currentLevel = horse.get_level()
if currentLevel >= maxLevel then
say_title("Seyis:")
say("")
say_reward("Atiniz zaten maksimum seviyede.")
return
end

say("Merhaba " ..pc.get_name())
say_reward("Binicilik seviyen: " .. currentLevel)
say_orange(" - Gerekenler -")
say_item_vnum_inline(50050, 0, 2) -- İlk eşya
say_item_vnum_inline(1, 1, 2) -- İkinci eşya

local secim = select("1 Seviye Gelistir", "5 Seviye Gelistir", "10 Seviye Gelistir", "Maksimum Seviyeye Yukselt", "Iptal")

if secim == 1 then
gelistir(1)
elseif secim == 2 then
gelistir(5)
elseif secim == 3 then
gelistir(10)
elseif secim == 4 then
gelistir(maxLevel - currentLevel)
else
say_title("Seyis:")
say("")
say("Anladim, belki daha sonra.")
end
end

at_gelistirme_sistemi()
end
end
end

Çalıştırmak için /e horse_upgrade_active 1 kodunu kullanın.

 

[Tuncc]

DC adresinizi atmadınız size birşey danışmak istiyorum