Kaynak Kodu Metin2 PVP Quests Su-İnci-Bar

[asmodeus27]

Spoyler: KOD

quest paket_sistemi begin
state start begin
when 30129.chat."Paket İşlemleri" begin
say_title("Paketçi")
say("Merhaba! Paket yapmak veya bozmak mı istiyorsun?")
local secim = select("Paket Yapma", "Paket Bozdurma", "Kapat")

-- Paket Yapma işlemleri
if secim >= 1 and secim <= 2 then
local alt_secim = select("Bar Paketi", "Su Paketi", "İnci Paketi", "Kapat")
-- Paket Yapma işlemleri
if secim == 1 then
if alt_secim == 1 then
-- Bar Paketi Yapma
local count = pc.count_item(80007)
if count < 1000 then
say_title("Paketçi")
say("Yeterli 400M Bar'ın yok.")
say("Paket yapabilmek için " .. 1000 - count .. " tane daha 400M Bar getir.")
return
end
pc.remove_item(80007, 1000)
pc.give_item2(83014, 1)
say_title("Paketçi")
say("Büyük Bar Paketin envanterine gönderildi!")
elseif alt_secim == 2 then
-- Su Paketi Yapma
local count = pc.count_item(27991)
if count < 1000 then
say_title("Paketçi")
say("Yeterli Su Taşı yok.")
say("Paket yapabilmek için " .. 1000 - count .. " tane daha Su Taşı getir.")
return
end
pc.remove_item(27991, 1000)
pc.give_item2(83015, 1)
say_title("Paketçi")
say("Büyük Su Taşı Paketin envanterine gönderildi!")
elseif alt_secim == 3 then
-- İnci Paketi Yapma
local beyaz_inci = pc.count_item(27992)
local mavi_inci = pc.count_item(27993)
local kirmizi_inci = pc.count_item(27994)
if beyaz_inci < 1000 then
say_title("Paketçi")
say("Yeterli Beyaz İnci'n yok.")
say("Paket yapabilmek icin "..1000-beyaz_inci.." tane daha Beyaz inci getir.")
return
elseif mavi_inci < 1000 then
say_title("Paketçi")
say("Yeterli Mavi inci'n yok.")
say("Paket yapabilmek icin "..1000-mavi_inci.." tane daha Mavi inci getir.")
return
elseif kirmizi_inci < 1000 then
say_title("Paketçi")
say("Yeterli Kirmizi inci'n yok.")
say("Paket yapabilmek icin "..1000-kirmizi_inci.." tane daha Kirmizi inci getir.")
return
else
say_title("Paketçi")
pc.remove_item(27992,1000)
pc.remove_item(27993,1000)
pc.remove_item(27994,1000)
pc.give_item2(83016,1)
say_title("Paketçi")
say("Büyük İnci Paketin envanterine gönderildi!")
end
end
-- Paket Bozdurma işlemleri
elseif secim == 2 then
if alt_secim == 1 then
-- Bar Paketi Bozma
if pc.count_item(83014) < 1 then
say_title("Paketçi")
say("Bar Paketin yok.")
return
end
pc.remove_item(83014, 1)
pc.give_item2(80007, 250)
pc.give_item2(80007, 250)
pc.give_item2(80007, 250)
pc.give_item2(80007, 250)
say_title("Paketçi")
say("Bar Paketini bozdum, 1000 adet 400M Bar verdim.")

elseif alt_secim == 2 then
-- Su Paketi Bozma
if pc.count_item(83015) < 1 then
say_title("Paketçi")
say("Su Taşı Paketin yok.")
return
end
pc.remove_item(83015, 1)
pc.give_item2(27991, 250)
pc.give_item2(27991, 250)
pc.give_item2(27991, 250)
pc.give_item2(27991, 250)
say_title("Paketçi")
say("Su Taşı Paketini bozdum, 1000 adet Su Taşı verdim.")

elseif alt_secim == 3 then
-- İnci Paketi Bozma
if pc.count_item(83016) < 1 then
say_title("Paketçi")
say("İnci Paketin yok.")
return
end
pc.remove_item(83016, 1)
pc.give_item2(27992, 250)
pc.give_item2(27992, 250)
pc.give_item2(27992, 250)
pc.give_item2(27992, 250)
pc.give_item2(27993, 250)
pc.give_item2(27993, 250)
pc.give_item2(27993, 250)
pc.give_item2(27993, 250)
pc.give_item2(27994, 250)
pc.give_item2(27994, 250)
pc.give_item2(27994, 250)
pc.give_item2(27994, 250)
say_title("Paketçi")
say("İnci Paketini bozdum, 1000'er adet İnci verdim.")
end
end
end
end
end
end

SALTANAT TİPİ FİLES İÇİNDİR VNUM KODU VE ADETİ KENDİNİZE GÖRE DÜZENLERSİNİZ

 

[Tuncc]

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