Kader Çarkı Questi

quest kader_carki begin
    state start begin
        when letter with pc.is_gm() begin
            send_letter("SeumonDizayn - Çark Paneli")
        end

        when button or info begin
            say_title("SeumonDizayn - Kader Çarkı Kontrol")
            local durum = game.get_event_flag("cark_aktif") == 1 and "Aktif" or "Kapalı"
            say("Şu anki durum: "..durum)
            local s = select("Sistemi Aç", "Sistemi Kapat", "Vazgeç")
            if s == 1 then
                game.set_event_flag("cark_aktif", 1)
                notice_all("SeumonDizayn: Kader Çarkı sistemi yönetici tarafından aktif edildi!")
            elseif s == 2 then
                game.set_event_flag("cark_aktif", 0)
                notice_all("SeumonDizayn: Kader Çarkı sistemi yönetici tarafından kapatıldı.")
            end
        end

        when 20095.chat."SeumonDizayn - Kader Çarkı" begin
            say_title("SeumonDizayn - Kader Çarkı")
            
            if game.get_event_flag("cark_aktif") == 0 then
                say_reward("Hata: Sistem şu an kapalı.")
                return
            end

            local son_zaman = pc.getqf("cark_zaman")
            local su_an = get_global_time()
            local bekleme_suresi = 86400

            if su_an < son_zaman + bekleme_suresi then
                local kalan = (son_zaman + bekleme_suresi) - su_an
                local saat = math.floor(kalan / 3600)
                local dakika = math.floor((kalan - (saat * 3600)) / 60)
                local saniye = math.mod(kalan, 60)
                
                say_reward("Henüz hazır değilsin.")
                say(string.format("Kalan Süre: %02d:%02d:%02d", saat, dakika, saniye))
                return
            end

            say("Hoş geldin! Çarkı çevirmek için 5.000.000 Yang gerekir.")
            say("Günde sadece 1 kez şansını deneyebilirsin.")
            say("Devam etmek istiyor musun?")
            
            if select("Çevir (5M)", "Kapat") == 1 then
                if pc.get_gold() < 5000000 then
                    say_reward("Hata: Yeterli paran yok.")
                    return
                end

                pc.change_gold(-5000000)
                pc.setqf("cark_zaman", su_an)
                
                local sans = math.random(1, 100)
                local odul_vnum = 0
                local odul_adet = 1
                local odul_isim = ""

                if sans <= 40 then
                    odul_vnum = 71084
                    odul_adet = 20
                    odul_isim = "20x Efsun Nesnesi"
                elseif sans <= 70 then
                    odul_vnum = 71085
                    odul_adet = 20
                    odul_isim = "20x Arttırma Kağıdı"
                elseif sans <= 85 then
                    odul_vnum = 25040
                    odul_adet = 5
                    odul_isim = "5x Kutsama Kağıdı"
                elseif sans <= 95 then
                    odul_vnum = 70039
                    odul_adet = 3
                    odul_isim = "3x Münzevi Tavsiyesi"
                else
                    odul_vnum = 25041 -- Büyülü Metal Örneği
                    odul_adet = 1
                    odul_isim = "1x Büyülü Metal"
                end

                pc.give_item2(odul_vnum, odul_adet)
                
                say_title("SeumonDizayn - Kader Çarkı")
                say("Tebrikler! Kazandığın ödül:")
                say_reward(odul_isim)
                
                if sans > 95 then
                    notice_all("SeumonDizayn: " .. pc.get_name() .. " Kader Çarkı'ndan nadir ödül kazandı: " .. odul_isim)
                end
            end
        end
    end
end