[SERVICE] Die Questkontrolle

Page 571 of 845 « First 71471521561569570 571 572573581621671 Last »
07/13/2013 12:08 ProfessorEnte#8551
Quote:
Originally Posted by ◄ XxWeeDxX ► View Post
danke ;)

Code:
quest questkomplett begin 
    state start begin 
        when levelup with pc.get_level() == 69 begin                             
            say_title("Adelige Botschaft #1")
            say("")  
            say("")  
            say("Es wird gemunkelt, dass sich in manchen")  
            say("gebieten Ungeheuer herum treiben auf die")  
            say("ein sehr hohes Kopfgeld ausgesetzt wurde.")  
            say("Folgendes Ungeheuer wird gesucht:")  
            say_reward("5x Flammenkönig")  
            say_reward("Du findest ihn im Feuerland.")  
            say_reward("")  
            say_reward("")  
            say("")  
            pc.setqf("state", 5)  
            q.set_counter("Flammenkönig", 5)  
        end  
        when 2206.kill begin  
            local count = pc.getqf("state") - 1  
            if count <= 5 then  
                pc.setqf("state", count)  
                q.set_counter("Flammenkönig", count)  
            end  
            if count == 0 then  
                say_title("Adelige Botschaft")  
                say("")  
                say("")  
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.")   
                say("Als Dankeschön wirst du reichlich beschenkt.")  
                say_reward("[ANZAHL] [NAME DES ITEMS]") 
                pc.give_item2([ITEMID], [ANZAHL]) 
                pc.give_item2([ITEMID], [ANZAHL]) 
                clear_letter()  
                set_state(lvl75)  

            end  
        end 
    end 

    state lvl75 begin
      when levelup with pc.get_level() == 74 begin
            say_title("Adelige Botschaft #2")
            say("") 
            say("") 
            say("Nach dem letzten Auftrag hat sich nun ein") 
            say("noch stärkeres Ungeheuer an die Macht gekämpft.") 
            say("Er sollte aber für dich kein Hinderniss sein!") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("5x Dämonenkönig") 
            say_reward("Du findest ihn im Dämonenturm.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 5) 
            q.set_counter("Dämonenkönig", 5) 
        end 

         when 1091.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 5 then 
                pc.setqf("state", count) 
                q.set_counter("Dämonenkönig", count) 
            end 
            if count == 0 then 
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("[ANZAHL] [NAME DES ITEMS]") 
                pc.give_item2([ITEMID], [ANZAHL]) 
                pc.give_item2([ITEMID], [ANZAHL]) 
                clear_letter() 
                set_state(lvl80) 

            end 
        end 
    end 
    state lvl80 begin
       when levelup with pc.get_level() == 79 begin
            say_title("Adelige Botschaft #3")
            say("") 
            say("") 
            say("Der Demonenkönig hat vor seinem Tod die Macht") 
            say("dem Sensenmann überreicht und für Unruhe gesorgt") 
            say("Auch hier bittet dich das Volk um Hilfe!") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("5x Sensenmann") 
            say_reward("Du findest ihn im Dämonenturm.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 5) 
            q.set_counter("Sensenmann", 5) 
        end 

         when 1093.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 5 then 
                pc.setqf("state", count) 
                q.set_counter("Sensenmann", count) 
            end 
            if count == 0 then 
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("[ANZAHL] [NAME DES ITEMS]") 
                pc.give_item2([ITEMID], [ANZAHL]) 
                pc.give_item2([ITEMID], [ANZAHL]) 
                clear_letter() 
                set_state(lvl85) 

            end 
        end 
    end 

    state lvl85begin 
     when levelup with pc.get_level() == 84 begin
            say_title("Adelige Botschaft #4")
            say("") 
            say("") 
            say("Auch der Sensenmann hatte keine Chance gegen dich.") 
            say("Daher haben seine Untertanen Hilfe von weit weg") 
            say("geholt um dich aus dem Weg zu räumen!") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("3x Eishexe") 
            say_reward("Du findest sie in der Grotte.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 3) 
            q.set_counter("Eishexe", 3) 
        end 

         when 1191.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 3 then 
                pc.setqf("state", count) 
                q.set_counter("Eishexe", count) 
            end 
            if count == 0 then 
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("[ANZAHL] [NAME DES ITEMS]") 
                pc.give_item2([ITEMID], [ANZAHL]) 
                pc.give_item2([ITEMID], [ANZAHL]) 
                clear_letter() 
                set_state(lvl90) 

            end 
        end 
    end 

    state lvl90 begin
      when levelup with pc.get_level() == 89 begin
            say_title("Adelige Botschaft #5")
            say("") 
            say("") 
            say("Du hast auch die Eishexe schluss endlich besiegt!") 
            say("Da der Wasserdrache mit der Eishexe befreundet war") 
            say("musst du nun damit rechnen das er dich töten wird.") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("3x Wasserdrache") 
            say_reward("Du findest ihn im Drachenraum.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 3) 
            q.set_counter("Wasserdrache", 3) 
        end 

         when 1191.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 3 then 
                pc.setqf("state", count) 
                q.set_counter("Wasserdrache", count) 
            end 
            if count == 0 then 
		notice_all (pc.get_name().." hat alle Adeligen Aufträge gemeistert!")
                notice_all (pc.get_name().." wird nun als Held anerkannt!")
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Du hast es bis hier her geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("[ANZAHL] [NAME DES ITEMS]") 
                pc.give_item2([ITEMID], [ANZAHL]) 
                pc.give_item2([ITEMID], [ANZAHL]) 
                clear_letter() 
                set_state(fertig) 

            end 
        end 
    end 
    state fertig begin
   end  
end
brauch nochmal eure hilfe :/

syntax error : [string "start"]:14: unexpected symbol near `['
questkomplett.quest:39:Error occured on compile questkomplett.quest
PHP Code:
quest questkomplett begin 
    state start begin 
        when levelup with pc.get_level() == 69 begin                             
            say_title("Adelige Botschaft #1")
            say("")  
            say("")  
            say("Es wird gemunkelt, dass sich in manchen")  
            say("gebieten Ungeheuer herum treiben auf die")  
            say("ein sehr hohes Kopfgeld ausgesetzt wurde.")  
            say("Folgendes Ungeheuer wird gesucht:")  
            say_reward("5x Flammenkönig")  
            say_reward("Du findest ihn im Feuerland.")  
            say_reward("")  
            say_reward("")  
            say("")  
            pc.setqf("state", 5)  
            q.set_counter("Flammenkönig", 5)  
        end  
        when 2206.kill begin  
            local count = pc.getqf("state") - 1  
            if count <= 5 then  
                pc.setqf("state", count)  
                q.set_counter("Flammenkönig", count)  
            end  
            if count == 0 then  
                say_title("Adelige Botschaft")  
                say("")  
                say("")  
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.")   
                say("Als Dankeschön wirst du reichlich beschenkt.")  
                say_reward("ANZAHL [NAME DES ITEMS]") 
                pc.give_item2(ITEMID, ANZAHL) 
                pc.give_item2(ITEMID, ANZAHL) 
                clear_letter()  
                set_state(lvl75)  

            end  
        end 
    end 

    state lvl75 begin
      when levelup with pc.get_level() == 74 begin
            say_title("Adelige Botschaft #2")
            say("") 
            say("") 
            say("Nach dem letzten Auftrag hat sich nun ein") 
            say("noch stärkeres Ungeheuer an die Macht gekämpft.") 
            say("Er sollte aber für dich kein Hinderniss sein!") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("5x Dämonenkönig") 
            say_reward("Du findest ihn im Dämonenturm.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 5) 
            q.set_counter("Dämonenkönig", 5) 
        end 

         when 1091.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 5 then 
                pc.setqf("state", count) 
                q.set_counter("Dämonenkönig", count) 
            end 
            if count == 0 then 
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("ANZAHL [NAME DES ITEMS]") 
                pc.give_item2(ITEMID, ANZAHL) 
                pc.give_item2(ITEMID, ANZAHL) 
                clear_letter() 
                set_state(lvl80) 

            end 
        end 
    end 
    state lvl80 begin
       when levelup with pc.get_level() == 79 begin
            say_title("Adelige Botschaft #3")
            say("") 
            say("") 
            say("Der Demonenkönig hat vor seinem Tod die Macht") 
            say("dem Sensenmann überreicht und für Unruhe gesorgt") 
            say("Auch hier bittet dich das Volk um Hilfe!") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("5x Sensenmann") 
            say_reward("Du findest ihn im Dämonenturm.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 5) 
            q.set_counter("Sensenmann", 5) 
        end 

         when 1093.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 5 then 
                pc.setqf("state", count) 
                q.set_counter("Sensenmann", count) 
            end 
            if count == 0 then 
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("ANZAHL [NAME DES ITEMS]") 
                pc.give_item2(ITEMID, ANZAHL) 
                pc.give_item2(ITEMID, ANZAHL) 
                clear_letter() 
                set_state(lvl85) 

            end 
        end 
    end 

    state lvl85 begin 
        when levelup with pc.get_level() == 84 begin
            say_title("Adelige Botschaft #4")
            say("") 
            say("") 
            say("Auch der Sensenmann hatte keine Chance gegen dich.") 
            say("Daher haben seine Untertanen Hilfe von weit weg") 
            say("geholt um dich aus dem Weg zu räumen!") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("3x Eishexe") 
            say_reward("Du findest sie in der Grotte.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 3) 
            q.set_counter("Eishexe", 3) 
        end 

        when 1191.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 3 then 
                pc.setqf("state", count) 
                q.set_counter("Eishexe", count) 
            end 
            if count == 0 then 
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Hervorragend, du hast es geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("ANZAHL [NAME DES ITEMS]") 
                pc.give_item2(ITEMID, ANZAHL) 
                pc.give_item2(ITEMID, ANZAHL) 
                clear_letter() 
                set_state(lvl90) 
            end 
        end 
    end 

    state lvl90 begin
      when levelup with pc.get_level() == 89 begin
            say_title("Adelige Botschaft #5")
            say("") 
            say("") 
            say("Du hast auch die Eishexe schluss endlich besiegt!") 
            say("Da der Wasserdrache mit der Eishexe befreundet war") 
            say("musst du nun damit rechnen das er dich töten wird.") 
            say("Folgendes Ungeheuer wird gesucht:") 
            say_reward("3x Wasserdrache") 
            say_reward("Du findest ihn im Drachenraum.") 
            say_reward("") 
            say_reward("") 
            say("") 
            pc.setqf("state", 3) 
            q.set_counter("Wasserdrache", 3) 
        end 

        when 1191.kill begin 
            local count = pc.getqf("state") - 1 
            if count <= 3 then 
                pc.setqf("state", count) 
                q.set_counter("Wasserdrache", count) 
            end 
            if count == 0 then 
                notice_all (pc.get_name().." hat alle Adeligen Aufträge gemeistert!")
                notice_all (pc.get_name().." wird nun als Held anerkannt!")
                say_title("Adelige Botschaft") 
                say("") 
                say("") 
                say("Du hast es bis hier her geschafft!") 
                say("Das Volk von Krypton bedankt sich.") 
                say("Als Dankeschön wirst du reichlich beschenkt.") 
                say_reward("ANZAHL [NAME DES ITEMS]") 
                pc.give_item2(ITEMID, ANZAHL) 
                pc.give_item2(ITEMID, ANZAHL) 
                clear_letter() 
                set_state(fertig) 
            end 
        end 
    end 
    state fertig begin
   end  
end 
Quote:
Originally Posted by GoldenLegend View Post
kann mir einer sagen was ich da falsch mache bekomme den fehler öfters ma..

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

Code:
quest nmaps begin
	state start begin
		when 20088.chat."Teleportieren" begin
		local v = select("Spinnendungeon2","50er Farmmap","80er Farmmap","100er Levelmap","Abbrechen")
		if v==1 then
			pc.warp(704100, 464100)
		end
		elseif v==2 then
			pc.warp(42383, 42383)
		end
		elseif v==3 then
			pc.warp(2600428, 2600942)
		end
		else
			return
		end
	end
end
PHP Code:
quest nmaps begin
    state start begin
        when 20088.chat."Teleportieren" begin
        local v = select("Spinnendungeon2","50er Farmmap","80er Farmmap","100er Levelmap","Abbrechen")
        if v==1 then
            pc.warp(704100, 464100)
        elseif v==2 then
            pc.warp(42383, 42383)
        elseif v==3 then
            pc.warp(2600428, 2600942)
        end
    end
end 
07/13/2013 13:04 GoldenLegend#8552
nächster fehler kommt wenn ich die quest einfüge...

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


Code:
quest nmaps begin
    state start begin
        when 20088.chat."Teleportieren" begin
        local v = select("Spinnendungeon2","50er Farmmap","80er Farmmap","100er Levelmap","Abbrechen")
        if v==1 then
            pc.warp(704100, 464100)
        elseif v==2 then
            pc.warp(42383, 42383)
        elseif v==3 then
            pc.warp(2600428, 2600942)
		elseif v==4 then
			pc.warp(2600428, 2600942)
		elseif v==5 then
			return
        end
    end
end
07/13/2013 13:29 CoTzRaiZ-PaiNx#8553
Quote:
Originally Posted by GoldenLegend View Post
nächster fehler kommt wenn ich die quest einfüge...

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


Code:
quest nmaps begin
    state start begin
        when 20088.chat."Teleportieren" begin
        local v = select("Spinnendungeon2","50er Farmmap","80er Farmmap","100er Levelmap","Abbrechen")
        if v==1 then
            pc.warp(704100, 464100)
        elseif v==2 then
            pc.warp(42383, 42383)
        elseif v==3 then
            pc.warp(2600428, 2600942)
		elseif v==4 then
			pc.warp(2600428, 2600942)
		elseif v==5 then
			return
        end
    end
end
Der State brauht ein end,If ein end, when ein end und die Quest ein end. Also fehlt ein end am Ende
07/13/2013 13:54 zуℓση#8554
PHP Code:
quest login begin
    state start begin
        when login begin
                chat("(¯`·._.·•••[ Eupherion ]•••·._.·´¯)")
                chat("Willkommen auf Eupherion !")
                chat("----------------------------------------------------------")
                chat("Homepage: http://www.Eupherion.net/")
                chat("Board: http://board.Eupherion.net/")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[ Eupherion ]•••.¸_)``• .¸_)")
                chat("Dein Eupherion-Team wünscht dir viel Spaß!")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[Der Beginn einer Legende]•••.¸_)``• .¸_)"
            end
        end
    end
