[SERVICE] Die Questkontrolle

Page 563 of 845

563

07/02/2013 00:02 GenerationAzzlack#8431

erledigt XD

07/02/2013 00:16 Davidast#8432

Yo ein kleines Problem mit der Quest hier:

PHP Code:


			
quest hell_run begin
state start begin
    when 20094.chat."Ich m�chte den H�llenrun machen" begin
        say_title("Bossrun")
        say("Du willst also ein starker Krieger sein?")
        say(".....")
        say("Das ich nicht lache...")
        say("Sieh dich doch mal an...")
        say("Ist das deine Vorstellung von einem")
        say("".. pc.get_name() .." ?")
        wait()
        say("Nunja das tut nichts zur Sache!")
        say("Beweise mir nur dass du ein starker Krieger bist,")
        say("indem du einen Bossrun meisterst!")
        wait()
        say("Was das ist?")
        say("Das kl�rt sich nun von ganz allein...")
        say("Du wirst auf ein Gebiet teleportiert in dem nacheinander")
        say("Bossmobs spawnen! Eins nach dem anderen!")
        say("Sobald eins tot ist spawnt das n�chste!")
        if pc.get_level() < 85 then 
            say ("Also so lass ich dich nicht dahin!. Komme wieder, wenn du Level 85 bist!") 
        else
            say("Als erstes musst du Goldene Froesche")
            say("bezwingen! Dann geht es los!")
            say("Aber gebt Acht! Nur wer das Oberhaupt t�tet")
            say("bekommt auch die Belohnung!")
                wait()
            say("Also gut! Was ist nun? Willst du es probieren?")
            
            local s = select("Aber klar!", "Ne ich bin ein Schisser")
            if s == 1 then
                pc.warp(930600 , 925800)
            else
                return
            end
        end
    end
    when 11505.kill with pc.get_map_index()==202 begin
            timer("kick_the_noobs", 30)
            d.spawn_mob(11509, 368, 629)
            d.spawn_mob(11509, 419, 630)
            d.spawn_mob(11509, 428, 653)
            d.spawn_mob(11509, 422, 679)
            d.spawn_mob(11509, 395, 689)
            d.spawn_mob(11509, 369, 679)
            d.spawn_mob(11509, 361, 658)
            d.notice("Ihr habt nun insgesammt 30 Minuten Zeit, den Run zu meistern.")
            d.notice("Solltet ihr ihn in dieser Zeitspanne nicht schaffen, werdet ihr")
            d.notice("ohne eine Belohnung hinaus teleportiert.")
            d.setf("kill_count1", 7)
    end
        
        when kick_the_noobs.timer begin
            warp_all_to_village()
    end
    
    when 11509.kill with pc.get_map_index()==202 begin
        d.setf("kill_count1", d.getf("kill_count1") - 1)
    end
    
        when d.getf("kill_count1") <= 0 then
            d.notice("Bravo, den ersten Spawn habt ihr geschafft. Nun kommt der zweite!")
            d.spawn_mob(11509, 368, 629)
            d.spawn_mob(11509, 419, 630)
            d.spawn_mob(11509, 428, 653)
            d.spawn_mob(11509, 422, 679)
            d.spawn_mob(11509, 395, 689)
            d.spawn_mob(11509, 369, 679)
            d.spawn_mob(11509, 361, 658)
            d.setf("kill_count2", 7)
    end
        
    when 11509.kill with pc.get_map_index()==202 begin
        d.setf("kill_count2", d.getf("kill_count2") - 1)
    end
        
        when d.getf("kill_count2") <= 0 then
            d.notice("Nun kommt der dritte!")
            d.spawn_mob(11509, 368, 629)
            d.spawn_mob(11509, 419, 630)
            d.spawn_mob(11509, 428, 653)
            d.spawn_mob(11509, 422, 679)
            d.spawn_mob(11509, 395, 689)
            d.spawn_mob(11509, 369, 679)
            d.spawn_mob(11509, 361, 658)
            d.setf("kill_count3", 7)
        end
    end
end

Finde den Fehler einfach nicht. W�re nett wenn mir jemand helfen k�nnte :)

Gru�

07/02/2013 01:49 sero61#8433

ich hab ein dyndns server..
meine HP is so zu erreichen: 192.168.0.8 -> vermutlich ist das dann meine serverip
root ist root
pw weiss ich auch
wozu ist aber player?!
liege ich mit irgendwas falsch leute?

PHP Code:


			
quest rangliste begin 
    state start begin 
        when 20095.chat."Rangliste" begin ------Bis hier her funktioniert alles! danach passiert nichts mehr!
            local rangliste = mysql_query("SELECT * FROM player.player WHERE player.name NOT LIKE '[%]%' ORDER BY player.level DESC, player.exp DESC","root","rootpw","player","rootip") 
            say_title("Die Top 10") 
            say("Platz 1:     Name: "..rangliste.name[1].."    Level: "..rangliste.level[1].." ") 
            say("Platz 2:     Name: "..rangliste.name[2].."    Level: "..rangliste.level[2].." ") 
            say("Platz 3:     Name: "..rangliste.name[3].."    Level: "..rangliste.level[3].." ") 
            say("Platz 4:     Name: "..rangliste.name[4].."    Level: "..rangliste.level[4].." ") 
            say("Platz 5:     Name: "..rangliste.name[5].."    Level: "..rangliste.level[5].." ") 
            say("Platz 6:     Name: "..rangliste.name[6].."    Level: "..rangliste.level[6].." ") 
            say("Platz 7:     Name: "..rangliste.name[7].."    Level: "..rangliste.level[7].." ") 
            say("Platz 8:     Name: "..rangliste.name[8].."    Level: "..rangliste.level[8].." ") 
            say("Platz 9:     Name: "..rangliste.name[9].."    Level: "..rangliste.level[9].." ") 
            say("Platz 10:     Name: "..rangliste.name[10].."    Level: "..rangliste.level[10].." ") 
        end 
    end 
end

VirtualBox sagt ist alles ok!

Spoiler

Ausf�hrliche Diskussion:
[Only registered and activated users can see links. Click Here To Register...]
Brauche Dringend Hilfe!

07/02/2013 15:10 Silver�#8434

Quest :

PHP Code:


			
quest bt begin 
    state start begin 
        when 38050.use begin 
        local b = {
        if pc.job == 0 then
        50401, 50402, 50403, 50405, 50404,             -- K�rper Lehre
        50416, 50417, 50418, 50419, 50420,             -- Mental Lehre
        if pc.job == 1 then
        50431, 50432, 50433, 50434, 50435,             -- Nah Lehre
        50446, 50447, 50448, 50449, 50550,             -- Fern Lehre
        if pc.job == 2 then
        50461, 50462, 50463, 50464, 50465, 50466,     -- Waffen Lehre
        50476, 50477, 50478, 50479, 50480, 50481,    -- Magie Lehre
        if pc.job == 3 then
        50491, 50492, 50493, 50494, 50495, 50496,    -- Drachen Lehre
        50506, 50507, 50508, 50509, 50510, 50511}    -- Heil Lehre
        local rb = number(1, table.getn(b))
        pc.give_item2(b[rb], 1)
        pc.remove_item(item.vnum)
        end 
    end
end

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

07/02/2013 15:35 .Leykas#8435

Quote:

Originally Posted by LeykasRecordz

Code:

quest banker begin 
    state start begin 
        when 20007.chat."Bank" begin 
            banker.bankdialog() 
        end 
        function bankdialog() 
            say_title("Banker:") 
            say("Ich biete dir die M�glichkeit, dein Yang") 
            say("Zinsenfrei aufzubewahren.") 
            say("Du kannst jedoch nur begrenzt einzahlen.") 
            say("Das Limit liegt jedoch bei weit �ber einer Billiarde :)")  
            say("") 
            local action = select("Yang einzahlen", "Yang auszahlen", "Abbrechen") 
            if action == 1 then 
                say_title("Banker:") 
                if pc.gold < 1 then 
                    say("Du hast kein Yang.") 
                    say("") 
                    return 
                end 
                say("Du hast "..pc.gold.." Yang.") 
                say("Wieviel m�chtest du davon einzahlen?") 
                local yang = tonumber(input()) 
                if yang < 0 then 
                    return 
                end 
                if yang > pc.gold then 
                    yang = pc.gold 
                end 
                pc.changegold(-yang) 
                local saved_rest = tonumber(pc.getqf("saved_rest")) 
                local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs")) 
                if saved_rest + yang > 2147483647 then 
                    pc.setqf("saved_signed_longs", saved_signed_longs + 1) 
                    pc.setqf("saved_rest", saved_rest + yang - 2147483647) 
                else 
                    pc.setqf("saved_rest", saved_rest + yang) 
                end 
                say_title("Banker:") 
                say("Es wurden "..yang.." Yang eingezahlt.") 
                say("") 
                return 
            elseif action == 2 then 
                local saved_rest = tonumber(pc.getqf("saved_rest")) 
                local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs")) 
                local saved_yang = saved_signed_longs*2147483647+saved_rest 
                say_title("Banker:") 
                if saved_yang < 1 then 
                    say("Ich habe kein Geld mehr von dir.") 
                    say("") 
                    return 
                end 
                say("Ich kann dir das Geld, das du eingezahlt hast,") 
                say("nun wieder auszahlen.") 
                say("") 
                say_reward("Kontostand: "..saved_yang.." Yang") 
                say("") 
                say("Wieviel Yang m�chtest du ausgezahlt bekommen?") 
                local yang = tonumber(input()) 
                if yang < 0 then 
                    return 
                end 
                if yang > saved_yang then 
                    yang = saved_yang 
                end 
                if pc.gold + yang > 1899999999 then 
                    yang = 1899999999 - pc.gold 
                end 
                if yang > saved_yang then 
                    yang = saved_yang 
                end 
                if saved_rest - yang < 0 then 
                    pc.setqf("saved_signed_longs", saved_signed_longs - 1) 
                    pc.setqf("saved_rest", 2147483647 - yang + saved_rest) 
                else 
                    pc.setqf("saved_rest", saved_rest - yang) 
                end 
                pc.changegold(yang) 
                say_title("Banker:") 
                say("Es wurden "..yang.." Yang ausgezahlt.") 
                say("") 
            end 
        end 
    end 
