[SERVICE] Die Questkontrolle

Page 45 of 845

10/12/2010 12:22 Mcilrath#661

#reported

F�r sowas kannste ne Anzeige bekommen.
Zu CoreDump
Habe aber schon �ber ne halbe stunde gesucht und keine regenbogenquest daf�r gefunden.
Habe nur die gefunden die ich da jetzt drin habe.
Und wei�te vllt bisschen genauer wo in der locale?

10/12/2010 13:19 bischieee#662

@Mcilrath Pn me ich schicke dir Regenbogenstein wie du es willst schreib mir die *Funktion Deinen Servernamen

*Funktion (Z.b. Soll es Ritterlich + p Skills Machen)?

Mfg :D :)

10/12/2010 18:42 xXKiller95Xx#663

Kann mir einer bei diese Quest helfen pls ^^
Bin neu im "Quests Schreiben" :D

VPC Fehler:

[Only registered and activated users can see links. Click Here To Register...]

Text:

Spoiler

PHP Code:


			
quest Lv70 begin

     state start begin

         when login or levelup with pc.level >= 70            

             set_state(info)

         end

     end

     state info begin

         when letter begin

             local v = find_npc_by_vnum(20008)



             if v != 0 then

                target.vid("__TARGET__", v, "Octavios Rezept")

            end

        end



        

        when __TARGET__.target.click or 20008.chat."Octavios Rezept" with pc.level >= 70 begin

            say_title("Octavio:")

            say("Hey,")

            say("Da du schon so gut gelevelt hast ")

            say("k�nntest du auch was f�r mich erledigen,")

            say("ich brauche dieses Chilli")

            say("sonst kann ich mein rezept nicht vervollst�ndigen")

            say("Diese Chillis sind sehr Teuer und da ich in moment ")

            say("Knapp bei Kasse bin bitte ich dich es mir zu holen")

            say("Die Baumfrosch Soldaten,die m�ssen es haben")

            say("Ich bitte dich mir die 90 Chillis zu besorgen")

            say("Du Triffst auf sie Im Tempel")

            say("Mach dich bitte auf die Suche")

            say("")

            

            local s=select("OK","Nein")

        if s == 2 then

                say("Oh... sehr Schade.")

                clear_letter()

                set_state("ende")

        else

                    say_title("Octavios Rezept")

                    say("Danke das du mit hilfst")

                    say("")

                    set_state("main")

                end

        end

    end

    state main begin

        when letter begin

            send_letter("Scharfer Pfeffer")

            

            if pc.count_item("30066")>=90 then  

                local v=find_npc_by_vnum(20008)

                if 0==v then

                    else

                    target.vid("__TARGET__",v,"Du hast 90 Scharfe Pfeffer")

                end

            end



        end



        when info or button begin



            if pc.count_item("30066")>=90 then  

                say(locale.NOTICE_COLOR.."Scharfer Pfeffer"..locale.NORMAL_COLOR)

                say("Du hast die Scharfen Pfeffer.")

                say("Bringe die nun zu Octavio")

                return

            end

            say(locale.NOTICE_COLOR.."Scharfer Pfeffer"..locale.NORMAL_COLOR)

            say("T�te Baumfrosch-Soldaten")

            say("f�r Octavio und ")

            say("bringe ihm die 90 Scharfen Pfeffer!")

            say("")

            

            when info or button begin

            say(locale.NOTICE_COLOR.."Du hast die Scharfen Pfeffer"..locale.NORMAL_COLOR)

            say("")

            say("Bringe sie zu Octavio")

            say("")

            say_item_vnum(30066)

        end



        

        when __TARGET__.target.click or

            20008.chat."Octavios Rezept" begin

            target.delete("__TARGET__")

            if pc.count_item("30066")>90 then

                say_title("Octavio:")

                say("Du hast es geschafft!")

                say("Ich bin dir so dankbar.")

                say("Jetzt kann ich endlich mein ")

                say("Chilli-Eintopf Kochen")

                say("")

                say("Hier ist deine Belohnung:")

                pc.remove_item(30066,90)



                say_reward("Du erh�ltst 10.000.000 Erfahrungspunkte.")

                say_reward("Du erh�lst 35.000.000 Yang")

                say_reward("Du erh�lst eine Flei�medallie")

                pc.give_exp2(10000000)

                set_quest_state("levelup","run")    



               clear_letter()

               set_state(__COMPLETE__)

               end    

            end

         end

    end

end

10/12/2010 19:50 Daidalos#664

Hey :)
Habe ein Problem.
Versuche seit l�ngerem diese Quest einzubauen.
Fr�her hab ich immer meine Fehler selbst gefunden.
Jetzt habe ich keine Ahnung.

