Quest Epigrafe Commentata

--[[
--  L'Epigrafe
--  Lv. 50
--  Copyright ©K1ll3rK1ng [SHIELD]
--  Version 1.0
--  Create: 31.03.2015
--  Rev. game: 40250
]]

quest epigrafe begin
    state start begin
        function GetFailurePerc()
            return 50   -- Inserire qua la percentuale di fallimento della creazione della chiave
        end -- end function

        when login or levelup with pc.get_level() >= 50 begin
            set_state("information")
        end -- end when
    end

    state information begin
        when letter begin
            local v = find_npc_by_vnum(20355)
            if v != 0 then
                target.vid("comandante", v, "Comandante")
            end-- end if
            send_letter("L'epigrafe")
        end -- end when

        when button or info begin
            say_title("L'epigrafe")
            say("Il Comandante,")
            say("ti sta cercando. Affrettati! [ENTER]")
        end-- end when

        when comandante.target.click or 20355.chat."L'epigrafe" begin
            target.delete("comandante")
            say_title("L'epigrafe")
            say("Salve avventuriero.")
            say("Son qui per affidarti un compito")
            say("importante per liberare il covo")
            say("dei ragni dalla famigerata")
            say("Baronessa Ragno.[ENTER]")
            wait()
            say_title ( "L'epigrafe" )
            say("Prima di affrontarla" )
            say("dovrai portare a termine")
            say("alcuni obiettivi.[ENTER]")
            wait()
            say_title("L'epigrafe")
            say("Potresti trascrivere")
            say("l'iscrizione della Lapide")
            say("situata alla fine del")
            say("Sotterraneo dei Ragni 3.[ENTER]")
            set_state("inizio")
        end -- end when
    end -- end state information

    state inizio begin
        when letter begin
            send_letter("L'epigrafe")
        end -- end when

        when button or info begin
            say_title("L'epigrafe")
            say("Il Comandante ha bisogno")
            say("dell'iscrizione della Lapide.")
            say("Corri al Sotterraneo dei Ragni 3")
            say("per trascriverla.[ENTER]")
            say("")
        end -- end when

        when 30130.chat."L'epigrafe" begin
            say_title("L'epigrafe")
            say("Hai trovato la Lapide.")
            say("Trascrivi l'iscrizione e torna")
            say("dal Comandante.[ENTER]")
            pc.give_item2(30127)
        end -- end when

        when 20355.chat."L'epigrafe" begin
            say_title("L'epigrafe")
            say("Salve"..pc.get_name())
            if pc.count_item(30127) == 1 then
                say("Vedo che sei riuscito a")
                say("ricopiare l'iscrizione")
                say("della Lapide.")
                say("Però io non sono in grado")
                say("di leggere gli antichi simboli.")
                say("Per questo ti chiedo di")
                say("dirigerti verso Uriel")
                say("per decifrare questi simboli.[ENTER]")

                when letter begin
                    local b = find_npc_by_vnum(20011)
                    if b != 0 then
                        target.vid("uriel", b, "Uriel")
                    end -- end if
                    send_letter("Trova Uriel")
                end -- end when

                when button or info begin
                    say_title("Trova Uriel")
                    say("Cerca Uriel per")
                    say("decifrare gli antichi simboli.[ENTER]")
                end -- end when
            else
                say("Hai ricopiato l'iscrizione?")
                say("Io non vedo nessun documento")
                say("con l'iscrizione.")
                say("Torna da me quando avrai ricopiato")
                say("l'iscrizione.[ENTER]")
            end -- end if
        end -- end when

        when uriel.target.click or 20011.chat."L'iscrizione" begin
            target.delete("uriel")
            say_title("L'iscrizione")
            say("Salve valoroso combattente,")
            say("qual buon vento ti porta da me?[ENTER]")
            wait()
            say_title("L'iscrizione")
            say("Capisco...")
            say("Il comandante ti ha mandato")
            say("da me per decifrare")
            say("gli antichi simboli della ")
            say("Lapide del Sotterraneo dei Ragni 3.[ENTER]")
            wait()
            say_title("L'iscrizione")
            say("Nessun problema, dammi un minuto")
            say("e l'iscrizione sarà decifrata.[ENTER]")
            pc.remove_item(30127, 1)
            wait()
            say_title("L'iscrizione")
            say("Perfetto, la traduzione è andata a buon fine!")
            say("Ecco a te l'iscrizione decifrata.")
            pc.give_item2(30128)
            say("Ora puoi tornare dal Comandante![ENTER]")
        end -- end when

        when letter begin
            local a = find_npc_by_vnum(20355)
            if a != 0 then
                target.vid("comandante", a, "Comandante")
            end -- end if
            send_letter("Torna dal Comandante")
        end -- end when

        when button or info begin
            say_title("Torna dal Comandante")
            say("Torna dal comandante")
            say("e consegnali l'iscrizione decifrata[ENTER]")
        end -- end when

        when when comandante.target.click or 20355.chat."L'epigrafe" begin
            say_title("L'epigrafe")
            say("Salve"..pc.get_name())
            if pc.count_item(30128) == 1 then
                say("Ottimo lavoro!")
                say("Mi hai portato l'iscrizione decifrata!")
                say("decifrata![ENTER]")
                wait()
                say_title("L'epigrafe")
                say("Il prossimo compito che ti affiderò")
                say("è quello di sconfiggere una volta")
                say("per tutte la Baronessa Ragno.[ENTER]")
                wait()
                say_title("L'epigrafe")
                say("Purtroppo io non sono in grado")
                say("fornirti la chiave necessaria per entrare")
                say("nel suo regno; però conosco qualcuno")
                say("che è in gradodi farlo.[ENTER]")
                wait()
                say_title("L'epigrafe")
                say("Recati da uriel.")
                say("Saprà come aiutarti.[ENTER]")

                when letter begin
                    local d = find_npc_by_vnum(20011)
                    if d != 0 then
                        target.vid("uriel", d, "Uriel")
                    end -- end if
                    send_letter("Trova Uriel")
                end -- end when

                when button or info begin
                    say_title("Trova Uriel")
                    say("Cerca Uriel per")
                    say("le informazioni riguardo la chiave.[ENTER]")
                end -- end when
            else
                say("Uriel non ti ha ancora")
                say("decifrato l'iscrizione?")
                say("Parla con Uriel e ")
                say("quando avrai l'iscrizione")
                say("decifrata torna da me.[ENTER]")
            end -- end if
        end-- end when

        when uriel.target.click or 20011.chat."La chiave" begin
            say_title("La chiave")
            say("Salve"..pc.get_name())
            say("Cosa ti porta da me quest'oggi?")
            say_reward("(riferisci ad Uriel le dichiarazioni del Comandante)[ENTER]")
            wait()
            say_title("La chiave")
            say("Quindi il Comandante ti ha dato l'ordine")
            say("di annientare la Baronessa Ragno?")
            say("Però l'ingresso alla Caverna Nido è chiuso,")
            say("e si lascia aprire solo con una Chiave degli Aracnidi.[ENTER]")
            wait()
            say_title("La chiave")
            say("Crearla è molto difficile...")
            say("te ne preparerò una se mi porterai:")
            say_reward("- Sacca Veleno di Ragno")
            say_reward("- Sacca di Uova di Ragno")
            say_reward("- Tela di Ragno")
            say_reward("- Occhi di Ragno")
            say_reward("- Zampa di Ragno ")
            say_reward("- Veleno della Regina Ragno[ENTER]")
            wait()
            if pc.count_item(30025) > 0 and pc.count_item(30058) > 0 and pc.count_item(30056) > 0 and pc.count_item(30057) > 0 and pc.count_item(30059) > 0 and pc.count_item(30326) > 0 then
                say_title("La chiave")
                say("Hai trovato tutti gli oggetti necessari...")
                say("Tentiamo la sorte e prepariamola.[ENTER]")
                wait()
                local n = number(1, 100)
                if n < epigrafe.GetFailurePerc() then
                    say_title("La chiave")
                    say("Purtroppo la creazione della chiave")
                    say("non è andata a buon fine.")
                    say("Portami altri item per cercare")
                    say("di crearne un'altra.[ENTER]")
                    return
                else
                    say_title("La chiave")
                    say("Ottimo!")
                    say("La creazione della chiave ")
                    say("è andata a buon fine.")
                    say("Eccola qui!")
                    say_item_vnum(30324)
                    pc.remove_item(30025, 1)
                    pc.remove_item(30058, 1)
                    pc.remove_item(30056, 1)
                    pc.remove_item(30057, 1)
                    pc.remove_item(30059, 1)
                    pc.remove_item(30326, 1)
                    pc.give_item2(30324)
                end -- end if
                say_title("La chiave")
                say("Buona fortuna!")
                say("Sconfiggi la Baronessa Ragno")
                say("e salve il nostro mondo!")
            end -- end if
            set_state("finish")
        end -- end when
    end-- end state inizio

        state finish begin
        end -- end state finish
end -- end quest