DisasterMan Bulmaca Kutusu Quest

[DisasterMan]

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!

Merhaba Değerli Forum Üyeleri Forumda Yeniyim Elimde Olan Questleri Paylaşayım Dedim

Çalıştığına Dair Kanıt

quest kids_day_quiz begin
    state start begin
    when login with game.get_event_flag("kids_day_quiz") > 0 begin
        send_letter("Bulmaca Kutusu")
    end
        when button or info begin
            say_title("Bulmaca Kutusu ")
            say("Sadece bugüne özel bir yarışma!")
            say("")
            say_item_vnum(50034)
            say("Yaratıklardan bulmaca kutusunu ele geçir [ENTER]ve soruları yanıtla.")
            say("")
            say("İyi Şanslar. ")
            say("")
        
        end
        when 20041.chat."GM: Bilgi Yarışmasını Durdur " with pc.is_gm() and game.get_event_flag("kids_day_quiz")!=0 begin
                say("Bilgi yarışmasını durdurmak istiyor musun? ")
                local s=select("Durdur ", "Vazgeç ")
                if s==1 then
                    game.set_event_flag("kids_day_quiz", 0)
                    notice_all("Bilgi yarışı sona erdi.")
                end
        end
        when 20041.chat."GM: Bilgi Yarışması " with pc.is_gm() and game.get_event_flag("kids_day_quiz") == 0 begin
            say("Bilgi yarışmasını başlatmak istiyor musun? ")
                local s=select("Başlat ", "Vazgeç ")
                if s==1 then
                    game.set_event_flag("kids_day_quiz",1)
                    notice_all("Bilgi yarışması başlamıştır. Bulmaca kutularını yaratıklardan ")
                    notice_all("elde edebilirsin. Kutudaki 3 soruyu doğru yanıtla ödülü al.")
                end
        end
        when kill with game.get_event_flag("kids_day_quiz") == 1 and not npc.is_pc() begin
            if get_mob_level[npc.get_race()] > pc.get_level() - 10 then
            local sss = number(1, 500)
                if sss < 10 then
                game.drop_item_with_ownership("50034",1)
                return
                end
            end
        end
        when 50034.use begin
            say_title("Bilgi Yarışması! ")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Bilgi yarışmasına hoş geldin! Eğer 3 soruyu ")
            say("doğru cevaplarsan ödül kazanacaksın. ")
            say("")
            say("Hazır mısın? ")
            say("")
            local s=select("Hadi Başlayalım! ", "Vazgeçtim. ")
            if 2==s then
                return
            end


            --pc.remove_item(50034, 1)
            item.remove()


            local size=3
            local chance=pc.getqf("chance")


            -- Chance!
            if 0==chance then
                pc.setqf("chance", number(3, 5))
            elseif pc.getqf("success_count")==chance then
                pc.setqf("success_count", 0)
                pc.setqf("chance", number(3, 5))
                size=5
            end


            say_title("Bilgi Yarışması! ")


        say("")
        ----"123456789012345678901234567890123456789012345678901234567890"|
        say(""..size.." soruyu doğru cevaplarsan ")
        say("ödül kazanacaksın. ")


            wait()


            for i=1, size+1 do


                local quiz_index=number(1, table.getn(locale.quiz))
                local quiz_data=locale.quiz[quiz_index]


                say_title("Bilgi Yarışması #"..i.." ")
                say("")
                say(quiz_data[1])
                say("")
                local s=select(quiz_data[2], quiz_data[3], quiz_data[4], quiz_data[5])
                if s==quiz_data[6] then
                    if i==size then
                        say_title("Bilgi Yarışması! ")
                        say("")
                        say("Tüm soruları doğru cevapladın, ")
                        say("işte ödülün! ")
                        say("")


                        pc.setqf("success_count", pc.getqf("success_count")+1)


                        if 5==size then
                            say_item_vnum(50036)
                            say_reward("Mor hediye sandığı kazandın. ")
                            pc.give_item2(50036)
                        else
                            say_item_vnum(50035)
                            say_reward("Sarı hediye sandığı kazandın. ")
                            pc.give_item2(50035)
                        end
                        say("")
                        return
                    else
                        say_title("Bilgi Yarışması! ")
                        say("")
                        say_reward("Doğru! ")
                        say("")
                        say("Bir sonraki soruya geçiliyor. ")
                        say("")
                        wait()
                    end
                else
                    say_title("Bilgi Yarışması! ")
                    say("")
                    say("Yanlış cevap! ")
                    say("")
                    say("Üzgünüm, daha sonra tekrar dene! ")
                    say("")
                    return
                end
            end


        end
    end
end

Okuduğunuz İcin Tesekürler



Bi Tesekür Yeterli



İyi Forumlar

​

 

[kinqilleqal]

Hocam çalıştığına dair kanıt eklemelisin..

 

[DisasterMan]

Hocam çalıştığına dair kanıt eklemelisin..

Eklenmiştir Tesekürler.

 

[lSanchez]

Teşekkür ettim.

 

[SKYBulut]

Bilgi için teşekkürler