[SERVICE] Die Questkontrolle

Page 343 of 845

343

03/14/2012 18:20 ͺȺʂʞa#5131

KAnn mir auch jemand mal bei meienr quest helfen ?????????????????????????????????????????????????? ????????????????????????????????????????? die ist auf seite 510

03/14/2012 19:06 collado#5132

@�WhiT3� ends!

Spoiler

PHP Code:


			
quest zeitmessage begin 

    state start begin 

        when login or levelup or logout begin 



            local zeit = os.date("%H",os.time())

            if zeit == "0" then 

            notice_all("Ein neuer Tag beginnt! Es ist 0:00 Uhr.") 

            notice_all("Das Team w�nscht einen erholsamen Schlaf!") 

            timer("zeitmessage", 30*60) 

         

            elseif zeit == "1" then 

            notice_all("Es ist 1:00 Uhr.") 

            notice_all("Das Team w�nscht einen erholsamen Schlaf!") 

            timer("zeitmessage", 30*60) 

         

            elseif zeit == "2" then 

            notice_all("Es ist 2:00 Uhr.") 

            notice_all("Das Team w�nscht einen erholsamen Schlaf!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "3" then 

            notice_all("Es ist 3:00 Uhr.") 

            notice_all("Das Team w�nscht einen erholsamen Schlaf!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "4" then 

            notice_all("Es ist 4:00 Uhr.") 

            notice_all("Das Team w�nscht einen erholsamen Schlaf!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "5" then 

            notice_all("Es ist 5:00 Uhr.") 

            notice_all("Langsam d�mmert der Morgen. Die Sonne geht bald auf!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "6" then 

            notice_all("Es ist 6:00 Uhr.") 

            notice_all("Die Sonne bald auf!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "7" then 

            notice_all("Es ist 7:00 Uhr.") 

            notice_all("Aufwachen ihr Schlafm�tzen! Es wird gleich hell!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "8" then 

            notice_all("Es ist 8:00 Uhr.") 

            notice_all("Guten Morgen liebe Spieler! Die Sonne geht auf!") 

            game.set_event_flag("eclipse", 0 ) 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "10" then 

            notice_all("Es ist 10:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Vormittag!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "11" then 

            notice_all("Es ist 11:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Vormittag!") 

            timer("zeitmessage", 30*60) 



            elseif zeit == "12" then 

            notice_all("Es ist 12:00 Uhr.") 

            notice_all("Guten Appettit beim Essen, liebe Spieler!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "13" then 

            notice_all("Es ist 13:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Nachmittag!") 

            timer("zeitmessage", 30*60) 

             

            elseif zeit == "14" then 

            notice_all("Es ist 14:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Nachmittag!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "15" then 

            notice_all("Es ist 15:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Nachmittag!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "16" then 

            notice_all("Es ist 16:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Nachmittag!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "17" then 

            notice_all("Es ist 17:00 Uhr.") 

            notice_all("Das Team w�nscht einen sch�nen Vorabend auf Zereus2!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "18" then 

            notice_all("Es ist 18:00 Uhr") 

            notice_all("Das Team w�nscht einen gem�tlichen Abend auf Zereus2!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "19" then 

            notice_all("Es ist 19:00 Uhr") 

            notice_all("Das Team w�nscht einen gem�tlichen Abend auf Zereus2!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "20" then 

            notice_all("Es ist 20:00 Uhr.") 

            notice_all("Das Team w�nscht einen gem�tlichen Abend auf Zereus2!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "21" then 

            notice_all("Es ist 21:00 Uhr.") 

            notice_all("Das Team w�nscht einen gem�tlichen Abend auf Zereus2!") 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "22" then 

            notice_all("Es ist 22:00 Uhr.") 

            notice_all("Es ist Sp�t geworden auf Zereus2. Gute Nacht liebe Spieler!") 

            game.set_event_flag("eclipse", 1 ) 

            timer("zeitmessage", 30*60) 

                         

            elseif zeit == "23" then 

            notice_all("Es ist 9:00 Uhr.") 

            notice_all("Es ist Sp�t geworden auf Zereus2. Gute Nacht liebe Spieler!") 

            timer("zeitmessage", 30*60) 

            end 

        end 

             

        when zeitmessage.timer begin 

            notice_all("Teammitglieder fragen nie nach euren Accountdaten!") 

            notice_all("Teammitglieder erkennt ihr an den [GM]/[GA] etc. vor den Namen") 

            notice_all("Fallt nicht auf Faker herein!") 

        end

    end

end

@.H�rsT show us the error, because the quest itself look good, do not know how the function will be

mijago knows more than me, i do not know much of functions...

03/14/2012 23:28 buja12#5133

Ich br�uchte echt hilf��:D kann mir da jmnd helf��n :D
es kommt KEIN fehler alles complete nur wenn ich die 1te fertig habe kommt nachdem ich lv 40 lvle keine quest.... und ich wei� nicht wieso

Spoiler

Bio1:

PHP Code:


			
quest biologe1_quest  begin
    state start begin
        when login or levelup with pc.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("__TARGET__", v, "Biologenquest")
            end
            send_letter("Die Forschung des Biologen 1")
        end

        when button or info begin
            say_title("Die Forschung des Biologen 1")
            say("")
            say("Der Biologe braucht deine Hilfe!")
            say("Gehe zu ihm.")
            say("")
        end
        
        when __TARGET__.target.click or
            20084.chat."Die Orkzaehne" begin
            target.delete("__TARGET__")
            say_title("Biologe:")
            say("Oh!?! Du hilfst mir?")
            say("Gut ...")
            say("Nachdem du mir die letzten male schon")
            say("erfolgreich geholfen hast, hoff ich erneut")
            say("auf deine Hilfe. Ich werde dich")
            say("dafuer auch wieder angemessen belohnen.")
            wait()
            say_title("Biologe:")
            say("Ich habe vor kurzem zu Ohren bekommen")
            say("das sich die Orks im Lande breitmachen.")
            say("Wie ich von einigen Jaegern gehoert habe")
            say("lassen diese Orks nach ihrem Tot nur ihre")
            say("Orkzaehne zurueck. Wuerdest du mir helfen")
            say("und diese Orkzaehne fuer mich besorgen?")
            wait()
            say("Ich brauche 10  Orkzaehne um")
            say("meine Forschung ein fuer alle mal zu beenden.")
            say("Aber Orkzaehne sind sehr zerbrechlich")
            say("es kann also sein das ein paar bei")
            say("meinen Untersuchungen kaputt gehen.")
            say("Bitte verstehen sie das ich alle 10")
            say("brauche ich muss wissen was hinter der")
            say("Legende steckt ...")
            say("")                                                                                                                                                          
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Sammelauftrag: Orkzaehne")            
        end
        when button or info begin
            say_title("Orkzaehne")
            say("")
            say("Der Biologe gab euch den Auftrag")
            say("10 Orkzaehne zu sammeln!")
            say("Sammelt sie von den Orks im Orktal")
            say("und gebt sie dem Biologen.")
            say_item_vnum(30006) 
            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")
            say("")
        end
        
        when 71035.use begin
            if get_time() < pc.getqf("duration") then
                say("")
                say("�٤��i�H�ϥΰg�b�Ĥ�")
                say("")
                return
            end
            if pc.getqf("drink_drug")==1 then
                say("")
                say("�w�g�ϥΤF1��")
                say("")

                return
            end
            if pc.count_item(30006)==0 then
                say("Du hast keine!")
                say("Du sollst mir aber welche bringen.")
                say("")
                return
            end
            item.remove()    
            pc.setqf("drink_drug",1)
        end

        when 20084.chat."Die Orkzaehne!" with pc.count_item(30006) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title("Biologe:")
                say("Einen Moment ...")
                say("Vielen Dank,")
                say("lasst es mich schnell ueberpruefen")
                say("ob dieser Orkzahn in Ordnung ist ...")
                say("")
                pc.remove_item("30006", 1)
                pc.setqf("duration",get_time()+0*0*22)
                wait()                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=60
                else        
                    pass_percent=90
                end
                
                local s= number(1,100)
                if s<= pass_percent  then
                   if pc.getqf("collect_count")< 9 then
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)
                        say(pass_percent)
                        say_title("Biologe:")
                        say("Hervorragend dieser Zahn ist in Ordnung")
                        say("Du musst noch ".." "..10-pc.getqf("collect_count").. " abgeben!")
                        say("Bringt mir noch welche, damit ich die")
                        say("Forschungen abschlie�en kann.")
                        pc.setqf("drink_drug",0)
                        return
                    end
                    say_title("Biologe:")
                    say("Du hast mir die 10 Stueck gebracht...")
                    say("Nun bitte ich dich noch mir den")
                    say("Jinunggyis Seelenstein zu bringen du")
                    say("bekommst ihn von den Solzen Ork's im Orktal.")    
                    say("Ich denke das du stark genug bist, dass")
                    say("zu schaffen.")
                    say("")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    set_state(key_item)
                    return
                else                                
                say_title("Biologe:")
                say("Es tut mir leid aber dieser Zahn ist bei")
                say("den Untersuchungen zerbrochen.")
                say("Bitte hole mir einen Neuen!")
                say("")
                pc.setqf("drink_drug",0)
                return
                end
        else
          say_title("Biologe:")
          say("Oh entschuldige ich habe die letzten")
          say("Studien noch nicht beendet ...")
          say("Bitte bringe mir den Zahn wenn die")
          say("derzeitigen Studien beendet sind.")
          say("")
          return
        end

    end
end


    state key_item begin
        when letter begin
            send_letter("Jinunggyis Seelenstein")
            
            if pc.count_item(30220)>0 then    
                local v = find_npc_by_vnum(20084)
                if v != 0 then
                    target.vid("__TARGET__", v, "Biologenquest")
                end
            end

        end
        when button or info begin
            if pc.count_item(30220) >0 then
                say_title("Jinunggyis Seelenstein")
                say("")
                say("Du haste den Jinunggyis Seelenstein!")
                say("Gehe zu Biologe Chaegirab")
                say("und gib ihn ab.")
                return
            end
            say_title("Jinunggyis Seelenstein")
            say("")
            say("Ihr habt erfolgreich alle ")
            say("10 Orkzaehne gesammelt ...")
            say("Nun muesst ihr den Jinunggyis ")
            say("Seelenstein bekommen.")
            say_item_vnum(30220)
            say("Ob dieser Seelenstein tatsaechlich")
            say("eine Seele enthaelt?")
            say("")
        end
        

    
        when 631.kill or
             632.kill or 
             633.kill or
             634.kill  begin
            local s = number(1, 250)
            if s == 1 and pc.count_item(30220)==0 then
                pc.give_item2(30220, 1)
                send_letter("Jinunggyis Seelenstein")        
            end    
        end
        when    20084.chat."Jinunggyis Seelenstein!"    begin
            say_title("Biologe:")
            say("Du hast hart gekaempft ...")
            say("Dafuer werde ich deine innere Staerke erhoehen!")
            say("Ich werde dir ein Rezept geben mit dem")
            say("du deine Innere Kraft verbessern kannst!")
            say("Dank deiner Hilfe verstehe ich nun")
            say("die Legende um den Jinunggyis Seelenstein ...")
            say("Gehe mit diesen Informationen zu Baek-Go.")
            say("Er kann dir dabei helfen deine")
            say("Staerke zu erhoehen.")
            say("")
            pc.remove_item(30220,1)
            set_state(__reward)
        end
        
    end
    
    state __reward begin
        when letter begin
            send_letter("Belohnung des Biologen")
            
            local v = find_npc_by_vnum(20018)
            if v != 0 then
                target.vid("__TARGET__", v, "Baek-Go")
            end

        end
        when button or info begin
            say_title("Zugang zu der Belohnung des Biologen!")
            say("Um die Belohnen des Biologen zu erhalten")
            say("und die innere Staerke zu verbessern")
            say("suche Baek-Go auf.")
            say("")
        end
        
        when __TARGET__.target.click  or
            20018.chat."Rezept zur Verbesserung der inneren Kraft"  begin
            target.delete("__TARGET__")
            say("Baek-Go:")
            say("Ich sehe ..")
            say("Sie sagen das der Biologe sie schickte, ")
            say("wegen eines Rezeptes halber?")
            say("Zeigen sie mal her ...")
            say("...")
            say("")
            say_reward("Du hast dem Biologen erfolgreich geholfen")
            say_reward("Du erhaelst folgende Belohnungen:")
            say_reward("")
            say_reward("- Bewegungsgeschwindigkeit +10%")        
            say_reward("")    
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
            clear_letter()
            set_quest_state(biologe2_quest, run)
            set_state(__complete)
        end
            
    end

    
    state __giveup__ begin
        when 20084.chat."Sie wollen es versuchen?" begin
            say("Biologe:")
            say("Sie wollen es versuchen?")
            say("... und die Kraft die sie in sich tragen?")
            say("Sie muessen sich hier anmelden, bevor sie die")
            say("Aufgabe wieder aufnehmen koennen.")
            say("Das kann eine Minute dauern ...")
         end
     end
    state __complete begin
    end
end

Bio2:

PHP Code:


			
quest biologe2_quest  begin
    state start begin
        end
        state run begin
        when login or levelup with pc.level >= 40 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("__TARGET__", v, "Biologenquest")
            end
            send_letter("Die Forschung des Biologen 2")
        end

        when button or info begin
            say_title("Die Forschung des Biologen 2")
            say("")
            say("Der Biologe braucht erneut deine Hilfe!")
            say("Gehe zu ihm.")
            say("")
        end
        
        when __TARGET__.target.click or
            20084.chat."Fluchsammlungen" begin
            target.delete("__TARGET__")
            say_title("Biologe Chaegirab:")
            say("Oh!?! Schoen dass du da bist?")
            say("Gut ...")
            say("Nachdem du mir die letzten male schon")
            say("erfolgreich geholfen hast, hoff ich nochmals")
            say("auf deine Hilfe. Ich werde dich")
            say("dafuer auch wieder angemessen belohnen.")
            wait()
            say_title("Biologe Chaegirab:")
            say("Ich habe gehoert dass die Dunklen und")
            say("Hohen Peiniger Fluchsammlungen mit sich tragen.")
            say("Uriel lies mich wissen dass man mit diesen")
            say("Fluchsammlungen bestimmte Hexereien durchf�hren")
            say("kann. Wuerdest du mir helfen?,")
            say("und diese Fluchsammlungen fuer mich sammeln?")
            wait()
            say("Ich brauche 15 Fluchsammlungen um")
            say("meine Forschung ein fuer alle mal zu beenden.")
            say("Aber Fluchsammlungen sind sehr Staubig")
            say("es kann also sein das ich ein paar bei")
            say("meinen Untersuchungen nicht entziffern kann.")
            say("Ich brauche wirklich alle 15,")
            say("ich muss einfach wissen was hinter den")
            say("Hexereien steckt ...")
            say("")                                                                                                                                                          
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Sammelauftrag: Fluchsammlungen")            
        end
        when button or info begin
            say_title("Fluchsammlungen")
            say("")
            say("Der Biologe gab euch den Auftrag")
            say("15 Fluchsammlungen zu sammeln!")
            say("Sammelt sie von den Peinigern im Orktal")
            say("und gebt sie dem Biologen.")
            say_item_vnum(30047) 
            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")
            say("")
        end
        
        when 71035.use begin
            if get_time() < pc.getqf("duration") then
                say("")
                say("�٤��i�H�ϥΰg�b�Ĥ�")
                say("")
                return
            end
            if pc.getqf("drink_drug")==1 then
                say("")
                say("�w�g�ϥΤF1��")
                say("")

                return
            end
            if pc.count_item(30047)==0 then
                say("Du hast keine!")
                say("Bring mir bitte welche.")
                say("")
                return
            end
            item.remove()    
            pc.setqf("drink_drug",1)
        end

        when 20084.chat."Die Fluchsammlungen!" with pc.count_item(30047) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title("Biologe Chaegirab:")
                say("Einen Augenblick ...")
                say("Vielen Dank,")
                say("lass mich schnell ueberpruefen")
                say("ob diese Fluchsammlung entzifferbar ist ...")
                say("")
                pc.remove_item("30047", 1)
                pc.setqf("duration",get_time()+0*0*22)
                wait()                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=60
                else        
                    pass_percent=90
                end
                
                local s= number(1,100)
                if s<= pass_percent  then
                   if pc.getqf("collect_count")< 14 then
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)
                        say(pass_percent)
                        say_title("Biologe Chaegirab:")
                        say("Hervorragend diese Fluchsammlung kann ich entziffern")
                        say("Du hast bis jetzt ".." "..15-pc.getqf("collect_count").. " Abgegeben!")
                        say("Bringt mir noch welche, damit ich die")
                        say("Forschungen abschlie�en kann.")
                        pc.setqf("drink_drug",0)
                        return
                    end
                    say_title("Biologe Chaegirab:")
                    say("Du hast mir die 15 Stueck gebracht...")
                    say("Nun bitte ich dich noch mir den")
                    say("Tempel Seelenstein zu bringen du")
                    say("bekommst ihn von den Solzen dunkl. Fanatikern,")    
                    say("Stolze dunkl. K�mpfer und Stolze dunkl. Oberst")
                    say("im Hwang-Tempel. Ich denke das du")
                    say("stark genug bist, dass zu schaffen.")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    set_state(key_item)
                    return
                else                                
                say_title("Biologe Chaegirab:")
                say("Es tut mir leid aber diese Fluchsammlung  konnte ich")
                say("bei den Untersuchungen nicht entziffern.")
                say("Bitte hole mir eine Neue!")
                say("")
                pc.setqf("drink_drug",0)
                return
                end
        else
          say_title("Biologe Chaegirab:")
          say("Oh entschuldige ich habe die letzten")
          say("Studien noch nicht beendet ...")
          say("Bitte bringe mir die Fluchsammlung wenn die")
          say("derzeitigen Studien beendet sind.")
          say("")
          return
        end

    end
end


    state key_item begin
        when letter begin
            send_letter("Tempel Seelenstein")
            
            if pc.count_item(30221)>0 then    
                local v = find_npc_by_vnum(20084)
                if v != 0 then
                    target.vid("__TARGET__", v, "Biologenquest")
                end
            end

        end
        when button or info begin
            if pc.count_item(30221) >0 then
                say_title("Tempel Seelenstein")
                say("")
                say("Du haste den Tempel Seelenstein!")
                say("Gehe zu Biologe Chaegirab")
                say("und gib ihn ab.")
                return
            end
            say_title("Tempel Seelenstein")
            say("")
            say("Du hast erfolgreich alle ")
            say("15 Fluchsammlungen gesammelt ...")
            say("Nun musst du den Tempel- ")
            say("Seelenstein bekommen.")
            say_item_vnum(30221)
            say("Ob dieser Seelenstein wirklich")
            say("von den verstorbenen Seelen aus")
            say("dem Tempel Stammt?")
        end
        

    
        when 731.kill or
             732.kill or 
             734.kill or
             733.kill  begin
            local s = number(1, 250)
            if s == 1 and pc.count_item(30221)==0 then
                pc.give_item2(30221, 1)
                send_letter("Tempel Seelenstein")        
            end    
        end
        when    20084.chat."Tempel Seelenstein!"    begin
            say_title("Biologe Chaegirab:")
            say("Du hast hart gekaempft ...")
            say("Dafuer werde ich deine innere Staerke erhoehen!")
            say("Ich werde dir ein Rezept geben mit dem")
            say("du deine Innere Kraft verbessern kannst!")
            say("Dank deiner Hilfe verstehe ich nun")
            say("die Legende um den Tempel Seelenstein ...")
            say("Gehe mit diesen Informationen zu Baek-Go.")
            say("Er kann dir dabei helfen deine")
            say("Staerke zu erhoehen.")
            say("")
            pc.remove_item(30221,1)
            set_state(__reward)
        end
        
    end
    
    state __reward begin
        when letter begin
            send_letter("Infos des Biologen")
            
            local v = find_npc_by_vnum(20018)
            if v != 0 then
                target.vid("__TARGET__", v, "Baek-Go")
            end

        end
        when button or info begin
            say_title("Zugang zu den Informationen des Biologen!")
            say("Um die Belohnen des Biologen zu erhalten")
            say("und die innere Staerke zu verbessern")
            say("suche Baek-Go auf.")
            say("")
        end
        
        when __TARGET__.target.click  or
            20018.chat."Rezept zur Verbesserung der inneren Kraft"  begin
            target.delete("__TARGET__")
            say("Baek-Go:")
            say("Ich sehe ..")
            say("Sie sagen das der Biologe sie schickte, ")
            say("wegen eines Rezeptes halber?")
            say("Zeigen sie mal her ...")
            say("...")
            say("")
            say_reward("Du hast dem Biologen erfolgreich geholfen")
            say_reward("Du erhaelst folgende Belohnungen:")
            say_reward("")
            say_reward("- Angriffsgeschwindigkeit +5%")        
            say_reward("")    
            affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60)
            clear_letter()
            set_quest_state(biologe3_quest, run)
            set_state(__complete)
        end
            
    end

    
    state __giveup__ begin
        when 20084.chat."Sie wollen es versuchen?" begin
            say("Biologe Chaegirab:")
            say("Sie wollen es versuchen?")
            say("... und die Kraft die sie in sich tragen?")
            say("Sie muessen sich hier anmelden, bevor sie die")
            say("Aufgabe wieder aufnehmen koennen.")
            say("Das kann eine Minute dauern ...")
         end
     end
    state __complete begin
    end
end

PLSSSS HELP MEEEE�� :D

03/14/2012 23:40 collado#5134

@buja12
someone said the error

just that:

PHP Code:


			
            set_quest_state(biologe3_quest, run)
            set_state(__complete)

must be:

PHP Code:


			
                        set_quest_state("collect_quest_lv40", "run")
                        set_state(__complete)

Now it should work

Spoiler

PHP Code:


			
quest biologe1_quest  begin
    state start begin
        when login or levelup with pc.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("__TARGET__", v, "Biologenquest")
            end
            send_letter("Die Forschung des Biologen 1")
        end

        when button or info begin
            say_title("Die Forschung des Biologen 1")
            say("")
            say("Der Biologe braucht deine Hilfe!")
            say("Gehe zu ihm.")
            say("")
        end
        
        when __TARGET__.target.click or
            20084.chat."Die Orkzaehne" begin
            target.delete("__TARGET__")
            say_title("Biologe:")
            say("Oh!?! Du hilfst mir?")
            say("Gut ...")
            say("Nachdem du mir die letzten male schon")
            say("erfolgreich geholfen hast, hoff ich erneut")
            say("auf deine Hilfe. Ich werde dich")
            say("dafuer auch wieder angemessen belohnen.")
            wait()
            say_title("Biologe:")
            say("Ich habe vor kurzem zu Ohren bekommen")
            say("das sich die Orks im Lande breitmachen.")
            say("Wie ich von einigen Jaegern gehoert habe")
            say("lassen diese Orks nach ihrem Tot nur ihre")
            say("Orkzaehne zurueck. Wuerdest du mir helfen")
            say("und diese Orkzaehne fuer mich besorgen?")
            wait()
            say("Ich brauche 10  Orkzaehne um")
            say("meine Forschung ein fuer alle mal zu beenden.")
            say("Aber Orkzaehne sind sehr zerbrechlich")
            say("es kann also sein das ein paar bei")
            say("meinen Untersuchungen kaputt gehen.")
            say("Bitte verstehen sie das ich alle 10")
            say("brauche ich muss wissen was hinter der")
            say("Legende steckt ...")
            say("")                                                                                                                                                          
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Sammelauftrag: Orkzaehne")            
        end
        when button or info begin
            say_title("Orkzaehne")
            say("")
            say("Der Biologe gab euch den Auftrag")
            say("10 Orkzaehne zu sammeln!")
            say("Sammelt sie von den Orks im Orktal")
            say("und gebt sie dem Biologen.")
            say_item_vnum(30006) 
            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")
            say("")
        end
        
        when 71035.use begin
            if get_time() < pc.getqf("duration") then
                say("")
                say("�٤��i�H�ϥΰg�b�Ĥ�")
                say("")
                return
            end
            if pc.getqf("drink_drug")==1 then
                say("")
                say("�w�g�ϥΤF1��")
                say("")

                return
            end
            if pc.count_item(30006)==0 then
                say("Du hast keine!")
                say("Du sollst mir aber welche bringen.")
                say("")
                return
            end
            item.remove()    
            pc.setqf("drink_drug",1)
        end

        when 20084.chat."Die Orkzaehne!" with pc.count_item(30006) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title("Biologe:")
                say("Einen Moment ...")
                say("Vielen Dank,")
                say("lasst es mich schnell ueberpruefen")
                say("ob dieser Orkzahn in Ordnung ist ...")
                say("")
                pc.remove_item("30006", 1)
                pc.setqf("duration",get_time()+0*0*22)
                wait()                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=60
                else        
                    pass_percent=90
                end
                
                local s= number(1,100)
                if s<= pass_percent  then
                   if pc.getqf("collect_count")< 9 then
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)
                        say(pass_percent)
                        say_title("Biologe:")
                        say("Hervorragend dieser Zahn ist in Ordnung")
                        say("Du musst noch ".." "..10-pc.getqf("collect_count").. " abgeben!")
                        say("Bringt mir noch welche, damit ich die")
                        say("Forschungen abschlie�en kann.")
                        pc.setqf("drink_drug",0)
                        return
                    end
                    say_title("Biologe:")
                    say("Du hast mir die 10 Stueck gebracht...")
                    say("Nun bitte ich dich noch mir den")
                    say("Jinunggyis Seelenstein zu bringen du")
                    say("bekommst ihn von den Solzen Ork's im Orktal.")    
                    say("Ich denke das du stark genug bist, dass")
                    say("zu schaffen.")
                    say("")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    set_state(key_item)
                    return
                else                                
                say_title("Biologe:")
                say("Es tut mir leid aber dieser Zahn ist bei")
                say("den Untersuchungen zerbrochen.")
                say("Bitte hole mir einen Neuen!")
                say("")
                pc.setqf("drink_drug",0)
                return
                end
        else
          say_title("Biologe:")
          say("Oh entschuldige ich habe die letzten")
          say("Studien noch nicht beendet ...")
          say("Bitte bringe mir den Zahn wenn die")
          say("derzeitigen Studien beendet sind.")
          say("")
          return
        end

    end
end


    state key_item begin
        when letter begin
            send_letter("Jinunggyis Seelenstein")
            
            if pc.count_item(30220)>0 then    
                local v = find_npc_by_vnum(20084)
                if v != 0 then
                    target.vid("__TARGET__", v, "Biologenquest")
                end
            end

        end
        when button or info begin
            if pc.count_item(30220) >0 then
                say_title("Jinunggyis Seelenstein")
                say("")
                say("Du haste den Jinunggyis Seelenstein!")
                say("Gehe zu Biologe Chaegirab")
                say("und gib ihn ab.")
                return
            end
            say_title("Jinunggyis Seelenstein")
            say("")
            say("Ihr habt erfolgreich alle ")
            say("10 Orkzaehne gesammelt ...")
            say("Nun muesst ihr den Jinunggyis ")
            say("Seelenstein bekommen.")
            say_item_vnum(30220)
            say("Ob dieser Seelenstein tatsaechlich")
            say("eine Seele enthaelt?")
            say("")
        end
        

    
        when 631.kill or
             632.kill or 
             633.kill or
             634.kill  begin
            local s = number(1, 250)
            if s == 1 and pc.count_item(30220)==0 then
                pc.give_item2(30220, 1)
                send_letter("Jinunggyis Seelenstein")        
            end    
        end
        when    20084.chat."Jinunggyis Seelenstein!"    begin
            say_title("Biologe:")
            say("Du hast hart gekaempft ...")
            say("Dafuer werde ich deine innere Staerke erhoehen!")
            say("Ich werde dir ein Rezept geben mit dem")
            say("du deine Innere Kraft verbessern kannst!")
            say("Dank deiner Hilfe verstehe ich nun")
            say("die Legende um den Jinunggyis Seelenstein ...")
            say("Gehe mit diesen Informationen zu Baek-Go.")
            say("Er kann dir dabei helfen deine")
            say("Staerke zu erhoehen.")
            say("")
            pc.remove_item(30220,1)
            set_state(__reward)
        end
        
    end
    
    state __reward begin
        when letter begin
            send_letter("Belohnung des Biologen")
            
            local v = find_npc_by_vnum(20018)
            if v != 0 then
                target.vid("__TARGET__", v, "Baek-Go")
            end

        end
        when button or info begin
            say_title("Zugang zu der Belohnung des Biologen!")
            say("Um die Belohnen des Biologen zu erhalten")
            say("und die innere Staerke zu verbessern")
            say("suche Baek-Go auf.")
            say("")
        end
        
        when __TARGET__.target.click  or
            20018.chat."Rezept zur Verbesserung der inneren Kraft"  begin
            target.delete("__TARGET__")
            say("Baek-Go:")
            say("Ich sehe ..")
            say("Sie sagen das der Biologe sie schickte, ")
            say("wegen eines Rezeptes halber?")
            say("Zeigen sie mal her ...")
            say("...")
            say("")
            say_reward("Du hast dem Biologen erfolgreich geholfen")
            say_reward("Du erhaelst folgende Belohnungen:")
            say_reward("")
            say_reward("- Bewegungsgeschwindigkeit +10%")        
            say_reward("")    
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
            clear_letter()
            set_quest_state("biologe2_quest", "run")
            set_state(__complete)
        end
            
    end

    
    state __giveup__ begin
        when 20084.chat."Sie wollen es versuchen?" begin
            say("Biologe:")
            say("Sie wollen es versuchen?")
            say("... und die Kraft die sie in sich tragen?")
            say("Sie muessen sich hier anmelden, bevor sie die")
            say("Aufgabe wieder aufnehmen koennen.")
            say("Das kann eine Minute dauern ...")
         end
     end
    state __complete begin
    end
end

Spoiler

PHP Code:


			
quest biologe2_quest  begin
    state start begin
        end
        state run begin
        when login or levelup with pc.level >= 40 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("__TARGET__", v, "Biologenquest")
            end
            send_letter("Die Forschung des Biologen 2")
        end

        when button or info begin
            say_title("Die Forschung des Biologen 2")
            say("")
            say("Der Biologe braucht erneut deine Hilfe!")
            say("Gehe zu ihm.")
            say("")
        end
        
        when __TARGET__.target.click or
            20084.chat."Fluchsammlungen" begin
            target.delete("__TARGET__")
            say_title("Biologe Chaegirab:")
            say("Oh!?! Schoen dass du da bist?")
            say("Gut ...")
            say("Nachdem du mir die letzten male schon")
            say("erfolgreich geholfen hast, hoff ich nochmals")
            say("auf deine Hilfe. Ich werde dich")
            say("dafuer auch wieder angemessen belohnen.")
            wait()
            say_title("Biologe Chaegirab:")
            say("Ich habe gehoert dass die Dunklen und")
            say("Hohen Peiniger Fluchsammlungen mit sich tragen.")
            say("Uriel lies mich wissen dass man mit diesen")
            say("Fluchsammlungen bestimmte Hexereien durchf�hren")
            say("kann. Wuerdest du mir helfen?,")
            say("und diese Fluchsammlungen fuer mich sammeln?")
            wait()
            say("Ich brauche 15 Fluchsammlungen um")
            say("meine Forschung ein fuer alle mal zu beenden.")
            say("Aber Fluchsammlungen sind sehr Staubig")
            say("es kann also sein das ich ein paar bei")
            say("meinen Untersuchungen nicht entziffern kann.")
            say("Ich brauche wirklich alle 15,")
            say("ich muss einfach wissen was hinter den")
            say("Hexereien steckt ...")
            say("")                                                                                                                                                          
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Sammelauftrag: Fluchsammlungen")            
        end
        when button or info begin
            say_title("Fluchsammlungen")
            say("")
            say("Der Biologe gab euch den Auftrag")
            say("15 Fluchsammlungen zu sammeln!")
            say("Sammelt sie von den Peinigern im Orktal")
            say("und gebt sie dem Biologen.")
            say_item_vnum(30047) 
            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")
            say("")
        end
        
        when 71035.use begin
            if get_time() < pc.getqf("duration") then
                say("")
                say("�٤��i�H�ϥΰg�b�Ĥ�")
                say("")
                return
            end
            if pc.getqf("drink_drug")==1 then
                say("")
                say("�w�g�ϥΤF1��")
                say("")

                return
            end
            if pc.count_item(30047)==0 then
                say("Du hast keine!")
                say("Bring mir bitte welche.")
                say("")
                return
            end
            item.remove()    
            pc.setqf("drink_drug",1)
        end

        when 20084.chat."Die Fluchsammlungen!" with pc.count_item(30047) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title("Biologe Chaegirab:")
                say("Einen Augenblick ...")
                say("Vielen Dank,")
                say("lass mich schnell ueberpruefen")
                say("ob diese Fluchsammlung entzifferbar ist ...")
                say("")
                pc.remove_item("30047", 1)
                pc.setqf("duration",get_time()+0*0*22)
                wait()                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=60
                else        
                    pass_percent=90
                end
                
                local s= number(1,100)
                if s<= pass_percent  then
                   if pc.getqf("collect_count")< 14 then
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)
                        say(pass_percent)
                        say_title("Biologe Chaegirab:")
                        say("Hervorragend diese Fluchsammlung kann ich entziffern")
                        say("Du hast bis jetzt ".." "..15-pc.getqf("collect_count").. " Abgegeben!")
                        say("Bringt mir noch welche, damit ich die")
                        say("Forschungen abschlie�en kann.")
                        pc.setqf("drink_drug",0)
                        return
                    end
                    say_title("Biologe Chaegirab:")
                    say("Du hast mir die 15 Stueck gebracht...")
                    say("Nun bitte ich dich noch mir den")
                    say("Tempel Seelenstein zu bringen du")
                    say("bekommst ihn von den Solzen dunkl. Fanatikern,")    
                    say("Stolze dunkl. K�mpfer und Stolze dunkl. Oberst")
                    say("im Hwang-Tempel. Ich denke das du")
                    say("stark genug bist, dass zu schaffen.")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    set_state(key_item)
                    return
                else                                
                say_title("Biologe Chaegirab:")
                say("Es tut mir leid aber diese Fluchsammlung  konnte ich")
                say("bei den Untersuchungen nicht entziffern.")
                say("Bitte hole mir eine Neue!")
                say("")
                pc.setqf("drink_drug",0)
                return
                end
        else
          say_title("Biologe Chaegirab:")
          say("Oh entschuldige ich habe die letzten")
          say("Studien noch nicht beendet ...")
          say("Bitte bringe mir die Fluchsammlung wenn die")
          say("derzeitigen Studien beendet sind.")
          say("")
          return
        end

    end
end


    state key_item begin
        when letter begin
            send_letter("Tempel Seelenstein")
            
            if pc.count_item(30221)>0 then    
                local v = find_npc_by_vnum(20084)
                if v != 0 then
                    target.vid("__TARGET__", v, "Biologenquest")
                end
            end

        end
        when button or info begin
            if pc.count_item(30221) >0 then
                say_title("Tempel Seelenstein")
                say("")
                say("Du haste den Tempel Seelenstein!")
                say("Gehe zu Biologe Chaegirab")
                say("und gib ihn ab.")
                return
            end
            say_title("Tempel Seelenstein")
            say("")
            say("Du hast erfolgreich alle ")
            say("15 Fluchsammlungen gesammelt ...")
            say("Nun musst du den Tempel- ")
            say("Seelenstein bekommen.")
            say_item_vnum(30221)
            say("Ob dieser Seelenstein wirklich")
            say("von den verstorbenen Seelen aus")
            say("dem Tempel Stammt?")
        end
        

    
        when 731.kill or
             732.kill or 
             734.kill or
             733.kill  begin
            local s = number(1, 250)
            if s == 1 and pc.count_item(30221)==0 then
                pc.give_item2(30221, 1)
                send_letter("Tempel Seelenstein")        
            end    
        end
        when    20084.chat."Tempel Seelenstein!"    begin
            say_title("Biologe Chaegirab:")
            say("Du hast hart gekaempft ...")
            say("Dafuer werde ich deine innere Staerke erhoehen!")
            say("Ich werde dir ein Rezept geben mit dem")
            say("du deine Innere Kraft verbessern kannst!")
            say("Dank deiner Hilfe verstehe ich nun")
            say("die Legende um den Tempel Seelenstein ...")
            say("Gehe mit diesen Informationen zu Baek-Go.")
            say("Er kann dir dabei helfen deine")
            say("Staerke zu erhoehen.")
            say("")
            pc.remove_item(30221,1)
            set_state(__reward)
        end
        
    end
    
    state __reward begin
        when letter begin
            send_letter("Infos des Biologen")
            
            local v = find_npc_by_vnum(20018)
            if v != 0 then
                target.vid("__TARGET__", v, "Baek-Go")
            end

        end
        when button or info begin
            say_title("Zugang zu den Informationen des Biologen!")
            say("Um die Belohnen des Biologen zu erhalten")
            say("und die innere Staerke zu verbessern")
            say("suche Baek-Go auf.")
            say("")
        end
        
        when __TARGET__.target.click  or
            20018.chat."Rezept zur Verbesserung der inneren Kraft"  begin
            target.delete("__TARGET__")
            say("Baek-Go:")
            say("Ich sehe ..")
            say("Sie sagen das der Biologe sie schickte, ")
            say("wegen eines Rezeptes halber?")
            say("Zeigen sie mal her ...")
            say("...")
            say("")
            say_reward("Du hast dem Biologen erfolgreich geholfen")
            say_reward("Du erhaelst folgende Belohnungen:")
            say_reward("")
            say_reward("- Angriffsgeschwindigkeit +5%")        
            say_reward("")    
            affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60)
            clear_letter()
            set_quest_state("biologe3_quest", "run")
            set_state(__complete)
        end
            
    end

    
    state __giveup__ begin
        when 20084.chat."Sie wollen es versuchen?" begin
            say("Biologe Chaegirab:")
            say("Sie wollen es versuchen?")
            say("... und die Kraft die sie in sich tragen?")
            say("Sie muessen sich hier anmelden, bevor sie die")
            say("Aufgabe wieder aufnehmen koennen.")
            say("Das kann eine Minute dauern ...")
         end
     end
    state __complete begin
    end
end

03/15/2012 00:05 buja12#5135

You're the best, it works <3 Thaaaaaaaaaank yooooooou :*

03/15/2012 07:40 Mijago#5136

Collado, big Thanks from me for helping these people :)

03/15/2012 16:20 ͺȺʂʞa#5137

HALLO KANN MIR AUCH MAL EINER HELFEN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!

03/15/2012 16:48 xJ3Lack_MaieRx#5138

Quote:

Originally Posted by sonic 10

xJ3Lack_MaieRx:hab nen Spoiler reingemacht, da es sonst zu lang wird.

Spoiler

Hallo,
Ich habe ein Problem wenn ich bei den daroo 1678 files den befehl "m2 qc" eingebe kommt am ende diese fehlermeldung :

PHP Code:

QUEST : blutstein STATE : start WHEN: 20095.chat ("Blutsteine") must start with 'quest' in_die_grotte.quest:35:Error occured on compile in_die_grotte.quest

EDIT: hier die quest:

PHP Code:

quest quest_in_die_grotte begin state start begin when 20095.chat."blutsteine" begin local delay = 86400 say_title("Seon-Hae") if get_global_time() - pc.getqf("time") < delay and pc.getqf("time") != 0 then local zeit = delay - (get_global_time() - pc.getqf("time")) say("Du kannst dir noch keinen neuen Blutstein holen!") say("Du musst noch "..zeit.." Sekunden warten!") return end if pc.get_level() < 75 then say("Du bist zu schwach um dir einen Blutstein zu verdienen!") say_reward("Komm wieder wenn du Level 75 erreicht hast!") return end say("Hallo!") say("M�chtest du dir einen Blutstein verdienen?") say("Ich warne dich!") say("Es ist keine leichte Aufgabe!") say("Willst du beginnen?") local s= select("Auf gehts!","Nein danke") if s==1 then say_title("Seon-Hae") say("Nungut!") say("Hier du bekommst jetzt eine Tr�ne") else say_title("Seon-Hae") say("Eine gute Entscheidung!") say("Auf Wiedersehn") end end end end when 20095.chat."Ich habe alles besorgt!" begin say_title("Seon-Hae") say("So du kriegst jetzt die Tr�ne") pc.give_item2(30189,1) say_title("Seon-Hae") say("So") say("Hier hast du Tr�nen von Baljit-Elvedi") say("Gehe nun in den roten Wald") say("Und suche die geheimnisvolle Stimme!") say("Sie wird dir die Tr�nen zu einem Blutstropfen machen!") setstate(blut) else say_title("Seon-Hae") say("Du hast nicht alle ben�tigten Items!") end end end state blut begin when letter begin send_letter("Suche die Stimme") tr�ne = { { 195, 211}, { 326, 302}, { 527, 90}, { 616, 257}, { 702, 262}, { 674, 38}, } local r2 = number(1,6) target.pos("trane", tr�ne[r2][1], tr�ne[r2][2], 68, "") end when info or button begin say_title("Suche die Stimme") say("Suche die geheimnisvolle Stimme im roten Wald!") end when trane.target.arrive begin target.delete("tr�ne") say("Sei gegr��t!") say("Ich bin die geheimnisvolle Stimme...") wait() if pc.count_item(30189) >0 then pc.remove_item(30189,1) pc.give_item2(30187,1) say_title("Geheimnissvolle Stimme") say("Ich mache die Tr�nen von Baljit-Elvedi") say("zu einem Blutstropfen") say("...") say("Hier bitte ein Blutstropfen!") say_reward("Blutstropfen erhalten!") setstate(stein) else say_title("Geheimnissvolle Stimme") say("Du hast die Tr�ne nicht bei dir!") say("Komm wieder wenn du sie gefunden hast...") tr�ne = { { 195, 211}, { 326, 302}, { 527, 90}, { 616, 257}, { 702, 262}, { 674, 38}, } local r2 = number(1,6) target.pos("tr�ne", tr�ne[r2][1], tr�ne[r2][2], 68, "") end end end state stein begin when letter begin send_letter("Zur�ck zu Seon Hae") end when button or info begin say_title("Zur�ck zu Seon Hae") say("Gehe zu Seon Hae zur�ck und gib") say("ihm den Blutstropfen!") say() end when 20095.chat."Ich habe den Blutstropfen!" begin if pc.count_item(30187) <= 0 then say_title("Seon-Hae") say("Du besitzt keinen Blutstropfen") else pc.remove_item(30187,1) pc.give_item2(30190,1) say_title("Seon-Hae") say("Gut gemacht!") say("Hier hast du den Blutstein!") say("Du hast ihn dir verdient!") say_reward("Blutstein erhalten") clear_letter() pc.setqf("time",get_global_time()) setstate(start) end end end end

Also mir ist erstmal aufgefallen, dass sie sehr kurz is.
Die von KAy331 ist viel l�nger, deswegen w�rde ich mal sagen,
du versuchst die mal.

Spoiler

PHP Code:


			
quest blutstein begin
    state start begin
        when 20095.chat."Blutsteine" begin
            local delay = 86400
            if get_global_time() - pc.getqf("time") < delay and pc.getqf("time") != 0 then
                local zeit = delay - (get_global_time() - pc.getqf("time"))
                say("Du kannst dir noch keinen neuen Blutstein holen!")
                say("Du musst noch "..zeit.." Sekunden warten!")
                return
            end
            if pc.get_level() < 75 then
                say("Du bist zu schwach um dir einen Blutstein zu verdienen!")
                say_reward("Komm wieder wenn du Level 75 erreicht hast!")
                return
            end
            say("Hallo!")
            say("M�chtest du dir einen Blutstein verdienen?")
            say("Ich warne dich!")
            say("Es ist keine leichte Aufgabe!")
            say("Willst du beginnen?")
            local s= select("Auf gehts!","Nein danke")
            if s==1 then
                say("Nungut!")
                say("Als erstes musst du Vulkanglas besorgen!")
                say("Dies kriegst du von Flammen im Feuerland")
                say_reward("4 Vulkanglas")
                setstate(vulkangas)
            else
                say("Eine gute Entscheidung!")
                say("Auf Wiedersehn")
            end
        end
    end
    state vulkangas begin
        when letter begin
            send_letter("Suche das Vulkanglas!")
        end
        when info or button begin
            say("Besorge 4 Vulkanglas")
            say("Dies erh�lst du von Flammen")
        end
        when 2204.kill begin
            local pct = number(1,20)
            if pct==1 then
                pc.give_item2(30188,1)
                pc.setqf("gl�ser",pc.getqf("gl�ser")+1)
            end
            if pc.getqf("gl�ser")==4 then
                say("Gut gemacht!")
                say("Besorge nun noch 6 Versteinerte Tr�nen!")
                say("Du findest sie an den sechs makierten Punkten auf der Karte")
                setstate(vertrnen)
        end
        end
    end
    state vertrnen begin
        when letter begin
            send_letter("Besorge die versteinerten Tr�nen!")
                    local tropfen = {
                        { 1333, 785},
                        { 900,730},
                        { 656,716},
                        { 543,821},
                        { 460,771},
                        { 379,685},
                        { 480,623},
                        { 428,468},
                        { 327,359},
                        { 224,539},
                        { 175,727},
                        { 145,900},
                        { 59,1000},
                        { 176,1150},
                        { 438,1112},
                        { 646,1015},
                        { 790,1183},
                        { 1027,1043},
                        { 1326, 1028},
                        { 1376,1198},
                        { 1408,1369},
                        { 899,1396},
                        { 539, 1338},
                        { 574, 361},
                        { 846, 455},
                        { 1154, 498},
                        { 1222, 440},
                        { 1425,500},
                        { 1283,347},
                        { 1472,95},
                        { 1100,159},
                        { 787, 1083},
                        { 610,175},
                        { 500, 278},
                        { 390,125},
                }
                local r =  number(1,30)
                target.pos("p1", tropfen[r][1], tropfen[r][2], 62, "")
                local r =  r+1
                target.pos("p2", tropfen[r][1], tropfen[r][2], 62, "")
                local r =  r+1
                target.pos("p3", tropfen[r][1], tropfen[r][2], 62, "")
                local r =  r+1
                target.pos("p4", tropfen[r][1], tropfen[r][2], 62, "")
                local r =  r+1
                target.pos("p5", tropfen[r][1], tropfen[r][2], 62, "")
                local r =  r+1
                target.pos("p6", tropfen[r][1], tropfen[r][2], 62, "")
                local r =  r+1
                pc.setqf("tr�nen",6)
        end
        when button or info begin
            say("Besorge nun noch 6 Versteinerte Tr�nen!")
            say("Du findest sie an den sechs makierten Punkten auf der Karte")
        end
        when p1.target.arrive begin
        target.delete("p1")
        chat("Du hast eine Tr�ne gefunden!")
        say("Du hast einen Tropfen Schei�e erhalten")
        pc.give_item2(30186,1)
        pc.setqf("tr�nen",pc.getqf("tr�nen")-1)
        if pc.getqf("tr�nen") == 0 then
            say("Du hast alle 6 versteinerte Tr�nen gefunden!")
            say("Gehe nun zu Seon Hae zur�ck")
            setstate(rw)
        end
        end
        when p2.target.arrive begin
        target.delete("p2")
        chat("Du hast eine Tr�ne gefunden!")
        say("Du hast einen Tropfen Schei�e erhalten")
        pc.give_item2(30186,1)
        pc.setqf("tr�nen",pc.getqf("tr�nen")-1)
        if pc.getqf("tr�nen") == 0 then
            say("Du hast alle 6 versteinerte Tr�nen gefunden!")
            say("Gehe nun zu Seon Hae zur�ck")
            setstate(rw)
        end
        end
        when p3.target.arrive begin
        target.delete("p3")
        chat("Du hast eine Tr�ne gefunden!")
        say("Du hast einen Tropfen Schei�e erhalten")
        pc.give_item2(30186,1)
        pc.setqf("tr�nen",pc.getqf("tr�nen")-1)
        if pc.getqf("tr�nen") == 0 then
            say("Du hast alle 6 versteinerte Tr�nen gefunden!")
            say("Gehe nun zu Seon Hae zur�ck")
            setstate(rw)
        end
        end
        when p4.target.arrive begin
        target.delete("p4")
        chat("Du hast eine Tr�ne gefunden!")
        say("Du hast einen Tropfen Schei�e erhalten")
        pc.give_item2(30186,1)
        pc.setqf("tr�nen",pc.getqf("tr�nen")-1)
        if pc.getqf("tr�nen") == 0 then
            say("Du hast alle 6 versteinerte Tr�nen gefunden!")
            say("Gehe nun zu Seon Hae zur�ck")
            setstate(rw)
        end
        end
        when p5.target.arrive begin
        target.delete("p5")
        chat("Du hast eine Tr�ne gefunden!")
        say("Du hast einen Tropfen Schei�e erhalten")
        pc.give_item2(30186,1)
        pc.setqf("tr�nen",pc.getqf("tr�nen")-1)
        if pc.getqf("tr�nen") == 0 then
            say("Du hast alle 6 versteinerte Tr�nen gefunden!")
            say("Gehe nun zu Seon Hae zur�ck")
            setstate(rw)
        end
        end
        when p6.target.arrive begin
        target.delete("p6")
        chat("Du hast eine Tr�ne gefunden!")
        say("Du hast einen Tropfen Schei�e erhalten")
        pc.give_item2(30186,1)
        pc.setqf("tr�nen",pc.getqf("tr�nen")-1)
        if pc.getqf("tr�nen") == 0 then
            say("Du hast alle 6 versteinerte Tr�nen gefunden!")
            say("Gehe nun zu Seon Hae zur�ck")
            setstate(rw)
        end
        end
    end
    state rw begin
        when letter begin
            send_letter("Zur�ck zu Seon Hae")
        end
        when button or info begin
            say("Gehe zu Seon Hae zur�ck!")
        end
        when 20095.chat."Ich habe alles besorgt!" begin
        say("..das glaubst du!")
        say("Aber das ist noch nicht alles!")
        wait()
        if pc.count_item(30186) >= 6 and pc.count_item(30188)>= 4 then
        pc.remove_item(30186,6)
        pc.remove_item(30188,4)
        pc.give_item2(30189,1)
        say("Gut gemacht")
        say("Hier hast du Tr�nen von Baljit-Elvedi")
        say("Gehe nun in den roten Wald")
        say("Und suche die geheimnisvolle Stimme!")
        say("Sie wird dir die Tr�nen zu einem Blutstropfen machen!")
        setstate(blut)
        else
        say("Du hast nicht alle ben�tigten Items!")
        end
    end
    end
    state blut begin
        when letter begin
            send_letter("Suche die Stimme")
            tr�ne = {
            { 195, 211},
            { 326, 302},
            { 527, 90},
            { 616, 257},
            { 702, 262},
            { 674, 38},
        }
        local r2 =  number(1,6)
        target.pos("tr�ne", tr�ne[r2][1], tr�ne[r2][2], 68, "")
            end
        when info or button begin
            say("Suche die geheimnisvolle Stimme im roten Wald!")
        end
        when tr�ne.target.arrive begin
            target.delete("tr�ne")
            say("Sei gegr��t!")
            say("Ich bin die geheimnisvolle Stimme...")
            wait()
            if pc.count_item(30189) >0 then
                pc.remove_item(30189,1)
                pc.give_item2(30187,1)
                say("Ich mache die Tr�nen von Baljit-Elvedi zu einem Blutstropfen")
                say("...")
                say("Hier bitte ein Blutstropfen!")
                say_reward("Blutstropfen erhalten!")
                setstate(stein)
            else
                say("Du hast die Tr�ne nicht bei dir!")
                say("Komm wieder wenn du sie gefunden hast...")
                            tr�ne = {
            { 195, 211},
            { 326, 302},
            { 527, 90},
            { 616, 257},
            { 702, 262},
            { 674, 38},
        }
        local r2 =  number(1,6)
        target.pos("tr�ne", tr�ne[r2][1], tr�ne[r2][2], 68, "")
            end
        end
    end
    state stein begin
            when letter begin
                send_letter("Zur�ck zu Seon Hae")
            end
            when button or info begin
                say("Gehe zu Seon Hae zur�ck und gib ihm den Blutstropfen!")
                say()
            end
            when 20095.chat."Ich habe den Blutstropfen!" begin
                if pc.count_item(30187) <= 0 then
                    say("LIEEEEEEEEEEEEEEE!!!!!!!!!!!")
                else
                    pc.remove_item(30187,1)
                    pc.give_item2(30190,1)
                    say("Gut gemacht!")
                    say("Hier hast du den Blutstein!")
                    say("Du hast ihn dir verdient!")
                    say_reward("Blutstein erhalten")
                    clear_letter()
                    pc.setqf("time",get_global_time())
                    setstate(start)
                end
            end
        end
    end

Nicht vergessen in die Quest Liste

Code:

blutstein.quest 
in die Quest Liste einzutragen (falls sie bei dir anderst hei�t oder nicht drinne is)

beim schreiben des threads ist mir auch erst klar geworden, als ich was von dir kopiert hatte,
dass in deiner quest in der 1 zeile

Code:

quest_in_die_grotte

steht und soweit ich wei� hei�t die quest bei daroo nur in_die_grotte.
also mach das mal so:

Code:

questname in filezilla: in_die_grotte.quest
questname in der Quest Liste: in_die_grotte.quest
in der quest (zeile 1): quest in_die_grotte begin

hoffe es klappt wenn ja, w�rde ich mich �ber ein THX freuen,
wenn nein, bitte hier nochmal nachfragen oder mir ne pn schicken...

03/15/2012 17:34 ͺȺʂʞa#5139

ja ich habe die quest ja extra gek�rzt weil sie nicht so lang sein soll

03/15/2012 17:51 i.Quin#5140

PHP Code:


			
quest evento_pascoa begin

    state start begin

        when npc_id_1.chat."Primeiro bau" begin

            say_title("Yuran:")

            say("Recompensa bla bla bla")

            say("")

            say_reward("Obs: ")

            local s=select("Sim", "N�o")

            if s==2 then

                return

            end

             if pc.count_item("id_do_caramelo")>=1 then

                pc.remove_item("id_do_caramelo", 1)

                pc.give_item2("1_bau_id", 1)

            else

            end

        end

        when npc_id_2.chat"Segundo bau" begin

            say_title("Yuran:")

            say("Recompensa bla bla bla")

            say("")

            say_reward("Obs: ")

            local s=select("Sim", "N�o")

            if s==2 then

                return

            end

            if pc.count_item("id_do_caramelo")>=1 then

            pc.remove_item("id_do_caramelo", 1)

            pc.give_item2("2_bau_id", 1)

            if  is_test_server()  then 

            pc.setqf("duration",get_time()+2) 

            else

            pc.setqf("duration",get_time()+60*30) -----------------------------------30 minutos

            end

        end

    end

 end

WHEN : 20008.chat ("Segundo bau")
assertion failure : nested==0
evento_pascoa.quest:36:Abort (core dumped)

Help pls :D

03/15/2012 18:15 Apocalyptum#5141

heyho ich habe auch bereits ein problem mit meiner quest und einem code darin habe auch nen thread erstellt aber hier kann man mir dann doch wohl besser helfen...

also ich will mit achievement points coins eintauschen lassen also das man 1000 points gegen 1000 coins eintauschen kann, geht aber irgendwie nicht hab schon viel ausprobiert, will einfach nicht hier mal der code:

Spoiler

Code:

  elseif bonusitems == 3 then
                            local Price = 1000
                            say_title("".. mob_name(20094) ..":")
                            say("")
                            say("Coins kannst du gegen tolle")
                            say("Items aus dem Itemshop eintauschen,")
                            say("einige dieser Items sind sehr selten oder")
                            say("gar nicht Ingame zu erreichen.")
                            say("")
                            say("")
                            say("")
                            say_reward("Sie kosten dich ".. Price .." Achievement-Points.")
                            local buyselection = select("Coins kaufen","Abbrechen")
                            if buyselection == 2 then
                                return
                            elseif buyselection == 1 then
                                if pc.getqf("achievement_points") < Price then
                                    say_title("".. mob_name(20094) ..":")
                                    say("")
                                    say("Du hast leider nicht gen�gend Achievement-Points.")
                                    say("Bitte komme wieder, sobald du ".. Price - pc.getqf("achievement_points") .."")
                                    say("weitere Achievement-Points gesammelt hast")
                                    say("")
                                    say("")
                                    say("")
                                    say_reward("Sammel noch mehr Achievement-Points f�r die Coins")
                                    return    
                                else
                                    say_title("".. mob_name(20094) ..":")
                                    say("")
                                    say("Hier bitte, deine Coins.")
                                    say("Du hast eine gute Wahl getroffen,")
                                    say("immerhin kann man sie gegen gute Items")
                                    say("eintauschen.")
                                    say("")
                                    say("")
                                    say_item_vnum(1000) 
                                    say_reward("Du hast 1000 Coins erhalten.")
                                    pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
                                    cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
                                    pc.give_coins(1000)
                                end
                            end
                        end

03/15/2012 21:35 depa95#5142

Hall�chen ich habe folgende Reichsport-quest aber sie funzt net

das system ist man soll per anklciken des NPC eine quest �ffnen k�nnen wo man zuerst dass Reich (Blau, Gelb, Rot) ausw�hlen soll und dann noch die map also (Map1 oder map2) und dann erst geportet wird sprich wenn man blaues reich am anfang ausw�hlt dann noch beim map ausw�hlen auf map2 klickt wird man egal wo man ist auf map2 blaues reich (bakra) geportet (selbst wenn man grade auf der map ist...

hier meine nicht funktionierende quest:

Spoiler

03/15/2012 22:21 xJ3Lack_MaieRx#5143

Quote:
Originally Posted by depa95
Hall�chen ich habe folgende Reichsport-quest aber sie funzt net

das system ist man soll per anklciken des NPC eine quest �ffnen k�nnen wo man zuerst dass Reich (Blau, Gelb, Rot) ausw�hlen soll und dann noch die map also (Map1 oder map2) und dann erst geportet wird sprich wenn man blaues reich am anfang ausw�hlt dann noch beim map ausw�hlen auf map2 klickt wird man egal wo man ist auf map2 blaues reich (bakra) geportet (selbst wenn man grade auf der map ist...

hier meine nicht funktionierende quest:
Spoiler
Code:
quest reichsport begin
	state start begin
		when 9012.chat."M�chtest du reisen?"  begin
			say_title("Reichs-Teleporter:")
			say("Du m�chtest also in ein anderes Reich?")

			local main_set = select("Ja","Nein")
			if main_set == 2 then
				return
			end
			
			if pc.get_level() <= 50 then
				say_title("Teleporter:")
				say("Hm… Mit deinem derzeitigen Level bist du noch")
				say("zu schwach f�r die Reise durch Zeit und Raum.")
				say("Komm wieder, wenn du h�her als Level 50 erreicht hast.")
				return
			end

			say_title("Teleporter:")
			say("In welches Reich m�chtest du teleportiert werden?")

			local s=select("Blau","Gelb","Rot","Schlie�en")
			
			if 1==s then
				say_title("W�hle deine Map")
				local s=select("Map 1","Map 2","Schlie�en")
				if 1==s then
				pc.warp(921600,204800)
				elseif 2==s then
				pc.warp(819200,204800)
			end
				
			if 2==s then
			say_title("W�hle deine Map")
			local s=select("Map 1","Map 2","Schlie�en")
			if 1==s then
				pc.warp(55700,157900)
				elseif 2==s then
				pc.warp(138500,234900)
			end
			
			if 3==s then
			say_title("W�hle deine Map")
			local s=select("Map 1","Map 2","Schlie�en")
			if 1==s then
				pc.warp(469300,964200)
				elseif 2==s then
				pc.warp(363000,875200)
			end	
		end
	end
end

1.mach in deine quests immer ne struktur sonst kommen schnell fehler mit den ends...
2. probiers mal so:

Code:

quest reichsport begin
    state start begin
        when 9012.chat."Reichsteleport" begin
            local map=pc.get_map_index()
            local warp=0
            local s=0
            local check=0
            say("Wohin m�chtest du?")
            if map!=1 and map!=21 and map!=41 then
                check=1
                s=select("Rotes Reich", "Gelbs Reich", "Blaus Reich", "Abbrechen")
                warp=s
                if s==4 then
                    return
                end
            end
            if map==1 then
                s=select("Gelbs Reich", "Blaus Reich", "Abbrechen")
                if s==1 then
                    warp=2
                elseif s==2 then
                    warp=3
                end
            elseif map==21 then
                s=select("Rotes Reich", "Blaues Reich", "Abbrechen")
                if s==1 then    
                    warp=1
                elseif s==2 then
                    warp=3 
                end
            elseif map==41 then
                s=select("Rotes Reich", "Gelbes Reich", "Abbrechen")
                warp=s
            end
            if s==3 and check==0 then
                return
            end
            if warp==1 then
                pc.warp(474200, 954400)
            elseif warp==2 then
                pc.warp(63200, 166100)
            elseif warp==3 then
                pc.warp(960100, 268700)
            end
        end
    end
end

hier wird gepr�ft, in welcher map du bist, damir anschlei�end wenn du map1 blau bist dich da auch nicht hinteleportieren kannst weils ja ziemlich unlogisch is...
w�rde mich �ber ein thx freuen
lg

03/15/2012 22:35 Prince-Samu#5144

ich brauch hilfe bei der Quest sie geht nicht... also ich bekomme keinen error oder so aber wenn ich jemanden t�te bekomm ich keine exp.

PHP Code:


			
quest pvp begin 

    state start begin 

        when login or levelup with pc.get_level() > 14 begin 

            set_state(information) 

        end 

    end 

    state information begin 

        when letter begin 

            send_letter("PVP") 

        end 

        when button or info begin 

            say_title("Guten Tag tapferer Krieger du hast nun lvl 15 erreicht und bist bereit um zu k�mpfen.") 

            say("Viel spass beim duelieren.") 

            say("Bei einer T�tung von einen Krieger aus deinem Reich bekommst du 50k exp") 

            say("sonst bekommst du 100k") 

        end 

        when npc.kill with npc.is_pc begin 



            if npc_is_same_empire then 



                pc.give_exp(500000) 



                say("Du hast 500.000 Erfahrung erhalten.") 



            else 

                     

                pc.give_exp(1000000) 



                say("Du hast 1.000.000 Erfahrung erhalten.") 



            end 

        end 

    end 

end

03/15/2012 23:13 depa95#5145

Quote:

Originally Posted by xJ3Lack_MaieRx

1.mach in deine quests immer ne struktur sonst kommen schnell fehler mit den ends...
2. probiers mal so:

Code:

quest reichsport begin
    state start begin
        when 9012.chat."Reichsteleport" begin
            local map=pc.get_map_index()
            local warp=0
            local s=0
            local check=0
            say("Wohin m�chtest du?")
            if map!=1 and map!=21 and map!=41 then
                check=1
                s=select("Rotes Reich", "Gelbs Reich", "Blaus Reich", "Abbrechen")
                warp=s
                if s==4 then
                    return
                end
            end
            if map==1 then
                s=select("Gelbs Reich", "Blaus Reich", "Abbrechen")
                if s==1 then
                    warp=2
                elseif s==2 then
                    warp=3
                end
            elseif map==21 then
                s=select("Rotes Reich", "Blaues Reich", "Abbrechen")
                if s==1 then    
                    warp=1
                elseif s==2 then
                    warp=3 
                end
            elseif map==41 then
                s=select("Rotes Reich", "Gelbes Reich", "Abbrechen")
                warp=s
            end
            if s==3 and check==0 then
                return
            end
            if warp==1 then
                pc.warp(474200, 954400)
            elseif warp==2 then
                pc.warp(63200, 166100)
            elseif warp==3 then
                pc.warp(960100, 268700)
            end
        end
    end
end

kann jemand in diese quest noch die funktion einbauen wo man ausw�hlen kann ob man jeweils map1 oder map2 will ich will aber dass man eben ausw�hlt welches reich und dann noch map1 oder map2

Liebe Gr��e

Page 343 of 845

343