[SERVICE] Die Questkontrolle

quest bio2 begin
    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, "Biologe") 
            end 
            send_letter("Die Forschung des Biologen") 
        end 
        when button or info begin 
            say_title("Die Forschung des Biologen") 
            say("") 
            say("Der Biologe benötigt deine Hilfe.") 
            say("Sprich mit ihm.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Orkzähne" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("") 
            say("Oh, du hilfst mir?") 
            say("Gut ...") 
            say("Ich bin übrigens der Biologe") 
            say("und studiere zahlreiches aus der Pflanzenwelt.") 
            say("Wenn du mir bei meinen Forschungen hilfst,") 
            say("werde ich dich reich belohnen.") 
            say("") 
            wait() 
            say("Biologe:") 
            say("Ich habe vor kurzem wieder angefangen ...") 
            say("Ich Forsche an einer Legende ...") 
            say("Doch habe ich derzeit viel zu tun,") 
            say("es währe also nett, wenn du mir hilfst ...") 
            say("") 
            wait() 
            say("Biologe:") 
            say("Ich benötige zehn Orkzähne für meine Forschungen.") 
            say("Diese sind jedoch sehr zerbrechlich,") 
            say("es kann also sein, dass einige bei") 
            say("meinen Untersuchungen kaputt gehen.") 
            say("Ich benötige alle zehn,") 
            say("um meine Forschungen vollenden zu können.") 
            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("Orkzähne") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("zehn Orkzähne zu sammeln.") 
            say("Sammelt und bringt sie dem Biologen.") 
            say("") 
            say_item_vnum(30006)  
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 20084.chat."Orkzähne" with pc.count_item(30006)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob dieser Zahn in Ordnung ist ...") 
                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("Biologe:") 
                        say("Hervorragend, dieser Zahn ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 10 Stück gebracht...") 
                        say("Nun bitte ich dich noch, mir den") 
                        say("Jinunggyis Seelenstein zu bringen.") 
                        say("Du bekommst ihn von Stolzen Orks ...")     
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_jinunggyis) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, aber der Zahn ist bei") 
                    say("den Untersuchungen zerbrochen.") 
                    say("Bitte hol mir einen neuen Orkzahn!") 
                    say("") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir den Zahn später.") 
                say("") 
            end 
        end 
    end 
    state collect_jinunggyis begin 
        when letter begin 
            send_letter("Jinunggyis Seelenstein") 
        end 
        when button or info begin 
            say_title("Jinunggyis Seelenstein") 
            say("") 
            say("Ihr habt alle zehn Orkzähne gesammelt.") 
            say("Nun müsst ihr Jinunggyis Seelenstein erbeuten.") 
            say("") 
            say_item_vnum(30220) 
            say("Ob dieser Stein tatsächlich eine Seele enthält?") 
            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."Jinunggyis Seelenstein" begin 
            if pc.count_item(30220)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um Jinunggyis Seelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30220,1) 
                set_state(jinunggyis_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 10 Stück gebracht...") 
                say("Nun bitte ich dich noch, mir den") 
                say("Jinunggyis Seelenstein zu bringen.") 
                say("Du bekommst ihn von Stolzen Orks ...")     
                say("Ich denke, dafür bist du stark genug.") 
                say("")         
            end 
        end 
    end     
    state jinunggyis_reward begin 
        when letter begin 
            send_letter("Sprich mit 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("Um die Belohnung des Biologen zu erhalten") 
            say("suche mit den Informationen der") 
            say("Orkzähne und des Seelensteins Baek-Go auf.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Bewegungsgeschwindigkeit +33% (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.MOV_SPEED, 33, 60*60*24*365*60) 
            set_state(collect_quest_lv40) 
        end 
    end 
end