[SERVICE] Die Questkontrolle

Page 251 of 845 « First 151201241249250 251 252253261301351751 Last »
10/14/2011 22:47 xTheSoulutionxx3#3751
1quest:
PHP Code:
quest lvl100 begin
    state start begin
        when levelup with pc.level >= 100 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 100 erreicht!")
            notice_all("")
            notice_all("Weiter so!")
            set_state(lvl120)
    end
end
    state lvl120 begin
        when levelup with pc.level >= 120 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 120 erreicht!")
            notice_all("")
            notice_all("Weiter so!")
            set_sate(lvl135)
    end
end
    state lvl135 begin
        when levelup with pc.level >= 135 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 135 erreicht!")
            notice_all("")
            notice_all("Weiter so!")
            set_state(lvl150)
    end
end
    state lvl150 begin
        when levelup with pc.level >= 150 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 150 erreicht!")
            notice_all("")
            notice_all("Herzlichen Glückwunsch!")
            notice_all("Gratuliert ihm!")
        end
    end
end 

2quest:
PHP Code:
quest map1 begin
    state start begin
        when login or levelup with pc.get_level()>=50 begin
        set_state(farmmaplow)
        end
        end
        state farmmaplow begin
        when 9013.chat."Farmmap Low(ab 50)" begin
        say_title("Farmmap Low")
        say_green("Möchtest du zur Farm map Low ?")
        say_green("auf der Map findest du metins bis")
        say_green("level 90 zum Farmen deiner Items.")
        local main_set = select("Ja", "Nein")
        if main_set == 2 then
        return
        end
        if main_set == 1 then
        say("Gut, ich bringe dich umgehend hin!")
        wait()
        pc.warp(90000, 10000)
        end
        set_state(farmh)
        end
    end
end
end
    state farmh begin
        when login or levelup with pc.get_level()>=95 begin
        set_state(farmmaphigh)
        end
        end
        state farmmaphigh begin
        when 9013.chat."Farmmap High(ab 95)" begin
        say_title("Farmmap High")
        say_green("Möchtest du zur Farm map High ?")
        say_green("auf der Map findest du metins bis")
        say_green("level 150 oder Höher zum Farmen deiner Items.")
        local main_set = select("Ja", "Nein")
        if main_set == 2 then
        return
        end
        if main_set == 1 then
        say("Gut, ich bringe dich umgehend hin!")
        wait()
        pc.warp(1599900, 1599900)
        end
        set_state(tald)
        end
    end
end
end
    state tald begin
        when login or levelup with pc.get_level()>=115 begin
        set_state(taldz)
        end
        end
        state taldz begin
        when 9013.chat."Tal der Zombies(ab 115)" begin
        say_title("Tal der Zombies")
        say_green("Möchtest du ins Tal der Zombies ?")
        say_green("auf der Map findest du Zombies im")
        say_green("level 120 oder Höher zum Leveln.")
        local main_set = select("Ja", "Nein")
        if main_set == 2 then
        return
        end
        if main_set == 1 then
        say("Gut, ich bringe dich umgehend hin!")
        wait()
        pc.warp(999700, 999700)
        end
        end
    end
end 
10/14/2011 23:19 Sp0ngeb0b ist cool#3752
1.
PHP Code:
quest lvl100 begin
    state start begin
        when login or levelup with pc.level >= 100 and pc.getqf("level_eins") == 0 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 100 erreicht!")
            notice_all("")
            notice_all("Weiter so!")
            pc.setqf("level_eins", 1)
        end

        when login or levelup with pc.level >= 120 and pc.getqf("level_zwei") == 0 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 120 erreicht!")
            notice_all("")
            notice_all("Weiter so!")
            pc.setqf("level_zwei", 1)
        end
        when login or levelup with pc.level >= 135 and pc.getqf("level_drei") == 0 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 135 erreicht!")
            notice_all("")
            notice_all("Weiter so!")
            pc.setqf("level_drei", 1)
        end
        when login or levelup with pc.level >= 150 and pc.getqf("level_max") == 0 begin
            notice_all("".. pc.get_name() .." hat gerade das")
            notice_all("Level 150 erreicht!")
            notice_all("")
            notice_all("Herzlichen Glückwunsch!")
            notice_all("Gratuliert ihm!")
            pc.setqf("level_max", 1)
        end
    end
end 
andere später mal gucken bin essen :D
10/16/2011 00:38 Michael_X#3753
Habe leider ein kleines Problem mit meiner Quest >.<
Ich möchte dass die Notiz des Weisen als "Teleporter" funktioniert und die Spieler in eine bestimmte Kammer portet .. Die Kammer ist vollständig entbuggt, und für alle Spieler erreichbar, denke also dass ich einen Fehler drinne habe ..

Hoffe auf eure Hilfe ^^

Hier der Quest

quest tele begin
state start begin
when 70029.use begin
say_title("Der Weg zum Wasserstein")
say("Aaah, die Notiz der Weisen...")
say("Lass ihn mich begutachten...")
say("Dieser geheimnisvolle Stein wird")
say("dich in eine Kammer voller Gefahren führen")
say_reward("Willst du wirklich dorthin?")

