Quest Epigrafe

quest epigrafe begin
    state start begin
        function GetFailurePerc()
            return 50   -- Inserire qua la percentuale di fallimento degli oggetti consegnati
        end

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

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

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

        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("go_to_disciple")
        end
    end

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

        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

        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

        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
                    send_letter("Trova Uriel")
                end

                when button or info begin
                    say_title("Trova Uriel")
                    say("Cerca Uriel per")
                    say("decifrare gli antichi simboli.[ENTER]")
                end
            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

        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

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

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

        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
                    send_letter("Trova Uriel")
                end

                when button or info begin
                    say_title("Trova Uriel")
                    say("Cerca Uriel per")
                    say("le informazioni riguardo la chiave.[ENTER]")
                end
            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

        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
                say_title("La chiave")
                say("Buona fortuna!")
                say("Sconfiggi la Baronessa Ragno")
                say("e salve il nostro mondo!")
            end
            set_state("finish")
        end

        state finish begin
        end
    end
end