PHP Code:


			
----------------------------------
--    Orb Quest                    --
--    By Maxi <3                --
--      Ab Level 80 oder h�her    --
--      Flammenkrieger t�ten        --
----------------------------------
quest orb begin
    state start begin
        when login or levelup with pc.level >79 begin
            set_state( orb )
        end
    end
    state orb begin
        when 20019.chat."Leuchtender Kristall" begin
            say_title ( "" .. mob_name ( 20019 ) .. " : " )
            say("TEXT")
            say("Klicke unten auf "weiter"")
            wait()
            say("TEXT")
            local b=select ( "Quest annehmen BUTTON" , "Quest ablehnen BUTTON" )
            if 1==b then
                say_title (".. mob_name (20019) ..":)
                say("Danke, dass du mir hilfst.")
                say("TEXT")
                say("TEXT")
            end
            setstate ( Talk )
            elseif 2==b then
                say_title (""..mob_name (20019) ..":)
                say("Wieso nicht?")
                say("Text")
            end
        end
    end
    state Talk begin
        say("Du musst mir helfen, meine Frau wurde get�tet.")
        say("Bitte, begehe Rache an ihren M�rdern. Als Beloh-")
        say("nung erh�ltst du eine Kristallkugel, die sie bei")
        say("sich trug. Wir wollten n�chste Woche heiraten, ver-")
        say("stehst du? ..")
        say_item_vnum(85001)
        say_reward("T�te 25 Flammenkrieger, um deine Belohnung")
        say_reward("zu erhalten.")
        setstate ( killcount )
        
        pc.setqf("state", 0)
        q.set_counter("Get�tete Flammenkrieger", 0)
    end
    
    state killcount begin
        when letter begin
            send_letter("Rache")
        end
        when 2205.kill begin
            local count = pc.getqf("state") + 1
            
            if count <= 25 then
            pc.setqf("state"), count)
            q.set_counter("Get�tete Flammenkrieger", 0 + count) --- Eventuell Probleme, aber nicht sicher
            
            if count == 5 then
                say_title("Danke!")
                say("Ich danke dir!!!")
                say("TEXT")
                say("TEXT")
                say("TEXT)
                say("Klick auf weiter!")
                say("")
                wait()
                say("text")
                say("text")
                say("")
                set_state( goback )
            end
        end
    end
    
    state goback begin
        when letter begin
            local v==find_npc_by_vnum(20019)
            if 0==v then
            else
                target.vid("__TARGET__"), v, "" .. mobname ( 20019 ) .. ") --- vielleicht hier der fehler wegen ""
            end
        end
    end
    when __TARGET__.target.click begin
        target.delete("__TARGET__")
        
        say("Ich danke dir, endlich kann ich ruhig")
        say("ins Bett gehen. TEXT")
        say("TEXT")
        say("TEXT")
        say_reward("Du hast einen rosanen Orb erhalten!")
        pc.give_item2 ("85001", 1)
        q.done()
    end
end

Dieser rosane Orb ist ein neu implementiertes Item, also nicht wundern.

Zum Problem/Fehlermeldung:
Ich klicke auf Yang-Shin (ID: 20019) und das Fenster "Leuchtender Kristall" erscheint nicht.
Sprich, ich kann die Quest nicht annehmen/ausl�sen. (Getestet mit einem Level 120er und einem Level 26er Char, den 26er nur, um auszuschlie�en, dass ich mich mit dem Rechenzeichen nicht vertippt hab.)

Edit: habe die Quest genau so eingef�gt. Also auch dieses "vielleicht hier der Fehler bla"
Ist das mit diesem --- vllt der Fehler?

10/12/2010 20:16 .Alessa#665

PHP Code:


			
----------------------------------

--    Orb Quest                    --

--    By Maxi <3                --

--      Ab Level 80 oder h�her    --

--      Flammenkrieger t�ten        --

----------------------------------

quest orb begin

    state start begin

        when 20019.chat."Leuchtender Kristall" with pc.level >=80 begin

            say_title ( "" .. mob_name ( 20019 ) .. " : " )

            say("TEXT")

            say("Klicke unten auf "weiter"")

            wait()

            say("TEXT")

            local b=select ( "Quest annehmen BUTTON" , "Quest ablehnen BUTTON" )

            if 1==b then

                say_title (".. mob_name (20019) ..":)

                say("Danke, dass du mir hilfst.")

                say("TEXT")

                say("TEXT")

                setstate ( Talk )

            elseif 2==b then

                say_title (""..mob_name (20019) ..":)

                say("Wieso nicht?")

                say("Text")

            end

        end

    end

    state Talk begin

        when 20019.chat."Leuchtender Kristall" begin

        say("Du musst mir helfen, meine Frau wurde get�tet.")

        say("Bitte, begehe Rache an ihren M�rdern. Als Beloh-")

        say("nung erh�ltst du eine Kristallkugel, die sie bei")

        say("sich trug. Wir wollten n�chste Woche heiraten, ver-")

        say("stehst du? ..")

        say_item_vnum(85001)

        say_reward("T�te 25 Flammenkrieger, um deine Belohnung")

        say_reward("zu erhalten.")

        setstate ( killcount )

        pc.setqf("state", 0)

        q.set_counter("Get�tete Flammenkrieger", 0)

    end

    

    state killcount begin

        when letter begin

            send_letter("Rache")

        end

        when 2205.kill begin

            local count = pc.getqf("state") + 1

            

            if count <= 25 then

            pc.setqf("state"), count)

            q.set_counter("Get�tete Flammenkrieger", 0 + count) --- Eventuell Probleme, aber nicht sicher

            else

            end

            if count == 5 then

                say_title("Danke!")

                say("Ich danke dir!!!")

                say("TEXT")

                say("TEXT")

                say("TEXT)

                say("Klick auf weiter!")

                say("")

                wait()

                say("text")

                say("text")

                say("")

                set_state( goback )

            else

            end

        end

    end

    

    state goback begin

        when letter begin

            local v==find_npc_by_vnum(20019)

            if 0==v then

            else

                target.vid("__TARGET__"), v, ""..mobname(20019)..") --- vielleicht hier der fehler wegen ""

            end

        end

    end

    when __TARGET__.target.click begin

        target.delete("__TARGET__")

        say("Ich danke dir, endlich kann ich ruhig")

        say("ins Bett gehen. TEXT")

        say("TEXT")

        say("TEXT")

        say_reward("Du hast einen rosanen Orb erhalten!")

        pc.give_item2 ("85001", 1)

        q.done()

    end

end

War nicht nur ein Fehler. Probier mal die und schicke in Zukunft am besten das mit, was dir VPC bei der make.sh sagt^^

10/12/2010 20:19 Daidalos#666

@Shannon:

Hab's noch nicht getestet.
1. Danke
und 2. K�nntest du mir bitte sagen, was du ver�ndert hast? M�chte aus meinen Fehlern lernen :)

achja, hab gerade selbst noch nen Fehler entdeckt.

PHP Code:


			
                say_title (""..mob_name (20019) ..":)

muss glaub ich zu

PHP Code:


			
                say_title (""..mob_name (20019) ..":")

Ich f�g die Quest jetzt erstmal kurz ein. :)

10/12/2010 20:29 iYoshix3#667

Quote:

Originally Posted by xXKiller95Xx

Kann mir einer bei diese Quest helfen pls ^^
Bin neu im "Quests Schreiben" :D

VPC Fehler:

[Only registered and activated users can see links. Click Here To Register...]

Text:

Spoiler

PHP Code:

quest Lv70 begin state start begin when login or levelup with pc.level >= 70 begin set_state(info) end end state info begin when letter begin local v = find_npc_by_vnum(20008) if v != 0 then target.vid("__TARGET__", v, "Octavios Rezept") end end when __TARGET__.target.click or 20008.chat."Octavios Rezept" with pc.level >= 70 begin say_title("Octavio:") say("Hey,") say("Da du schon so gut gelevelt hast ") say("k�nntest du auch was f�r mich erledigen,") say("ich brauche dieses Chilli") say("sonst kann ich mein rezept nicht vervollst�ndigen") say("Diese Chillis sind sehr Teuer und da ich in moment ") say("Knapp bei Kasse bin bitte ich dich es mir zu holen") say("Die Baumfrosch Soldaten,die m�ssen es haben") say("Ich bitte dich mir die 90 Chillis zu besorgen") say("Du Triffst auf sie Im Tempel") say("Mach dich bitte auf die Suche") say("") local s=select("OK","Nein") if s == 2 then say("Oh... sehr Schade.") clear_letter() set_state("ende") else say_title("Octavios Rezept") say("Danke das du mit hilfst") say("") set_state("main") end end end state main begin when letter begin send_letter("Scharfer Pfeffer") if pc.count_item("30066")>=90 then local v=find_npc_by_vnum(20008) if 0==v then else target.vid("__TARGET__",v,"Du hast 90 Scharfe Pfeffer") end end end when info or button begin if pc.count_item("30066")>=90 then say(locale.NOTICE_COLOR.."Scharfer Pfeffer"..locale.NORMAL_COLOR) say("Du hast die Scharfen Pfeffer.") say("Bringe die nun zu Octavio") return end say(locale.NOTICE_COLOR.."Scharfer Pfeffer"..locale.NORMAL_COLOR) say("T�te Baumfrosch-Soldaten") say("f�r Octavio und ") say("bringe ihm die 90 Scharfen Pfeffer!") say("") when info or button begin say(locale.NOTICE_COLOR.."Du hast die Scharfen Pfeffer"..locale.NORMAL_COLOR) say("") say("Bringe sie zu Octavio") say("") say_item_vnum(30066) end when __TARGET__.target.click or 20008.chat."Octavios Rezept" begin target.delete("__TARGET__") if pc.count_item("30066")>90 then say_title("Octavio:") say("Du hast es geschafft!") say("Ich bin dir so dankbar.") say("Jetzt kann ich endlich mein ") say("Chilli-Eintopf Kochen") say("") say("Hier ist deine Belohnung:") pc.remove_item(30066,90) say_reward("Du erh�ltst 10.000.000 Erfahrungspunkte.") say_reward("Du erh�lst 35.000.000 Yang") say_reward("Du erh�lst eine Flei�medallie") pc.give_exp2(10000000) set_quest_state("levelup","run") clear_letter() set_state(__COMPLETE__) end end end end end

Hast bei when-clause das "begin" vergessen
hoffe nun klappt es

10/12/2010 20:30 iYoshix3#668

Quote:

Originally Posted by Daidalos

@Shannon:

Hab's noch nicht getestet.
1. Danke
und 2. K�nntest du mir bitte sagen, was du ver�ndert hast? M�chte aus meinen Fehlern lernen :)