local s = select("Ja", "Nein")
if 1 == s then
pc.warp(121,170)
else
return
end
end
end
end
10/16/2011 02:56 xTheSoulutionxx3#3754
du hast falsche kords
10/16/2011 11:01 .Detores#3755
Hilfe :( Immer wenn ich die Quest einfügen will kommt in PuTTy :

Quote:
expecting 'when' or 'function'
hunde.quest:30:Abort trap (core dumped)
Error occured on compile hunde.quest
Die Quest sieht so aus :

PHP Code:
quest hunde begin
    state start begin
        when 20087.chat."Teleportieren" begin
            say_title("Teleportieren")
            say("")
            say("Ist das nicht ein schöner Ort hier?")
            say("Doch irgendwie ist es hier langweilig")
            say("und trostlos. Doch zum erholen ist dies")
            say("ein prima Ort. Wenn du diesen Ort jedoch")
            say("verlassen willst, kann ich dich hier fort")
            say("bringen.")
            say_reward("Willst du dich Teleportieren?")
            local s = select("Ja","Nein")
            if s == 5 then
                return
            end
            if s == 1 then
                say_title("Teleportieren")
                say("")
                say_reward("Wo soll es hingehen?")
                local s = select("Grotte-1","Farmmap","90iger Map","Abbrechen")
                if s == 1 then
                    return
                end
                if s == 2 then
                    pc.warp(0, 1203200)
                    end
                end
                    end
                if s == 3 then
                    pc.warp(0, 0)
                    end
                end
                if s == 4 then
                    if pc.level >= 90 then
                        pc.warp(153600, 1203200)
                    else
                        chat("Du bist noch nicht bereit für diese Map. Komm wieder")
                        chat("wenn du das Level 90 erreicht hast!")
                    end
                end
                if s == 9 then
                    pc.warp(921600, 153600)
                end
            end
        end
    end
end 
10/16/2011 11:36 Brodan#3756
Das übliche halt..
Hab mir das auch mit Fehlerscreen aus Vpc angeschaut, aber werde einfach nicht schlau daraus...


@ToBeUnleashed

Habs mir mal angeschaut, habs auf meinem Server getestet - sollte also funktionieren;


@.Destores


Habs nur kurz überflogen, aber sollte funktionieren
10/16/2011 15:46 ToBii™#3757
Quote:
Originally Posted by .Detores View Post
Hilfe :( Immer wenn ich die Quest einfügen will kommt in PuTTy :



Die Quest sieht so aus :

PHP Code:
quest hunde begin
    state start begin
        when 20087.chat."Teleportieren" begin
            say_title("Teleportieren")
            say("")
            say("Ist das nicht ein schöner Ort hier?")
            say("Doch irgendwie ist es hier langweilig")
            say("und trostlos. Doch zum erholen ist dies")
            say("ein prima Ort. Wenn du diesen Ort jedoch")
            say("verlassen willst, kann ich dich hier fort")
            say("bringen.")
            say_reward("Willst du dich Teleportieren?")
            local s = select("Ja","Nein")
            if s == 5 then
                return
            end
            if s == 1 then
                say_title("Teleportieren")
                say("")
                say_reward("Wo soll es hingehen?")
                local s = select("Grotte-1","Farmmap","90iger Map","Abbrechen")
                if s == 1 then
                    return
                end
                if s == 2 then
                    pc.warp(0, 1203200)
                    end
                end
                    end
                if s == 3 then
                    pc.warp(0, 0)
                    end
                end
                if s == 4 then
                    if pc.level >= 90 then
                        pc.warp(153600, 1203200)
                    else
                        chat("Du bist noch nicht bereit für diese Map. Komm wieder")
                        chat("wenn du das Level 90 erreicht hast!")
                    end
                end
                if s == 9 then
                    pc.warp(921600, 153600)
                end
            end
        end
    end
end 
Öffne die quest mal mit n++ und schau mal in der zeile 30 obda ein fehler ist
10/16/2011 16:35 RedKing2#3758
PHP Code:
quest collektion_9 begin
    state start begin
        when login or levelup with pc.get_level() >= 92  begin
            set_state(information)
        end    
    end

    state information begin
        when letter begin
            local v = find_npc_by_vnum(20091)
            if v != 0 then
                target.vid("__TARGET__", v, "Seon-Pyeong")
            end
            send_letter("Seon-Pyeongs Forschung 1")
        end

        when button or info begin
            say_title("Seon-Pyeongs Forschung 1")
            say("Seon-Pyeong, ein überall anerkannter")
            say("Sura Meister der alten Künste, bat um")
            say("deine Hilfe. Du solltest wissen, dass")
            say("Seon-Pyeong schon vor dieser Generation")
            say("mächtige Krieger um Hilfe bat. Das soll")
            say("also schon was heißen.")
        end
        
        when  __TARGET__.target.click or
            20091.chat."Seon-Pyeongs Forschung 1" begin
            target.delete("__TARGET__")
            say_title(mob_name(20091))
            say("Hallo " ..pc.get_name().. ", es ist schön")
            say("das ich dich endlich mal näher kennen lerne.")
            say("Ich habe viel von dir und deinen Taten gehört.")
            say("Du scheinst bereits weit gekommen zu sein. Nun,")
            say("ich biete dir ein Angebot an, das dir bestimmt")
            say("sehr gefallen wird. Kennst du Juwel der Missgunst?")
            say("Nein? Hätte mich gewundert wenn doch. Sie sind")
            say("enorm selten und verflucht schwer zu bekommen.")
            say("Sie enthalten mächtige Extrakte die viele neue")
            say("Möglichkeiten bieten. Bisher weiß nur ich wie")
            say("man die Extrakte aus den Juwelen gewinnt. Es")
            say("genügt nur ein Juwel um deine Lebenserwartung")
            say("zu verdoppeln oder deine Kräfte stark zu")
            say("verbessern.")
            wait()
            say_title(mob_name(20091))
            say("Ich wäre bereit, dir solch ein Extrakt")
            say("anzufertigen, wenn du mir 10 Juwelen der")
            say("Missgunst lieferst. Diese Juwelen bekommt man")
            say("nur von den Teuflichen Eiskreaturen in den")
            say("tiefen Ebenen der Grotte der Verbannung.")
            say("Allerdings ist dies nicht alles. Das Extrakt")
            say("aus den Juwelen zugewinnen ist nicht einfach...")
            say("Keine Angst! - Es wird schon nicht fehlschlagen.")
            say("Ich bin nicht so ein Anfänger, wie der Biologe")
            say("Chaegirab. Allerdings benötige ich zwei Stunden")
            say("um aus einem Juwel das Extrakt zu entnehmen.")
            say("Daher bitte ich dich, mir die Juwelen alle")
            say("einzeln zu bringen. Nun geh und besorge mir")
            say("diese Juwelen.")
            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("Seon-Pyeongs Forschung - Juwelen der Missgunst")
            
        end
        when button or info begin
            say_title("Die dunklen tiefen Ebenen der Grotte der Verbannung")
            say("Seon-Pyeong, ein Weiser Surameister, schlug dir")
            say("vor, für ihn 10 Juwelen der Missgünste zu sammeln")
            say("um das Extrakt daraus zu gewinnen was nahezu")
            say("grenzenlose Kräfte verbirgt und dir anschließend")
            say("eines der Extrakte überlässt. Diese Juwelen der")
            say("Missgunst findet man ausschließlich bei den")
            say("Teuflischen Eiskreaturen in den tiefen Ebenen der")
            say("Grotte der Verbannung. Sei vorsichtig,")
            say("wenn du dort hingehst.")
            say_item_vnum(30251)
            say_reward("Bislang wurden ".." "..pc.getqf("collect_count").." Juwelen von dir abgegeben.")
        end

        when 1131.kill    or
             1132.kill    or
             1133.kill    or
             1134.kill    or
             1135.kill    or
             1136.kill    or
             1137.kill    begin
             local s = number(1, 150)
             if s <= 1 and pc.count_item(30251) == 0  then
                game.drop_item_with_ownership(30251)    
            end    
        end

        
        when 20091.chat."Juwel der Missgunst" with pc.count_item(30251) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title(mob_name(20091))
                say("Ich habe bereits alle Vorbereitungen")
                say("zur Extraktion vorgenommen. Übergebe")
                say("mir nun den Juwel der Missgunst und")
                say("ich beginne sofort mit der Arbeit.")
                pc.remove_item(30251, 1)
                if  is_test_server()  then 
                    pc.setqf("duration",get_time()+2) 
                else
                    pc.setqf("duration",get_time()+60*60*0)
                end
                wait()
                    if pc.getqf("collect_count") < 9 then 
                        local index =pc.getqf("collect_count") +1 
                        pc.setqf("collect_count",index)
                        say_title(mob_name(20091))
                        say("Die Extraktion wird einige Zeit in Anspruch")
                        say("nehmen. Bitte erscheine mit einem neuen Juwel")
                        say("in genau zwei Stunden, bisdahin bin ich bestimmt")
                        say("fertig. Falls nicht, warte einige Minuten.")
                        say("Derzeit musst mir noch ".." "..10-pc.getqf("collect_count").. " weitere")
                        say("Juwele der Missgunst liefern.")
                    else
                        say_title(mob_name(20091))
                        say("Hervorragende Arbeit " ..pc.get_name().. ", ")
                        say("ich habe bereits für dich ein Extrakt fertig")
                        say("gestellt. Es fehlt noch eine spezielle Zutat")
                        say("die du selbst dir aussuchen sollst. Doch")
                        say("wähle klug! Diese Aktion ist nicht rückgängig")
                        say("zu machen und bleibt Permanent vorhanden.")
                        pc.setqf("collect_count", 0)
                        local s = select("+1000 Trefferpunkte","+100 Verteidigung","+50 Angriffspunkte")
                        if 1== s then
                            affect.add_collect(apply.MAX_HP, 1000, 60*60*24*365*60)
                            chat("Deine TP wurde um 1.000 Permanent verbessert.")
                        elseif 2== s then
                            affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*24*365*60)
                            chat("Deine Verteidigung wurde um 100 Permanent verbessert.")
                        elseif 3== s then
                            affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*24*365*60)
                            chat("Deine Angriffspunkte wurden um 50 Permanent verbessert.")
                        end
                    end
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    clear_letter()
                    set_quest_state("collektion_10", "run")
                    set_state(__COMPLETE__)
            else
                say_title(mob_name(20091))
                say("Es ist toll das du einen weiteren Juwel")
                say("der Missgunst gefunden hast, aber ich bin")
                say("mit der Extraktion des letzten Juwel noch")
                say("nicht fertig. Bitte gedulde dich noch einen")
                say("Augenblick.")
            end
        end
    end

    state __COMPLETE__ begin
    end