end

Es funktioniert garnichts..
Das Problem liegt wahrscheinlich laut putty an banker.bankdialog .. ?

Need immernoch help

07/02/2013 18:48 MrPlayboy#8436

@ Leykaz:
Mach einfach

PHP Code:


			
            banker.bankdialog() 

        end 

        function bankdialog()

weg.

PHP Code:


			
quest bt begin 

    state start begin 

        when 38050.use begin 

        local b = {

        if pc.job == 0 then

            50401, 50402, 50403, 50405, 50404,             -- K�rper Lehre

            50416, 50417, 50418, 50419, 50420,             -- Mental Lehre

        elseif pc.job == 1 then

            50431, 50432, 50433, 50434, 50435,             -- Nah Lehre

            50446, 50447, 50448, 50449, 50550,             -- Fern Lehre

        elseif pc.job == 2 then

            50461, 50462, 50463, 50464, 50465, 50466,     -- Waffen Lehre

            50476, 50477, 50478, 50479, 50480, 50481,    -- Magie Lehre

        elseif pc.job == 3 then

            50491, 50492, 50493, 50494, 50495, 50496,    -- Drachen Lehre

            50506, 50507, 50508, 50509, 50510, 50511}    -- Heil Lehre

            local rb = number(1, table.getn(b))

        end

        pc.give_item2(b[rb], 1)

        pc.remove_item(item.vnum)

        end

    end

end

07/02/2013 20:46 Astro.#8437

Quote:

Originally Posted by Silver™

Quest :

Spoiler

PHP Code:

quest bt begin state start begin when 38050.use begin local b = { if pc.job == 0 then 50401, 50402, 50403, 50405, 50404, -- K�rper Lehre 50416, 50417, 50418, 50419, 50420, -- Mental Lehre if pc.job == 1 then 50431, 50432, 50433, 50434, 50435, -- Nah Lehre 50446, 50447, 50448, 50449, 50550, -- Fern Lehre if pc.job == 2 then 50461, 50462, 50463, 50464, 50465, 50466, -- Waffen Lehre 50476, 50477, 50478, 50479, 50480, 50481, -- Magie Lehre if pc.job == 3 then 50491, 50492, 50493, 50494, 50495, 50496, -- Drachen Lehre 50506, 50507, 50508, 50509, 50510, 50511} -- Heil Lehre local rb = number(1, table.getn(b)) pc.give_item2(b[rb], 1) pc.remove_item(item.vnum) end end end

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

untestet sollte aber gehen

PHP Code:


			
quest fb begin
    state start begin
        when 38050.use begin
        local fb_index = {
            [0] = { -- Krieger
                [1] = {50401, 50402, 50403, 50405, 50404},    -- K�rper Lehre
                [2] = {50416, 50417, 50418, 50419, 50420}},    -- Mental Lehre
            [1] = { -- Ninja
                [1] = {50431, 50432, 50433, 50434, 50435},    -- Nah Lehre
                [2] = {50446, 50447, 50448, 50449, 50550}},    -- Fern Lehre
            [2] = { -- Sura
                [1] = {50461, 50462, 50463, 50464, 50465, 50466},    -- Waffen Lehre
                [2] = {50476, 50477, 50478, 50479, 50480, 50481}},    -- Magie Lehre
            [3] = { -- Schamane
                [1] = {50491, 50492, 50493, 50494, 50495, 50496},    -- Drachen Lehre
                [2] = {50506, 50507, 50508, 50509, 50510, 50511}}}    -- Heil Lehre
        a, b, c = fb_index, pc.get_job, pc.get_skill_group
        pc.give_item2(a[b][c][math.random(table.getn(a[b][c]))], 1)
        item.remove()
        end
    end
end

07/02/2013 22:47 Noisy-Boy#8438

