--**
--** Script biologo lv30
--** by BlackYuko Skype: manu___88
--**

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

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

    state information begin
        when letter begin
            local v = find_npc_by_vnum(20084)
            if v != 0 then
                target.vid("biologo", v, "Biologo")
            end
            q.set_icon("scroll_open_green.tga")
            send_letter("&Gli studi del Biologo")
        end

        when button or info begin
            say_title("Le richieste del biologo")
            say("Il biologo Chaegirab, l'allievo di")
            say("Uriel, sta disperatamente cercando")
            say("il tuo aiuto. Vai da lui per aiutarlo.[ENTER]")
        end

        when biologo.target.click or 20084.chat."I denti di Orco" begin
            target.delete("biologo")
            say_title("Biologo Chaegirab")
            say("Salve avventuriero.")
            say("Sto raccogliendo informazioni sui")
            say("mostri del nostro regno, ma non")
            say("posso occuparmene da solo.")
            say("Penso immaginerai che io, in")
            say("quanto semplice biologo, ho dei")
            say("problemi nel farlo. Per favore,")
            say("aiutami. Ovviamente riceverai una")
            say("ricompensa per l'aiuto.[ENTER]")
            wait()
            say_title ( "Biologo Chaegirab" )
            say("Al momento sto esaminando" )
            say("gli orchi neri della Valle del Drago.")
            say("I loro denti sono ricchi di calcio,")
            say("ecco perche sono cosi' interessanti")
            say("per la produzione di medicine.[ENTER]")
            wait()
            say_title("Biologo Chaegirab")
            say("Potresti procurarmi 10")
            say("denti? Ma mi servono dei")
            say("particolari denti, percio' fai molta")
            say("attenzione quando me li porti.[ENTER]")
            set_state("go_to_disciple")
        end
    end

    state go_to_disciple begin
        when enter begin
            pc.setqf("collect_count", 0)
        end

        when letter begin
            q.set_icon("scroll_open_green.tga")
            send_letter("&I Denti della Valle")
        end

        when button or info begin
            say_title("I denti della Valle del Drago")
            say("Il biologo Chaegirab ha bisogno")
            say("di 10 denti degli orchi della Valle")
            say("del Drago per le sue ricerche.")
            say("Portagliene sempre uno alla volta,")
            say("cosi da dargli il tempo di")
            say("esaminarli.[ENTER]")
            say_item_vnum(30006)
            say("")
            say_reward("Finora hai raccolto "..pc.getqf("collect_count").." denti.[ENTER]")
        end

        when 20084.chat."Hai un Dente D'Orco?" with pc.count_item(30006) > 0 begin
            say_title("Biologo Chaegirab")
            say("Mi hai portato "..pc.count_item("30006").." denti d'orco...")
            say("Fammelo esaminare un attimo.[ENTER]")
            if pc.count_item("30006") > 10 then
                if pc.getqf("collect_count") + pc.count_item("30006") >= 10 then
                    pc.remove_item(30006, 10 - pc.getqf("collect_count"))
                else
                    pc.remove_item(30006, 10)
                end
            else
                if pc.getqf("collect_count") + pc.count_item("30006") >= 10 then
                    pc.remove_item(30006, 10 - pc.getqf("collect_count"))
                else
                    pc.remove_item(30006, pc.count_item("30006"))
                end
            end
            wait()
            local n = number(1, 100)
            if n < collect_quest_lv30.GetFailurePerc() then
                say_title("Biologo Chaegirab")
                say("Questo dente non e' adatto alle")
                say("mie ricerche. Portamene un altro.[ENTER]")
                return
            end
            if pc.getqf("collect_count")+ pc.count_item("30006") < 9  and pc.count_item("30006") <= 10 then
                pc.setqf("collect_count", pc.getqf("collect_count")+pc.count_item("30006"))
                say_title("Biologo Chaegirab")
                say("Ben fatto avventuriero!")
                say("Questo dente Orco e' adatto alle mie ricerche.[ENTER]")
                say_reward("Devi portarmi solo altri "..10-pc.getqf("collect_count").." denti d'Orco.[ENTER]")
                return
            end
            if pc.getqf("collect_count")+ pc.count_item("30006") < 9  and pc.count_item("30006") > 10 then
                pc.setqf("collect_count", pc.getqf("collect_count")+pc.count_item("30006"))
                say_title("Biologo Chaegirab")
                say("Ben fatto avventuriero!")
                say("Questo dente Orco e' adatto alle mie ricerche.[ENTER]")
                say_reward("Devi portarmi solo altri "..10-pc.getqf("collect_count").." denti d'Orco.[ENTER]")
                return
            end
            say_title("Biologo Chaegirab")
            say("Perfetto, ora ho denti a sufficienza per")
            say("le mie ricerche.")
            say("")
            set_state("key_item")
        end

        when leave begin
            pc.delqf("collect_count")
        end
    end

    state key_item begin
        when letter begin
            if pc.count_item(30220) > 0 then
                q.set_icon("scroll_open_green.tga")
                send_letter("&Hai trovato la Pietra Anime")
            else
                q.set_icon("scroll_open_green.tga")
                send_letter("&Trova la Pietra delle Anime")
            end
        end

        when button or info begin
            say_title("Pietra Anime")
            if pc.count_item(30220) > 0 then
                say("Hai trovato la Pietra Anime,")
                say("torna dal Biologo Chaegirab per")
                say("ottenere la ricompensa.[ENTER]")
            else
                say("Trova la Pietra delle Anime")
                say("per finire la missione:[ENTER]")
                say_item_vnum(30220)
                say("")
            end
        end

        when kill with npc.get_race() == 635 or npc.get_race() == 636 or npc.get_race() == 637 begin
            if pc.count_item(30220) == 0 then
                local s = number(1, 100)
                if s == 7 or s == 20 then
                    pc.give_item2(30220, 1)
                    chat("Hai trovato la pietra delle anime! Torna dal biologo")
                end
            end
        end

        when 20084.chat."Ho la Pietra Anime" with pc.count_item(30220) > 0 begin
            say_title("Biologo Chaegirab")
            say("Adesso che hai trovato la Pietra Anime")
            say("potrò finalmente completare le mie")
            say("ricerche. Vai a risquotere la ricompensa")
            say("da Baek-Go.[ENTER]" )
            pc.remove_item(30220, 1)
            set_state("__reward")
        end
    end

    state __reward begin
        when letter begin
            q.set_icon("scroll_open_green.tga")
            send_letter("&Trova Baek-go")
            local v = find_npc_by_vnum(20018)
            if v != 0 then
                target.vid("baekgo", v, "Baek-go")
            end
        end

        when button or info begin
            say_title("Trova Baek-go")
            say("Hai aiutato il biologo con le sue ricerche.")
            say("Vai da Baek-Go per la ricompensa.[ENTER]")
        end

        when baekgo.target.click  or 20018.chat."Ricompensa Denti Orco"  begin
            target.delete("baekgo")
            say_title("Baek-go")
            say("Mi ha detto il biologo che sei riuscito")
            say("a concludere le sue ricerche,")
            say("portandogli cio' di cui aveva bisogno.")
            say("Ti preparo una pozione speciale per")
            say("ricompensarti.[ENTER]")
            say_reward("Ricevi:")
            say_reward("  +10% velocita' movimento (permanente).[ENTER]")
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
            q.done()
            set_quest_state("collect_quest_lv40", "run")
            set_state("__complete")
        end
    end

    state __complete begin
    end
end