end 
PHP Code:
quest collektion_10 begin
    state start begin
    end
    state run begin
        when login or levelup with pc.get_level() >= 94  begin
            set_state(information)
        end    
    end

    state information begin
        when letter begin
            local v = find_npc_by_vnum(20091)
            if v != 0 then
                target.vid("__TARGET__", v, "Seon-Pyeong")
            end
            send_letter("Seon-Pyeongs Forschung 2")
        end

        when button or info begin
            say_title("Seon-Pyeongs Forschung 2")
            say("Seon-Pyeong, ein überall anerkannter")
            say("Sura Meister der alten Künste, bat erneut um")
            say("deine Hilfe.")
        end
        
        when  __TARGET__.target.click or
            20091.chat."Seon-Pyeongs Forschung 2" begin
            target.delete("__TARGET__")
            say_title(mob_name(20091))
            say("Hallo " ..pc.get_name().. ", ich habe")
            say("eine weitere Aufgabe für dich. Ich habe")
            say("von einem neuem Juwel gehört. Sein Name")
            say("soll angeblich Juwel der Weissheit sein.")
            say("Ich möchte unbedingt diesen Juwel mir")
            say("näher ansehen. Wohlmöglich enthält er die")
            say("selben Kräfte, aber in verstärkter Form.")
            say("Sie sollen angeblich von den Setaou-Soldaten")
            say("bewacht werden. Bringe mir bitte 20 Juwele")
            say("der Weissheit. Da sie noch relativ neu für")
            say("mich sein werden, werde ich für die Unter-")
            say("suchung einen ganzen Tag benötigen. Bringe")
            say("sie mir bitte alle einzeln.")
            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("Seon-Pyeongs Forschung - Juwelen der Weissheit")
            
        end
        when button or info begin
            say_title("Die neuste Entdeckung")
            say("Seon-Pyeong hörte von einem neuem Juwel, sein Name")
            say("lautet Juwel der Weissheit. Die Setaou-Soldaten")
            say("sollen sie angeblich bewachen und beschützen.")
            say("Besorge dem großen Surameister 20 dieser Juwele.")
            say("Du findest die Setaou-Soldaten in der Grotte der")
            say("Verbannung 1 & 2.")
            say_item_vnum(30252)
            say_reward("Bislang wurden ".." "..pc.getqf("collect_count").." Juwelen von dir abgegeben.")
        end

        when 2401.kill    or
             2402.kill    or
             2403.kill    or
             2404.kill    or
             2411.kill    or
             2412.kill    or
             2413.kill    begin
            local s = number(1, 80)
            if s <= 1 and pc.count_item(30252) == 0  then
                game.drop_item_with_ownership(30252)    
            end    
        end

        
        when 20091.chat."Juwel der Weissheit" with pc.count_item(30252) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title(mob_name(20091))
                say("Ich habe bereits alle Vorbereitungen")
                say("zur Untersuchung des Juweles vorgenommen.")
                say("Gebe mir nun den Juwel der Weissheit und")
                say("ich beginne sofort mit der Arbeit.")
                pc.remove_item(30252, 1)
                if  is_test_server()  then 
                    pc.setqf("duration",get_time()+2) 
                else
                    pc.setqf("duration",get_time()+60*60*23)
                end
                wait()
                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent= 50
                else
                    pass_percent= 50
                end
                    
                local s= number(1,100)
                if s<= pass_percent  then
                    if pc.getqf("collect_count")< 19 then   
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)
                        say_title(mob_name(20091))
                        say("Das sieht sehr interessant aus. Die Untersuchung")
                        say("wird 100%tig einen Tag dauern. Bitte liefere")
                        say("mir morgen das nächste Juwel der Weissheit.")
                        say("Du musst mir noch ".." "..20-pc.getqf("collect_count").. " weitere")
                        say("Juwele der Weissheit liefern.")
                        pc.setqf("drink_drug", 0)
                    else
                    
                        say_title(mob_name(20091))
                        say("Hervorragende Arbeit " ..pc.get_name().. ", ")
                        say("die Untersuchungen ergaben bemerkenswerte")
                        say("Ergebnisse. Ich habe auch gleich ein Extrakt")
                        say("verfahren entwickelt und die ersten Extrakte")
                        say("hergestellt. Bitte wähle erneut eine Zutat um")
                        say("die jeweiligen Verbesserungen zu erhalten.")
                        pc.setqf("collect_count", 0)
                        local s = select("+1100 Trefferpunkte","+120 Verteidigung","+60 Angriffspunkte")
                        if 1== s then
                            affect.add_collect(apply.MAX_HP, 1100, 60*60*24*365*60)
                            chat("Deine TP wurde um 1.100 Permanent verbessert.")
                        elseif 2== s then
                            affect.add_collect(apply.DEF_GRADE_BONUS, 120, 60*60*24*365*60)
                            chat("Deine Verteidigung wurde um 120 Permanent verbessert.")
                        elseif 3== s then
                            affect.add_collect(apply.ATT_GRADE_BONUS, 60, 60*60*24*365*60)
                            chat("Deine Angriffspunkte wurden um 60 Permanent verbessert.")
                        end
                    end
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    clear_letter()
                    set_state(__COMPLETE__)
                else
                    say_title(mob_name(20091))
                    say("Oh verdammt! - Das ist mir aber peinlich.")
                    say("Ich habe versehentlich den Juwel der Weissheit")
                    say("bei den anfänglichen Untersuchungen zerstört.")
                    say("Bitte bringe mir ein neues. Es tut mir leid...")
                    say("")
                    pc.setqf("drink_drug", 0)
                end
            else
                say_title(mob_name(20091))
                say("Es ist toll das du einen weiteren Juwel")
                say("der Weissheit gefunden hast, aber ich bin")
                say("mit der Untersuchung des letzten Juwel noch")
                say("nicht fertig. Bitte gedulde dich noch einen")
                say("Augenblick.")
            end
        end
    end

    state __COMPLETE__ begin
    end