end 
07/13/2013 14:07 ProfessorEnte#8555
Quote:
Originally Posted by GoldenLegend View Post
kann mir einer sagen was ich da falsch mache bekomme den fehler öfters ma..

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

Code:
quest nmaps begin
	state start begin
		when 20088.chat."Teleportieren" begin
		local v = select("Spinnendungeon2","50er Farmmap","80er Farmmap","100er Levelmap","Abbrechen")
		if v==1 then
			pc.warp(704100, 464100)
		end
		elseif v==2 then
			pc.warp(42383, 42383)
		end
		elseif v==3 then
			pc.warp(2600428, 2600942)
		end
		else
			return
		end
	end
end
Quote:
Originally Posted by (_8(|) View Post
Der State brauht ein end,If ein end, when ein end und die Quest ein end. Also fehlt ein end am Ende
Huch.. :(


Quote:
Originally Posted by zуℓση View Post
PHP Code:
quest login begin
    state start begin
        when login begin
                chat("(¯`·._.·•••[ Eupherion ]•••·._.·´¯)")
                chat("Willkommen auf Eupherion !")
                chat("----------------------------------------------------------")
                chat("Homepage: http://www.Eupherion.net/")
                chat("Board: http://board.Eupherion.net/")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[ Eupherion ]•••.¸_)``• .¸_)")
                chat("Dein Eupherion-Team wünscht dir viel Spaß!")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[Der Beginn einer Legende]•••.¸_)``• .¸_)"
            end
        end
    end
