[Release]Weihnachtsevent Quest

12/25/2012 14:14 .Kaycon#1
Hallo,
heute möchte ich euch meine Weihnachtsevent Quest Releasen, ja ich weiß eine Woche vorher wär sinnvoller gewesen.
Was die Quest Bewirkt:
Ein GM kann das Event beim Weihnachtsmann Starten / Beenden
Wenn es gestartet ist droppt jeder Spieler als Alternativdrop Geschenke und Socken, die Socken kann man beim Weihnachtsmann abgeben und der gibt dir dann ein zufälliges Item von diesen: Seelenstein, Goldring, Segensschriftrolle, Pferdemedaillie und Schmiede Handbuch.

Quest:
PHP Code:
--------------------------------------
-- Weihnachts Event Quest by Imbattle
--------------------------------------
quest santa begin
    state start begin
        when 20031.chat."Weihnachtsevent Panel" begin
            say_title("Weihnachts Event:")
            if game.get_event_flag("xmas")==0 then
                say("Das Weihnachtsevent ist aus")
                say("Möchtest du es starten?")
                local s1 = select("Ja", "Nein")
                if s1 == 1 then
                    say("Event gestartet")
                    game.set_event_flag("xmas", 1)
                    notice_all("Das Weihnachtsevent wurde gestartet")
                    notice_all("Ihr könnt jetzt bei jedem Monster")
                    notice_all("Geschenke und Socken droppen")
                else
                    return
                end
            else
                say("Das Weihnachtsevent ist an")
                say("Möchtest du es beenden?")
                local s2 = select("Ja", "Nein")
                if s2 == 1 then
                    say("Event wurde beendet")
                    game.set_event_flag("xmas", 0)
                    notice_all("Das Weihnachtsevent wurde beendet")
                end
            end
        end
        when kill with game.get_event_flag("xmas")==1 and not npc.is_pc() begin
            local drop = number(1, 75)
            if drop == 1 then
                game.drop_item_with_ownership(50035, 1)
            elseif drop == 2 then
                game.drop_item_with_ownership(50036, 1)
            elseif drop == 3 then
                game.drop_item_with_ownership(50010, 1)
            end
        end
        when 20031.chat."Socken" begin
            say_title("Weihnachtsmann")
            if pc.count_item(50010) == 0 then
                say("Hallo ".. pc.get_name())
                say("Ich habe ein Problem, ich weiß nicht wie")
                say("ich es erklären soll, aber ich habe")
                say("ausversehen alle meine Socken verloren")
                say("ich wollte sie eigentlich den Armen")
                say("schenken voll mit Geschenken")
                say("sie wurden übers ganze Land verteilt")
                wait()
                say("Wenn du eine Socke findest")
                say("Kannst du sie mir dann bringen?")
                say("Du bekommst auch eine Belohnung")
            else
                say("Ach du hast eine meiner Socken")
                say("wie schön, gibst du sie mir?")
                say("Du bekommst auch eine")
                say("Belohnung")
                local s3 = select("Du kannst sie haben", "Nö meine Socke")
                if s3 == 1 then
                    say_title("Weihnachtsmann:")
                    say("Ohh danke sehr")
                    say("Du bekommst von mir ein zufälliges")
                    say("Item aus meinem Beutel")
                    wait()
                    local beutel = number(1, 5)
                    if beutel == 1 then
                        say("Oh es ist ein Goldring")
                        say("Bitte sehr")
                        pc.give_item2(50002, 1)
                    elseif beutel == 2 then
                        say("Oh es ist eine Pferdemedaillie")
                        say("Bitte sehr")
                        pc.give_item2(50050, 1)
                    elseif beutel == 3 then
                        say("Oh es ist ein Seelenstein")
                        say("Bitte sehr")
                        pc.give_item2(50513, 1)
                    elseif beutel == 4 then
                        say("Oh es ist eine Segensschriftrolle")
                        say("Bitte sehr")
                        pc.give_item2(25040, 1)
                    else
                        say("Oh es ist ein Schmiedehandbuch")
                        say("Bitte sehr")
                        pc.give_item2(70039, 1)
                    end
                end
            end
        end
    end