end 
Es gibt "Keine" Fehlermeldung. Die Quest funktioniert einwandfrei, allerdings wenn ich ein Item abgebe und dieser erfolgreich war, kann ich kein weiteres mehr abgeben?! Aber die Quest ist nicht beendet.
10/16/2011 21:49 .Muhammed#3759
Quote:
Originally Posted by .ExoTiC View Post
PHP Code:
quest soldat begin
    state start begin
    end
    state run begin
        when letter begin
            send_letter("Berufsstatus")
            pc.setqf("aufstieg", 1)
        end
        when button or info begin
            say_title("Berufsstatus")
            say("Dein Beruf:")            
            say_reward("Soldat")
            say("Dein Rang:")
            if pc.getqf("aufstieg")==1 then
                say_reward("Rekrut")
                say("Deine Vorteile:")
                say_reward("+10 Stärke")
                say_reward("+500 max. HP")
                say_reward("+5% Erfahrungsbonus")
            elseif pc.getqf("aufstieg")==2 then
                say_reward("Soldat")
                say("Deine Vorteile:")
                say_reward("+12 Stärke")
                say_reward("+750 max. HP")
                say_reward("+10% Erfahrungsbonus")
            elseif pc.getqf("aufstieg")==3 then
                say_reward("Corporal")
                say("Deine Vorteile:")
                say_reward("+14 Stärke")
                say_reward("+1000 max. HP")
                say_reward("+15% Erfahrungsbonus")
            elseif pc.getqf("aufstieg")==4 then
                say_reward("Leutnant")
                say("Deine Vorteile:")
                say_reward("+16 Stärke")
                say_reward("+1250 max. HP")
                say_reward("+20% Erfahrungsbonus")
            elseif pc.getqf("aufstieg")==5 then
                say_reward("General")
                say("Deine Vorteile:")
                say_reward("+20 Stärke")
                say_reward("+1500 max. HP")
                say_reward("+25% Erfahrungsbonus")
            end                
        end
        when login or levelup begin
            if pc.get_level()>=26 and pc.getqf("aufstieg")==1 then                
                set_state(soldaterste)
            elseif pc.get_level()>=34 and pc.getqf("aufstieg")==2 then                
                set_state(soldatzweite)
            elseif pc.get_level()>=48 and pc.getqf("aufstieg")==3 then                
                set_state(soldatdritte)
            elseif pc.get_level()>=70 and pc.getqf("aufstieg")==4 then                
                set_state(soldatvierte)
            end
        end
    end
    state soldaterste begin
        when letter begin
            if pc.getqf("letter")==0 then
                send_letter("Beförderung!")
                local v=find_npc_by_vnum(20355)
                if 0!=v then
                    target.vid("target", v, "Hauptmann")
                end
            elseif pc.getqf("letter")==1 then
                send_letter("Berufsstatus")
            end
        end
        when button or info begin
            if pc.getqf("letter")==0 then
                say_title("Beförderung!")
                say("Gehe zum Hauptmann. Er hat eine")
                say("bestimmte Aufgabe für dich.")
            elseif pc.getqf("letter")==1 then
                say_title("Berufsstatus")
                say("Dein Beruf:")            
                say_reward("Soldat")
                say("Dein Rang:")
                say_reward("Rekrut")
                say("Deine Vorteile:")
                say_reward("+10 Stärke")
                say_reward("+500 max. HP")
                say_reward("+5% Erfahrungsbonus")                
            end
        end
        when target.target.click begin
            say_title("Hauptmann")
            say("Hallo "..pc.get_name())
            say("Endlich ist es so weit. Du bist")
            say("erfahren genug dich der Aufgabe zu")
            say("stellen um in deinen Beruf aufzusteigen.")
            say("Um zu bestehen musst du 10 Spieler aus")
            say("einem anderen Reich bezwungen haben und")
            say("2500 Rangpunkte besitzen.")
            say("Viel Erfolg!")
            wait()
            clear_letter()
            send_letter("Berufsstatus")
            pc.setqf("spieler", 0)
            pc.setqf("letter", 1)
            q.set_counter("Getötete Spieler", 0)
            target.delete("target")
        end
        when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
            if pc.getqf("spieler")<10 then
                pc.setqf("spieler", pc.getqf("spieler")+1)
                q.set_counter("Getötete Spieler", pc.getqf("spieler"))
            end
        end
        when 20355.chat."Beförderung" begin
            say_title("Hauptmann")
            if pc.getqf("spieler")<10 then
                say("Du hast noch zu wenig Spieler")
                say("getötet. Es werden nur welche aus")
                say("einen anderen Reich gezählt.")
                say_reward("Du musst 10 Spieler getötet haben.")
                return
            end
            if pc.get_alignment()<2500 then
                say("Du hast zu wenig Rangpunkte, als dass")
                say("ich dich schon befördern könnte. Zeig mir,")
                say("dass du geehrt wirst indem du 2500 Rang-")
                say("punkte besitzt.")
                return
            end
            say("Wow, du hast mir bewiesen, dass")
            say("du es verdient hast befördert zu")
            say("werden. So soll es auch sein! Ab")
            say("jetzt trägst du den Rang:")
            say_reward("Soldat")
            say("Herzlichen Glückwunsch!")
            say("Mach weiter so und aus dir wird eine")
            say("Legende.")
            clear_letter()
            affect.add_collect(apply.STR,2,60*60*24*365*4)
            affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
            affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)
            pc.setqf("aufstieg", 2)
            pc.setqf("letter", 0)
            set_state(run)
        end
    end
    state soldatzweite begin
        when letter begin
            if pc.getqf("letter")==0 then
                send_letter("Beförderung!")
                local v=find_npc_by_vnum(20355)
                if 0!=v then
                    target.vid("target", v, "Hauptmann")
                end
            elseif pc.getqf("letter")==1 then
                send_letter("Berufsstatus")
            end
        end
        when button or info begin
            if pc.getqf("letter")==0 then
                say_title("Beförderung!")
                say("Gehe zum Hauptmann. Er hat eine")
                say("bestimmte Aufgabe für dich.")
            elseif pc.getqf("letter")==1 then
                say_title("Berufsstatus")
                say("Dein Beruf:")            
                say_reward("Soldat")
                say("Dein Rang:")
                say_reward("Soldat")
                say("Deine Vorteile:")
                say_reward("+12 Stärke")
                say_reward("+750 max. HP")
                say_reward("+10% Erfahrungsbonus")
            end
        end
        when target.target.click begin
            say_title("Hauptmann")
            say("Hallo "..pc.get_name())
            say("Endlich ist es so weit. Du bist")
            say("erfahren genug dich der Aufgabe zu")
            say("stellen um in deinen Beruf aufzusteigen.")
            say("Um zu bestehen musst du 50 Spieler aus")
            say("einem anderen Reich bezwungen haben und")
            say("5000 Rangpunkte besitzen.")
            say("Viel Erfolg!")
            wait()
            target.delete("target")
            clear_letter()
            send_letter("Berufsstatus")
            pc.setqf("letter", 1)
            pc.setqf("spieler", 0)
            q.set_counter("Getötete Spieler", 0)
        end
        when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
            if pc.getqf("spieler")<50 then
                pc.setqf("spieler", pc.getqf("spieler")+1)
                q.set_counter("Getötete Spieler", pc.getqf("spieler"))
            end
        end
        when 20355.chat."Beförderung" begin
            say_title("Hauptmann")
            if pc.getqf("spieler")<50 then
                say("Du hast noch zu wenig Spieler")
                say("getötet. Es werden nur welche aus")
                say("einen anderen Reich gezählt.")
                say_reward("Du musst 50 Spieler getötet haben.")
                return
            end
            if pc.get_alignment()<5000 then
                say("Du hast zu wenig Rangpunkte, als dass")
                say("ich dich schon befördern könnte. Zeig mir,")
                say("dass du geehrt wirst indem du 5000 Rang-")
                say("punkte besitzt.")
                return
            end
            say("Wow, du hast mir bewiesen, dass")
            say("du es verdient hast befördert zu")
            say("werden. So soll es auch sein! Ab")
            say("jetzt trägst du den Rang:")
            say_reward("Corporal")
            say("Herzlichen Glückwunsch!")
            say("Mach weiter so und aus dir wird eine")
            say("Legende.")
            clear_letter()
            affect.add_collect(apply.STR,2,60*60*24*365*4)
            affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
            affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)    
            pc.setqf("aufstieg", 3)
            pc.setqf("letter", 0)
            set_state(run)
        end
    end
    state soldatdritte begin
        when letter begin
            if pc.getqf("letter")==0 then
                send_letter("Beförderung!")
                local v=find_npc_by_vnum(20355)
                if 0!=v then
                    target.vid("target", v, "Hauptmann")
                end
            elseif pc.getqf("letter")==1 then
                send_letter("Berufsstatus")
            end
        end
        when button or info begin
            if pc.getqf("letter")==0 then
                say_title("Beförderung!")
                say("Gehe zum Hauptmann. Er hat eine")
                say("bestimmte Aufgabe für dich.")
            elseif pc.getqf("letter")==1 then
                say_title("Berufsstatus")
                say("Dein Beruf:")            
                say_reward("Soldat")
                say("Dein Rang:")
                say_reward("Corporal")
                say("Deine Vorteile:")
                say_reward("+14 Stärke")
                say_reward("+1000 max. HP")
                say_reward("+15% Erfahrungsbonus")
            end
        end
        when target.target.click begin
            say_title("Hauptmann")
            say("Hallo "..pc.get_name())
            say("Endlich ist es so weit. Du bist")
            say("erfahren genug dich der Aufgabe zu")
            say("stellen um in deinen Beruf aufzusteigen.")
            say("Um zu bestehen musst du 75 Spieler aus")
            say("einem anderen Reich bezwungen haben und")
            say("10000 Rangpunkte besitzen.")
            say("Viel Erfolg!")
            wait()
            clear_letter()
            send_letter("Berufsstatus")
            target.delete("target")
            pc.setqf("spieler", 0)
            pc.setqf("letter", 1)
            q.set_counter("Getötete Spieler", 0)
        end
        when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
            if pc.getqf("spieler")<75 then
                pc.setqf("spieler", pc.getqf("spieler")+1)
                q.set_counter("Getötete Spieler", pc.getqf("spieler"))
            end
        end
        when 20355.chat."Beförderung" begin
            say_title("Hauptmann")
            if pc.getqf("spieler")<75 then
                say("Du hast noch zu wenig Spieler")
                say("getötet. Es werden nur welche aus")
                say("einen anderen Reich gezählt.")
                say_reward("Du musst 75 Spieler getötet haben.")
                return
            end
            if pc.get_alignment()<10000 then
                say("Du hast zu wenig Rangpunkte, als dass")
                say("ich dich schon befördern könnte. Zeig mir,")
                say("dass du geehrt wirst indem du 10000 Rang-")
                say("punkte besitzt.")
                return
            end
            say("Wow, du hast mir bewiesen, dass")
            say("du es verdient hast befördert zu")
            say("werden. So soll es auch sein! Ab")
            say("jetzt trägst du den Rang:")
            say_reward("Leutnant")
            say("Herzlichen Glückwunsch!")
            say("Mach weiter so und aus dir wird eine")
            say("Legende.")
            clear_letter()
            affect.add_collect(apply.STR,2,60*60*24*365*4)
            affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
            affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)    
            pc.setqf("aufstieg", 4)
            pc.setqf("letter", 0)
            set_state(run)
        end
    end
    state soldatvierte begin
        when letter begin
            if pc.getqf("letter")==0 then
                send_letter("Beförderung!")
                local v=find_npc_by_vnum(20355)
                if 0!=v then
                    target.vid("target", v, "Hauptmann")
                end
            elseif pc.getqf("letter")==1 then
                send_letter("Berufsstatus")
            end
        end
        when button or info begin
            if pc.getqf("letter")==0 then
                say_title("Beförderung!")
                say("Gehe zum Hauptmann. Er hat eine")
                say("bestimmte Aufgabe für dich.")
            elseif pc.getqf("letter")==1 then
                say_title("Berufsstatus")
                say("Dein Beruf:")            
                say_reward("Soldat")
                say("Dein Rang:")
                say_reward("Leutnant")
                say("Deine Vorteile:")
                say_reward("+16 Stärke")
                say_reward("+1250 max. HP")
                say_reward("+20% Erfahrungsbonus")
            end
        end
        when target.target.click begin
            say_title("Hauptmann")
            say("Hallo "..pc.get_name())
            say("Endlich ist es so weit. Du bist")
            say("erfahren genug dich der letzten Aufgabe")
            say("zu stellen um deinen Beruf auszulernen.")
            say("Um zu bestehen musst du 250 Spieler aus")
            say("einem anderen Reich bezwungen haben und")
            say("20000 Rangpunkte besitzen.")
            say("Viel Erfolg!")
            wait()
            clear_letter()
            send_letter("Berufsstatus")
            target.delete("target")
            pc.setqf("letter", 1)
            pc.setqf("spieler", 0)
            q.set_counter("Getötete Spieler", 0)
        end
        when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
            if pc.getqf("spieler")<250 then
                pc.setqf("spieler", pc.getqf("spieler")+1)
                q.set_counter("Getötete Spieler", pc.getqf("spieler"))
            end
        end
        when 20355.chat."Beförderung" begin
            say_title("Hauptmann")
            if pc.getqf("spieler")<250 then
                say("Du hast noch zu wenig Spieler")
                say("getötet. Es werden nur welche aus")
                say("einen anderen Reich gezählt.")
                say_reward("Du musst 250 Spieler getötet haben.")
                return
            end
            if pc.get_alignment()<20000 then
                say("Du hast zu wenig Rangpunkte, als dass")
                say("ich dich schon befördern könnte. Zeig mir,")
                say("dass du geehrt wirst indem du 20000 Rang-")
                say("punkte besitzt.")
                return
            end
            say("Wow, du hast mir bewiesen, dass")
            say("du deinen Beruf beherschst. Dafür")
            say("soll man dich ab jetzt:")
            say_reward("General")
            say("Nennen und dich mit äußersten Respekt")
            say("behandeln.")
            say("Herzlichen Glückwunsch!")
            clear_letter()            
            affect.add_collect(apply.STR,4,60*60*24*365*4)
            affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
            affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)    
            pc.setqf("aufstieg", 5)
            pc.setqf("letter", 0)
            set_state(run)
        end
    end