achja, hab gerade selbst noch nen Fehler entdeckt.

PHP Code:

say_title (""..mob_name (20019) ..":)

muss glaub ich zu

PHP Code:

say_title (""..mob_name (20019) ..":")

Ich f�g die Quest jetzt erstmal kurz ein. :)

say_title (""..mob_name (20019) .." :")
so stimmt es, aber es geht auch so
say_title (mob_name (20019) ..":")

10/12/2010 20:37 Daidalos#669

Also, hab's ausprobiert.
Wenn ich 20019 anklicke erscheint leider immer noch kein Fenster, um die Quest zu starten. (Getestet mit Level 120 Char)

Quote:

Originally Posted by VPC-make.sh

QUEST: Orb
STATE: start
WHEN: 20019.chat ("Leuchtender Kristall")
with pc . level >= 80

Bei sh make.sh erscheint keine Fehlermeldung..
Keine Ahnung was noch falsch ist >.<

Quote:

Originally Posted by Yoshix3

so stimmt es, aber es geht auch so
say_title (mob_name (20019) ..":")

^Check ich nicht, wieso jetzt ohne "" nach ( ? xD

Nur zur Vervollst�ndigung, hier die Quest, die ich derzeit eingef�gt hab:

Spoiler

PHP Code:


			
----------------------------------
--    Orb Quest                    --
--    By Maxi <3                --
--      Ab Level 80 oder h�her    --
--      Flammenkrieger t�ten        --
----------------------------------
quest orb begin
    state start begin
        when 20019.chat."Leuchtender Kristall" with pc.level >=80 begin
            say_title ( "" .. mob_name ( 20019 ) .. " : " )
            say("TEXT")
            say("Klicke unten auf "weiter"")
            wait()
            say("TEXT")
            local b=select ( "Quest annehmen BUTTON" , "Quest ablehnen BUTTON" )
            if 1==b then
                say_title (".. mob_name (20019) ..":")
                say("Danke, dass du mir hilfst.")
                say("TEXT")
                say("TEXT")
                setstate ( Talk )
            elseif 2==b then
                say_title (""..mob_name (20019) ..":)
                say("Wieso nicht?")
                say("Text")
            end
        end
    end
    state Talk begin
        when 20019.chat."Leuchtender Kristall" begin
        say("Du musst mir helfen, meine Frau wurde get�tet.")
        say("Bitte, begehe Rache an ihren M�rdern. Als Beloh-")
        say("nung erh�ltst du eine Kristallkugel, die sie bei")
        say("sich trug. Wir wollten n�chste Woche heiraten, ver-")
        say("stehst du? ..")
        say_item_vnum(85001)
        say_reward("T�te 25 Flammenkrieger, um deine Belohnung")
        say_reward("zu erhalten.")
        setstate ( killcount )
        pc.setqf("state", 0)
        q.set_counter("Get�tete Flammenkrieger", 0)
    end
    
    state killcount begin
        when letter begin
            send_letter("Rache")
        end
        when 2205.kill begin
            local count = pc.getqf("state") + 1
            
            if count <= 25 then
            pc.setqf("state"), count)
            q.set_counter("Get�tete Flammenkrieger", 0 + count) --- Eventuell Probleme, aber nicht sicher
            else
            end
            if count == 5 then
                say_title("Danke!")
                say("Ich danke dir!!!")
                say("TEXT")
                say("TEXT")
                say("TEXT)
                say("Klick auf weiter!")
                say("")
                wait()
                say("text")
                say("text")
                say("")
                set_state( goback )
            else
            end
        end
    end
    
    state goback begin
        when letter begin
            local v==find_npc_by_vnum(20019)
            if 0==v then
            else
                target.vid("__TARGET__"), v, ""..mobname(20019)..") --- vielleicht hier der fehler wegen ""
            end
        end
    end
    when __TARGET__.target.click begin
        target.delete("__TARGET__")
        say("Ich danke dir, endlich kann ich ruhig")
        say("ins Bett gehen. TEXT")
        say("TEXT")
        say("TEXT")
        say_reward("Du hast einen rosanen Orb erhalten!")
        pc.give_item2 ("85001", 1)
        q.done()
    end
end

10/12/2010 21:34 CoreDump#670

So achte auf gro� und kleinschreibung in der honkong_list
Du sprichst 2mal mit dem selben npc hintereinander(f�g den teil zum quest annehmen und der State Talk zusammen. k�nnte ein fehler sein)
Gut gemeinter Tipp zum killquests schreiben lernen:
die Verlobungsring_quest 1:1 �bernehmen (auf deutsch halt)
nicht irgendwie viel dazuschreiben!
also versuchs mal so: (" fehler ausgebessert, mob_name ausgebessert)

PHP Code:


			
----------------------------------
--    Orb Quest                    --
--    By Maxi <3                --
--      Ab Level 80 oder h�her    --
--      Flammenkrieger t�ten        --
----------------------------------
quest orb begin
    state start begin
        when 20019.chat."Leuchtender Kristall" with pc.get_level() >=80 begin
            say_title ( "" .. mob_name ( 20019 ) .. " : " )
            say("TEXT")
            say("Klicke unten auf "weiter"")
            wait()
            say("TEXT")
            local b=select ( "Quest annehmen" , "Quest ablehnen" )
            if 1==b then
                say_title (".. mob_name (20019) ..":)
                say("Danke, dass du mir hilfst.")
                say("TEXT")
                say("TEXT")
                set_state ( Talk )
            elseif 2==b then
                say_title (""..mob_name (20019) ..":")
                say("Wieso nicht?")
                say("Text")
            end
        end
    end
    state Talk begin
        when 20019.chat."Leuchtender Kristall" begin
        say("Du musst mir helfen, meine Frau wurde get�tet.")
        say("Bitte, begehe Rache an ihren M�rdern. Als Beloh-")
        say("nung erh�ltst du eine Kristallkugel, die sie bei")
        say("sich trug. Wir wollten n�chste Woche heiraten, ver-")
        say("stehst du? ..")
        say_item_vnum(85001)
        say_reward("T�te 25 Flammenkrieger, um deine Belohnung")
        say_reward("zu erhalten.")
        setstate ( killcount )
        pc.setqf("state", 0)
        q.set_counter("Get�tete Flammenkrieger", 0)
    end
    
    state killcount begin
        when letter begin
            send_letter("Rache")
        end
        when 2205.kill begin
            local count = pc.getqf("state") + 1
            
            if count <= 25 then
            pc.setqf("state"), count)
            q.set_counter("Get�tete Flammenkrieger", 0 + count) --- Eventuell Probleme, aber nicht sicher
            else
            end
            if count == 5 then
                say_title("Danke!")
                say("Ich danke dir!!!")
                say("TEXT")
                say("TEXT")
                say("TEXT")
                say("Klick auf weiter!")
                say("")
                wait()
                say("text")
                say("text")
                say("")
                set_state( goback )
            else
            end
        end
    end
    
    state goback begin
        when letter begin
            local v==find_npc_by_vnum(20019)
            if 0==v then
            else
                target.vid("__TARGET__"), v, ""..mob_name(20019).."") --- vielleicht hier der fehler wegen ""
            end
        end
    end
    when __TARGET__.target.click begin
        target.delete("__TARGET__")
        say("Ich danke dir, endlich kann ich ruhig")
        say("ins Bett gehen. TEXT")
        say("TEXT")
        say("TEXT")
        say_reward("Du hast einen rosanen Orb erhalten!")
        pc.give_item2 ("85001", 1)
        q.done()
    end
end

PS: Werde wahrscheinlich aufh�ren quests zu kontrollieren, weil die meisten sowiso meinen das sie auf niemanden h�ren m�ssen, oder fehlermeldung oder so mitreinzuposten. und die nerven f�rs immerwieder nachfragen "fehlermeldung?", "kleine funktionsbeschreibung was nicht funzt" oder "in PHP-Code bitte"
Da hab ich kein bock drauf also werd ichs wahrscheinlich bleiben lassen.
werde aber ab und an mal hier reinschauen

10/12/2010 21:50 Daidalos#671

Danke dir, genau so hab ich mir das vorgestellt.
Mit Verbesserungsvorschl�gen usw :)

PHP Code:


			
        when 20019.chat."Leuchtender Kristall" with pc.level >=80 begin

Kann es sein, dass dieser Befehl falsch ist?
In der Verlobungsquest steht

PHP Code:


			
       when 9006.chat."Rache f�r den Ringh�ndler" with pc.get_level()>=25 begin

Also w�re es m�glich, dass es einfach daran lag, dass ich pc.level statt pc.get_level geschrieben hab?

Noch 'ne richtig bl�de Frage:
Ist es eigentlich egal, ob man set_state(bla) oder setstate(bla) schreibt? xD

10/12/2010 21:56 '-SkyLiiNe-'#672

Hallo,
Ich habe eine Quest bei der man f�r Items Waffen bekommt.
VPC Meldung:

Code:

QUEST : waffen1
STATE : start
WHEN : 20092.chat ("Schmiede Waffen:")
expecting 'when' or 'function'
waffen1.quest:1:Abort trap (core dumped)

Hier die Quest:

Spoiler

PHP Code:


			
quest waffen1 begin
    state start begin
            when 20092.chat."Schmiede Waffen:" begin
            say_title("Hwa-Hee:")
            say("psssst.... Komm mal etwas n�her,")
            say("muss ja nicht jeder mitbekommen...")
            say("Deine Waffe sieht nicht so gut aus,")
            say("willst du nicht eine bessere?")
            say("Ich habe ein paar bessere....")
            say("hust...Woher ich die habe...?")
            say("Das sage ich dir nicht....")
            say("Nunja es handelt sich um Waffen")
            say("aus einer der besten Schmieden.")
            say("Da kann unser Schmied nur neidisch sein")
            say("")
            say("M�chtest du mehr wissen?")
            
            local s = select ("Ja","Kein Interesse")
                if s == 2 then
                    return
                end
            if s == 1 then
            say_title("Hwa-Hee:")
            say("Eine geschmiedete Waffe m�chtest du?")
            say("")
            say("Nun davon habe ich nicht viele und sie")
            say("sind sehr wertvoll,")
            say("deshalb kann ich sie dir nicht billig")
            say("verkaufen... ")
            say("Ach,nochwas ich liebe Schokolade...")
            say("")
            say_reward("Du ben\195\182tigst:")
            say_reward("10x 100kk Yangspeicher")
            say_reward("10x 250kk Yangspeicher")
            say_reward("10x 500kk Yangspeicher")
            say_reward("1x Wei�e Schokolade")
            say_reward("1x Vollmilch Schokolade")
            say_reward("1x Zartbitter Schokolade")
            say_reward("Viel Gl\195\188ck!")
            set_state("__FINISH__")
            end    
        end    
    state    __FINISH__    begin
        when 20092.chat."Ich habe alles!" begin
            say_title("Hwa-Hee:")
            if
                pc.count_item(95000) <= 10 or
                pc.count_item(95001) <= 10 or
                pc.count_item(95002) <= 10 or
                pc.count_item(96000) <= 1 or
                pc.count_item(96001) <= 1 or
                pc.count_item(96002) <= 1 begin
                say("Du hast alles beisammen?")
                say("Nein, ich glaube da fehlt noch was!")
                say("Komme wieder wenn du alles hast!")
                say_reward("Du ben\195\182tigst:")
                say_reward("10x 100kk Yangspeicher")
                say_reward("10x 250kk Yangspeicher")
                say_reward("10x 500kk Yangspeicher")
                say_reward("1x Wei�e Schokolade")
                say_reward("1x Vollmilch Schokolade")
                say_reward("1x Zartbitter Schokolade")
            elseif    
                pc.count_item(95000,10) and
                pc.count_item(95001,10) and
                pc.count_item(95002,10) and
                pc.count_item(96000,1) and
                pc.count_item(96001,1) and
                pc.count_item(96002,1) then                                                  
                say("Du hast alles beisammen?")
                say("Prima!")
                say("Jetzt kannst du dir eine Waffe aussuchen")
                say_reward("F�r welche Klasse m�chtest du eine Waffe?")
                local m = select("Krieger","Ninja","Sura","Schamie","Abbrechen")
                if m == 5 then
                    return
                end
                if m == 1 then
                    say_title("Hwa-Hee")
                    say_reward("Welchen Waffentyp m�chtest du?")
                    local t = select("Einh�nder","Zweih�nder","Abbrechen")
                    if    t == 3 then
                        return
                    end
                    if t == 1 then
                        pc.give_item2(300,1)    
                        item.remove(95000,10)
                        item.remove(96000,1)
                        item.remove(95001,10)
                        item.remove(96001,1)
                        item.remove(95002,10)
                        item.remove(96002,1)
                    set_state("__COMPLETE__")
                    elseif t == 2 then
                        pc.give_item2(3220,1)    
                        item.remove(95000,10)
                        item.remove(96000,1)
                        item.remove(95001,10)
                        item.remove(96001,1)
                        item.remove(95002,10)
                        item.remove(96002,1)
                    set_state("__COMPLETE__")
                    end
                elseif m == 2 then
                    say_title("Hwa-Hee")
                    say_reward("Welchen Waffentyp m�chtest du?")
                    local t = select("Einh�nder","Dolche","Bogen","Abbrechen")
                    if    t == 4 then
                        return
                    end
                    if t == 1 then
                        pc.give_item2(300,1)    
                        item.remove(95000,20)
                        item.remove(96000,5)
                        item.remove(95001,20)
                        item.remove(96001,5)
                        item.remove(95002,20)
                        item.remove(96002,5)
                    set_state("__COMPLETE__")
                    elseif t == 2 then
                        pc.give_item2(1140,1)    
                        item.remove(95000,20)
                        item.remove(96000,5)
                        item.remove(95001,20)
                        item.remove(96001,5)
                        item.remove(95002,20)
                        item.remove(96002,5)
                    set_state("__COMPLETE__")
                    elseif t == 2 then
                        pc.give_item2(8050,1)    
                        item.remove(95000,20)
                        item.remove(96000,5)
                        item.remove(95001,20)
                        item.remove(96001,5)
                        item.remove(95002,20)
                        item.remove(96002,5)
                    set_state("__COMPLETE__")
                    end
                elseif m == 3 then
                    say_title("Hwa-Hee")
                    say_reward("Welchen Waffentyp m�chtest du?")
                    local t = select("Einh�nder","Sura Spezial","Abbrechen")
                    if    t == 3 then
                        return
                    end
                    if t == 1 then
                        pc.give_item2(300,1)    
                        item.remove(95000,10)
                        item.remove(96000,1)
                        item.remove(95001,10)
                        item.remove(96001,1)
                        item.remove(95002,10)
                        item.remove(96002,1)
                    set_state("__COMPLETE__")
                    elseif t == 2 then
                        pc.give_item2(9970,1)    
                        item.remove(95000,10)
                        item.remove(96000,1)
                        item.remove(95001,10)
                        item.remove(96001,1)
                        item.remove(95002,10)
                        item.remove(96002,1)
                    set_state("__COMPLETE__")
                    end
                    
                elseif m == 4 then    
                    say_title("Hwa-Hee")
                    say_reward("Welchen Waffentyp m�chtest du?")
                    local t = select("F�cher","Glocke","Abbrechen")
                    if    t == 3 then
                        return
                    end
                    if t == 1 then
                        pc.give_item2(7180,1)    
                        item.remove(95000,20)
                        item.remove(96000,5)
                        item.remove(95001,20)
                        item.remove(96001,5)
                        item.remove(95002,20)
                        item.remove(96002,5)
                    set_state("__COMPLETE__")
                    elseif t == 2 then
                        pc.give_item2(5330,1)    
                        item.remove(95000,20)
                        item.remove(96000,5)
                        item.remove(95001,20)
                        item.remove(96001,5)
                        item.remove(95002,20)
                        item.remove(96002,5)
                    set_state("__COMPLETE__")
                    end    
                end
            else
                return
            end
        end
        state    __COMPLETE__    begin
        end
    end

gru�
Choco

10/12/2010 21:57 CoreDump#673

das pc.GET_level haut bei mir oft nen fehler rein. fehlermeldung bekomm ich deshalb zwar nicht, aber quest funzt nicht

Choco du hast das erste state am anfang nicht beendet (du schreibst unordentlich)
sch�ne tabs einf�gen! dann kann der n�chste es besser sehen wo die ENDs gemacht wurden

10/12/2010 22:58 kunds#674

Hey

h�tte MEHRERE probleme bei meinen quests...

1.)