end 
ein end zuviel.
07/13/2013 15:08 zуℓση#8556
Quote:
Originally Posted by ProfessorEnte View Post
Huch.. :(




ein end zuviel.
ich weiß dass es ein problem mit den ends ist, aber ich habe alles probiert die ends sind auch mit 3 oder 2 perfekt gesetzt, trotzdem will er nicht compilen. habe bereits einige lange komplexe quests geschrieben, nur bei der hakts unerklärlicherweise..^^
07/13/2013 15:29 .LuckyStrike#8557
PHP Code:
quest bank begin
    state start begin
        when 20092.chat."Bank" begin
            local pin = pc.getqf("konto_pin")
            local konto_yang = pc.getqf("konto_yang")
            
            if pin == 0 then
                say_title("Hallo, ".. pc.get_name .." ich bin Ralf, der")
                say("das hier Verwaltet. Da du das erste mal hier bist,")
                say("musst du einen 5 stelligen PIN feslegen.")
                say("")
                say_reward("Bitte einen 5 stelligen PIN eingeben (Nur Zahlen)")
                local pin_eing = tonumber(input("12345"))
                if pin_eing > 9999 and pin_eing < 100000 then
                    say("")
                    say("Dieser PIN ist gut.")
                    say("")
                    say_reward("PIN " ..pin_eing.. " speichern?")
                    local sel=select("Ja", "Nein")
                    if sel==1 then
                        pc.setqf("konto_pin", pin_eing)
                        say("Der PIN wurde gespeichert.")
                        elseif sel==2 then
                        say("Dan ein ander mal.")
                    else
                        say("Kritischer Fehler!")
                        say("Fehler Code umgehend an")
                        say("einen Admin Melden!")
                        say_reward("Fehler Code: 1")
                    end
                elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
                    say("")
                    say("Tut mir leid, etwas stimmt mit deinen")
                    say("PIN nicht.")
                    say("")
                    say_reward("Pin darf nur Zahlen enthalten!")
                    say_reward("Pin darf nicht größer als 99999!")
                    say_reward("Pin dar nicht kleiner als 10000 sein!")
                else
                    say("Kritischer Fehler!")
                    say("Fehler Code umgehend an")
                    say("einen Admin Melden!")
                    say_reward("Fehler Code: 2")
                end
            else
                say("")
                say_reward("Was mächtest du tun?")
                say("")
                local sel=select("Geld einzahlen", "Geld abheben", "Konto Abfragen", "PIN ändern", "Nichts")
                if sel==1 then
                    say("")
                    say("Bitte PIN eingeben.")
                    local pin_abf = tonumber(input(""))
                    if pin_abf == pc.getqf("konto_pin") then
                        say("PIN ist korrekt.")
                        say("Wie viel Geld möchtest du einzahlen?")
                        say_reward("Maximal: 1.999.999.999 Yang")
                        say_reward("In deiner Tasche: " ..pc.get_money()")
                        say("")
                        local geld_auf_konto = tonumber(input(""))
                        local auf_konto_new = tonumber(geld_auf_konto) + pc.getqf("konto_yang")
                        if geld_auf_konto < 0 then
                            say("")
                            say("Das geht leider nicht.")
                        else
                            if pc.get_money() < geld_auf_konto then
                            say("")
                            say("So viel hast du garnicht dabei.")
                        else
                            if auf_konto_new < 2000000000 then
                                pc.change_money(-geld_auf_konto)
                                pc.setqf("konto_yang", auf_konto_new)
                                say("")
                                say("Du hast " ..geld_auf_konto.. " Yang auf dein Konte eingezahlt.")
                            else
                                say("")
                                say("Du kannst nicht so viel Yang auf das Konto")
                                say("einzahlen, dass würde die Maximalmenge von")
                                say("1.999.999.999 Yang überschreiten.")
                            end
                        end
                    end
                else
                    say("")
                    say("Falsche PIN")
                end
            elseif sel==2 then
                say("")
                say("Bitte gib deinen PIN ein.")
                local pin_abf = tonumber(input(""))
                if pin_abf == pc.getqf("konto_pin") then
                    say("PIN ist korrekt.")
                    say("Wie viel Yang möchtest du abheben?")
                    say("")
                    say_reward("Auf Konto: " ..pc.getqf("konto_yang"))
                    say("")
                    local geld_von_konto = tonumber(input(""))
                    if geld_von_konto < 0 then
                        say("")
                        say("Das geht leider nicht.")
                    else
                        if geld_von_konto > pc.getqf("konto_yang") then
                        say("")
                        say("So viel hast du nicht auf dem Konto.")
                    elseif geld_von_konto <= pc.getqf("konto_yang") then
                                local yang_bug_check = pc.get_money() + geld_von_konto
                                if yang_bug_check < 2000000000 then
                                    local auf_konto_new = tonumber(pc.getqf("konto_yang") - geld_von_konto)
                                    pc.setqf("konto_yang", auf_konto_new)
                                    pc.change_money(geld_von_konto)
                                    say("")
                                    say("Du hast " ..geld_von_konto.. " Yang abgehoben.")
                                else
                                    say("")
                                    say("Ich kann dir das Yang nicht geben, weil")
                                    say("du zu viel in deinen Taschen hast.")
                                end
                            end
                        end
                    else
                        say("")
                        say("Falsche PIN")
                    end
                elseif sel==3 then
                    say("Du möchtest also wissen, wie viel")
                    say("Yang du auf dem Konto hast.")
                    say("")
                    say_reward("Kontostand: " ..pc.getqf("konto_yang")")
                elseif sel==4 then
                    say("")
                    say("Bitte gib den Aktuellen PIn ein.")
                    local pin_abf = tonumber(input(""))
                    if pin_abf == pc.getqf("konto_pin") then
                        say("PIN ist korrekt.")
                        say("Bitte den neuen PIN eingeben.")
                        local pin_eing = tonumber(input("12345"))
                        if pin_eing > 9999 and pin_eing < 100000 then
                            say("")
                            say("Der PIN ist korrekt.")
                            say("")
                            say_reward("PIN " ..pin_eing.. " speichern?")
                            local sel=select("Ja", "Nein")
                            if sel==1 then
                                pc.setqf("konto_pin", pin_eing)
                                say("")
                                say("PIN wurde erfolgreich geändert.")
                            elseif sel==2 then
                                say("")
                                say("Dan ein ander mal.")
                            else
                                say("Kritischer Fehler!")
                                say("Fehler Code umgehend einen")
                                say("Admin melden.")
                                say("Fehler Code: 3")
                            end
                        elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
                            say("Tut mir leid, etwas stimmt mit deiner")
                            say("PIN nicht.")
                            say("")
                            say_reward("Pin darf nur Zahlen enthalten!")
                            say_reward("Pin darf nicht größer als 99999")
                            say_reward("Pin darf nicht kleiner als 10000 sein!")
                        else
                            say("Kritischer Fehler!")
                            say("Fehler Code umgehend einen")
                            say("Admin melden.")
                            say("Fehler Code: 4")
                        end
                    else
                        say("")
                        say("Falscher PIN.")
                    end
                elseif sel==5 then
                    say("")
                    say("Dan ein ander mal.")
                else
                    say("Kritischer Fehler!")
                    say("Fehler Code umgehend einen")
                    say("Admin melden.")
                    say("Fehler Code: 5")
                end
            end
        end
    end
end 



LG
07/13/2013 16:35 Mirco'#8558
Quote:
Originally Posted by zуℓση View Post
PHP Code:
quest login begin
    state start begin
        when login begin
                chat("(¯`·._.·•••[ Eupherion ]•••·._.·´¯)")
                chat("Willkommen auf Eupherion !")
                chat("----------------------------------------------------------")
                chat("Homepage: http://www.Eupherion.net/")
                chat("Board: http://board.Eupherion.net/")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[ Eupherion ]•••.¸_)``• .¸_)")
                chat("Dein Eupherion-Team wünscht dir viel Spaß!")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[Der Beginn einer Legende]•••.¸_)``• .¸_)"
            end
        end
    end