end 
Fehler

PHP Code:
Segmentation fault (core dumped) 
Was ist an der Quest falsch. Wäre euch sehr dankbar, wenn ihr den Fehler beheben könntet.

Wo ist der Fehler hier?
Code:
quest soldat begin
	state start begin
	end
	state run begin
		when letter begin
			send_letter("Berufsstatus")
			pc.setqf("aufstieg", 1)
		end
		when button or info begin
			say_title("Berufsstatus")
			say("Dein Beruf:")			
			say_reward("Soldat")
			say("Dein Rang:")
			if pc.getqf("aufstieg")==1 then
				say_reward("Rekrut")
				say("Deine Vorteile:")
				say_reward("+10 Stärke")
				say_reward("+500 max. HP")
				say_reward("+5% Erfahrungsbonus")
			elseif pc.getqf("aufstieg")==2 then
				say_reward("Soldat")
				say("Deine Vorteile:")
				say_reward("+12 Stärke")
				say_reward("+750 max. HP")
				say_reward("+10% Erfahrungsbonus")
			elseif pc.getqf("aufstieg")==3 then
				say_reward("Corporal")
				say("Deine Vorteile:")
				say_reward("+14 Stärke")
				say_reward("+1000 max. HP")
				say_reward("+15% Erfahrungsbonus")
			elseif pc.getqf("aufstieg")==4 then
				say_reward("Leutnant")
				say("Deine Vorteile:")
				say_reward("+16 Stärke")
				say_reward("+1250 max. HP")
				say_reward("+20% Erfahrungsbonus")
			elseif pc.getqf("aufstieg")==5 then
				say_reward("General")
				say("Deine Vorteile:")
				say_reward("+20 Stärke")
				say_reward("+1500 max. HP")
				say_reward("+25% Erfahrungsbonus")
			end				
		end
		when login or levelup begin
			if pc.get_level()>=26 and pc.getqf("aufstieg")==1 then				
				set_state(soldaterste)
			elseif pc.get_level()>=34 and pc.getqf("aufstieg")==2 then				
				set_state(soldatzweite)
			elseif pc.get_level()>=48 and pc.getqf("aufstieg")==3 then				
				set_state(soldatdritte)
			elseif pc.get_level()>=70 and pc.getqf("aufstieg")==4 then				
				set_state(soldatvierte)
			end
		end
	end
	state soldaterste begin
		when letter begin
			if pc.getqf("letter")==0 then
				send_letter("Beförderung!")
				local v=find_npc_by_vnum(20355)
				if 0!=v then
					target.vid("target", v, "Hauptmann")
				end
			elseif pc.getqf("letter")==1 then
				send_letter("Berufsstatus")
			end
		end
		when button or info begin
			if pc.getqf("letter")==0 then
				say_title("Beförderung!")
				say("Gehe zum Hauptmann. Er hat eine")
				say("bestimmte Aufgabe für dich.")
			elseif pc.getqf("letter")==1 then
				say_title("Berufsstatus")
				say("Dein Beruf:")			
				say_reward("Soldat")
				say("Dein Rang:")
				say_reward("Rekrut")
				say("Deine Vorteile:")
				say_reward("+10 Stärke")
				say_reward("+500 max. HP")
				say_reward("+5% Erfahrungsbonus")				
			end
		end
		when target.target.click begin
			say_title("Hauptmann")
			say("Hallo "..pc.get_name())
			say("Endlich ist es so weit. Du bist")
			say("erfahren genug dich der Aufgabe zu")
			say("stellen um in deinen Beruf aufzusteigen.")
			say("Um zu bestehen musst du 10 Spieler aus")
			say("einem anderen Reich bezwungen haben und")
			say("2500 Rangpunkte besitzen.")
			say("Viel Erfolg!")
			wait()
			clear_letter()
			send_letter("Berufsstatus")
			pc.setqf("spieler", 0)
			pc.setqf("letter", 1)
			q.set_counter("Getötete Spieler", 0)
			target.delete("target")
		end
		when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
			if pc.getqf("spieler")<10 then
				pc.setqf("spieler", pc.getqf("spieler")+1)
				q.set_counter("Getötete Spieler", pc.getqf("spieler"))
			end
		end
		when 20355.chat."Beförderung" begin
			say_title("Hauptmann")
			if pc.getqf("spieler")<10 then
				say("Du hast noch zu wenig Spieler")
				say("getötet. Es werden nur welche aus")
				say("einen anderen Reich gezählt.")
				say_reward("Du musst 10 Spieler getötet haben.")
				return
			end
			if pc.get_alignment()<2500 then
				say("Du hast zu wenig Rangpunkte, als dass")
				say("ich dich schon befördern könnte. Zeig mir,")
				say("dass du geehrt wirst indem du 2500 Rang-")
				say("punkte besitzt.")
				return
			end
			say("Wow, du hast mir bewiesen, dass")
			say("du es verdient hast befördert zu")
			say("werden. So soll es auch sein! Ab")
			say("jetzt trägst du den Rang:")
			say_reward("Soldat")
			say("Herzlichen Glückwunsch!")
			say("Mach weiter so und aus dir wird eine")
			say("Legende.")
			clear_letter()
			affect.add_collect(apply.STR,2,60*60*24*365*4)
			affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
			affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)
			pc.setqf("aufstieg", 2)
			pc.setqf("letter", 0)
			set_state(run)
		end
	end
	state soldatzweite begin
		when letter begin
			if pc.getqf("letter")==0 then
				send_letter("Beförderung!")
				local v=find_npc_by_vnum(20355)
				if 0!=v then
					target.vid("target", v, "Hauptmann")
				end
			elseif pc.getqf("letter")==1 then
				send_letter("Berufsstatus")
			end
		end
		when button or info begin
			if pc.getqf("letter")==0 then
				say_title("Beförderung!")
				say("Gehe zum Hauptmann. Er hat eine")
				say("bestimmte Aufgabe für dich.")
			elseif pc.getqf("letter")==1 then
				say_title("Berufsstatus")
				say("Dein Beruf:")			
				say_reward("Soldat")
				say("Dein Rang:")
				say_reward("Soldat")
				say("Deine Vorteile:")
				say_reward("+12 Stärke")
				say_reward("+750 max. HP")
				say_reward("+10% Erfahrungsbonus")
			end
		end
		when target.target.click begin
			say_title("Hauptmann")
			say("Hallo "..pc.get_name())
			say("Endlich ist es so weit. Du bist")
			say("erfahren genug dich der Aufgabe zu")
			say("stellen um in deinen Beruf aufzusteigen.")
			say("Um zu bestehen musst du 50 Spieler aus")
			say("einem anderen Reich bezwungen haben und")
			say("5000 Rangpunkte besitzen.")
			say("Viel Erfolg!")
			wait()
			target.delete("target")
			clear_letter()
			send_letter("Berufsstatus")
			pc.setqf("letter", 1)
			pc.setqf("spieler", 0)
			q.set_counter("Getötete Spieler", 0)
		end
		when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
			if pc.getqf("spieler")<50 then
				pc.setqf("spieler", pc.getqf("spieler")+1)
				q.set_counter("Getötete Spieler", pc.getqf("spieler"))
			end
		end
		when 20355.chat."Beförderung" begin
			say_title("Hauptmann")
			if pc.getqf("spieler")<50 then
				say("Du hast noch zu wenig Spieler")
				say("getötet. Es werden nur welche aus")
				say("einen anderen Reich gezählt.")
				say_reward("Du musst 50 Spieler getötet haben.")
				return
			end
			if pc.get_alignment()<5000 then
				say("Du hast zu wenig Rangpunkte, als dass")
				say("ich dich schon befördern könnte. Zeig mir,")
				say("dass du geehrt wirst indem du 5000 Rang-")
				say("punkte besitzt.")
				return
			end
			say("Wow, du hast mir bewiesen, dass")
			say("du es verdient hast befördert zu")
			say("werden. So soll es auch sein! Ab")
			say("jetzt trägst du den Rang:")
			say_reward("Corporal")
			say("Herzlichen Glückwunsch!")
			say("Mach weiter so und aus dir wird eine")
			say("Legende.")
			clear_letter()
			affect.add_collect(apply.STR,2,60*60*24*365*4)
			affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
			affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)	
			pc.setqf("aufstieg", 3)
			pc.setqf("letter", 0)
			set_state(run)
		end
	end
	state soldatdritte begin
		when letter begin
			if pc.getqf("letter")==0 then
				send_letter("Beförderung!")
				local v=find_npc_by_vnum(20355)
				if 0!=v then
					target.vid("target", v, "Hauptmann")
				end
			elseif pc.getqf("letter")==1 then
				send_letter("Berufsstatus")
			end
		end
		when button or info begin
			if pc.getqf("letter")==0 then
				say_title("Beförderung!")
				say("Gehe zum Hauptmann. Er hat eine")
				say("bestimmte Aufgabe für dich.")
			elseif pc.getqf("letter")==1 then
				say_title("Berufsstatus")
				say("Dein Beruf:")			
				say_reward("Soldat")
				say("Dein Rang:")
				say_reward("Corporal")
				say("Deine Vorteile:")
				say_reward("+14 Stärke")
				say_reward("+1000 max. HP")
				say_reward("+15% Erfahrungsbonus")
			end
		end
		when target.target.click begin
			say_title("Hauptmann")
			say("Hallo "..pc.get_name())
			say("Endlich ist es so weit. Du bist")
			say("erfahren genug dich der Aufgabe zu")
			say("stellen um in deinen Beruf aufzusteigen.")
			say("Um zu bestehen musst du 75 Spieler aus")
			say("einem anderen Reich bezwungen haben und")
			say("10000 Rangpunkte besitzen.")
			say("Viel Erfolg!")
			wait()
			clear_letter()
			send_letter("Berufsstatus")
			target.delete("target")
			pc.setqf("spieler", 0)
			pc.setqf("letter", 1)
			q.set_counter("Getötete Spieler", 0)
		end
		when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
			if pc.getqf("spieler")<75 then
				pc.setqf("spieler", pc.getqf("spieler")+1)
				q.set_counter("Getötete Spieler", pc.getqf("spieler"))
			end
		end
		when 20355.chat."Beförderung" begin
			say_title("Hauptmann")
			if pc.getqf("spieler")<75 then
				say("Du hast noch zu wenig Spieler")
				say("getötet. Es werden nur welche aus")
				say("einen anderen Reich gezählt.")
				say_reward("Du musst 75 Spieler getötet haben.")
				return
			end
			if pc.get_alignment()<10000 then
				say("Du hast zu wenig Rangpunkte, als dass")
				say("ich dich schon befördern könnte. Zeig mir,")
				say("dass du geehrt wirst indem du 10000 Rang-")
				say("punkte besitzt.")
				return
			end
			say("Wow, du hast mir bewiesen, dass")
			say("du es verdient hast befördert zu")
			say("werden. So soll es auch sein! Ab")
			say("jetzt trägst du den Rang:")
			say_reward("Leutnant")
			say("Herzlichen Glückwunsch!")
			say("Mach weiter so und aus dir wird eine")
			say("Legende.")
			clear_letter()
			affect.add_collect(apply.STR,2,60*60*24*365*4)
			affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
			affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)	
			pc.setqf("aufstieg", 4)
			pc.setqf("letter", 0)
			set_state(run)
		end
	end
	state soldatvierte begin
		when letter begin
			if pc.getqf("letter")==0 then
				send_letter("Beförderung!")
				local v=find_npc_by_vnum(20355)
				if 0!=v then
					target.vid("target", v, "Hauptmann")
				end
			elseif pc.getqf("letter")==1 then
				send_letter("Berufsstatus")
			end
		end
		when button or info begin
			if pc.getqf("letter")==0 then
				say_title("Beförderung!")
				say("Gehe zum Hauptmann. Er hat eine")
				say("bestimmte Aufgabe für dich.")
			elseif pc.getqf("letter")==1 then
				say_title("Berufsstatus")
				say("Dein Beruf:")			
				say_reward("Soldat")
				say("Dein Rang:")
				say_reward("Leutnant")
				say("Deine Vorteile:")
				say_reward("+16 Stärke")
				say_reward("+1250 max. HP")
				say_reward("+20% Erfahrungsbonus")
			end
		end
		when target.target.click begin
			say_title("Hauptmann")
			say("Hallo "..pc.get_name())
			say("Endlich ist es so weit. Du bist")
			say("erfahren genug dich der letzten Aufgabe")
			say("zu stellen um deinen Beruf auszulernen.")
			say("Um zu bestehen musst du 250 Spieler aus")
			say("einem anderen Reich bezwungen haben und")
			say("20000 Rangpunkte besitzen.")
			say("Viel Erfolg!")
			wait()
			clear_letter()
			send_letter("Berufsstatus")
			target.delete("target")
			pc.setqf("letter", 1)
			pc.setqf("spieler", 0)
			q.set_counter("Getötete Spieler", 0)
		end
		when kill with npc.is_pc() and npc.get_empire()!=pc.get_empire() begin
			if pc.getqf("spieler")<250 then
				pc.setqf("spieler", pc.getqf("spieler")+1)
				q.set_counter("Getötete Spieler", pc.getqf("spieler"))
			end
		end
		when 20355.chat."Beförderung" begin
			say_title("Hauptmann")
			if pc.getqf("spieler")<250 then
				say("Du hast noch zu wenig Spieler")
				say("getötet. Es werden nur welche aus")
				say("einen anderen Reich gezählt.")
				say_reward("Du musst 250 Spieler getötet haben.")
				return
			end
			if pc.get_alignment()<20000 then
				say("Du hast zu wenig Rangpunkte, als dass")
				say("ich dich schon befördern könnte. Zeig mir,")
				say("dass du geehrt wirst indem du 20000 Rang-")
				say("punkte besitzt.")
				return
			end
			say("Wow, du hast mir bewiesen, dass")
			say("du deinen Beruf beherschst. Dafür")
			say("soll man dich ab jetzt:")
			say_reward("General")
			say("Nennen und dich mit äußersten Respekt")
			say("behandeln.")
			say("Herzlichen Glückwunsch!")
			clear_letter()			
			affect.add_collect(apply.STR,4,60*60*24*365*4)
			affect.add_collect(apply.MAX_HP,250,60*60*24*365*4)
			affect.add_collect(apply.EXP_DOUBLE_BONUS,5,60*60*24*365*4)	
			pc.setqf("aufstieg", 5)
			pc.setqf("letter", 0)
			set_state(run)
		end
	end