Spoiler

PHP Code:


			
quest main_lv100 begin

    state start begin

        when login with pc.level >= 100 begin

            set_state(information)

        end

    end



    state information begin

        when letter begin

            send_letter("Jagdauftrag Level 100")

        end



        when info or button begin

            say_title("Jagdauftrag Level 100")

            say("")

            say("Es gibt einen neuen Auftrag fuer dich.")

            say("Wie immer wirst du fuer das Bestehen")

            say("des Auftrags reichlich belohnt!")

            wait()

            say("Willst du den Auftrag annehmen?")

            local s = select("Ja, natuerlich!","Nein, keine Lust.")

            if s == 2 then

                    say("Gut, dein Pech!!!")

                    clear_letter()

                    set_state (ende)

        else

            say("Okay los gehts!")

            say("")

            say_reward("T�te 500 Wildhunde,")

            say_reward("100 Daemonenbogenschuetzen,")

            say_reward("100 Geisterweiden,")

            say_reward("50 Flammenkrieger,")

            say_reward("5 Metin Pung-Ma's,")

            say_reward("und")

            say_reward("3 Flammenkoenige!")

            pc.setqf("state1", 0)

            q.set_counter("101", 500)

            pc.setqf("state2", 0)

            q.set_counter("1002", 100)

            pc.setqf("state3", 0)

            q.set_counter("2304", 100)

            pc.setqf("state4", 0)

            q.set_counter("2205", 50)

            pc.setqf("state5", 0)

            q.set_counter("8024", 5)

            pc.setqf("state6", 0)

            q.set_counter("2206", 3)

            set_state(kill)

            end

        end



        when 101.kill begin

            local count1 = pc.getqf("state1") - 1

            if count1 <= 500 then

                pc.setqf("state1", count1)

                q.set_counter("101", 500 - count1)

            end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end

        

        when 1002.kill begin

            local count2 = pc.getqf("state2") + 1

            if count2 <= 100 then

                pc.setqf("state2", count2)

                q.set_counter("1002", 100 - count2)

            end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end

        

        when 2304.kill begin

            local count3 = pc.getqf("state3") + 1

            if count3 <= 100 then

                pc.setqf("state3", count3)

                q.set_counter("2304", 100 - count3)

            end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end

        

        when 2205.kill begin

            local count4 = pc.getqf("state4") + 1

            if count4 <= 50 then

                pc.setqf("state4", count4)

                q.set_counter("2205", 1 - count4)

            end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end



        when 8024.kill begin

            local count5 = pc.getqf("state5") + 1

            if count5 <= 5 then

                pc.setqf("state5", count5)

                q.set_counter("8024", 1 - count5)

            end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end

        

        when 2206.kill begin

            local count6 = pc.getqf("state6") + 1

            if count6 <= 3 then

                pc.setqf("state6", count6)

                q.set_counter("2206", 1 - count6)

            end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end

            if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then

                    set_state(finish)

            end

        end

    end

            

    state finish begin

        when letter begin

            send_letter("Aufgabe abgeschlossen!")

        end

        

        when info or button begin

            say_title("Aufgabe abgeschlossen!")

            say("Du erh�lst jetzt eine Belohnung,")

            say("wenn du willst...")

            wait()

            local s=select("Ja, will ich!","Gib her!")

            if s== 2 then

                say_title("Du hast folgendes bekommen:")

                say("")

                say_reward("~ 3x Wei�e Perle")

                say_reward("~ 3x Rote Perle")

                say_reward("~ 3x Blaue Perle")

                say_reward("~ 3x Truhe des Roten Drachen")

                say_reward("~ etwas Yang und Exp")

                say_reward("~ eine Waffe je nach Klasse!")

                pc.give_item2(27994, 1)

                pc.give_item2(27994, 1)

                pc.give_item2(27994, 1)

                pc.give_item2(27993, 1)

                pc.give_item2(27993, 1)

                pc.give_item2(27993, 1)

                pc.give_item2(27992, 1)

                pc.give_item2(27992, 1)

                pc.give_item2(27992, 1)

                pc.give_item2(50080, 1)

                pc.give_item2(50080, 1)

                pc.give_item2(50080, 1)

                pc.change_money(75000000)

                pc.give_exp2(50000000)

                if pc . job == 0 then

                pc.give_item2(3137, 1)

                pc.give_item2(147, 1)

                elseif pc . job == 1 then

                pc.give_item2(1107, 1)

                pc.give_item2(2147, 1)

                elseif pc . job == 2 then

                pc.give_item2(157, 1)

                pc.give_item2(147, 1)

                elseif pc . job == 3 then

                pc.give_item2(7147, 1)

                pc.give_item2(5107, 1)

                clear_letter()

                set_state(ende)

            else

                say_title("Du hast folgendes bekommen:")

                say("")

                say_reward("~ 3x Wei�e Perle")

                say_reward("~ 3x Rote Perle")

                say_reward("~ 3x Blaue Perle")

                say_reward("~ etwas Yang und Exp")

                say_reward("~ eine Waffe je nach Klasse!")

                pc.give_item2(27994, 1)

                pc.give_item2(27994, 1)

                pc.give_item2(27994, 1)

                pc.give_item2(27993, 1)

                pc.give_item2(27993, 1)

                pc.give_item2(27993, 1)

                pc.give_item2(27992, 1)

                pc.give_item2(27992, 1)

                pc.give_item2(27992, 1)

                pc.change_money(75000000)

                pc.give_exp2(50000000)

                if pc . job == 0 then

                pc.give_item2(3137, 1)

                pc.give_item2(147, 1)

                elseif pc . job == 1 then

                pc.give_item2(1107, 1)

                pc.give_item2(2147, 1)

                elseif pc . job == 2 then

                pc.give_item2(157, 1)

                pc.give_item2(147, 1)

                elseif pc . job == 3 then

                pc.give_item2(7147, 1)

                pc.give_item2(5107, 1)

                clear_letter()

                set_state(ende)

            end

        end

    end



    state ende begin

    end

    

    state ende begin

    end