end 

Eine Klammer ist falsch und ein End zuviel.

So sollte es gehen:
Code:
quest login begin 
    state start begin 
        when login begin 
            chat("(¯`·._.·•••[ Eupherion ]•••·._.·´¯)") 
            chat("Willkommen auf Eupherion !") 
            chat("----------------------------------------------------------") 
            chat("Homepage: http://www.Eupherion.net/") 
            chat("Board: http://board.Eupherion.net/") 
            chat("----------------------------------------------------------") 
            chat("(_¸.•´´(_¸.•••[ Eupherion ]•••.¸_)``• .¸_)") 
            chat("Dein Eupherion-Team wünscht dir viel Spaß!") 
            chat("----------------------------------------------------------") 
            chat("(_¸.•´´(_¸.•••[Der Beginn einer Legende]•••.¸_)``• .¸_")
        end 
    end 
end
07/13/2013 16:40 ProfessorEnte#8559
Quote:
Originally Posted by zуℓση View Post
ich weiß dass es ein problem mit den ends ist, aber ich habe alles probiert die ends sind auch mit 3 oder 2 perfekt gesetzt, trotzdem will er nicht compilen. habe bereits einige lange komplexe quests geschrieben, nur bei der hakts unerklärlicherweise..^^

Ich hab heut echt kein lauf :D
07/13/2013 17:06 .Xilent#8560
PHP Code:
quest login begin
    state start begin
        when login begin
                chat("(¯`·._.·•••[ Eupherion ]•••·._.·´¯)")
                chat("Willkommen auf Eupherion !")
                chat("----------------------------------------------------------")
                chat("Homepage: http://www.Eupherion.net/")
                chat("Board: http://board.Eupherion.net/")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[ Eupherion ]•••.¸_)``• .¸_)")
                chat("Dein Eupherion-Team wünscht dir viel Spaß!")
                chat("----------------------------------------------------------")
                chat("(_¸.•´´(_¸.•••[Der Beginn einer Legende]•••.¸_)``• .¸_")
            
        end
    end