end
10/16/2011 22:40 .Delta#3760
@ Brodan:
try this
Code:
quest GM_File2 begin    
	state start begin    
		when 30181.use with pc.is_gm() begin    
			say_title("GM-Tool:")    
			say("")    
			say("Oh Hallo, GameMaster!")    
			say("Möchtest du die GM Rechte aktualiseren?")    
			say("Oder willst du doch eher etwas ankündigen?")    
			say_title("Bitte Funktion Wählen")    
			local s = select("GM Rechte Aktualiseren", "Eventmanagement", "Support anbieten", "Tag / Nacht", "Weiter")   
			if s == 1 then    
				command("reload a") 
            elseif s == 2 then   
                say_title("GM-Tool:")
                say("")
                say("Willkommen im Eventmanagement!")
                say("Wähle das zustartende oder zubeendende Event:") 
                local wup = select("Weihnachtsevent", "Abbrechen")  
                if wup == 1 then
                    say_title("GM-Tool:")
                    say("")
                    say("Möchtest du das Event starten oder beenden?")
                    local xmas = select("Starten", "Beenden")
                    if xmas == 1 then
                        command("e xmas_tree 1")
                        command("e xmas_song 1")
                        command("e xmas_boom 1")
                        command("e xmas_snow 1")
                        notice_all("Das Weihnachtsevent wurde gestartet!")
                        say_title("GM-Tool:")
                        say("")
                        say("Du hast das Weihnachtsevent gestartet.")
                    elseif xmas == 2 then
                        command("e xmas_tree 0")
                        command("e xmas_song 0")
                        command("e xmas_boom 0")
                        command("e xmas_snow 0")
                        notice_all("Das Weihnachtsevent wurde beendet!")
                        say_title("GM-Tool:")
                        say("")
                        say("Du hast das Weihnachtsevent beendet.")
					end -- hat gefehlt
                elseif wup == 2 then
                    return
                end
            elseif s == 3 then
                say_title("GM-Tool:")
                say("")
                say("Willkommen im Supportfenster!")
                say("Möchtest du dich Anmelden, oder verabschieden?")
                local o = select("Anmelden", "Verabschieden", "Abbrechen")
                if o == 1 then
                    say_title("GM-Tool:")
                    say("")
                    say("Du hast dich angemeldet.")
                    command ("n "..pc.get_name() .." steht euch für Fragen und Probleme zur Verfügung!")
                elseif o == 2 then
                    say_title("GM-Tool:")
                    say("")
                    say("Du hast dich abgemeldet.")
                    say("Schönen Tag noch!")
                    command ("n "..pc.get_name() .." meldet sich nun ab und wünscht weiterhin viel Spaß!") 
                elseif o == 3 then
                    return
                end
            elseif s == 4 then    
                say_title("GM-Tool:")    
                say("")    
                say("Du möchtest also zwischen Tag und")    
                say("Nacht wechseln ?")    
                local f = select ("Tag" , "Nacht", "Abbrechen")    
                if f == 1 then    
                    command("x 0")                   
                elseif f == 2 then    
                    command ("x 1")  
                elseif f == 3 then    
                    return   
                end 
            elseif s == 5 then
                say_title("GM-Tool:")
                say("")
                say_title("Bitte Funktion wählen")    
                local m = select ("Reboot Ankündigen", "Rates einstellen", "Schließen")    
                if m == 1 then    
                    notice_all("Wir werden einen Reboot durchführen, bitte ausloggen!")  
                    timer("wiederholen", 5)  
                elseif m == 2 then  
                    say_title("GM-Tool:")
                    say("")
                    say("Welche Rates willst du erhöhen / heruntersetzen?") 
                    local q = select("Exp-Rates", "Yang-Rates", "Drop-Rate", "Yangbomben", "Abbrechen") 
                    if q == 1 then 
                        say_title("GM-Tool:")
                        say("")
                        say("Alles klar. Dann gib die Exp-Rate Höhe hier ein:") 
                        local zahl = tonumber(input()) 
                        if zahl <= 0 then 
                            say_title("GM-Tool:")
                            say("")
                            say("Die Zahl ist zu niedrig!") 
                            return 
                        else
                            say_title("GM-Tool:")
                            say("")
                            say("Willst du die Exp-Rate wirklich auf "..zahl.." % erhöhen?") 
                            local w = select("Ja", "Nein") 
                            if w == 1 then 
                                command("priv 0 4 "..zahl.." 699") 
                            else 
                                say_title("GM-Tool:")
                                say("")
                                say("Dann nicht.") 
                                return 
                            end     
                        end     
                    elseif q == 2 then     
                        say_title("GM-Tool:")
                        say("")
                        say("Alles klar. Dann gib die Yang-Rate Höhe hier ein :") 
                        local nummer = tonumber(input()) 
                        if nummer <= 0 then 
                            say_title("GM-Tool:")
                            say("")
                            say("Die Zahl ist zu niedrig!") 
                            return 
                        else 
                            say_title("GM-Tool:")
                            say("")
                            say("Willst du die Yang-Rate wirklich auf "..nummer.." % erhöhen?") 
                            local c = select("Ja", "Nein") 
                            if c == 1 then 
                                command("priv 0 2 "..nummer.." 699") 
                            else 
                                say_title("GM-Tool:")
                                say("")    
                                say("Dann nicht.") 
                                return 
                            end 
                        end     
                    elseif q == 3 then    
                        say_title("GM-Tool:")
                        say("")                    
                        say("Alles klar. Dann gib die Drop-Rate Höhe hier ein :") 
                        local number = tonumber(input()) 
                        if number <= 0 then 
                            say("Die Zahl ist zu niedrig!") 
                            return 
                        else 
                            say_title("GM-Tool:")
                            say("")
                            say("Willst du die Drop-Rate wirklich auf "..number.." % erhöhen?") 
                            local k = select("Ja", "Nein") 
                            if k == 1 then 
                                command("priv 0 1 "..number.." 699") 
                            else 
                                say_title("GM-Tool:")
                                say("")
                                say("Dann nicht.") 
                                return 
                            end 
                        end     
                    elseif q == 4 then 
                        say_title("GM-Tool:")
                        say("")
                        say("Alles klar. Dann gib die Yangbomben-Rate Höhe hier ein :") 
                        local nummber = tonumber(input()) 
                        if nummber <= 0 then 
                            say_title("GM-Tool:")
                            say("")
                            say("Die Zahl ist zu niedrig!") 
                            return 
                        else 
                            say_title("GM-Tool:")
                            say("")
                            say("Willst du die Yangbomben-Rate wirklich auf "..nummber.." % erhöhen?") 
                            local l = select("Ja", "Nein") 
                            if l == 1 then 
                                command("priv 0 3 "..nummber.." 699") 
                            else
                                say_title("GM-Tool:")
                                say("")                            
                                say("Dann nicht.") 
                                return 
                            end 
                        end     
                    end  
                elseif m == 3 then   
                    return
                end
            end 
        end    
        when wiederholen.timer begin
            notice_all("Wir werden einen Reboot durchführen, bitte ausloggen!")  
            timer("wiederholen1", 5)
        end
        when wiederholen1.timer begin
            notice_all("Wir werden einen Reboot durchführen, bitte ausloggen!")  
            timer("wiederholen", 5)
        end
    end   