end

2.)

Spoiler

die meisten quests sind kopiert, und dann nur etwas abge�ndert...
und die die ich alleine geschrieben habe...: sind meine ersten versuche, deshalb pls keine kritik...:D

bitte hilft mir :handsdown:

lg

�: hier im spoiler noch den screen des fehlers von 4.)
�2: Nummer 3 & 5 gehen jetzt, der rest aber noch nicht :D
�3: Nummer 4 geht jetzt auch, hab selbst den fehler gefunden :rolleyes:

10/12/2010 23:08 Avulsed#675

Quote:

Originally Posted by kunds

Hey

h�tte MEHRERE probleme bei meinen quests...

1.)

Spoiler

PHP Code:

quest main_lv100 begin     state start begin         when login with pc.level >= 100 begin             set_state(information)         end     end     state information begin         when letter begin             send_letter("Jagdauftrag Level 100")         end         when info or button begin             say_title("Jagdauftrag Level 100")             say("")             say("Es gibt einen neuen Auftrag fuer dich.")             say("Wie immer wirst du fuer das Bestehen")             say("des Auftrags reichlich belohnt!")             wait()             say("Willst du den Auftrag annehmen?")             local s = select("Ja, natuerlich!","Nein, keine Lust.")             if s == 2 then                     say("Gut, dein Pech!!!")                     clear_letter()                     set_state (ende)         else             say("Okay los gehts!")             say("")             say_reward("T�te 500 Wildhunde,")             say_reward("100 Daemonenbogenschuetzen,")             say_reward("100 Geisterweiden,")             say_reward("50 Flammenkrieger,")             say_reward("5 Metin Pung-Ma's,")             say_reward("und")             say_reward("3 Flammenkoenige!")             pc.setqf("state1", 0)             q.set_counter("101", 500)             pc.setqf("state2", 0)             q.set_counter("1002", 100)             pc.setqf("state3", 0)             q.set_counter("2304", 100)             pc.setqf("state4", 0)             q.set_counter("2205", 50)             pc.setqf("state5", 0)             q.set_counter("8024", 5)             pc.setqf("state6", 0)             q.set_counter("2206", 3)             set_state(kill)             end         end         when 101.kill begin             local count1 = pc.getqf("state1") - 1             if count1 <= 500 then                 pc.setqf("state1", count1)                 q.set_counter("101", 500 - count1)             end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end                  when 1002.kill begin             local count2 = pc.getqf("state2") + 1             if count2 <= 100 then                 pc.setqf("state2", count2)                 q.set_counter("1002", 100 - count2)             end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end                  when 2304.kill begin             local count3 = pc.getqf("state3") + 1             if count3 <= 100 then                 pc.setqf("state3", count3)                 q.set_counter("2304", 100 - count3)             end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end                  when 2205.kill begin             local count4 = pc.getqf("state4") + 1             if count4 <= 50 then                 pc.setqf("state4", count4)                 q.set_counter("2205", 1 - count4)             end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end         when 8024.kill begin             local count5 = pc.getqf("state5") + 1             if count5 <= 5 then                 pc.setqf("state5", count5)                 q.set_counter("8024", 1 - count5)             end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end                  when 2206.kill begin             local count6 = pc.getqf("state6") + 1             if count6 <= 3 then                 pc.setqf("state6", count6)                 q.set_counter("2206", 1 - count6)             end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end             if pc.getqf("state1") >= 500 and pc.getqf("state2") >= 100 and pc.getqf("state3") >= 100 and pc.getqf("state4") >= 50 and pc.getqf("state5") >= 5 and pc.getqf("state6") >= 3 then                     set_state(finish)             end         end     end                  state finish begin         when letter begin             send_letter("Aufgabe abgeschlossen!")         end                  when info or button begin             say_title("Aufgabe abgeschlossen!")             say("Du erh�lst jetzt eine Belohnung,")             say("wenn du willst...")             wait()             local s=select("Ja, will ich!","Gib her!")             if s== 2 then                 say_title("Du hast folgendes bekommen:")                 say("")                 say_reward("~ 3x Wei�e Perle")                 say_reward("~ 3x Rote Perle")                 say_reward("~ 3x Blaue Perle")                 say_reward("~ 3x Truhe des Roten Drachen")                 say_reward("~ etwas Yang und Exp")                 say_reward("~ eine Waffe je nach Klasse!")                 pc.give_item2(27994, 1)                 pc.give_item2(27994, 1)                 pc.give_item2(27994, 1)                 pc.give_item2(27993, 1)                 pc.give_item2(27993, 1)                 pc.give_item2(27993, 1)                 pc.give_item2(27992, 1)                 pc.give_item2(27992, 1)                 pc.give_item2(27992, 1)                 pc.give_item2(50080, 1)                 pc.give_item2(50080, 1)                 pc.give_item2(50080, 1)                 pc.change_money(75000000)                 pc.give_exp2(50000000)                 if pc . job == 0 then                 pc.give_item2(3137, 1)                 pc.give_item2(147, 1)                 elseif pc . job == 1 then                 pc.give_item2(1107, 1)                 pc.give_item2(2147, 1)                 elseif pc . job == 2 then                 pc.give_item2(157, 1)                 pc.give_item2(147, 1)                 elseif pc . job == 3 then                 pc.give_item2(7147, 1)                 pc.give_item2(5107, 1)                 clear_letter()                 set_state(ende)             else                 say_title("Du hast folgendes bekommen:")                 say("")                 say_reward("~ 3x Wei�e Perle")                 say_reward("~ 3x Rote Perle")                 say_reward("~ 3x Blaue Perle")                 say_reward("~ etwas Yang und Exp")                 say_reward("~ eine Waffe je nach Klasse!")                 pc.give_item2(27994, 1)                 pc.give_item2(27994, 1)                 pc.give_item2(27994, 1)                 pc.give_item2(27993, 1)                 pc.give_item2(27993, 1)                 pc.give_item2(27993, 1)                 pc.give_item2(27992, 1)                 pc.give_item2(27992, 1)                 pc.give_item2(27992, 1)                 pc.change_money(75000000)                 pc.give_exp2(50000000)                 if pc . job == 0 then                 pc.give_item2(3137, 1)                 pc.give_item2(147, 1)                 elseif pc . job == 1 then                 pc.give_item2(1107, 1)                 pc.give_item2(2147, 1)                 elseif pc . job == 2 then                 pc.give_item2(157, 1)                 pc.give_item2(147, 1)                 elseif pc . job == 3 then                 pc.give_item2(7147, 1)                 pc.give_item2(5107, 1)                 clear_letter()                 set_state(ende)             end         end     end     state ende begin     end          state ende begin     end end