end 
So müsste es klappen ( )" )
07/13/2013 21:26 gnampf96#8561
quest perlentausch begin
state start begin

when 20097.take with item.vnum == 27992 begin
say("Hey,")
say("Bist du etwa auf der Suche nach einer anderen Perle?")
say("Nun dann bist du hier richtig!!")
say("Ich kann dir Blutrote, Blaue oder Weiße Perlen anbieten")
say("Du Brauchst mindestens 10Weiße Perlen, 1Blaue Perle oder 1Rote Perle.")
say("")
local s = select ("Blaue Perle", "Blutrote Perle", "Nichts von alledem!")

if s == 1 then
if pc.count_item(27992) >= 10 then
pc.removeitem("27992,10")
pc.give_item2("27993,1")
say("Danke dir!")
say("Du erhältst eine Blaue Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
elseif pc.count_item(27992) <= 9 then
say("Du hast zu wenig Perlen")
say("komm wieder wenn du 10 Weiße Perlen hast")
say("")
end
end
if s == 2 then
if pc.count_item(27992) >= 10 then
pc.removeitem("27992,10")
pc.give_item2("27994,1")
say("Danke dir!")
say("Du erhältst eine Blutrote Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
elseif pc.count_item(27992) <= 9 then
say("Du hast zu wenig Perlen")
say("komm wieder wenn du 10 Weiße Perlen hast")
say("")
end
end
end
end

when 20097.take with item.vnum == 27993 begin
say("Hey,")
say("Bist du etwa auf der Suche nach einer anderen Perle?")
say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.")
say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet")
say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.")
say("")
local s = select ("Weiße Perle", "Blutrote Perle", "Nichts von alledem!")

if s == 1 then
if pc.count_item(27993) >= 1 then
pc.removeitem("27993,1")
pc.give_item2("27992,10")
say("Danke dir!")
say("Du erhältst eine Weiße Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
if s == 2 then
if pc.count_item(27993) >= 1 then
pc.removeitem("27993,1")
pc.give_item2("27994,1")
say("Danke dir!")
say("Du erhältst eine Blutrote Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
end
end

when 20097.take with item.vnum == 27994 begin
say("Hey,")
say("Bist du etwa auf der Suche nach einer anderen Perle?")
say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.")
say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet")
say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.")
say("")
local s = select ("Weiße Perle", "Blaue Perle", "Nichts von alledem!")

if s == 1 then
if pc.count_item(27994) >= 1 then
pc.removeitem("27994,1")
pc.give_item2("27992,10")
say("Danke dir!")
say("Du erhältst eine Weiße Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
if s == 2 then
if pc.count_item(27994) >= 1 then
pc.removeitem("27994,1")
pc.give_item2("27993,1")
say("Danke dir!")
say("Du erhältst eine Blaue Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
end
end


was ist an der quest falsch?? bitte helft mir
07/13/2013 21:52 .HC'Destrox#8562
@gnampf96:
Du musst Einrückungen nach jedem If / While / etc. werden, sonst wirst du immer wieder Fehler machen.
Ich habe in meiner Quest nur die Fehler die nichts mit Einrückungen zu tun haben verbessert, die restlichen solltest du nun erkennen.

Neue Quest (noch nicht funktionstüchtig, du musst noch ends entfernen / hinzufügen):
Code:
quest perlentausch begin 
	state start begin 
		when 20097.take with item.vnum == 27992 begin 
			say("Hey,") 
			say("Bist du etwa auf der Suche nach einer anderen Perle?") 
			say("Nun dann bist du hier richtig!!") 
			say("Ich kann dir Blutrote, Blaue oder Weiße Perlen anbieten") 
			say("Du Brauchst mindestens 10Weiße Perlen, 1Blaue Perle oder 1Rote Perle.") 
			say("") 
			local s = select ("Blaue Perle", "Blutrote Perle", "Nichts von alledem!") 
			if s == 1 then 
				if pc.count_item(27992) >= 10 then 
					pc.removeitem("27992,10") 
					pc.give_item2("27993,1") 
					say("Danke dir!") 
					say("Du erhältst eine Blaue Perle") 
					say("Ich hoffe sie wird dir von großem Nutzen sein") 
					say("lieber Abenteurer!") 
					say("")
				else
					say("Du hast zu wenig Perlen")
					say("komm wieder wenn du 10 Weiße Perlen hast")
					say("")
				end
			end 
			if s == 2 then 
				if pc.count_item(27992) >= 10 then 
					pc.removeitem("27992,10") 
					pc.give_item2("27994,1") 
					say("Danke dir!") 
					say("Du erhältst eine Blutrote Perle") 
					say("Ich hoffe sie wird dir von großem Nutzen sein") 
					say("lieber Abenteurer!") 
					say("")
				else
					say("Du hast zu wenig Perlen")
					say("komm wieder wenn du 10 Weiße Perlen hast")
					say("")
				end
			end 
		end 
	end 
	
		when 20097.take with item.vnum == 27993 begin 
			say("Hey,") 
			say("Bist du etwa auf der Suche nach einer anderen Perle?") 
			say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.") 
			say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet") 
			say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.") 
			say("") 
			local s = select ("Weiße Perle", "Blutrote Perle", "Nichts von alledem!") 
			if s == 1 then 
				if pc.count_item(27993) >= 1 then 
					pc.removeitem("27993,1") 
					pc.give_item2("27992,10") 
					say("Danke dir!") 
					say("Du erhältst eine Weiße Perle") 
					say("Ich hoffe sie wird dir von großem Nutzen sein") 
					say("lieber Abenteurer!") 
					say("") 
				end 
			[COLOR="Red"]else[/COLOR]if s == 2 then 
				if pc.count_item(27993) >= 1 then 
					pc.removeitem("27993,1") 
					pc.give_item2("27994,1") 
					say("Danke dir!") 
					say("Du erhältst eine Blutrote Perle") 
					say("Ich hoffe sie wird dir von großem Nutzen sein") 
					say("lieber Abenteurer!") 
					say("") 
				end 
			end 
		end 

		when 20097.take with item.vnum == 27994 begin 
			say("Hey,") 
			say("Bist du etwa auf der Suche nach einer anderen Perle?") 
			say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.") 
			say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet") 
			say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.") 
			say("") 
			local s = select ("Weiße Perle", "Blaue Perle", "Nichts von alledem!") 
			if s == 1 then 
				if pc.count_item(27994) >= 1 then 
					pc.removeitem("27994,1") 
					pc.give_item2("27992,10") 
					say("Danke dir!") 
					say("Du erhältst eine Weiße Perle") 
					say("Ich hoffe sie wird dir von großem Nutzen sein") 
					say("lieber Abenteurer!") 
					say("") 
				end 
			[COLOR="Red"]else[/COLOR]if s == 2 then 
				if pc.count_item(27994) >= 1 then 
					pc.removeitem("27994,1") 
					pc.give_item2("27993,1") 
					say("Danke dir!") 
					say("Du erhältst eine Blaue Perle") 
					say("Ich hoffe sie wird dir von großem Nutzen sein") 
					say("lieber Abenteurer!") 
					say("") 
				end 
			end 
		end
Die end-Fehler sollten nun klar sein...

Mfg,
Destroyer446
07/13/2013 21:53 .LuckyStrike#8563
Quote:
Originally Posted by gnampf96 View Post
quest perlentausch begin
state start begin

when 20097.take with item.vnum == 27992 begin
say("Hey,")
say("Bist du etwa auf der Suche nach einer anderen Perle?")
say("Nun dann bist du hier richtig!!")
say("Ich kann dir Blutrote, Blaue oder Weiße Perlen anbieten")
say("Du Brauchst mindestens 10Weiße Perlen, 1Blaue Perle oder 1Rote Perle.")
say("")
local s = select ("Blaue Perle", "Blutrote Perle", "Nichts von alledem!")

if s == 1 then
if pc.count_item(27992) >= 10 then
pc.removeitem("27992,10")
pc.give_item2("27993,1")
say("Danke dir!")
say("Du erhältst eine Blaue Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
elseif pc.count_item(27992) <= 9 then
say("Du hast zu wenig Perlen")
say("komm wieder wenn du 10 Weiße Perlen hast")
say("")
end
end
if s == 2 then
if pc.count_item(27992) >= 10 then
pc.removeitem("27992,10")
pc.give_item2("27994,1")
say("Danke dir!")
say("Du erhältst eine Blutrote Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
elseif pc.count_item(27992) <= 9 then
say("Du hast zu wenig Perlen")
say("komm wieder wenn du 10 Weiße Perlen hast")
say("")
end
end
end
end

when 20097.take with item.vnum == 27993 begin
say("Hey,")
say("Bist du etwa auf der Suche nach einer anderen Perle?")
say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.")
say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet")
say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.")
say("")
local s = select ("Weiße Perle", "Blutrote Perle", "Nichts von alledem!")

if s == 1 then
if pc.count_item(27993) >= 1 then
pc.removeitem("27993,1")
pc.give_item2("27992,10")
say("Danke dir!")
say("Du erhältst eine Weiße Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
if s == 2 then
if pc.count_item(27993) >= 1 then
pc.removeitem("27993,1")
pc.give_item2("27994,1")
say("Danke dir!")
say("Du erhältst eine Blutrote Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
end
end

when 20097.take with item.vnum == 27994 begin
say("Hey,")
say("Bist du etwa auf der Suche nach einer anderen Perle?")
say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.")
say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet")
say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.")
say("")
local s = select ("Weiße Perle", "Blaue Perle", "Nichts von alledem!")

if s == 1 then
if pc.count_item(27994) >= 1 then
pc.removeitem("27994,1")
pc.give_item2("27992,10")
say("Danke dir!")
say("Du erhältst eine Weiße Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
if s == 2 then
if pc.count_item(27994) >= 1 then
pc.removeitem("27994,1")
pc.give_item2("27993,1")
say("Danke dir!")
say("Du erhältst eine Blaue Perle")
say("Ich hoffe sie wird dir von großem Nutzen sein")
say("lieber Abenteurer!")
say("")
end
end
end


was ist an der quest falsch?? bitte helft mir


Probier es mal so, habe sie nicht getestet.

PHP Code:
quest perlentausch begin 
        state start begin 
            when 20097.take with item.vnum == 27992 begin 
                say("Hey,") 
                say("Bist du etwa auf der Suche nach einer anderen Perle?") 
                say("Nun dann bist du hier richtig!!") 
                say("Ich kann dir Blutrote, Blaue oder Weiße Perlen anbieten") 
                say("Du Brauchst mindestens 10Weiße Perlen, 1Blaue Perle oder 1Rote Perle.") 
                say("") 
                local s = select ("Blaue Perle", "Blutrote Perle", "Nichts von alledem!") 

                if s == 1 then 
                if pc.count_item(27992) >= 10 then 
                pc.removeitem("27992,10") 
                pc.give_item2("27993,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blaue Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("")
                elseif pc.count_item(27992) <= 9 then
                    say("Du hast zu wenig Perlen")
                    say("komm wieder wenn du 10 Weiße Perlen hast")
                    say("")
                end
                if s == 2 then 
                if pc.count_item(27992) >= 10 then 
                pc.removeitem("27992,10") 
                pc.give_item2("27994,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blutrote Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("")
                elseif pc.count_item(27992) <= 9 then
                    say("Du hast zu wenig Perlen")
                    say("komm wieder wenn du 10 Weiße Perlen hast")
                    say("")
                end
            end 

            when 20097.take with item.vnum == 27993 begin 
                say("Hey,") 
                say("Bist du etwa auf der Suche nach einer anderen Perle?") 
                say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.") 
                say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet") 
                say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.") 
                say("") 
                local s = select ("Weiße Perle", "Blutrote Perle", "Nichts von alledem!") 

                if s == 1 then 
                if pc.count_item(27993) >= 1 then 
                pc.removeitem("27993,1") 
                pc.give_item2("27992,10") 
                    say("Danke dir!") 
                    say("Du erhältst eine Weiße Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
                if s == 2 then 
                if pc.count_item(27993) >= 1 then 
                pc.removeitem("27993,1") 
                pc.give_item2("27994,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blutrote Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
            end 

            when 20097.take with item.vnum == 27994 begin 
                say("Hey,") 
                say("Bist du etwa auf der Suche nach einer anderen Perle?") 
                say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.") 
                say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet") 
                say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.") 
                say("") 
                local s = select ("Weiße Perle", "Blaue Perle", "Nichts von alledem!") 

                if s == 1 then 
                if pc.count_item(27994) >= 1 then 
                pc.removeitem("27994,1") 
                pc.give_item2("27992,10") 
                    say("Danke dir!") 
                    say("Du erhältst eine Weiße Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
                if s == 2 then 
                if pc.count_item(27994) >= 1 then 
                pc.removeitem("27994,1") 
                pc.give_item2("27993,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blaue Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
            end 
    end
end 
07/14/2013 01:37 gnampf96#8564
@Destroyer kannst du das mit den ends pls auch noch machen ich bin ein totaler anfänger was quest erstellen angeht :D
07/14/2013 08:22 .LuckyStrike#8565
Quote:
Originally Posted by gnampf96 View Post
@Destroyer kannst du das mit den ends pls auch noch machen ich bin ein totaler anfänger was quest erstellen angeht :D

Ich hoffe, dass ich es auch darf.

PHP Code:
quest perlentausch begin 
    state start begin 
        when 20097.take with item.vnum == 27992 begin 
            say("Hey,") 
            say("Bist du etwa auf der Suche nach einer anderen Perle?") 
            say("Nun dann bist du hier richtig!!") 
            say("Ich kann dir Blutrote, Blaue oder Weiße Perlen anbieten") 
            say("Du Brauchst mindestens 10Weiße Perlen, 1Blaue Perle oder 1Rote Perle.") 
            say("") 
            local s = select ("Blaue Perle", "Blutrote Perle", "Nichts von alledem!") 
            if s == 1 then 
                if pc.count_item(27992) >= 10 then 
                    pc.removeitem("27992,10") 
                    pc.give_item2("27993,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blaue Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("")
                else
                    say("Du hast zu wenig Perlen")
                    say("komm wieder wenn du 10 Weiße Perlen hast")
                    say("")
                end
            end 
            if s == 2 then 
                if pc.count_item(27992) >= 10 then 
                    pc.removeitem("27992,10") 
                    pc.give_item2("27994,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blutrote Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("")
                else
                    say("Du hast zu wenig Perlen")
                    say("komm wieder wenn du 10 Weiße Perlen hast")
                    say("")
                end
            end 
        end  
    
        when 20097.take with item.vnum == 27993 begin 
            say("Hey,") 
            say("Bist du etwa auf der Suche nach einer anderen Perle?") 
            say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.") 
            say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet") 
            say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.") 
            say("") 
            local s = select ("Weiße Perle", "Blutrote Perle", "Nichts von alledem!") 
            if s == 1 then 
                if pc.count_item(27993) >= 1 then 
                    pc.removeitem("27993,1") 
                    pc.give_item2("27992,10") 
                    say("Danke dir!") 
                    say("Du erhältst eine Weiße Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
            elseif s == 2 then 
                if pc.count_item(27993) >= 1 then 
                    pc.removeitem("27993,1") 
                    pc.give_item2("27994,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blutrote Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
            end 
        end 

        when 20097.take with item.vnum == 27994 begin 
            say("Hey,") 
            say("Bist du etwa auf der Suche nach einer anderen Perle?") 
            say("Nun dann bist du hier richtig!! Ich habe Perlen jeder Art.") 
            say("Allerdings bin ich nur innerhalb des Koenigreichs unterwegs, was bedeutet") 
            say("Ich kann dir nur Blutrote, Blaue oder Weiße Perlen anbieten.") 
            say("") 
            local s = select ("Weiße Perle", "Blaue Perle", "Nichts von alledem!") 
            if s == 1 then 
                if pc.count_item(27994) >= 1 then 
                    pc.removeitem("27994,1") 
                    pc.give_item2("27992,10") 
                    say("Danke dir!") 
                    say("Du erhältst eine Weiße Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
            elseif s == 2 then 
                if pc.count_item(27994) >= 1 then 
                    pc.removeitem("27994,1") 
                    pc.give_item2("27993,1") 
                    say("Danke dir!") 
                    say("Du erhältst eine Blaue Perle") 
                    say("Ich hoffe sie wird dir von großem Nutzen sein") 
                    say("lieber Abenteurer!") 
                    say("") 
                end 
            end 
        end
    end
end 



LG
Page 571 of 845 « First 71471521561569570 571 572573581621671 Last »