end
@.Muhammed
Fehlermeldung?
10/16/2011 23:14 xTheSoulutionxx3#3761
was daran falsch=?


PHP Code:
quest map1 begin 
    state start begin 
        when login or levelup with pc.get_level()>=50 begin 
        set_state(farmmaplow) 
        end 
        end 
        state farmmaplow begin 
        when 9013.chat."Farmmap Low(ab 50)" begin 
        say_title("Farmmap Low") 
        say_green("Möchtest du zur Farm map Low ?") 
        say_green("auf der Map findest du metins bis") 
        say_green("level 90 zum Farmen deiner Items.") 
        local main_set = select("Ja", "Nein") 
        if main_set == 2 then 
        return 
        end 
        if main_set == 1 then 
        say("Gut, ich bringe dich umgehend hin!") 
        wait() 
        pc.warp(90000, 10000) 
        end 
        set_state(farmh) 
        end 
    end 
end 
end 
    state farmh begin 
        when login or levelup with pc.get_level()>=95 begin 
        set_state(farmmaphigh) 
        end 
        end 
        state farmmaphigh begin 
        when 9013.chat."Farmmap High(ab 95)" begin 
        say_title("Farmmap High") 
        say_green("Möchtest du zur Farm map High ?") 
        say_green("auf der Map findest du metins bis") 
        say_green("level 150 oder Höher zum Farmen deiner Items.") 
        local main_set = select("Ja", "Nein") 
        if main_set == 2 then 
        return 
        end 
        if main_set == 1 then 
        say("Gut, ich bringe dich umgehend hin!") 
        wait() 
        pc.warp(1599900, 1599900) 
        end 
        set_state(tald) 
        end 
    end 