2.)

Spoiler

PHP Code:

quest poly1 begin state start begin when 70107.use begin say_title("Verwandlung") say("") say("Hiermit kannst du dich fuer 1 Minute in einen Boss verwandeln!") say("") say_reward("Waehle einen Boss:") local main_set = select("Tiegergeist","Oberork","K�nigsspinne","Dunkle K�nigsspinne","Geister Orkanfuehrer","Geisterbaum Lord","Flammenk�nig","Shop Tisch","Sensenmann","Daemonenkoenig","Zurueck Verwandeln","Abbrechen") if main_set == 12 then return end if main_set == 1 then pc.polymorph(1304, 60) end if main_set == 2 then pc.polymorph(691, 60) end if main_set == 3 then pc.polymorph(2091, 60) end if main_set == 4 then pc.polymorph(2092, 60) end if main_set == 5 then pc.polymorph(693, 60) end if main_set == 6 then pc.polymorph(2307, 60) end if main_set == 7 then pc.polymorph(2206, 60) end if main_set == 8 then pc.polymorph(30000, 60) end if main_set == 9 then pc.polymorph(1093, 60) end if main_set == 10 then pc.polymorph(1091, 60) end if main_set == 11 then pc.remove_polymorph() end end end end

3.)

Spoiler

PHP Code:

quest poly2 begin     state start begin             when 90003.use begin                 say_title("Verwandlung")                 say("")                 say("Du moechtest dich also verwandeln?")                 local a = select("Ja will ich!","Nein, doch nicht")             if a == 2 then         return     end                 if a == 1 then                 say_title("Verwandlung:")                 say("")                 say("Du kannst dich in jedes Monster verwandeln,")                 say("das du willst!")                 say("")                 say_title("Achtung!")                 say_reward("Du musst die ID des Monsters kennen")                 say_reward("und sie unten eintippen!")                 say("")                 say_reward("Das ganze h�lt aber nur 1 Minute!")                 say("")                 say("Gib die ID hier ein:")             local y=input()             if y == "" then                 say("Du musst eine richtige ID eintragen!")             end         end                          else                 pc.polymorph(y, 60)                 say_reward("Du hast dich verwandelt!")             end         end     end end

4.)

Spoiler

PHP Code:

quest userpanel begin     state start begin         when 30120.use begin             say_title("Userpanel:")             say("W\195\164hle aus was du machen m\195\182chtest?")             say("Viel Spass")             say("")             local a= select("Lager \195\182ffnen", "Informationen", "Verwandeln", "Teleportieren", "Abbrechen")             if 1==a then                 game.open_safebox()             end             if 2==a then                 say_title("Informationen")                 say("W\195\164hle aus was du wissen m\195\182chtest")                 say("")                 local b= select("Team", "Zur\195\188ck")                 if 1==b then                     say_title("Team:")                     say("[SA]Glycerin")                     say("[GA]Radon")                     say("[GA]Scandium")                 end                 if 2==b then                     return                 end             end             if 3==a then                 say_title("Verwandlung:")                 say("In was willst du dich verwandeln?")                 say("Du kannst dich f\195\188r 1 Minute verwandeln.")                 local c= select("Tiegergeist","Oberork","K�nigsspinne","Dunkle K�nigsspinne","Geister Orkanfuehrer","Geisterbaum Lord","Flammenk�nig","Andere","Abbrechen")                 if 1==c then                     pc.polymorph(1304, 60)                 end                     if 2==c then                     pc.polymorph(691, 60)                 end                 if 3==c then                     pc.polymorph(2091, 60)                 end                   if 4==c then                     pc.polymorph(2092, 60)                 end                   if 5==c then                     pc.polymorph(693, 60)                 end                   if 6==c then                     pc.polymorph(2307, 60)                 end                    if 7==c then                     pc.polymorph(2206, 60)                 end                 if 8==c then                     say_title("Verwandlung:")                     say("In was willst du dich verwandeln?")                     say("Du kannst dich f\195\188r 1 Minute verwandeln.")                     local e= select("Sensenmann","D\195\164monenk\195\182nig","Shop Tisch","Zur\195\188ck Verwandeln","Abbrechen")                     if 1==e then                         pc.polymorph(1093, 60)                     if 2==e then                         pc.polymorph(1091, 60)                     if 3==e then                         pc.polymorph(30000)                         say_title("Shop Tisch:")                         say_reward("Um dich vom Shop Tisch wieder zur\195\188ck")                         say_reward("verwandeln zu k\195\182nnen, w\195\164hle bitte")                         say_reward("die Aktion Zur\195\188ck verwandeln.")                     if 4==e then                         pc.remove_polymorph()                     if 5==e then                         return                     end                 if 9==c then                     return                 end                                          end             end                          if 4==a then                 say("Wohin m\195\182chtest du dich teleportieren?")                 say("")                 local d= select("Map1 Blau", "Map1 Gelb", "Map1 Rot", "Spinnendungeon2", "D\195\164monenturm", "Roter Wald", "Seelengrotte", "Tal von Gorgoroth", "Bermuda Dreieck", "Halle der Macht", "Abbrechen")                 if 1==d then                     pc.warp(921600,204800)                 end                 if 2==d then                     pc.warp(0,102400)                 end                 if 3==d then                     pc.warp(409600,896000)                 end                 if 4==d then                     pc.warp(665600,435200)                 end                 if 5==d then                     pc.warp(590500,110500)                 end                 if 6==d then                     pc.warp(1049600,0)                 end                 if 7==d then                     pc.warp(0,12032)                 end                 if 8==d then                     pc.warp(83200,0)                 end                 if 9==d then                     pc.warp(0,25600)                 end                 if 10==d then                     pc.warp(999900,999900)                 end                 if 11==d then                     return                 end             end         end     end end

5.)

Spoiler

PHP Code:

