Cod: Selectaţi tot

quest biologist_sequence begin

    ----------------------------------
    -- LvL 30 / Dinti de orc
    ----------------------------------
    state start begin
        when login or levelup with pc.level>29 begin
            set_state(talk_to_disciple_lv30)
        end     
    end
    state talk_to_disciple_lv30 begin
        when letter begin
            local v = find_npc_by_vnum(20084)
            if v != 0 then target.vid("__TARGET__", v, "Cererea biologului")
            end
            send_letter("Cererea biologului")
        end
        when button or info begin
            say_title("Cererea biologului")
            say("")
            say("Biologul are nevoie de ajutorul tau")
            say("Dute si vorbeste cu el")
            say("")
            say_reward("Discuta cu biologul")
            say("")
        end
        when __TARGET__.target.click or 20084.chat."Orkzähne" begin
            target.delete("__TARGET__")
            say("Biolog:")
            say("")
            say("Oh,ai venit sa ma ajuti?")
            say("Ei bine ...")
            say("Eu sunt de altfel biologul")
            say("si ma ocup cu studierea numeroaselor plante")
            say("Daca ma ajuti cu cercetarea,")
            say("eu te voi rasplati din plin")
            say("")
            wait()
            say("Biolog:")
            say("Eu va voi rasplati din plin .")
            say("Vom face cercetarea pe o legenda")
            say("Dar eu trebuie sa fac mai intai in prezent ,")
            say("ar fi atat de frumos daca m-ai ajuta")
            say("")
            wait()
            say("Biolog:")
            say("Am nevoie de 10 dinti de orc pentru cercetarea mea.")
            say("Cu toate astea sunt foarte fragili ,")
            say("se poate ca la unii dinti")
            say("sa nu pot fi analizati")
            say("Am nevoie de toti cei 10,")
            say("pentru a finaliza cercetarea")
            say("")
            set_state(collect_orcteeth)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
        end
    end
    state collect_orcteeth begin
        when letter begin
            send_letter("Die Forschung des Biologen")
        end
        when button or info begin
            say_title("Dinti de orc")
            say("")
            say("Biologul ti-a dat mult de lucru,")
            say("sa colectezi cei 10 dinti de orc.")
            say("Colecteaza-i si adui pe toti la biolog.")
            say("")
            say_item_vnum(30006) 
            say_reward("Aveti in prezent "..pc.getqf("collect_count").." abgegeben!")
            say("")
        end
        when 20084.chat."Dinti de orc" with pc.count_item(30006)>0 begin
            if get_time()>pc.getqf("duration") then
                say("Un moment ...")
                say("Iti multumesc mult,")
                say("lasa-ma sa revizuiesc rapid")
                say("in cazul in care acest dinte este in ordine ...")
                say("")
                pc.remove_item("30006", 1)
                pc.setqf("duration",get_time()+300)
                wait()
                local rand = number(0,99)
                if rand<50 then
                    local count = pc.getqf("collect_count")+1
                    if count<10 then
                        pc.setqf("collect_count", count)
                        say("Biolog:")
                        say("Excelent,acest dinte este in ordine.")
                        say("Adu-mi altul.)
                        say("Se poate cerceta.")
                        say("")
                        say_reward("Aveti in prezent"..pc.getqf("collect_count").." abgegeben!")
                        say("")
                    else 
                        say("Biolog:")
                        say("Mi-ai adus 10 dinti.")
                        say("Acum,te rog s ate duci sa imi aduci piatra Jinunggyis")
                        say("Pentru a aduce piatra Jinunggyis.")
                        say("Trebuie sa te duci sa o procuri de la orcii mandrii...")     
                        say("Cred ca esti suficient de puternic pentru ea.")
                        say("")
                        pc.setqf("collect_count",0)
                        pc.setqf("duration",0) 
                        set_state(collect_jinunggyis)
                    end
                else                                 
                    say("Biolog:")
                    say("Imi pare rau dar acest dintele este")
                    say("deja putrezit")
                    say("Te rog sa-mi aduci un alt dinte de orc.")
                    say("")
                end
            else
                say("Biolog:")
                say("Imi pare rau")
                say("Studiile nu sunt terminate inca.")
                say("Te rog sa imi aduci un alt dinte mai tarziu.")
                say("")
            end
        end
    end
    state collect_jinunggyis begin
        when letter begin
            send_letter("Piatra Jinunggyis")
        end
        when button or info begin
            say_title("Piatra Jinunggyis")
            say("")
            say("Felicitari! Aveti toti cei 10 dinti de orc")
            say("Acum aveti nevoie sa capturati piatra Jinunggyis")
            say("")
            say_item_vnum(30220)
            say("Aceasta piatra de fapt contine un suflet")
            say("")
        end
        when 635.kill or 636.kill or 637.kill begin
            if pc.count_item(30220)<1 then
                local rand = number(0,99)
                if rand<5 then pc.give_item2(30220, 1)
                end
            end     
        end
        when 20084.chat."Piatra Jinunggyis" begin
            if pc.count_item(30220)>0 then
                say("Biolog:")
                say("Datorita muncii dumneavoastra avem acum")
                say("legenda pietrei Jinunggyis.")
                say("Ai luptat din greu.")
                say("Dute si vorbeste cu Baek-Go,")
                say("pentru a creste puterea ta interioara.")
                say("")
                pc.remove_item(30220,1)
                set_state(jinunggyis_reward)
            else
                say("Biolog:")
                say("Bravo,mi-ai adus 10 bucati")
                say("Acum eu va rog sa-mi aduceti piatra Jinunggyis")
                say("Pentru a aduce piatra Jinunggyis")
                say("Trebuie sa ucideti Orcii cei mandrii")     
                say("Cred ca esti suficient de puternic pentru a aduce piatra.")
                say("")         
            end
        end
    end     
    state jinunggyis_reward begin
        when letter begin
            send_letter("Discutati cu Baek-Go")
            local v = find_npc_by_vnum(20018)
            if v != 0 then target.vid("__TARGET__", v, "Doktor")
            end
        end
        when button or info begin
            say("Pentru a primi recomepnsa de la biolog")
            say("dute si vorbeste cu baek-go.")
            say("Acesta iti va creste competentele permanent!")
            say("")
        end
        when __TARGET__.target.click  or 20018.chat."Recompensa de la biolog" begin
            target.delete("__TARGET__")
            say_title("Baek-Go:")
            say("Eu vad...")
            say("Biologul v-a trimis la mine.")
            say("Iata rasplata ta:")
            say("")
            say_reward("Veti primi:")
            say_reward("Viteza de miscare +10% (permanent)")
            say("")
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
            set_state(collect_quest_lv40)
        end
    end