end 
Viel spaß damit
MfG Imbattle
12/25/2012 14:17 CrystalPrime#2
Danke dir :) ich weiss du gibst dir sehr viel mühe.
12/25/2012 14:17 .TRON™#3
Sieht sehr gut aus!
Werden bestimmt viele nutzen!

Mfg
12/25/2012 15:05 *~.ιηνιη¢ιвℓє.~*#4
werde ich 100% nutzen, danke :)
12/25/2012 16:09 iSouli~#5
Danke das du es mit uns teilst, ich hätte hier noch eine kürzere Version falls du nichts dagegen hast.

PHP Code:
-------------------------------------- 
-- Weihnachts Event Quest by Imbattle 
-------------------------------------- 
quest santa begin 
    state start begin 
        when 20031.chat."Weihnachtsevent Panel" begin 
            say_title("Weihnachts Event:") 
            if game.get_event_flag("xmas")==0 then 
                say("Das Weihnachtsevent ist aus") 
                say("Möchtest du es starten?") 
                if select("Ja","Nein") == 2 then return end
                say("Event gestartet") 
                game.set_event_flag("xmas", 1) 
                notice_all("Das Weihnachtsevent wurde gestartet") 
                notice_all("Ihr könnt jetzt bei jedem Monster") 
                notice_all("Geschenke und Socken droppen") 
            else 
                say("Das Weihnachtsevent ist an") 
                say("Möchtest du es beenden?") 
                if select("Ja","Nein") == 2 then return end
                say("Event wurde beendet") 
                game.set_event_flag("xmas", 0) 
                notice_all("Das Weihnachtsevent wurde beendet") 
            end 
        end 
        when kill with game.get_event_flag("xmas")==1 and not npc.is_pc() begin 
            local drop,tab_drop = number(1,75),{50035,50036,50010}
            if drop == 1 or drop ==  2 or drop == 3 then 
                game.drop_item_with_ownership(tab_drop[number(1,table.getn(tab_drop))], 1)
            end
        end
        when 20031.chat."Socken" begin 
            say_title("Weihnachtsmann") 
            if pc.count_item(50010) == 0 then 
                say("Hallo ".. pc.get_name()) 
                say("Ich habe ein Problem, ich weiß nicht wie") 
                say("ich es erklären soll, aber ich habe") 
                say("ausversehen alle meine Socken verloren") 
                say("ich wollte sie eigentlich den Armen") 
                say("schenken voll mit Geschenken") 
                say("sie wurden übers ganze Land verteilt") 
                wait() 
                say("Wenn du eine Socke findest") 
                say("Kannst du sie mir dann bringen?") 
                say("Du bekommst auch eine Belohnung") 
            else 
                say("Ach du hast eine meiner Socken") 
                say("wie schön, gibst du sie mir?") 
                say("Du bekommst auch eine") 
                say("Belohnung") 
                if select("Du kannst sie haben", "Nö meine Socke") == 2 then return end
                say_title("Weihnachtsmann:") 
                say("Ohh danke sehr") 
                say("Du bekommst von mir ein zufälliges") 
                say("Item aus meinem Beutel") 
                wait()
                local dropes_beut = {50002,50050,50513,25040,70039}
                local drope_have = dropes_beut[number(1,table.getn(dropes_beut))]
                say("Oh es ist ein "..item_name(drope_have).."!")
                say("Bitte sehr")
                pc.give_item2(drope_have, 1)
            end
        end
    end
end 
12/26/2012 00:52 .Kaycon#6
Thanks für die vielen Positiven Feedbacks und ein Special Thanks an iSouli der meine Quest etwas verkürzt hat.