end 
end 
    state tald begin 
        when login or levelup with pc.get_level()>=115 begin 
        set_state(taldz) 
        end 
        end 
        state taldz begin 
        when 9013.chat."Tal der Zombies(ab 115)" begin 
        say_title("Tal der Zombies") 
        say_green("Möchtest du ins Tal der Zombies ?") 
        say_green("auf der Map findest du Zombies im") 
        say_green("level 120 oder Höher zum Leveln.") 
        local main_set = select("Ja", "Nein") 
        if main_set == 2 then 
        return 
        end 
        if main_set == 1 then 
        say("Gut, ich bringe dich umgehend hin!") 
        wait() 
        pc.warp(999700, 999700) 
        end 
        end 
    end 
end 
10/16/2011 23:18 .Delta#3762
da, probiers so :)
Code:
quest map1 begin 
	state start begin  
        when 9013.chat."Farmmap Low(ab 50)" with pc.get_level() >= 50 begin 
			say_title("Farmmap Low") 
			say_green("Möchtest du zur Farm map Low ?") 
			say_green("auf der Map findest du metins bis") 
			say_green("level 90 zum Farmen deiner Items.") 
			local main_set = select("Ja", "Nein") 
			if main_set == 2 then 
				return 
			end 
			say("Gut, ich bringe dich umgehend hin!") 
			wait() 
			pc.warp(90000, 10000)  
		end 
        when 9013.chat."Farmmap High(ab 95)" with pc.get_level() >= 95 begin 
			say_title("Farmmap High") 
			say_green("Möchtest du zur Farm map High ?") 
			say_green("auf der Map findest du metins bis") 
			say_green("level 150 oder Höher zum Farmen deiner Items.") 
			local main_set = select("Ja", "Nein") 
			if main_set == 2 then 
				return 
			end 
			say("Gut, ich bringe dich umgehend hin!") 
			wait() 
			pc.warp(1599900, 1599900) 
		end 
        when 9013.chat."Tal der Zombies(ab 115)" with pc.get_level() >= 115 begin 
			say_title("Tal der Zombies") 
			say_green("Möchtest du ins Tal der Zombies ?") 
			say_green("auf der Map findest du Zombies im") 
			say_green("level 120 oder Höher zum Leveln.") 
			local main_set = select("Ja", "Nein") 
			if main_set == 2 then 
				return 
			end 
			say("Gut, ich bringe dich umgehend hin!") 
			wait() 
			pc.warp(999700, 999700) 
        end 
    end 
end
10/16/2011 23:19 .Muhammed#3763
Ouh Sorry Quest funzt doch ^^

#edit
Ingame funzt aber quest iwie nicht.
muss ich rebooten?
10/17/2011 00:15 xTheSoulutionxx3#3764
ja oder /reload q aber am besten rebooten
10/17/2011 13:17 'oShet#3765
Was ist daran falsch??
Quote:
quest armortrade2 begin
state start begin
when 9001.chat."110er zur 120er Rüstung Uppen" begin
say("Hey Landratte")
say("Möchtest du deine Lv110 Rüstung zur Lv120 Rüstung Uppen?")
say("")
say("Es kostet dich 100000000 Yang, 10x Plasma Perlen, 10x Violetter Kristall, 10x Weißer Kristall.")
local a=select("Ja, Krieger","Ja, Sura","Ja, Ninja","Ja, Schamane","Nein Danke")
if 1==a then
if pc.money>=100000000 and pc.count_item("13229")>=1 and pc.count_item("33012")>=10 and pc.count_item("33014")>=10 and pc.count_item("33015")>=10 then
pc.changemoney(-100000000)
pc.removeitem("13229", 1)
pc.removeitem("33012", 10)
pc.removeitem("33014", 10)
pc.removeitem("33015", 10)
say("Hier hast du eine")
say("Level 120er Krieger Rüstung")
pc.give_item2("13250", 1)
else
say("Ok")
say("Dann nicht")
say("Hast bestimmt wichtigeres zu tun.")
end

elseif 2==a then
if pc.money>=100000000 and pc.count_item("13219")>=1 and pc.count_item("33012")>=10 and pc.count_item("33014")>=10 and pc.count_item("33015")>=10 then
pc.changemoney(-100000000)
pc.removeitem("13219", 1)
pc.removeitem("33012", 10)
pc.removeitem("33014", 10)
pc.removeitem("33015", 10)
say("Hier hast du eine")
say("Level 120er Sura Rüstung")
pc.give_item2("13280", 1)
else
say("Ok")
say("Dann nicht")
say("Hast bestimmt wichtigeres zu tun.")
end

elseif 3==a then
if pc.money>=100000000 and pc.count_item("13239")>=1 and pc.count_item("33012")>=10 and pc.count_item("33014")>=10 and pc.count_item("33015")>=10 then
pc.changemoney(-100000000)
pc.removeitem("13239", 1)
pc.removeitem("33012", 10)
pc.removeitem("33014", 10)
pc.removeitem("33015", 10)
say("Hier hast du eine")
say("Level 120er Ninja Rüstung")
pc.give_item2("13270", 1)
else
say("Ok")
say("Dann nicht")
say("Hast bestimmt wichtigeres zu tun.")
end

elseif 4==a then
if pc.money>=100000000 and pc.count_item("13249")>=1 and pc.count_item("33012")>=10 and pc.count_item("33014")>=10 and pc.count_item("33015")>=10 then
pc.changemoney(-100000000)
pc.removeitem("13249", 1)
pc.removeitem("33012", 10)
pc.removeitem("33014", 10)
pc.removeitem("33015", 10)
say("Hier hast du eine")
say("Level 120er Schamanen Rüstung")
pc.give_item2("13260", 1)
else
say("Ok")
say("Dann nicht")
say("Hast bestimmt wichtigeres zu tun.")
end

elseif 5==a then
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
end
end
end
end
end
end
Es wird kein Fehler angezeigt wenn ich sh make.sh mache.
Aber wenn ich z.n krieger wähle, dann gehts aber wenn ich alle anderen wähle, dann schließt sich einfach das fenster (nicht metin2)
Page 251 of 845 « First 151201241249250 251 252253261301351751 Last »