quest Schildsammlung begin     state start begin         when login with pc.level >= 60 begin             set_state(info)         end     end          state info begin         when letter begin             send letter("Schildsammlung")             local v = find_npc_by_vnum(20016)             if v != 0 then                 target.vid("__TARGET__", v, "Schildsammlung")             end         end                  when info or button begin             say_title("Die Schildsammlung")             say("Der Schmied braucht deine Hilfe")             say("Mach dich auf den Weg zu ihm und finde heraus,")             say("wobei du ihm helfen kannst")         end                  when __TARGET__.target.click or 20016.chat."Die Schildsammlung" with pc.level >=60 begin             say_title("Die Schildsammlung")             say("Hallo.")             say("Ich brauche deine Hilfe!")             say("Ich sammle meine Werke und habe nun alles an R\195\188stungen, Waffen, Helmen,")             say("Schmuck und Schilden in meiner Sammlung. Mir fehlt nur noch ein Schild,")             say("das Drachenschuppenschild+4.")             say("Doch leider habe ich im Moment wenig Zeit und du siehst aus, als")             say("w\195\164rst du der Richtige.")             say("Kannst du mir bitte dieses besorgen?")             local s=select("Ja","Nein")             if s == 2 then                 say("Schade, ich hielt dich f�r ehrgeizig, doch so kann man sich t\195\164uschen.")                 say("Auf Wiedersehen!")             else                 say_title("Die Schildsammlung")                 say("Danke!")                 say("Du kannst es bei den Soldatengiftspinnen in SD2 finden.")                 say("Ich w�nsche dir viel Gl\195\188ck")                 say("Nat\195\188rlich wird die belohnung gro�z\195\188gig sein.")                 say("")                 say_reward("Mach dich nun auf die Suche nach dem Schild und bring")                 say_reward("es dem Schmied.")                 set_state("main")             end         end     end               state main begin         when letter begin             send_letter("Suche das Schild")         end                  when info or button begin             say_title("Die Schildsammlung")             say("Finde das Drachenschuppenschild+4 im SD2 bei den Soldatengiftspinnen")             say("und bring es zu dem Schmied.")             set_state(main2)         end                  when 2035.kill begin             local n = number(1,3)             if n== 1 then                 pc.give_item2(13124,1)                 say("Du hast das Drachenschuppenschild gefunden!")                 say("Kehre zum Schmied zur�ck und bring es ihm.")                 say("Dieser wird dich f�r deinen Fund belohnen.")                 set_state(main2)             end         end     end          state main2 begin         when letter begin             send_letter("Du hast das Schild")             local v = find_npc_by_vnum(20016)             if v != 0 then                 target.vid("__TARGET__", v, "Du hast das Schild")             end         end                  when info or button begin             say_title("Das Schild")             say("Du hast das letzte Schild aus der Sammlung gefunden.")             say("Bring es zum Schmied.")             say("Dann erh�ltst du deine Belohung.")         end                  when __TARGET__.target.click or 20016.chat."Die Schildsammlung" with pc.level >=60 begin             if pc.count_item(13124) <= 0 then                 say_title("Die Schildsammlung")                 say("Du hast noch nocht gefunden?")                 say("Schade. Dann such ich mir einen anderen Helfer.")                 say("Auf Wiedersehen!")                 set_state(__COMPLETE__)             end                      say_title("Die Schildsammlung")             say("Juhuu! Nun ist die Sammlung komplett!")             say("Ich kann dir garnicht genug danken.")             say("Ich finde es sehr nett von dir,")             say("dass du anderen bei ihren Problemen hilfst.")             wait()             say("Und wie versprochen bekommst du deine Belohnung.")             say("Schau nach, was in der Truhe ist.")             say("Ich habe sie Truhe bei meiner Suche f�r meine Sammlung gefunden,")             say("doch da sie nun vollst�ndig ist, brauch ich sie nicht mehr.")             say("Du kannst sie sicherlich besser gebrauchen!")             pc.remove_item(70101,1)             say("")             pc.change_money( 5000000 )             pc.give_exp2( 2500000 )             pc.give_item2(50078,1)             clear_letter()             set_state(__COMPLETE__)         end     end          state __COMPLETE__ begin     end end

die meisten quests sind kopiert, und dann nur etwas abge�ndert...
und die die ich alleine geschrieben habe...: sind meine ersten versuche, deshalb pls keine kritik...:D

bitte hilft mir :handsdown:

lg

Bei 2 und 3 bekomme ich kein Fehler :o

Hast bei den Items f�r die Quest den Type in der Item_proto auch auf 18 gestellt?

€:So sollte 5 gehen:

Spoiler

PHP Code:


			
quest Schildsammlung begin
    state start begin
        when login or levelup with pc.level >= 60 begin
            set_state(info)
        end
    end
    
    state info begin
        when letter begin
            send_letter("Schildsammlung")
            local v = find_npc_by_vnum(20016)
            if v != 0 then
                target.vid("__TARGET__", v, "Schildsammlung")
            end
        end
        
        when info or button begin
            say_title("Die Schildsammlung")
            say("Der Schmied braucht deine Hilfe")
            say("Mach dich auf den Weg zu ihm und finde heraus,")
            say("wobei du ihm helfen kannst")
        end
        
        when __TARGET__.target.click or 20016.chat."Die Schildsammlung" with pc.level >=60 begin
            say_title("Die Schildsammlung")
            say("Hallo.")
            say("Ich brauche deine Hilfe!")
            say("Ich sammle meine Werke und habe nun alles an R\195\188stungen, Waffen, Helmen,")
            say("Schmuck und Schilden in meiner Sammlung. Mir fehlt nur noch ein Schild,")
            say("das Drachenschuppenschild+4.")
            say("Doch leider habe ich im Moment wenig Zeit und du siehst aus, als")
            say("w\195\164rst du der Richtige.")
            say("Kannst du mir bitte dieses besorgen?")
            local s=select("Ja","Nein")
            if s == 2 then
                say("Schade, ich hielt dich f�r ehrgeizig, doch so kann man sich t\195\164uschen.")
                say("Auf Wiedersehen!")
            else
                say_title("Die Schildsammlung")
                say("Danke!")
                say("Du kannst es bei den Soldatengiftspinnen in SD2 finden.")
                say("Ich w�nsche dir viel Gl\195\188ck")
                say("Nat\195\188rlich wird die belohnung gro�z\195\188gig sein.")
                say("")
                say_reward("Mach dich nun auf die Suche nach dem Schild und bring")
                say_reward("es dem Schmied.")
                set_state("main")
            end
        end
    end
    
    
    state main begin
        when letter begin
            send_letter("Suche das Schild")
        end
        
        when info or button begin
            say_title("Die Schildsammlung")
            say("Finde das Drachenschuppenschild+4 im SD2 bei den Soldatengiftspinnen")
            say("und bring es zu dem Schmied.")
            set_state(main2)
        end
        
        when 2035.kill begin
            local n = number(1,3) 
            if n== 1 then
                pc.give_item2(13124,1)
                say("Du hast das Drachenschuppenschild gefunden!")
                say("Kehre zum Schmied zur�ck und bring es ihm.")
                say("Dieser wird dich f�r deinen Fund belohnen.")
                set_state(main2)
            end 
        end
    end
    
    state main2 begin
        when letter begin
            send_letter("Du hast das Schild")
            local v = find_npc_by_vnum(20016)
            if v != 0 then
                target.vid("__TARGET__", v, "Du hast das Schild")
            end
        end
        
        when info or button begin
            say_title("Das Schild")
            say("Du hast das letzte Schild aus der Sammlung gefunden.")
            say("Bring es zum Schmied.")
            say("Dann erh�ltst du deine Belohung.")
        end
        
        when __TARGET__.target.click or 20016.chat."Die Schildsammlung" with pc.level >=60 begin
            if pc.count_item(13124) <= 0 then
                say_title("Die Schildsammlung")
                say("Du hast noch nocht gefunden?")
                say("Schade. Dann such ich mir einen anderen Helfer.")
                say("Auf Wiedersehen!")
                set_state(__COMPLETE__)
            end
        
            say_title("Die Schildsammlung")
            say("Juhuu! Nun ist die Sammlung komplett!")
            say("Ich kann dir garnicht genug danken.")
            say("Ich finde es sehr nett von dir,")
            say("dass du anderen bei ihren Problemen hilfst.")
            wait()
            say("Und wie versprochen bekommst du deine Belohnung.")
            say("Schau nach, was in der Truhe ist.")
            say("Ich habe sie Truhe bei meiner Suche f�r meine Sammlung gefunden,")
            say("doch da sie nun vollst�ndig ist, brauch ich sie nicht mehr.")
            say("Du kannst sie sicherlich besser gebrauchen!")
            pc.remove_item(70101,1)
            say("")
            pc.change_money( 5000000 )
            pc.give_exp2( 2500000 )
            pc.give_item2(50078,1)
            clear_letter()
            set_state(__COMPLETE__)
        end
    end
    
    state __COMPLETE__ begin
    end
end

Page 45 of 845