PHP Code:


			
quest truhe_wissen begin 

    state start begin 

        when 50187.use begin

            say_title("Welches Fertigkeitsbuchset m�chtest du?")

            local r = select("Krieger", "Ninja", "Sura", "Schamane", "Schlie�en") 

            if r == 1 then

                local k = select("K�rperkrieger", "Mentalkrieger")

                if k == 1 then

                    pc.give_item2(50401, 1)

                    pc.give_item2(50402, 1)

                    pc.give_item2(50403, 1)

                    pc.give_item2(50404, 1)

                    pc.give_item2(50405, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if k == 2 then

                    pc.give_item2(50416, 1)

                    pc.give_item2(50417, 1)

                    pc.give_item2(50418, 1)

                    pc.give_item2(50419, 1)

                    pc.give_item2(50420, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            if r == 2 then

                local n = select("Fernkampf", "Nahkampf")

                if n == 1 then

                    pc.give_item2(50446, 1)

                    pc.give_item2(50447, 1)

                    pc.give_item2(50448, 1)

                    pc.give_item2(50449, 1)

                    pc.give_item2(50450, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if n == 2 then

                    pc.give_item2(50431, 1)

                    pc.give_item2(50432, 1)

                    pc.give_item2(50433, 1)

                    pc.give_item2(50434, 1)

                    pc.give_item2(50435, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            if r == 3 then

                local s = select("Waffensura", "Magiesura")

                if s == 1 then

                    pc.give_item2(50461, 1)

                    pc.give_item2(50462, 1)

                    pc.give_item2(50463, 1)

                    pc.give_item2(50464, 1)

                    pc.give_item2(50465, 1)

                    pc.give_item2(50466, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if s == 2 then

                    pc.give_item2(50476, 1)

                    pc.give_item2(50477, 1)

                    pc.give_item2(50478, 1)

                    pc.give_item2(50479, 1)

                    pc.give_item2(50480, 1)

                    pc.give_item2(50481, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            if r == 4 then

                local ss = select("Drachenschamane", "Heilschamane")

                if ss == 1 then

                    pc.give_item2(50491, 1)

                    pc.give_item2(50492, 1)

                    pc.give_item2(50493, 1)

                    pc.give_item2(50494, 1)

                    pc.give_item2(50495, 1)

                    pc.give_item2(50496, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if ss == 2 then

                    pc.give_item2(50506, 1)

                    pc.give_item2(50507, 1)

                    pc.give_item2(50508, 1)

                    pc.give_item2(50509, 1)

                    pc.give_item2(50510, 1)

                    pc.give_item2(50511, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            if r == 5 then

                exit

            end 

        end 

    end 

end

Die Quest hat eine �hnliche Funktionsweise wie die oben und bekomme die gleiche Fehlermeldung. W�rde mich �ber eure Hilfe freuen.

07/02/2013 23:27 Astro.#8439

Quote:

Originally Posted by Noisy-Boy

Spoiler

PHP Code:

quest truhe_wissen begin state start begin when 50187.use begin say_title("Welches Fertigkeitsbuchset m�chtest du?") local r = select("Krieger", "Ninja", "Sura", "Schamane", "Schlie�en") if r == 1 then local k = select("K�rperkrieger", "Mentalkrieger") if k == 1 then pc.give_item2(50401, 1) pc.give_item2(50402, 1) pc.give_item2(50403, 1) pc.give_item2(50404, 1) pc.give_item2(50405, 1) chat("Fertigkeitsb�cher erhalten") end if k == 2 then pc.give_item2(50416, 1) pc.give_item2(50417, 1) pc.give_item2(50418, 1) pc.give_item2(50419, 1) pc.give_item2(50420, 1) chat("Fertigkeitsb�cher erhalten") end if r == 2 then local n = select("Fernkampf", "Nahkampf") if n == 1 then pc.give_item2(50446, 1) pc.give_item2(50447, 1) pc.give_item2(50448, 1) pc.give_item2(50449, 1) pc.give_item2(50450, 1) chat("Fertigkeitsb�cher erhalten") end if n == 2 then pc.give_item2(50431, 1) pc.give_item2(50432, 1) pc.give_item2(50433, 1) pc.give_item2(50434, 1) pc.give_item2(50435, 1) chat("Fertigkeitsb�cher erhalten") end if r == 3 then local s = select("Waffensura", "Magiesura") if s == 1 then pc.give_item2(50461, 1) pc.give_item2(50462, 1) pc.give_item2(50463, 1) pc.give_item2(50464, 1) pc.give_item2(50465, 1) pc.give_item2(50466, 1) chat("Fertigkeitsb�cher erhalten") end if s == 2 then pc.give_item2(50476, 1) pc.give_item2(50477, 1) pc.give_item2(50478, 1) pc.give_item2(50479, 1) pc.give_item2(50480, 1) pc.give_item2(50481, 1) chat("Fertigkeitsb�cher erhalten") end if r == 4 then local ss = select("Drachenschamane", "Heilschamane") if ss == 1 then pc.give_item2(50491, 1) pc.give_item2(50492, 1) pc.give_item2(50493, 1) pc.give_item2(50494, 1) pc.give_item2(50495, 1) pc.give_item2(50496, 1) chat("Fertigkeitsb�cher erhalten") end if ss == 2 then pc.give_item2(50506, 1) pc.give_item2(50507, 1) pc.give_item2(50508, 1) pc.give_item2(50509, 1) pc.give_item2(50510, 1) pc.give_item2(50511, 1) chat("Fertigkeitsb�cher erhalten") end if r == 5 then exit end end end end

Die Quest hat eine �hnliche Funktionsweise wie die oben und bekomme die gleiche Fehlermeldung. W�rde mich �ber eure Hilfe freuen.

PHP Code:


			
quest truhe_wissen begin 

    state start begin 

        when 50187.use begin

            say_title("Welches Fertigkeitsbuchset m�chtest du?")

            local r = select("Krieger", "Ninja", "Sura", "Schamane", "Schlie�en") 

            if r == 1 then

                local k = select("K�rperkrieger", "Mentalkrieger")

                if k == 1 then

                    pc.give_item2(50401, 1)

                    pc.give_item2(50402, 1)

                    pc.give_item2(50403, 1)

                    pc.give_item2(50404, 1)

                    pc.give_item2(50405, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if k == 2 then

                    pc.give_item2(50416, 1)

                    pc.give_item2(50417, 1)

                    pc.give_item2(50418, 1)

                    pc.give_item2(50419, 1)

                    pc.give_item2(50420, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            end

            if r == 2 then

                local n = select("Fernkampf", "Nahkampf")

                if n == 1 then

                    pc.give_item2(50446, 1)

                    pc.give_item2(50447, 1)

                    pc.give_item2(50448, 1)

                    pc.give_item2(50449, 1)

                    pc.give_item2(50450, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if n == 2 then

                    pc.give_item2(50431, 1)

                    pc.give_item2(50432, 1)

                    pc.give_item2(50433, 1)

                    pc.give_item2(50434, 1)

                    pc.give_item2(50435, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            end

            if r == 3 then

                local s = select("Waffensura", "Magiesura")

                if s == 1 then

                    pc.give_item2(50461, 1)

                    pc.give_item2(50462, 1)

                    pc.give_item2(50463, 1)

                    pc.give_item2(50464, 1)

                    pc.give_item2(50465, 1)

                    pc.give_item2(50466, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if s == 2 then

                    pc.give_item2(50476, 1)

                    pc.give_item2(50477, 1)

                    pc.give_item2(50478, 1)

                    pc.give_item2(50479, 1)

                    pc.give_item2(50480, 1)

                    pc.give_item2(50481, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            end

            if r == 4 then

                local ss = select("Drachenschamane", "Heilschamane")

                if ss == 1 then

                    pc.give_item2(50491, 1)

                    pc.give_item2(50492, 1)

                    pc.give_item2(50493, 1)

                    pc.give_item2(50494, 1)

                    pc.give_item2(50495, 1)

                    pc.give_item2(50496, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

                if ss == 2 then

                    pc.give_item2(50506, 1)

                    pc.give_item2(50507, 1)

                    pc.give_item2(50508, 1)

                    pc.give_item2(50509, 1)

                    pc.give_item2(50510, 1)

                    pc.give_item2(50511, 1)

                    chat("Fertigkeitsb�cher erhalten")

                end

            end

            if r == 5 then

                return

            end 

        end 

    end 

end

07/03/2013 01:45 clemgregor#8440

//hatt sich gekl�rt

07/03/2013 11:30 Scarified#8441

Quote:

Also hier mein Problem

Quote:

syntax error : [string "start"]:13: unexpected symbol near 'when'
pet_city.quest:462:Error occured on compile pet_city.quest

zeile 462 ist die letzte

Spoiler

Code:

quest test begin 
    state start begin 
        when 34003.chat."Gehe zu Rufus" begin 
            say_title("Hey,") 
            say("Gehe und suche Rufus.")
			say("Er ben�tigt deine Hilfe.")
            local v = find_npc_by_vnum(34006) 
            if v != 0 then target.vid("__TARGET__", v, "Rufus") 
            end 
        end 
        when __TARGET__.target.click or 34006.chat."Rufus gefunden!" begin 
            say_title("Hallo, mein Name lautet Rufus.") 
            say("Eisph�nix hat dich geschickt?")
			say("Ok, dann kannst du mir ja helfen")
			say("Du musst nur 20 MOBNAME t�ten.")
			pc.setqf("state", 1)
         q.set_counter("MOBNAME")
     end

        when MOBVNUM.kill begin
          local count = pc.getqf("state") - 1
          if count <= 1 then
             pc.setqf("state", count)
             q.set_counter("MOBNAME", count)
          end
            if count == 0 then
             say_title("MOBNAMEquest")
             say("")
               pc.change_money(ZAHL)
               pc.give_exp2(ZAHL)
               pc.give_item2(ITEMID, 1)
                set_state(__COMPLETE__)
				
            end
        end
        when 34006.chat."Gebe Porkie Bescheid" begin 
            say_title("Gebe Porkie Bescheid") 
            say("Bitte gehe doch zu Porkie und sage ihm,")
			say("dass Rufus dich schickt und du ihm helfen sollst.") 
            local v = find_npc_by_vnum(34005) 
            if v != 0 then target.vid("__TARGET__", v, "Porkie") 
            end 
        end 
        when 34005.chat."Sammelname Quest" begin
            say("Ich suche seit langem ITEMNAME.")
            say("Leider bekommst man sie nur von MOBNAME.")
            say("K�nntest du mir 10 davon holen?")
            say("MOBNAME sind leider zu stark f�r mich.")
            say("")    
            set_state(go_to_disciple)
            pc.setqf("collect_count",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Auftrag von Porkie")

        end
        when button or info begin
            say_title("ITEMNAME")
            say("")
            say("Porkie ben�tigt 10 ITEMNAME")
            say("Das Item bekommst du von MOBNAME")
            say("Viel Erfolg!")
            say("")
            say_item_vnum(ITEMID)
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
            say("")
        end

        when MOBID.kill begin
            if pc.count_item(ITEMID)<10-pc.getqf("collect_count") then
                pc.give_item2(ITEMID, 1)
            end
        end

        when 34005.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin
                say("Einen Moment!")
                ---                                                   l
                say("Ich muss erst �berpr�fen,")
                say("ob das ein Original ist.")
                say("")
                pc.remove_item(ITEMID, 1)
                wait()

                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=100
                else        
                    pass_percent=100
                end


                local s= number(1,100)
            if s<= pass_percent  then
               if pc.getqf("collect_count")< 9 then     --5*ӥH�U 
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1
                        say("Gut das ist ein Originales.")
                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")
                        say("Bring mir die Andere.")
                        say("")
                        return
                    end
                    say("Ok. Das war das letzte.")
                    say("F�r deine M�he bekommst du:")
                    say("")
                    pc.setqf("collect_count",0)
                    clear_letter()
                    set_state(__complete)

                    pc.change_money(ZAHL)
                    pc.give_exp2(ZAHL)
					pc.give_item2(ITEMID, 1)
                    set_quest_state("levelup","run")


                    return
                else                                
                say("Biologe :")
                say("Dieses Item ist von schlechter Qualit�t!")
                say("Es kann nicht verwendet werden.")
                say("Hole mir ein neues!")
                say("")
                pc.setqf("drink_drug",0)     --�Ĥ���l��
                return
                end
			end
		end

    state start begin 		
		when 34005.chat."Gehe zu Rufus" begin 
            say_title("Rufus auffinden") 
            say("Gehe zu Rufus und erz�hle ihm von deinem Sieg.") 
            local v = find_npc_by_vnum(34006) 
            if v != 0 then target.vid("__TARGET__", v, "Rufus") 
            end 
        end 
        when __TARGET__.target.click or 34006.chat."Von Sieg erz�hlen" begin 
            say_title("Willkommen zur�ck!") 
            say("War Porkie zufrieden mit dir?") 
			say("Das Freut mich aber.")
        end 
        when __TARGET__.target.click or 34006.chat."Auftrag von Porkie" begin 
            say_title("Einen gefallen musst du mir noch tun.") 
            say("MOBNAME haben mich oft �berfallen.")
			say("Gehe in meinem Namen zu denen und nimm Rache.")
			say("Du musst nur 50 MOBNAME t�ten.")
			pc.setqf("state", 1)
         q.set_counter("MOBNAME")
     end
	 when MOBVNUM.kill begin
        local count = pc.getqf("state") - 1
        if count <= 1 then
            pc.setqf("state", count)
            q.set_counter("MOBNAME", count)
        end
            if count == 0 then
            say_title("MOBNAMEquest")
            say("Gehe zum Eisph�nix und erstatte ihm Bericht.") 
            local v = find_npc_by_vnum(34003) 
            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix") 
            end 
        end 
        when __TARGET__.target.click or 34006.chat."Bericht erstatten" begin 
            say_title("Da bist du ja!") 
            say("Es sieht so aus als ob du alle Aufgaben bestanden hast.") 
			say("Nur bist du noch lange nicht fertig.")
            local v = find_npc_by_vnum(34007) 
            if v != 0 then target.vid("__TARGET__", v, "Kahn") 
            end 
		end
        when __TARGET__.target.click or 34007.chat."Dich habe ich gesucht" begin 
            say_title("Hi ich bin Kahn") 
            say("Danke das du vorbei gekommen bist.")
			say("Ich ben�tige durchaus deine Hilfe.")
			say("K�nntest du vielleicht Porky und Rufus sagen,")
			say("dass ich sie gerne mal wieder sehen w�rde?")
		    local v = find_npc_by_vnum(34005) 
            if v != 0 then target.vid("__TARGET__", v, "Porkie") 
            end 
        end 
        when __TARGET__.target.click or 34005.chat."Nachricht von Kahn" begin 
            say_title("Was gibts denn?") 
            say("Vielen Dank f�r die Nachricht.") 
			say("Jetzt gehe noch zu Rufus und teile es ihm auch mit.")
		    local v = find_npc_by_vnum(34006) 
            if v != 0 then target.vid("__TARGET__", v, "Rufus") 
            end 
        when __TARGET__.target.click or 34006.chat."Nachricht von Kahn" begin 
            say_title("Was gibts denn?") 
            say("Vielen Dank f�r die Nachricht.") 
			say("Gehe am besten wieder zur�ck zu Kahn.")
			say("Ich glaube du kannst noch etwas f�r ihn tun.")
        end 
        when 34007.chat."Leonidas der Mutige" begin 
            say_title("Leonidas ben�tigt deine Hilfe") 
            say("Gehe zu Leonidas und hilf ihm.")
			say("Du k�nntest ihm von Nutzen sein.")
            local v = find_npc_by_vnum(34008) 
            if v != 0 then target.vid("__TARGET__", v, "Leonidas") 
            end 
        end 
        when __TARGET__.target.click or 34008.chat."Ich soll dir helfen?" begin 
            say_title("Da bist du ja!") 
            say("Du musst schnell los und etwas Eis f�r Bambi besorgen!")   
            set_state(go_to_disciple)
            pc.setqf("collect_count",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Auftrag von Leonidas")

        end
        when button or info begin
            say_title("Eis f�r Bambi")
            ---                                                   l
            say("")
            say("Leonidas ben�tigt etwas Eis f�r Bambi.")
            say("Das Item bekommst du von MOBNAME")
            say("Viel Erfolg!")
            say("")
            say_item_vnum(ITEMID)
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
            say("")
        end

        when MOBID.kill begin
            if pc.count_item(ITEMID)<1-pc.getqf("collect_count") then
                pc.give_item2(ITEMID, 1)
            end
        end

        when 34002.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin
                say("Einen Moment!")
                say("Ich muss erst �berpr�fen,")
                say("ob es k�hl genug ist.")
                say("")
                pc.remove_item(ITEMID, 1)
                wait()

                local pass_percent       
                    pass_percent=100
                end

                local s= number(1,100)
            if s<= pass_percent  then
               if pc.getqf("collect_count")< 1 then     --5*ӥH�U 
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1
                        say("Gut das ist k�hl genug.")
                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")
                        say("Bring mir die Andere.")
                        say("")
                        return
                    end
                    say("Oh ja. So ist es gut.")
                    say("Vielen Dank f�r das Eis.")
                    say("Daf�r bekommst du nat�rlich was.")
                    pc.setqf("collect_count",0)
                    clear_letter()
                    set_state(__complete)

                    pc.change_money(ZAHL)
                    pc.give_exp2(ZAHL)
					pc.give_item2(ITEMID, 1)
                    set_quest_state("levelup","run")


                    return
                else                                
                say("Biologe :")
                say("Dieses Item ist von schlechter Qualit�t!")
                say("Es kann nicht verwendet werden.")
                say("Hole mir ein neues!")
                say("")
                pc.setqf("drink_drug",0)     --�Ĥ���l��
                return
                end
			end
		end
        when 34002.chat."Danksagung an Leonidas" begin 
            say_title("Vielen Dank") 
            say("Gehe zu Leonidas und bedanke dich in meinem Namen.") 
            local v = find_npc_by_vnum(34008) 
            if v != 0 then target.vid("__TARGET__", v, "Leonidas") 
            end 
        end 
        when __TARGET__.target.click or 34008.chat."Danksagung von Bambi" begin 
            say_title("Vielen Dank") 
            say("Ach, das war soch selbstverst�ndlich.")
			say("Nun gehe zum Eisph�nix und aktualisiere bei ihm deinen Fortschritt.")
            local v = find_npc_by_vnum(34003) 
            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix") 
            end 
		end 
        when __TARGET__.target.click or 34003.chat."Zur�ck zu Leonidas" begin 
            say_title("Ich bin zur�ck.") 
            say("Ich m�chte mich auch bei dir f�r alles bedanken,")
			say("Was du f�r uns getan hast.")
			say("Ich glaube Bambi hat noch einen letzten Auftrag f�r dich.")
            local v = find_npc_by_vnum(34002) 
            if v != 0 then target.vid("__TARGET__", v, "Bambi") 
			end
		end
        when __TARGET__.target.click or 34002.chat."Bambis letzter Auftrag" begin 
            say_title("Besuche meine Schwester") 
            say("Bitte gehe doch zu meiner Schwester und schaue,")
			say("ob bei ihr alles in Ordnung ist.")
            local v = find_npc_by_vnum(34010) 
            if v != 0 then target.vid("__TARGET__", v, "Bambi") 
			end
		end
        when __TARGET__.target.click or 34010.chat."Etwas Eis �birg?" begin 
            say_title("Eis ben�tigt.") 
            say("Bitte geh und besorge mir auch etwas Eis!")   
            set_state(go_to_disciple)
            pc.setqf("collect_count",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Auftrag von Bambi")

        end
        when button or info begin
            say_title("Eis f�r Bambi")
            ---                                                   l
            say("")
            say("Bambie ben�tigt etwas Eis.")
            say("Das Item bekommst du von MOBNAME")
            say("Viel Erfolg!")
            say("")
            say_item_vnum(ITEMID)
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
            say("")
        end

        when MOBID.kill begin
            if pc.count_item(ITEMID)<1-pc.getqf("collect_count") then
                pc.give_item2(ITEMID, 1)
            end
        end

        when 34010.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin
                say("Oh vielen Dank!")
                say("")
                pc.remove_item(ITEMID, 1)
                wait()

                local pass_percent       
                    pass_percent=100
                end

                local s= number(1,100)
            if s<= pass_percent  then
               if pc.getqf("collect_count")< 1 then     --5*ӥH�U 
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1
                        say("Gut das ist k�hl genug.")
                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")
                        say("Bring mir die Andere.")
                        say("")
                        return
                    end
                    say("Oh ja. So ist es gut.")
                    say("Vielen Dank f�r das Eis.")
                    say("Daf�r bekommst du nat�rlich was.")
                    pc.setqf("collect_count",0)
                    clear_letter()
                    set_state(__complete)

                    pc.change_money(ZAHL)
                    pc.give_exp2(ZAHL)
					pc.give_item2(ITEMID, 1)
                    set_quest_state("levelup","run")


                    return
                else                                
                say("Biologe :")
                say("Dieses Item ist von schlechter Qualit�t!")
                say("Es kann nicht verwendet werden.")
                say("Hole mir ein neues!")
                say("")
                pc.setqf("drink_drug",0)     --�Ĥ���l��
                return
                end
			end
		end
        when 34010.chat."Rede mit Feuerph�nix" begin 
            say_title("Rede mit Feuerph�nix") 
            say("Gehe zu Feuerph�nix, Eisph�nix Schwester.") 
            local v = find_npc_by_vnum(34001) 
            if v != 0 then target.vid("__TARGET__", v, "Feuerph�nix") 
            end 
        end 
        when __TARGET__.target.click or 34001.chat."Sei gegruesst." begin 
            say_title("Sei gegruesst") 
            say("Ich bin Feuerph�nix.")
			say("K�nntest du mir bitte helfen?")
			say("Du musst nur 100 MOBNAME t�ten.")
			pc.setqf("state", 1)
			q.set_counter("MOBNAME")
		end

        when MOBVNUM.kill begin
          local count = pc.getqf("state") - 1
          if count <= 1 then
             pc.setqf("state", count)
             q.set_counter("MOBNAME", count)
          end
            if count == 0 then
             say_title("MOBNAMEquest")
             say("")
               pc.change_money(ZAHL)
               pc.give_exp2(ZAHL)
               pc.give_item2(ITEMID, 1)
                set_state(__COMPLETE__)
				
            end
        end
        when 34001.chat."Gehe nun zur�ck zu Eisph�nix" begin 
            say_title("Eisph�nixs letzter Auftrag") 
            say("Eisph�nix ben�tigt dich noch einmal f�r einen Auftrag.")
			say("Gehe zu ihm und erfahre um was es geht.") 
            local v = find_npc_by_vnum(34003) 
            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix") 
            end 
        end 
        when __TARGET__.target.click or 34003.chat."Der letzte Auftrag" begin 
            say_title("Aufgabenerkl�rung") 
            say("Nun bist du mit allem fertig.")
			say("Nun ja, beinahe.")
			say("Nun kommt der letzte und ultimative Auftrag!")
			say("Du musst nun den Roten Drachen t�ten!")
			say("Ich w�nsche dir viel Gl�ck und Erfolg!")
			pc.setqf("state", 1)
			q.set_counter("Roter Drache")
		end

        when 2291.kill begin
          local count = pc.getqf("state") - 1
          if count <= 1 then
             pc.setqf("state", count)
             q.set_counter("Roter Drache", count)
          end
            if count == 0 then
            say_title("Der letzte Auftrag")
            say("Nun hast du einen Feuerph�nix,")
			say("der dich auf deinem Weg begleiten wird!")
            say("Herlichen Gl�ckwunsc!")
				pc.give_item2(53001, 1)
                set_state(__COMPLETE__)

            end
        end
    end

    state __COMPLETE__ begin
   end
end

#PUSH

07/03/2013 18:14 depa95#8442

Quote:

Originally Posted by Scarified

#PUSH

probier es mal so

Spoiler

PHP Code:


			
quest test begin 

    state start begin 

        when 34003.chat."Gehe zu Rufus" begin 

            say_title("Hey,") 

            say("Gehe und suche Rufus.")

            say("Er ben�tigt deine Hilfe.")

            local v = find_npc_by_vnum(34006) 

            if v != 0 then target.vid("__TARGET__", v, "Rufus") 

            end 

        end 

        when __TARGET__.target.click or 34006.chat."Rufus gefunden!" begin 

            say_title("Hallo, mein Name lautet Rufus.") 

            say("Eisph�nix hat dich geschickt?")

            say("Ok, dann kannst du mir ja helfen")

            say("Du musst nur 20 MOBNAME t�ten.")

            pc.setqf("state", 1)

         q.set_counter("MOBNAME")

     end



        when MOBVNUM.kill begin

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

          if count <= 1 then

             pc.setqf("state", count)

             q.set_counter("MOBNAME", count)

          end

            if count == 0 then

             say_title("MOBNAMEquest")

             say("")

               pc.change_money(ZAHL)

               pc.give_exp2(ZAHL)

               pc.give_item2(ITEMID, 1)

                set_state(__COMPLETE__)

                

            end

        end

        when 34006.chat."Gebe Porkie Bescheid" begin 

            say_title("Gebe Porkie Bescheid") 

            say("Bitte gehe doch zu Porkie und sage ihm,")

            say("dass Rufus dich schickt und du ihm helfen sollst.") 

            local v = find_npc_by_vnum(34005) 

            if v != 0 then target.vid("__TARGET__", v, "Porkie") 

            end 

        end 

        when 34005.chat."Sammelname Quest" begin

            say("Ich suche seit langem ITEMNAME.")

            say("Leider bekommst man sie nur von MOBNAME.")

            say("K�nntest du mir 10 davon holen?")

            say("MOBNAME sind leider zu stark f�r mich.")

            say("")    

            set_state(go_to_disciple)

            pc.setqf("collect_count",0)

        end

    end



    state go_to_disciple begin

        when letter begin

            send_letter("Auftrag von Porkie")



        end

        when button or info begin

            say_title("ITEMNAME")

            say("")

            say("Porkie ben�tigt 10 ITEMNAME")

            say("Das Item bekommst du von MOBNAME")

            say("Viel Erfolg!")

            say("")

            say_item_vnum(ITEMID)

            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")

            say("")

        end



        when MOBID.kill begin

            if pc.count_item(ITEMID)<10-pc.getqf("collect_count") then

                pc.give_item2(ITEMID, 1)

            end

        end



        when 34005.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin

                say("Einen Moment!")

                ---                                                   l

                say("Ich muss erst �berpr�fen,")

                say("ob das ein Original ist.")

                say("")

                pc.remove_item(ITEMID, 1)

                wait()



                local pass_percent

                if pc.getqf("drink_drug")==0 then

                    pass_percent=100

                else        

                    pass_percent=100

                end





                local s= number(1,100)

            if s<= pass_percent  then

               if pc.getqf("collect_count")< 9 then     --5*ӥH�U 

                        local index =pc.getqf("collect_count")+1 

                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1

                        say("Gut das ist ein Originales.")

                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")

                        say("Bring mir die Andere.")

                        say("")

                        return

                    end

                    say("Ok. Das war das letzte.")

                    say("F�r deine M�he bekommst du:")

                    say("")

                    pc.setqf("collect_count",0)

                    clear_letter()

                    set_state(__complete)



                    pc.change_money(ZAHL)

                    pc.give_exp2(ZAHL)

                    pc.give_item2(ITEMID, 1)

                    set_quest_state("levelup","run")





                    return

                else                                

                say("Biologe :")

                say("Dieses Item ist von schlechter Qualit�t!")

                say("Es kann nicht verwendet werden.")

                say("Hole mir ein neues!")

                say("")

                pc.setqf("drink_drug",0)     --�Ĥ���l��

                return

                end

            end

        end



    state start begin         

        when 34005.chat."Gehe zu Rufus" begin 

            say_title("Rufus auffinden") 

            say("Gehe zu Rufus und erz�hle ihm von deinem Sieg.") 

            local v = find_npc_by_vnum(34006) 

            if v != 0 then target.vid("__TARGET__", v, "Rufus") 

            end 

        end 

        when __TARGET__.target.click or 34006.chat."Von Sieg erz�hlen" begin 

            say_title("Willkommen zur�ck!") 

            say("War Porkie zufrieden mit dir?") 

            say("Das Freut mich aber.")

        end 

        when __TARGET__.target.click or 34006.chat."Auftrag von Porkie" begin 

            say_title("Einen gefallen musst du mir noch tun.") 

            say("MOBNAME haben mich oft �berfallen.")

            say("Gehe in meinem Namen zu denen und nimm Rache.")

            say("Du musst nur 50 MOBNAME t�ten.")

            pc.setqf("state", 1)

         q.set_counter("MOBNAME")

     end

     when MOBVNUM.kill begin

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

        if count <= 1 then

            pc.setqf("state", count)

            q.set_counter("MOBNAME", count)

        end

            if count == 0 then

            say_title("MOBNAMEquest")

            say("Gehe zum Eisph�nix und erstatte ihm Bericht.") 

            local v = find_npc_by_vnum(34003) 

            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix") 

            end 

        end 

        when __TARGET__.target.click or 34006.chat."Bericht erstatten" begin 

            say_title("Da bist du ja!") 

            say("Es sieht so aus als ob du alle Aufgaben bestanden hast.") 

            say("Nur bist du noch lange nicht fertig.")

            local v = find_npc_by_vnum(34007) 

            if v != 0 then target.vid("__TARGET__", v, "Kahn") 

            end 

        end

        when __TARGET__.target.click or 34007.chat."Dich habe ich gesucht" begin 

            say_title("Hi ich bin Kahn") 

            say("Danke das du vorbei gekommen bist.")

            say("Ich ben�tige durchaus deine Hilfe.")

            say("K�nntest du vielleicht Porky und Rufus sagen,")

            say("dass ich sie gerne mal wieder sehen w�rde?")

            local v = find_npc_by_vnum(34005) 

            if v != 0 then target.vid("__TARGET__", v, "Porkie") 

            end 

        end 

        when __TARGET__.target.click or 34005.chat."Nachricht von Kahn" begin 

            say_title("Was gibts denn?") 

            say("Vielen Dank f�r die Nachricht.") 

            say("Jetzt gehe noch zu Rufus und teile es ihm auch mit.")

            local v = find_npc_by_vnum(34006) 

            if v != 0 then target.vid("__TARGET__", v, "Rufus") 

            end 

        when __TARGET__.target.click or 34006.chat."Nachricht von Kahn" begin 

            say_title("Was gibts denn?") 

            say("Vielen Dank f�r die Nachricht.") 

            say("Gehe am besten wieder zur�ck zu Kahn.")

            say("Ich glaube du kannst noch etwas f�r ihn tun.")

        end 

        when 34007.chat."Leonidas der Mutige" begin 

            say_title("Leonidas ben�tigt deine Hilfe") 

            say("Gehe zu Leonidas und hilf ihm.")

            say("Du k�nntest ihm von Nutzen sein.")

            local v = find_npc_by_vnum(34008) 

            if v != 0 then target.vid("__TARGET__", v, "Leonidas") 

            end 

        end 

        when __TARGET__.target.click or 34008.chat."Ich soll dir helfen?" begin 

            say_title("Da bist du ja!") 

            say("Du musst schnell los und etwas Eis f�r Bambi besorgen!")   

            set_state(go_to_disciple)

            pc.setqf("collect_count",0)

        end

    end



    state go_to_disciple begin

        when letter begin

            send_letter("Auftrag von Leonidas")



        end

        when button or info begin

            say_title("Eis f�r Bambi")

            ---                                                   l

            say("")

            say("Leonidas ben�tigt etwas Eis f�r Bambi.")

            say("Das Item bekommst du von MOBNAME")

            say("Viel Erfolg!")

            say("")

            say_item_vnum(ITEMID)

            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")

            say("")

        end



        when MOBID.kill begin

            if pc.count_item(ITEMID)<1-pc.getqf("collect_count") then

                pc.give_item2(ITEMID, 1)

            end

        end



        when 34002.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin

                say("Einen Moment!")

                say("Ich muss erst �berpr�fen,")

                say("ob es k�hl genug ist.")

                say("")

                pc.remove_item(ITEMID, 1)

                wait()



                local pass_percent       

                    pass_percent=100

                end



                local s= number(1,100)

            if s<= pass_percent  then

               if pc.getqf("collect_count")< 1 then     --5*ӥH�U 

                        local index =pc.getqf("collect_count")+1 

                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1

                        say("Gut das ist k�hl genug.")

                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")

                        say("Bring mir die Andere.")

                        say("")

                        return

                    end

                    say("Oh ja. So ist es gut.")

                    say("Vielen Dank f�r das Eis.")

                    say("Daf�r bekommst du nat�rlich was.")

                    pc.setqf("collect_count",0)

                    clear_letter()

                    set_state(__complete)



                    pc.change_money(ZAHL)

                    pc.give_exp2(ZAHL)

                    pc.give_item2(ITEMID, 1)

                    set_quest_state("levelup","run")





                    return

                else                                

                say("Biologe :")

                say("Dieses Item ist von schlechter Qualit�t!")

                say("Es kann nicht verwendet werden.")

                say("Hole mir ein neues!")

                say("")

                pc.setqf("drink_drug",0)     --�Ĥ���l��

                return

                end

            end

        end

        when 34002.chat."Danksagung an Leonidas" begin 

            say_title("Vielen Dank") 

            say("Gehe zu Leonidas und bedanke dich in meinem Namen.") 

            local v = find_npc_by_vnum(34008) 

            if v != 0 then target.vid("__TARGET__", v, "Leonidas") 

            end 

        end 

        when __TARGET__.target.click or 34008.chat."Danksagung von Bambi" begin 

            say_title("Vielen Dank") 

            say("Ach, das war soch selbstverst�ndlich.")

            say("Nun gehe zum Eisph�nix und aktualisiere bei ihm deinen Fortschritt.")

            local v = find_npc_by_vnum(34003) 

            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix") 

            end 

        end 

        when __TARGET__.target.click or 34003.chat."Zur�ck zu Leonidas" begin 

            say_title("Ich bin zur�ck.") 

            say("Ich m�chte mich auch bei dir f�r alles bedanken,")

            say("Was du f�r uns getan hast.")

            say("Ich glaube Bambi hat noch einen letzten Auftrag f�r dich.")

            local v = find_npc_by_vnum(34002) 

            if v != 0 then target.vid("__TARGET__", v, "Bambi") 

            end

        end

        when __TARGET__.target.click or 34002.chat."Bambis letzter Auftrag" begin 

            say_title("Besuche meine Schwester") 

            say("Bitte gehe doch zu meiner Schwester und schaue,")

            say("ob bei ihr alles in Ordnung ist.")

            local v = find_npc_by_vnum(34010) 

            if v != 0 then target.vid("__TARGET__", v, "Bambi") 

            end

        end

        when __TARGET__.target.click or 34010.chat."Etwas Eis �birg?" begin 

            say_title("Eis ben�tigt.") 

            say("Bitte geh und besorge mir auch etwas Eis!")   

            set_state(go_to_disciple)

            pc.setqf("collect_count",0)

        end

    end



    state go_to_disciple begin

        when letter begin

            send_letter("Auftrag von Bambi")



        end

        when button or info begin

            say_title("Eis f�r Bambi")

            ---                                                   l

            say("")

            say("Bambie ben�tigt etwas Eis.")

            say("Das Item bekommst du von MOBNAME")

            say("Viel Erfolg!")

            say("")

            say_item_vnum(ITEMID)

            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")

            say("")

        end



        when MOBID.kill begin

            if pc.count_item(ITEMID)<1-pc.getqf("collect_count") then

                pc.give_item2(ITEMID, 1)

            end

        end



        when 34010.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin

                say("Oh vielen Dank!")

                say("")

                pc.remove_item(ITEMID, 1)

                wait()



                local pass_percent       

                    pass_percent=100

                end



                local s= number(1,100)

            if s<= pass_percent  then

               if pc.getqf("collect_count")< 1 then     --5*ӥH�U 

                        local index =pc.getqf("collect_count")+1 

                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1

                        say("Gut das ist k�hl genug.")

                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")

                        say("Bring mir die Andere.")

                        say("")

                        return

                    end

                    say("Oh ja. So ist es gut.")

                    say("Vielen Dank f�r das Eis.")

                    say("Daf�r bekommst du nat�rlich was.")

                    pc.setqf("collect_count",0)

                    clear_letter()

                    set_state(__complete)



                    pc.change_money(ZAHL)

                    pc.give_exp2(ZAHL)

                    pc.give_item2(ITEMID, 1)

                    set_quest_state("levelup","run")





                    return

                else                                

                say("Biologe :")

                say("Dieses Item ist von schlechter Qualit�t!")

                say("Es kann nicht verwendet werden.")

                say("Hole mir ein neues!")

                say("")

                pc.setqf("drink_drug",0)     --�Ĥ���l��

                return

                end

            end

        end

        when 34010.chat."Rede mit Feuerph�nix" begin 

            say_title("Rede mit Feuerph�nix") 

            say("Gehe zu Feuerph�nix, Eisph�nix Schwester.") 

            local v = find_npc_by_vnum(34001) 

            if v != 0 then target.vid("__TARGET__", v, "Feuerph�nix") 

            end 

        end 

        when __TARGET__.target.click or 34001.chat."Sei gegruesst." begin 

            say_title("Sei gegruesst") 

            say("Ich bin Feuerph�nix.")

            say("K�nntest du mir bitte helfen?")

            say("Du musst nur 100 MOBNAME t�ten.")

            pc.setqf("state", 1)

            q.set_counter("MOBNAME")

        end



        when MOBVNUM.kill begin

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

          if count <= 1 then

             pc.setqf("state", count)

             q.set_counter("MOBNAME", count)

          end

            if count == 0 then

             say_title("MOBNAMEquest")

             say("")

               pc.change_money(ZAHL)

               pc.give_exp2(ZAHL)

               pc.give_item2(ITEMID, 1)

                set_state(__COMPLETE__)

                

            end

        end

        when 34001.chat."Gehe nun zur�ck zu Eisph�nix" begin 

            say_title("Eisph�nixs letzter Auftrag") 

            say("Eisph�nix ben�tigt dich noch einmal f�r einen Auftrag.")

            say("Gehe zu ihm und erfahre um was es geht.") 

            local v = find_npc_by_vnum(34003) 

            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix") 

            end 

        end 

        when __TARGET__.target.click or 34003.chat."Der letzte Auftrag" begin 

            say_title("Aufgabenerkl�rung") 

            say("Nun bist du mit allem fertig.")

            say("Nun ja, beinahe.")

            say("Nun kommt der letzte und ultimative Auftrag!")

            say("Du musst nun den Roten Drachen t�ten!")

            say("Ich w�nsche dir viel Gl�ck und Erfolg!")

            pc.setqf("state", 1)

            q.set_counter("Roter Drache")

        end



        when 2291.kill begin

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

          if count <= 1 then

             pc.setqf("state", count)

             q.set_counter("Roter Drache", count)

          elseif count == 0 then

            say_title("Der letzte Auftrag")

            say("Nun hast du einen Feuerph�nix,")

            say("der dich auf deinem Weg begleiten wird!")

            say("Herlichen Gl�ckwunsc!")

                pc.give_item2(53001, 1)

                set_state(__COMPLETE__)



            end

        end

    end



    state __COMPLETE__ begin

   end

end

07/03/2013 19:52 Scarified#8443

Da kommt

Quote:

syntax error : [string "start"]:13: unexpected symbol near 'when'
pet_city.quest:284:Error occured on compile pet_city.quest

Spoiler

Code:

quest test begin  
    state start begin  
        when 34003.chat."Gehe zu Rufus" begin  
            say_title("Hey,")  
            say("Gehe und suche Rufus.") 
            say("Er ben�tigt deine Hilfe.") 
            local v = find_npc_by_vnum(34006)  
            if v != 0 then target.vid("__TARGET__", v, "Rufus")  
            end  
        end  
        when __TARGET__.target.click or 34006.chat."Rufus gefunden!" begin  
            say_title("Hallo, mein Name lautet Rufus.")  
            say("Eisph�nix hat dich geschickt?") 
            say("Ok, dann kannst du mir ja helfen") 
            say("Du musst nur 20 MOBNAME t�ten.") 
            pc.setqf("state", 1) 
         q.set_counter("MOBNAME") 
     end 

        when MOBVNUM.kill begin 
          local count = pc.getqf("state") - 1 
          if count <= 1 then 
             pc.setqf("state", count) 
             q.set_counter("MOBNAME", count) 
          end 
            if count == 0 then 
             say_title("MOBNAMEquest") 
             say("") 
               pc.change_money(ZAHL) 
               pc.give_exp2(ZAHL) 
               pc.give_item2(ITEMID, 1) 
                set_state(__COMPLETE__) 
                 
            end 
        end 
        when 34006.chat."Gebe Porkie Bescheid" begin  
            say_title("Gebe Porkie Bescheid")  
            say("Bitte gehe doch zu Porkie und sage ihm,") 
            say("dass Rufus dich schickt und du ihm helfen sollst.")  
            local v = find_npc_by_vnum(34005)  
            if v != 0 then target.vid("__TARGET__", v, "Porkie")  
            end  
        end  
        when 34005.chat."Sammelname Quest" begin 
            say("Ich suche seit langem ITEMNAME.") 
            say("Leider bekommst man sie nur von MOBNAME.") 
            say("K�nntest du mir 10 davon holen?") 
            say("MOBNAME sind leider zu stark f�r mich.") 
            say("")     
            set_state(go_to_disciple) 
            pc.setqf("collect_count",0) 
        end 
    end 

    state go_to_disciple begin 
        when letter begin 
            send_letter("Auftrag von Porkie") 

        end 
        when button or info begin 
            say_title("ITEMNAME") 
            say("") 
            say("Porkie ben�tigt 10 ITEMNAME") 
            say("Das Item bekommst du von MOBNAME") 
            say("Viel Erfolg!") 
            say("") 
            say_item_vnum(ITEMID) 
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!") 
            say("") 
        end 

        when MOBID.kill begin 
            if pc.count_item(ITEMID)<10-pc.getqf("collect_count") then 
                pc.give_item2(ITEMID, 1) 
            end 
        end 

        when 34005.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin 
                say("Einen Moment!") 
                ---                                                   l 
                say("Ich muss erst �berpr�fen,") 
                say("ob das ein Original ist.") 
                say("") 
                pc.remove_item(ITEMID, 1) 
                wait() 

                local pass_percent 
                if pc.getqf("drink_drug")==0 then 
                    pass_percent=100 
                else         
                    pass_percent=100 
                end 


                local s= number(1,100) 
            if s<= pass_percent  then 
               if pc.getqf("collect_count")< 9 then     --5*ӥH�U  
                        local index =pc.getqf("collect_count")+1  
                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1 
                        say("Gut das ist ein Originales.") 
                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!") 
                        say("Bring mir die Andere.") 
                        say("") 
                        return 
                    end 
                    say("Ok. Das war das letzte.") 
                    say("F�r deine M�he bekommst du:") 
                    say("") 
                    pc.setqf("collect_count",0) 
                    clear_letter() 
                    set_state(__complete) 

                    pc.change_money(ZAHL) 
                    pc.give_exp2(ZAHL) 
                    pc.give_item2(ITEMID, 1) 
                    set_quest_state("levelup","run") 


                    return 
                else                                 
                say("Biologe :") 
                say("Dieses Item ist von schlechter Qualit�t!") 
                say("Es kann nicht verwendet werden.") 
                say("Hole mir ein neues!") 
                say("") 
                pc.setqf("drink_drug",0)     --�Ĥ���l�� 
                return 
                end 
            end 
        end 

    state start begin          
        when 34005.chat."Gehe zu Rufus" begin  
            say_title("Rufus auffinden")  
            say("Gehe zu Rufus und erz�hle ihm von deinem Sieg.")  
            local v = find_npc_by_vnum(34006)  
            if v != 0 then target.vid("__TARGET__", v, "Rufus")  
            end  
        end  
        when __TARGET__.target.click or 34006.chat."Von Sieg erz�hlen" begin  
            say_title("Willkommen zur�ck!")  
            say("War Porkie zufrieden mit dir?")  
            say("Das Freut mich aber.") 
        end  
        when __TARGET__.target.click or 34006.chat."Auftrag von Porkie" begin  
            say_title("Einen gefallen musst du mir noch tun.")  
            say("MOBNAME haben mich oft �berfallen.") 
            say("Gehe in meinem Namen zu denen und nimm Rache.") 
            say("Du musst nur 50 MOBNAME t�ten.") 
            pc.setqf("state", 1) 
         q.set_counter("MOBNAME") 
     end 
     when MOBVNUM.kill begin 
        local count = pc.getqf("state") - 1 
        if count <= 1 then 
            pc.setqf("state", count) 
            q.set_counter("MOBNAME", count) 
        end 
            if count == 0 then 
            say_title("MOBNAMEquest") 
            say("Gehe zum Eisph�nix und erstatte ihm Bericht.")  
            local v = find_npc_by_vnum(34003)  
            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix")  
            end  
        end  
        when __TARGET__.target.click or 34006.chat."Bericht erstatten" begin  
            say_title("Da bist du ja!")  
            say("Es sieht so aus als ob du alle Aufgaben bestanden hast.")  
            say("Nur bist du noch lange nicht fertig.") 
            local v = find_npc_by_vnum(34007)  
            if v != 0 then target.vid("__TARGET__", v, "Kahn")  
            end  
        end 
        when __TARGET__.target.click or 34007.chat."Dich habe ich gesucht" begin  
            say_title("Hi ich bin Kahn")  
            say("Danke das du vorbei gekommen bist.") 
            say("Ich ben�tige durchaus deine Hilfe.") 
            say("K�nntest du vielleicht Porky und Rufus sagen,") 
            say("dass ich sie gerne mal wieder sehen w�rde?") 
            local v = find_npc_by_vnum(34005)  
            if v != 0 then target.vid("__TARGET__", v, "Porkie")  
            end  
        end  
        when __TARGET__.target.click or 34005.chat."Nachricht von Kahn" begin  
            say_title("Was gibts denn?")  
            say("Vielen Dank f�r die Nachricht.")  
            say("Jetzt gehe noch zu Rufus und teile es ihm auch mit.") 
            local v = find_npc_by_vnum(34006)  
            if v != 0 then target.vid("__TARGET__", v, "Rufus")  
            end  
        when __TARGET__.target.click or 34006.chat."Nachricht von Kahn" begin  
            say_title("Was gibts denn?")  
            say("Vielen Dank f�r die Nachricht.")  
            say("Gehe am besten wieder zur�ck zu Kahn.") 
            say("Ich glaube du kannst noch etwas f�r ihn tun.") 
        end  
        when 34007.chat."Leonidas der Mutige" begin  
            say_title("Leonidas ben�tigt deine Hilfe")  
            say("Gehe zu Leonidas und hilf ihm.") 
            say("Du k�nntest ihm von Nutzen sein.") 
            local v = find_npc_by_vnum(34008)  
            if v != 0 then target.vid("__TARGET__", v, "Leonidas")  
            end  
        end  
        when __TARGET__.target.click or 34008.chat."Ich soll dir helfen?" begin  
            say_title("Da bist du ja!")  
            say("Du musst schnell los und etwas Eis f�r Bambi besorgen!")    
            set_state(go_to_disciple) 
            pc.setqf("collect_count",0) 
        end 
    end 

    state go_to_disciple begin 
        when letter begin 
            send_letter("Auftrag von Leonidas") 

        end 
        when button or info begin 
            say_title("Eis f�r Bambi") 
            ---                                                   l 
            say("") 
            say("Leonidas ben�tigt etwas Eis f�r Bambi.") 
            say("Das Item bekommst du von MOBNAME") 
            say("Viel Erfolg!") 
            say("") 
            say_item_vnum(ITEMID) 
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!") 
            say("") 
        end 

        when MOBID.kill begin 
            if pc.count_item(ITEMID)<1-pc.getqf("collect_count") then 
                pc.give_item2(ITEMID, 1) 
            end 
        end 

        when 34002.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin 
                say("Einen Moment!") 
                say("Ich muss erst �berpr�fen,") 
                say("ob es k�hl genug ist.") 
                say("") 
                pc.remove_item(ITEMID, 1) 
                wait() 

                local pass_percent        
                    pass_percent=100 
                end 

                local s= number(1,100) 
            if s<= pass_percent  then 
               if pc.getqf("collect_count")< 1 then     --5*ӥH�U  
                        local index =pc.getqf("collect_count")+1  
                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1 
                        say("Gut das ist k�hl genug.") 
                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!") 
                        say("Bring mir die Andere.") 
                        say("") 
                        return 
                    end 
                    say("Oh ja. So ist es gut.") 
                    say("Vielen Dank f�r das Eis.") 
                    say("Daf�r bekommst du nat�rlich was.") 
                    pc.setqf("collect_count",0) 
                    clear_letter() 
                    set_state(__complete) 

                    pc.change_money(ZAHL) 
                    pc.give_exp2(ZAHL) 
                    pc.give_item2(ITEMID, 1) 
                    set_quest_state("levelup","run") 


                    return 
                else                                 
                say("Biologe :") 
                say("Dieses Item ist von schlechter Qualit�t!") 
                say("Es kann nicht verwendet werden.") 
                say("Hole mir ein neues!") 
                say("") 
                pc.setqf("drink_drug",0)     --�Ĥ���l�� 
                return 
                end 
            end 
        end 
        when 34002.chat."Danksagung an Leonidas" begin  
            say_title("Vielen Dank")  
            say("Gehe zu Leonidas und bedanke dich in meinem Namen.")  
            local v = find_npc_by_vnum(34008)  
            if v != 0 then target.vid("__TARGET__", v, "Leonidas")  
            end  
        end  
        when __TARGET__.target.click or 34008.chat."Danksagung von Bambi" begin  
            say_title("Vielen Dank")  
            say("Ach, das war soch selbstverst�ndlich.") 
            say("Nun gehe zum Eisph�nix und aktualisiere bei ihm deinen Fortschritt.") 
            local v = find_npc_by_vnum(34003)  
            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix")  
            end  
        end  
        when __TARGET__.target.click or 34003.chat."Zur�ck zu Leonidas" begin  
            say_title("Ich bin zur�ck.")  
            say("Ich m�chte mich auch bei dir f�r alles bedanken,") 
            say("Was du f�r uns getan hast.") 
            say("Ich glaube Bambi hat noch einen letzten Auftrag f�r dich.") 
            local v = find_npc_by_vnum(34002)  
            if v != 0 then target.vid("__TARGET__", v, "Bambi")  
            end 
        end 
        when __TARGET__.target.click or 34002.chat."Bambis letzter Auftrag" begin  
            say_title("Besuche meine Schwester")  
            say("Bitte gehe doch zu meiner Schwester und schaue,") 
            say("ob bei ihr alles in Ordnung ist.") 
            local v = find_npc_by_vnum(34010)  
            if v != 0 then target.vid("__TARGET__", v, "Bambi")  
            end 
        end 
        when __TARGET__.target.click or 34010.chat."Etwas Eis �birg?" begin  
            say_title("Eis ben�tigt.")  
            say("Bitte geh und besorge mir auch etwas Eis!")    
            set_state(go_to_disciple) 
            pc.setqf("collect_count",0) 
        end 
    end 

    state go_to_disciple begin 
        when letter begin 
            send_letter("Auftrag von Bambi") 

        end 
        when button or info begin 
            say_title("Eis f�r Bambi") 
            ---                                                   l 
            say("") 
            say("Bambie ben�tigt etwas Eis.") 
            say("Das Item bekommst du von MOBNAME") 
            say("Viel Erfolg!") 
            say("") 
            say_item_vnum(ITEMID) 
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!") 
            say("") 
        end 

        when MOBID.kill begin 
            if pc.count_item(ITEMID)<1-pc.getqf("collect_count") then 
                pc.give_item2(ITEMID, 1) 
            end 
        end 

        when 34010.chat."ITEMNAME Quest" with pc.count_item(ITEMID) >0   begin 
                say("Oh vielen Dank!") 
                say("") 
                pc.remove_item(ITEMID, 1) 
                wait() 

                local pass_percent        
                    pass_percent=100 
                end 

                local s= number(1,100) 
            if s<= pass_percent  then 
               if pc.getqf("collect_count")< 1 then     --5*ӥH�U  
                        local index =pc.getqf("collect_count")+1  
                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1 
                        say("Gut das ist k�hl genug.") 
                        say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!") 
                        say("Bring mir die Andere.") 
                        say("") 
                        return 
                    end 
                    say("Oh ja. So ist es gut.") 
                    say("Vielen Dank f�r das Eis.") 
                    say("Daf�r bekommst du nat�rlich was.") 
                    pc.setqf("collect_count",0) 
                    clear_letter() 
                    set_state(__complete) 

                    pc.change_money(ZAHL) 
                    pc.give_exp2(ZAHL) 
                    pc.give_item2(ITEMID, 1) 
                    set_quest_state("levelup","run") 


                    return 
                else                                 
                say("Biologe :") 
                say("Dieses Item ist von schlechter Qualit�t!") 
                say("Es kann nicht verwendet werden.") 
                say("Hole mir ein neues!") 
                say("") 
                pc.setqf("drink_drug",0)     --�Ĥ���l�� 
                return 
                end 
            end 
        end 
        when 34010.chat."Rede mit Feuerph�nix" begin  
            say_title("Rede mit Feuerph�nix")  
            say("Gehe zu Feuerph�nix, Eisph�nix Schwester.")  
            local v = find_npc_by_vnum(34001)  
            if v != 0 then target.vid("__TARGET__", v, "Feuerph�nix")  
            end  
        end  
        when __TARGET__.target.click or 34001.chat."Sei gegruesst." begin  
            say_title("Sei gegruesst")  
            say("Ich bin Feuerph�nix.") 
            say("K�nntest du mir bitte helfen?") 
            say("Du musst nur 100 MOBNAME t�ten.") 
            pc.setqf("state", 1) 
            q.set_counter("MOBNAME") 
        end 

        when MOBVNUM.kill begin 
          local count = pc.getqf("state") - 1 
          if count <= 1 then 
             pc.setqf("state", count) 
             q.set_counter("MOBNAME", count) 
          end 
            if count == 0 then 
             say_title("MOBNAMEquest") 
             say("") 
               pc.change_money(ZAHL) 
               pc.give_exp2(ZAHL) 
               pc.give_item2(ITEMID, 1) 
                set_state(__COMPLETE__) 
                 
            end 
        end 
        when 34001.chat."Gehe nun zur�ck zu Eisph�nix" begin  
            say_title("Eisph�nixs letzter Auftrag")  
            say("Eisph�nix ben�tigt dich noch einmal f�r einen Auftrag.") 
            say("Gehe zu ihm und erfahre um was es geht.")  
            local v = find_npc_by_vnum(34003)  
            if v != 0 then target.vid("__TARGET__", v, "Eisph�nix")  
            end  
        end  
        when __TARGET__.target.click or 34003.chat."Der letzte Auftrag" begin  
            say_title("Aufgabenerkl�rung")  
            say("Nun bist du mit allem fertig.") 
            say("Nun ja, beinahe.") 
            say("Nun kommt der letzte und ultimative Auftrag!") 
            say("Du musst nun den Roten Drachen t�ten!") 
            say("Ich w�nsche dir viel Gl�ck und Erfolg!") 
            pc.setqf("state", 1) 
            q.set_counter("Roter Drache") 
        end 

        when 2291.kill begin 
          local count = pc.getqf("state") - 1 
          if count <= 1 then 
             pc.setqf("state", count) 
             q.set_counter("Roter Drache", count) 
          elseif count == 0 then 
            say_title("Der letzte Auftrag") 
            say("Nun hast du einen Feuerph�nix,") 
            say("der dich auf deinem Weg begleiten wird!") 
            say("Herlichen Gl�ckwunsc!") 
                pc.give_item2(53001, 1) 
                set_state(__COMPLETE__) 

            end 
        end 
    end 

    state __COMPLETE__ begin 
   end 
end

07/03/2013 21:28 vbacoder#8444

PHP Code:


			
quest premium_user begin
    state start begin
        when login with pc.getqf("premium_user")==1 and not npc.is_pc() begin
        end
        when 70010.use with pc.getqf("premium_user")==0 begin
            say_title("Novo-World MT2")
            say(" ")
            say("Mit diesem Item kannst du den VIP Status")
            say("aktivieren. Der VIP Status bleibt")
            say("Permanent! Du Kannst dieses Item nur einmal")
            say("benutzen und nicht weiter handeln.")
            say("Die Krone wurde beim Team beantragt."
            say("Es kann bis zu 4 Werktage dauern, bis du"
            say("sie Ingame Siehst. Wenn dein Name zu lang"
            say("ist, wird er ggf. vom Team gek�rtzt!."
            say(" ")
            say_title("Willst du den Premium Status Aktivieren?")
            
            local s = select("Ja", "Nein")
                
            if s == 1 then
                pc.setqf("premium_user", 1)
                
            else
                return
            end
        end
    end
end

Quote:

syntax error : [string "startpc . getqf ( "premium_user" ) == 0"]:8: `)' expected (to close `(' at line 7) near `say'
premium_user.quest:27:Error occured on compile premium_user.quest

Ist bestimmt nur ein kleiner fehler, aber ich finde ihn nicht :S

07/03/2013 21:51 .Marcel'#8445

Quote:

Originally Posted by vbacoder

PHP Code:

quest premium_user begin state start begin when login with pc.getqf("premium_user")==1 and not npc.is_pc() begin end when 70010.use with pc.getqf("premium_user")==0 begin say_title("Novo-World MT2") say(" ") say("Mit diesem Item kannst du den VIP Status") say("aktivieren. Der VIP Status bleibt") say("Permanent! Du Kannst dieses Item nur einmal") say("benutzen und nicht weiter handeln.") say("Die Krone wurde beim Team beantragt." say("Es kann bis zu 4 Werktage dauern, bis du" say("sie Ingame Siehst. Wenn dein Name zu lang" say("ist, wird er ggf. vom Team gek�rtzt!." say(" ") say_title("Willst du den Premium Status Aktivieren?") local s = select("Ja", "Nein") if s == 1 then pc.setqf("premium_user", 1) else return end end end end

Ist bestimmt nur ein kleiner fehler, aber ich finde ihn nicht :S

Probier das hier mal:

PHP Code:


			
quest premium_user begin

    state start begin

        when login with pc.getqf("premium_user")==1 and not npc.is_pc() begin

        end

        when 70010.use with pc.getqf("premium_user")==0 begin

            say_title("Novo-World MT2")

            say(" ")

            say("Mit diesem Item kannst du den VIP Status")

            say("aktivieren. Der VIP Status bleibt")

            say("Permanent! Du Kannst dieses Item nur einmal")

            say("benutzen und nicht weiter handeln.")

            say("Die Krone wurde beim Team beantragt.")

            say("Es kann bis zu 4 Werktage dauern, bis du")

            say("sie Ingame Siehst. Wenn dein Name zu lang")

            say("ist, wird er ggf. vom Team gek�rtzt!.")

            say(" ")

            say_title("Willst du den Premium Status Aktivieren?")

            

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

                

            if s == 1 then

                pc.setqf("premium_user", 1)

                

            else

                return

            end

        end

    end

end

Page 563 of 845

563