[SERVICE] Die Questkontrolle

Page 280 of 845 « First 180230270278279 280 281282290330380780 Last »
12/04/2011 12:57 [SoLow]#4186
Heyho,
ich hätte mehrere Fragen / Fehler:

1. Die Quest startet bei Uriel, er zeigt mir aber 2x "Das verlorene Buch" an - Einmal zum Quest annehmen, einmal zum Quest abgeben. Wie mache ich es, dass das zum Quest abgeben erst dann erscheint, sobald ich alle Questitems gesammelt habe?

2. Ich bekomme den Attribut Wert zwar +10, aber das auch nur bis ich einen relog gemacht habe, danach wird er nicht angezeigt - den Wert habe ich auch nicht hinzugefügt bekommen:

-> 3 Vitalität 5292 TP
-> 13 Vitalität 5292 TP

Außerdem kann ich mir den Wert x beliebig oft holen ..

3. Solang ich mich nicht teleportiere oder auslogge, sagt uriel mir das er noch nicht fertig ist .. sobald ich aber relogge, kann ich die Quest direkt abgeben .. wie änder ich das, das es erst noch 24 Stunden geht .. ?

PHP Code:
quest das_verlorene_buch begin
    state start begin
        when login or levelup with pc.get_level() >= 99 begin
            set_state(information)
        end
    end
    
    state information begin
        when letter begin
            send_letter("Das verlorene Buch")
        end
        
        when info or button begin
            say_title("Das verlorene Buch")
            say("")
            say("Uriel sucht nach dir, du solltest zu ihm gehen")
            say("und schauen, ob du ihm behilflich sein kannst.")
        end
        
        when 20011.chat."Das verlorene Buch" begin
            say_title("Das verlorene Buch")
            say("")
            say("Guten Tag, "..pc.get_name().." ich habe etwas höchst")
            say("interessantes gefunden. Informationen über ein lang")
            say("verloren geglaubtes Buch. Diese Informationen")
            say("belegen eindeutig die Existenz dieses Buches.")
            say("Ich denke, das es eine Aufgabe für dich ist, oder?")

            local s = select("Ja", "Nein")
                if s == 1 then
                    say_title("Uriel:")
                    say("")
                    say("Ich wusste, das ich mich auf dich verlassen kann!")
                    say("Die Quellen besagen, dass das innere des Buches,")
                    say("die Seiten, vom äußeren getrennt worden sind.")
                    say("Du musst beide Teile und einen magischen Gegenstand")
                    say("finden mit dem ich das Buch wieder zusammenfügen")
                    say("kann. Mach dich auf die Suche und komme dann")
                    say("wieder zu mir.")
                
                elseif s == 2 then
                    say_title("Uriel:")
                    say("")
                    say("Schade, wenn du es dir anders überlegt hast,")
                    say("komm zu mir zurück.")
                end
        end

    
        when kill with npc.get_race() == 101 begin
            local x = number(1, 100)
                if x <= 50 then
                    pc.give_item2(189, 1)
                    say("Du hast Einband eines Buches erhalten.")
                end
        end
    
        when kill with npc.get_race() == 102 begin
            local y = number(1, 100)
                if y <= 50 then
                    pc.give_item2(188, 1)
                    say_title("Das verlorene Buch")
                    say("")
                    say("Du hast Seiten eines Buches erhalten.")
                end
        end
                        
        when kill with npc.get_race() == 103 begin
            local z = number(1, 100)
                if z <= 90 then
                    pc.give_item2(187, 1)
                    say_title("Das verlorene Buch")
                    say("")
                    say("Du hast Seelenstein des Eises erhalten.")
                end
        end
    
        when 20011.chat."Das verlorene Buch" begin
         if pc.count_item(189) == 0 or pc.count_item(188) == 0 or pc.count_item(189) == 0 then
            say_title("Uriel:")
            say("")
            say("Du hast nicht alle Materialien, komm wieder wenn du")
            say("alles hast.")
        end
         if pc.count_item(189) >= 1 and pc.count_item(188) >= 1 and pc.count_item(189) >= 1 then
            say_title("Uriel:")
            say("")
            say("Du, du hast es geschafft! Die Teile des legendären")
            say("Buches! Genial, ich werde mich sofort an die Arbeit")
            say("machen, um das Buch wieder zusammen zu fügen.")
            say("Jedoch dauert es seine Zeit, es ist besser, wenn du")
            say("morgen wieder kommst.")
            pc.removeitem(189)
            pc.removeitem(188)
            pc.removeitem(187)
                set_state("reward")
            pc.setqf("reward", get_time()+60*60*24)
        end
    end
end
    
    state reward begin
        when 20011.chat."Das verlorene Buch" with get_time() > pc.getqf("reward") begin
            say_title("Uriel:")
            say("")
            say("Einen Moment noch, ich habe es gleich ... Fertig!")
            say("Hier hast du das Buch. Es war viel arbeit, aber")
            say("es hat sich gelohnt. Ich hoffe, es stört dich nicht")
            say("das ich ein wenig darin rumgeblättert habe.")
            say("Du solltest es dir gut überlegen, wem du das Buch")
            say("gibst.")
            pc.give_item2("149", 1)
            say_reward("Du hast das verlorene Buch erhalten.")
        end
        
        when 20011.chat."Das verlorene Buch" with get_time() < pc.getqf("reward") begin
            say_title("Uriel:")
            say("")
            say("Ich brauche noch etwas Zeit, komm später wieder.")
        end
    
        when 9003.chat."Das verlorene Buch" with pc.countitem(149) begin
            say_title("Gemischtwarenhändlerin:")
            say("")
            say("Hallo "..pc.get_name()..", möchtest du Tränke kaufen?")
            wait()
            say_title(""..pc.get_name()..":")
            say("")
            say("Ich habe ein altes Buch, Uriel sagt du hättest")
            say("verwendung dafür - Stimmt das?")
            wait()
            say_title("Gemischtwarenhändlerin:")
            say("")
            say("Oh, tatsächlich! Das Buch existiert wirklich! Die")
            say("Geschichten sind wahr. Ich gebe dir für das Buch")
            say("folgendes:")
            say_reward("Permanent +10 Vitalität")
            say_reward("250.000.000 Yang")
            wait()
            say_title("Gemischtwarenhändlerin:")
            say("")
            say("Möchtest du mir das Buch dafür verkaufen?")
        
            local gemi = select("Ja", "Nein")
                if gemi == 1 then
                    say_title("Gemischtwarenhändlerin:")
                    say("")
                    say("Danke. Hier, deine Belohnung.")
                    say_reward("Du bekommst 10 Vitalität")
                    say("Du bekommst 250.000.000 Yang")
                    pc.removeitem(149)
                    pc.give_gold(250000000)
                    affect.add_collect(apply.CON, 10, 60*60*24*365*5)
                elseif gemi == 2 then
                    say_title("Gemischtwarenhändlerin:")
                    say("")
                    say("Wenn du es mir doch verkaufen möchtest, komm")
                    say("zu mir zurück.")
                end
        end
        
        when 20016.chat."Das verlorene Buch" with pc.countitem(149) begin
            say_title("Schmied:")
            say("")
            say("Hallo, kennst du dieses Buch? Aber nein, natürlich")
            say("nicht. Wieso bist du da?")
            wait()
            say_title(""..pc.get_name()..":")
            say("")
            say("Ich habe ein altes Buch gefunden und dachte, das es")
            say("dir eventuell gefällt.")
            wait()
            say_title("Schmied:")
            say("")
            say("Das ist das Buch, wovon ich jedem erzähle!")
            say("Hör zu, ich brauche das Buch unbedingt, ich biete")
            say("dir tolle Sachen an! Ich könnte dir")
            say_reward("Permanent +10 Intelligenz")
            say_reward("250.000.000 Yang")
            say("bieten. Verkaufst du es mir dafür?")
            
                local schmied = select("Ja","Nein")
                if schmied == 1 then
                pc.removeitem(149)
                    say_title("Schmied:")
                    say("")
                    say("Ich danke dir, hier, deine Belohnung:")
                    say("")
                    say_reward("Du bekommst permanent +10 Intelligenz")
                    say_reward("Du bekommst 250.000.000 Yang")
                    pc.give_gold(250000000)
                    affect.add_collect(apply.INT, 10, 60*60*24*365*5)
                elseif schmied == 2 then
                    say_title("Schmied:")
                    say("")
                    say("Schade, vielleicht ein anderes mal!")
                end
        end
        
        when 20015.chat."Das verlorene Buch" with pc.countitem(149) begin
            say_title("Deok-Bae:")
            say("")
            say("Holzhacken, den ganzen Tag holzhacken. Es nervt!")
            say("Was möchtest du denn von mir?")
            wait()
            say_title(""..pc.get_name()..":")
            say("")
            say("Ich habe hier ein interessantes Buch, willst du es")
            say("dir mal anschauen?")
            wait()
            say_title("Deok-Bae:")
            say("")
            say("Das scheint tatsächlich das Buch zu sein, wovon")
            say("meine Frau mir ständig erzählt. Sie meinte, wenn")
            say("ich es in meine Finger bekomme soll ich es")
            say("mitbringen. Ich gebe dir für das Buch:")
            say("")
            say_reward("Permanent +10 Stärke")
            say_reward("250.000.000 Yang")
            say("")
            say("Möchtest du tauschen?")
            
                local deokbae = select("Ja","Nein")
                    if deokbae == 1 then
                    pc.removeitem(149)
                        say_title("Deok-Bae:")
                        say("")
                        say("Vielen dank, meine Frau wird sich sehr freuen.")
                        say("Hier, nimm deine Belohnung")
                        say("")
                        say_reward("Du bekommst permanent +10 Stärke")
                        say_reward("Du bekommst 250.000.000 Yang")
                        pc.give_gold("250000000")
                        affect.add_collect(apply.STR, 10, 60*60*24*365*5)
                    elseif deokbae == 2 then
                        say_title("Deok-Bae:")
                        say("")
                        say("Wenn meine Frau erfährt, das ich das Buch")
                        say("in meiner Hand hatte .. Sie darf es nicht erfahren.")
                    end
        end
        
        when 20019.chat."Das verlorene Buch" with pc.countitem(149) begin
            say_title("Yang-Shin:")
            say("")
            say("Hallo "..pc.get_name()..", was führt dich zu mir?")
            wait()
            say_title(""..pc.get_name()..":")
            say("")
            say("Ich habe hier ein Buch, Uriel meinte,")
            say("das es dir gefallen könnte.")
            wait()
            say_title("Yang-Shin:")
            say("")
            say("Das ist das Buch, aus dem mir mein Opa")
            say("immer Geschichten vorgelesen hat!")
            say("Ich muss das Buch habe, ich biete dir")
            say("folgendes:")
            say("")
            say_reward("Permanent +10 Beweglichkeit")
            say_reward("250.000.000 Yang")
            say("")
            say("Möchtest du tauschen?")
                
                local yangshin = select("Ja","Nein")
                    if yangshin == 1 then
                        pc.removeitem(149)
                        say_title("Yang-Shin:")
                        say("")
                        say("Vielen dank! Nimm das hier als Zeichen")
                        say("meiner Dankbarkeit.")
                        say("")
                        say_reward("Du bekommst:")
                        say_reward("Permanent +10 Beweglichkeit")
                        say_reward("250.000.000 Yang")
                        say("")
                        pc.give_gold(250000000)
                        affect.add_collect(apply.DEX, 10, 60*60*24*365*5)
                    elseif yangshin == 2 then
                        say_title("Yang-Shin:")
                        say("")
                        say("Schade, falls du es dir nochmal anders überlegst,")
                        say("komm wieder zu mir.")
                        set_state(__COMPLETE__)
                    end
        end
    end
    state __COMPLETE__ begin
end
end 
12/04/2011 15:32 -Roxon-#4187
Kann mir jemand bei dieser quest bitte einfügen, das man nur beim 1 einloggen man dieses item bekommt und nicht nach jedem Relog.


quest give_basic_weapon begin
state start begin
when login begin
if pc.get_level() >= 1 then
pc.give_item2(30120)
end
end
end
end
12/04/2011 16:48 .TaX#4188
Code:
  quest Up Zeugs 2 begin
    state start begin

    when Shop 9007.chat."Up Zeugs 2" begin  
         npc.open_shop(5)
            say("Viel Spaß beim Shoppen")
    end
    when Shop 9007.chat."Up Zeugs 2" begin
         npc.open_shop(5)
            say("Viel Spaß beim Shoppen")
    end

    
    end
end
Wo ist da der Fehler?

Beim Quest no loaden, kriege ich immer nen fehler =/

[Only registered and activated users can see links. Click Here To Register...]
12/04/2011 17:12 xTheSoulutionxx3#4189
PHP Code:
quest give_basic_weapon begin
    state start begin
        when login begin
            if pc.get_level() >= 1 then
            if pc.getqf("basic_weapon") == 0 then
            pc.setqf("basic_weapon", 1)
            pc.give_item2(30120)
                end
            end
        end
    end
end 
12/04/2011 17:12 [SoLow]#4190
der Questname "up zeugs 2" darf soweit ich weiß keine leerzeichen enthalten. Versuch es so:

quest up_zeugs_2 begin

Ein "shop" gehört beim when glaub ich auch nicht hin, bin mir aber nicht sicher
12/04/2011 18:26 [SA]Imbattle#4191
hallo com,
die quest funktioniert nicht:
PHP Code:
quest QuestLv65 begin 
    state start begin 
       when login or levelup with pc.get_level() >= 65 begin 
            set_state(information) 
        end 
    end 
    state information begin 
        when letter begin 
            send_letter("Metinsteine Jeon-Un töten") 
        end 

        when info or button begin 
            say("Hallo du bist nun Stark genug um") 
            say("es mit dem Metinstein Jeon-Un aufzunehmen") 
            say("Gehe in den Roten Wald und vernichte 10 von ihnen") 
            say("") 
            set_state(killmonster)
        q.setqf("state", 0)
        q.set_counter("Metin Jeon-Un", 0)
        end
    end
    
    state killmonster begin
        when letter begin
            send_letter("Töte Metin Jeon-Un")
        end
            when button or info begin
            say_title("Töte Metin Jeon-Un")
            say("Töte 10 Metin Jeon-Un!")
            say("Du musst noch ".." "..pc.getqf("state").." töten")
        end

        when 8027.kill begin
            local count = pc.getqf("state") + 1

            if count < 11 then
            pc.setqf("state", count)
            q.set_counter("Metin Jeon-Un", 10 - count)

            if count >= 15 then
                set_state(fertig)
            
        state fertig begin
            when letter begin
                send_letter("Du hast es geschafft")
            end

            when butten or info begin
                say_title("Du hast es geschafft")
                say("Sehr gut du hast es geschafft")
                say_rward("Du erhältst 4 Reittieresiegel(Gelb)")
                say("")
                say("Tja, leider haben wir noch keine Reittiere")
                say("MfG Imbattle :P:P")
                        clear_letter() 
                        set_state(__COMPLETE__)         
                end 
            end 
     
            state __COMPLETE__ begin 
        end 
end 
kann mir jemand sagen was daran nich stimmt? :D
12/04/2011 19:15 [SoLow]#4192
Fehlermeldung ?
Und es heißt button, nicht butten

2 If ohne ein end geht glaub ich auch nicht, müsste wenn dann elseif oder else heißen.. oder halt if -> end -> if -> end
12/04/2011 20:47 kaufman93#4193
Hey könnt ihr mal bitte bei der quest also das man da erst ab lvl 50 reinkann machen?
Wer voll nett weil ich check das einfach nicht bei mir kackt dann immer Server ab


say ( "" )
say ( "" .. mob_name ( 20087 ) .. "" )
say ( "Die zweite Ebene des" )
say ( "Spinnendungeons ist sehr gefährlich!" )
say ( "Ich hoffe du bist stark genug" )
say ( "für die dort lauernden gefahren..." )
say ( "" )
wait ( )
say ( "" )
say ( "" )
if pc . get_premium_remain_sec ( PREMIUM_EXP ) > 0 then
say ( "" )
say ( "¾¾¾¾..±z¨ã³Æ±ø¥ó¤F." )
say ( "¶i¥h§a." )
say ( "¥u±z¬O°ê®aªº¤@¥÷¤l" )
say ( "´N¯à¥X¤JµLªý.." )
wait ( )
pc . warp ( 704100 , 464100 )
return
end
if pc . count_item ( 27003 ) > 0 then
say ( "" )
say ( "" .. mob_name ( 20087 ) .. "" )
say ( "Ich bringe dich nun in die zweite Ebene!" )
say ( "" )
char_log ( 0 , "GO_SPIDER2" , "USE_ITEM(71095)" )
elseif pc . count_item ( 27002 ) > 0 then
say ( "" )
say ( "" .. mob_name ( 20087 ) .. "" )
say ( "Ich bringe dich nun in die zweite Ebene!" )
say ( "" )
char_log ( 0 , "GO_SPIDER2" , "USE_ITEM(71096)" )
else
say ( "" )
say ( "" .. mob_name ( 20087 ) .. "" )
say ( "Du bist nicht im Besitz eines Passierscheins!" )
say ( "Ich kann dich leider nicht in die zweite Ebene führen..." )
return
end
say ( "Die monster dort oben sind sehr Stark!" )
say ( "Sei vorsichtig!" )
wait ( )
pc . warp ( 704100 , 464100 )
12/04/2011 22:11 albozz88#4194
Hallo Liebe com,

Ich Kenn mich Quest nicht so gut aus aber habe hier ein Fehler und der ist ich mache den quest alles Leuft gut aber wenn ich im Client bei Auftrag auf den quest klicke um zu schauen wie viele ich noch killen muss sobald ich drauf klicke leuft der quest von neu muss dan wieder 50 mobs killen würde mich auf hilfe freuen danke :)

12/04/2011 23:11 [SoLow]#4195
Wirklich, ich am am verzweifeln .. hat wer ne Lösung? Möchte mit der Quest endlich abschließen x_X

12/05/2011 16:52 Sp0ngeb0b ist cool#4196
@ sa imbattle :
PHP Code:
quest level65 begin 
    state start begin 
       when login or levelup with pc.get_level() >= 65 begin 
            set_state(information) 
        end 
    end 
    state information begin 
        when letter begin 
            send_letter("Metinsteine Jeon-Un töten") 
        end 

        when info or button begin 
            say("Hallo du bist nun Stark genug um") 
            say("es mit dem Metinstein Jeon-Un aufzunehmen") 
            say("Gehe in den Roten Wald und vernichte 10 von ihnen") 
            say("") 
            set_state(killmonster)
            q.setqf("state", 10)
            q.set_counter("Metin Jeon-Un", 10)
        end
    end
    
    state killmonster begin
        when letter begin
            send_letter("Töte Metin Jeon-Un")
        end
        when button or info begin
            say_title("Töte Metin Jeon-Un")
            say("Töte 10 Metin Jeon-Un!")
            say("Du musst noch "..pc.getqf("state").." töten")
        end

        when 8027.kill begin
            local count = pc.getqf("state") -1
            if count <= 10 then
                pc.setqf("state", count)
                q.set_counter("Metin Jeon-Un", count)
            end
            if count == 0 then
                set_state(fertig)
                clear_letter()
            end
        end
    end    
    state fertig begin
        when letter begin
            send_letter("Du hast es geschafft")
        end
        when butten or info begin
            say_title("Du hast es geschafft")
            say("Sehr gut du hast es geschafft")
            say_rward("Du erhältst 4 Reittieresiegel(Gelb)")
            say("")
            say("Tja, leider haben wir noch keine Reittiere")
            say("MfG Imbattle :P:P")
            clear_letter() 
            set_state(__COMPLETE__)         
        end 
    end
    state __COMPLETE__ begin 
    end 
end 
bitte auf questnamen achten. "quest" sollte darin nicht enthalten sein

@ albozz :
PHP Code:
quest sub_03 begin
    state start begin
        when login or levelup with pc.level >= 35 begin
            set_state(information)
        end
    end

    state information begin
        when letter begin
            send_letter("Level 35 Auftrag")
        end

        when info or button begin
            say("Das Geheimnis des Schwarzen Orks")
            say("Aha du schon wieder bist sehr Tapfer")
            say("Schwarze Orks haben das OTM übernommen")
            say("Deine Aufgabe:")
            say_reward("Töte 50 Schwarze Orks")
            pc.setqf("state", 50)
            q.set_counter("Schwarze Orks", 50)
            set_state(weiter)
            clear_letter()
        end
    end
    state weiter begin
        when letter begin
            send_letter("Level 35 Auftrag")
        end
        when info or button begin
            say("Das Geheimnis des Schwarzen Orks")
            say("Aha du schon wieder bist sehr Tapfer")
            say("Schwarze Orks haben das OTM übernommen")
            say("Deine Aufgabe:")
            say_reward("Töte 50 Schwarze Orks")
        end
        when 636.kill begin
            local count = pc.getqf("state") - 1
            if count <= 50 then
                pc.setqf("state", count)
                q.set_counter("Schwarze Orks", count)
            end
            if count == 0 then
                say_title("Level 35 Auftrag")
                say("Du hast die Quest erfolgreich abgeschlossen!")
                say_reward("Stein des Todesstoß+9")
                say_reward("Stein des Durchbruchs+9")
                say_reward("Außerdem:")
                say_reward("500 Rangpunkte")
                say_reward("30.000.000 Kronen")
                pc.change_alignment(500)
                pc.change_money(30000000)
                pc.give_item2(28931, 1)
                pc.give_item2(28930, 1)
                clear_letter()
                set_state(__COMPLETE__)
            end
        end
    end
    state __COMPLETE__ begin
    end
end 
auch hier : bitte auf den questnamen achten

@kaufman93 :
PHP Code:
quest spider begin
    state start begin
        when NPC.chat."2. Ebene" begin
            say ( "" )
            say ( "" .. mob_name ( 20087 ) .. "" )
            say ( "Die zweite Ebene des" )
            say ( "Spinnendungeons ist sehr gefährlich!" )
            say ( "Ich hoffe du bist stark genug" )
            say ( "für die dort lauernden gefahren..." )
            say ( "" )
            wait ( )
            say ( "" )
            say ( "" )
            if pc.get_level() >= 50 then
                if pc . count_item ( 27003 ) > 0 then
                    say ( "" )
                    say ( "" .. mob_name ( 20087 ) .. "" )
                    say ( "Ich bringe dich nun in die zweite Ebene!" )
                    say ( "" )
                    say ( "Die monster dort oben sind sehr Stark!" )
                    say ( "Sei vorsichtig!" )
                    wait ( )
                    pc . warp ( 704100 , 464100 )
                else
                    say ( "" )
                    say ( "" .. mob_name ( 20087 ) .. "" )
                    say ( "Du bist nicht im Besitz eines Passierscheins!" )
                    say ( "Ich kann dich leider nicht in die zweite Ebene führen..." )
                    return
                end
            else
                say("Dein Level ist zu niedrig.")
            end
        end
    end
end 
ich war mal so nett und habe die quest vervollständigt :D

NPC durch die richtige npc value ersetzten
die richtige value des benötigten items zum teleporten einfügen(momentan 27003 (ich glaube das sind pots) 27003 kannst du in jede belibiege item value ändern ;)
12/05/2011 17:04 kaufman93#4197
Boar danke dir :=) <3
12/05/2011 18:11 D[o]rado#4198
Hallo,

Ich möchte es gerne so haben wenn man das Item Notiz öffnet,dass mann 5x +5er Steine gegen einen +9er Stein der gleichen Sorte tauschen kann. Die Quest wird geladen doch ich kann die Notiz nicht öffnen.

Code:
quest Stein_Quest begin
	state start begin
		when 30160.use begin
				say_title("Stein Tausch")
				say("")
				say("Ist es dir gelungen fünf Steine+5")
				say("der gleichen Sorte zusammen zutragen?")
				say("")
				say("Wenn du Mit JA antwortest erhälst du im")
				say("Tausch einen Stein derselben Sorte+9")
				local a= select("JA", "NEIN")
				if a==1 then
					say("Dir ist es also gelungen fünf Steine")
					say("von einer Sorte zusammen zutragen")
					say("Wähle nun Die Stein-Sorte aus")
					say("")
				local b= select("Durchbruch",
								"Todesstoß",
								"Wiederkehr",
								"Krieger",
								"Ninja",
								"Sura",
								"Schamane",
								"Monster",
								"Ausweichen",
								"Ducken",
								"Magie",
								"Vitalität",
								"Schutz"
								"Hast",
								"Zurück")
				if b==1 then
					pc.removeitem("28130", 5")
					pc.give_item2("28930", 1")
				end
				
				if b==2 then
					pc.removeitem("28131", 5")
					pc.give_item2("28931", 1")
				end
				
				if b==3 then
					pc.removeitem("28132", 5")
					pc.give_item2("28932", 1")
				end
				
				if b==4 then
					pc.removeitem("28133", 5")
					pc.give_item2("28933", 1")
				end
				
				if b==5 then
					pc.removeitem("28134", 5")
					pc.give_item2("28934", 1")
				end
				
				if b==6 then
					pc.removeitem("28135", 5")
					pc.give_item2("28935", 1")
				end
				
				if b==7 then
					pc.removeitem("28136", 5")
					pc.give_item2("28936", 1")
				end
				
				if b==8 then
					pc.removeitem("28137", 5")
					pc.give_item2("28937", 1")
				end
				
				if b==9 then
					pc.removeitem("28138", 5")
					pc.give_item2("28938", 1")
				end
				
				if b==10 then
					pc.removeitem("28139", 5")
					pc.give_item2("28939", 1")
				end
				
				if b==11 then
					pc.removeitem("28140", 5")
					pc.give_item2("28940", 1")
				end
				
				if b==12 then
					pc.removeitem("28141", 5")
					pc.give_item2("28941", 1")
				end
				
				if b==13 then
					pc.removeitem("28142", 5")
					pc.give_item2("28942", 1")
				end
				
				if b==14 then
					pc.removeitem("28143", 5")
					pc.give_item2("28943", 1")
				end
				
				if b==15 then
					return
				end
			end
		end
	end
end
12/05/2011 19:30 xTheSoulutionxx3#4199
PHP Code:
quest tempel_des_drachen begin
state start begin
        when 30121.chat."Tempel des Drachen" with pc.get_map_index() == 73 begin
        if get_time() > game.get_event_flag("Grotte_time") then
        game.set_event_flag("Grotte_zugang",0)
        end
        if pc.is_gm() then
        say_title(""..mob_name(30121).."")
        say("")
        say("Hallo Gamemaster, "..pc.get_name().."")
        say("Ich lasse dich auch ohne die Schlüssel und")
        say("das Passwort passieren.")
        wait()
        pc.warp(843200, 1066900)
        return
        end
        if pc.count_item("80041") >= 1 then
        say_title(""..mob_name(30121).."")
        say("")
        say("Du hast das GM-Item, du darfst eintreten.")
        wait() 
        pc.warp(843200, 1066900)
        return 
        end
        if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
        say_title(""..mob_name(30121).."")
        say("")
        say("Dir fehlen "..item_name(30179).."")
        say_item_vnum(30179)
        say("Komme wieder wenn du 3 besitzt.")
        return
        end
        if game.get_event_flag("Grotte_zugang") == 1 then
        say_title(""..mob_name(30121).."")
        say("")
        pc.setqf("grotte_passworto", 078954687921)
        if pc.getqf("abgabe") == 1 then
        pc.setqf("abgabe",0)
        say("Du hast bereits deine 3 Schlüssel abgeben.")
        say("Ich lasse dich passieren.")
        pc.setqf("erlaubt",1)
        wait()
        pc.warp(843200, 1066900)
        return
        end
        say("Tut mir Leid, der Raum ist reseviert.")
        say("Wenn du ein die Kennzahl hast für den Zugang,")
        say("gebe sie jetzt bitte ein.")
        local passwort = tonumber(input(""))
        --pc.setqf("grotte_passworto", passwort) 
        if game.get_event_flag("Grotte_passwort") == passwort then
        say_title(""..mob_name(30121).."")
        say("")
        say("Die Kennzahl stimmt überein.")
        if pc.count_item(30179) < 3 then
        say("Ich kann dir den zutritt nicht gewähren")
        say("Dir fehlt "..item_name(30179).."")
        say_item_vnum(30179)
        say("Komme wieder wenn du 3 besitzt.")
        return
        end
        pc.remove_item("30179",3)
        say("Ich gewähre dir den zutritt!")
        pc.setqf("erlaubt",1)
        wait()
        pc.warp(843200, 1066900)
        elseif passi != pc.getqf("grotte_passworto") then
        say_title(""..mob_name(30121).."")
        say("")
        say("Die Kennzahl ist leider falsch.")
        return
        end
        end
        if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
        say_title(""..mob_name(30121).."")
        say("")
        say("Du bist der erste der den Eintritt in den Tempel")
        say("des Drachens verlangt. Ich werde dich passieren")
        say("lassen, sofern du einen gewunden Schlüssel")
        say("besitzt. Bevor du den Raum betreten darfst")
        say("musst du eine geheime Zahl eingeben.")
        say("Diese kannst du innerhalb von 5 Minuten an")
        say("deine Mitstreiter weitergeben, so das auch")
        say("sie den Raum betreten können. ")
        say("")
        say("Bedenke auch das die Macht der Schlüssel nur")
        say("30 Minuten lang hält. In dieser Zeit müsst")
        say("ihr den Drachen besiegt haben.")
        local i = select("Ich bin Bereit", "Abbrechen")
        if 1 == i then
        say_title(""..mob_name(30121).."")
        say("Dann Lege jetzt die kennzahl fest.")
        local passwort = tonumber(input(""))
        if passwort and passwort <= 999999999 and pc.count_item(30179)>=1 then
        game.set_event_flag("Grotte_zugang",1)
        game.set_event_flag("Grotte_passwort",passwort)
        local times = get_time() + 300 --Wartezeit
        game.set_event_flag("Grotte_time", times)
        say_title(""..mob_name(30121).."")
        pc.setqf("abgabe",1)
        say("")
        say("Die Kennzahl lautet:")
        chat("Die Kennzahl lautet für den Tempel des Drachen: "..passwort.."")
        say_reward(""..passwort.."")
        say("Gib die Kennzahl deinen Mitstreitern weiter")
        pc.remove_item("30179",3)
        else 
        say_title(""..mob_name(30121).."")
        say("")
        say("Beim Kennzahl setzen ist ein fehler aufgetreten, versuche es erneut.")
        say("Bitte gebe nur Ziffern ein.")
        timer("skipia_boss_goo", 2)
        end
        end
        end
        end
    when login with pc.get_map_index() == 408 and not pc.is_gm() begin
        if pc.count_item("80041") >= 1 then chat("Tempel des Drachen: Du hast das GM-Item, prüfungen werden geblockt!") return end
        if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 408 then
         chat("Dir ist es nicht erlaubt diese Map zu betreten. "..pc.get_level().." "..pc.getqf("erlaubt").." "..pc.get_map_index().." ")
            warp_to_village()
        end
    when skipia_boss_goo.timer begin
        game.set_event_flag("Grotte_zugang",0)
        d.new_jump_all(408, 8436, 10669)
        d.setf("grotte_boss", 1)
        d.spawn_mob(9012, 239, 173)
        end
    when 8031.kill or 8032.kill or 8033.kill or 8034.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    local n =d.getf("count") + 1
    d.setf("count", n) 
    --notice_all("Metin killed "..n.."")
    if n > 2 then
    local t = number(1,4)
    --notice_all("Spawn Metin")
    if 1 == t then
    d.regen_file("data/dungeon/skia_boss1.txt")
    elseif 2 == t then
    d.regen_file("data/dungeon/skia_boss2.txt")
    elseif 3 == t then
    d.regen_file("data/dungeon/skia_boss3.txt")
    else
    d.regen_file("data/dungeon/skia_boss4.txt")
    end
    end
    end
    when 2493.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
        d.setf("grotte_boss", 3)
        notice_all("Die Gruppe von "..pc.get_name().." hat Beran-Setaou getötet.")
        d.notice("Beeindruckend, ihr habt ihn tatsächlich besiegt.")
        d.notice("ihr werdet in 60 Sekunden zurück in Grotte 2 gebracht.")
        timer("skipia_boss_end", 60)
        d.kill_all()
        d.spawn_mob(9012, 239, 173)
        d.clear_regen()
        end

    when login with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    pc.set_warp_location(73 , 1825, 12207)
    end
    when login with pc.in_dungeon() and d.getf("grotte_boss") == 1 begin
        timer("skipia_boss_end", 3600)    
        d.set_regen_file("data/dungeon/skia_boss.txt")
        local t = number(1,4)
        if 1 == t then
            d.regen_file("data/dungeon/skia_boss1.txt")
            elseif 2 == t then
            d.regen_file("data/dungeon/skia_boss2.txt")
            elseif 3 == t then
            d.regen_file("data/dungeon/skia_boss3.txt")
            else
            d.regen_file("data/dungeon/skia_boss4.txt")
        end
        local o = number(1,4)
        if 1 == o then
            d.regen_file("data/dungeon/skia_boss1.txt")
            elseif 2 == o then
            d.regen_file("data/dungeon/skia_boss2.txt")
            elseif 3 == o then
            d.regen_file("data/dungeon/skia_boss3.txt")
            else
            d.regen_file("data/dungeon/skia_boss4.txt")
            end    
        d.setf("grotte_boss", 2)
        d.notice("Willkommen im Tempel des Drachen, ihr habt maximal 1 Stunde Zeit Beran-Setaou zu besiegen, Viel Erfolg")
        d.setf("count", 0)
        pc.set_warp_location(73 , 1825, 12207)
        end

    when login with pc.in_dungeon() and d.getf("grotte_boss") == 3 begin -- begin
    --pc.warp(181700, 1220600)
    end
    
    when skipia_boss_end.timer begin
        d.exit_all()
        end
    when skipia_boss_ende.timer begin
        kill_all_in_map(408)
        game.set_event_flag("Grotte_zugang",0)
        d.setf("grotte_boss", 1)
        d.exit_all()
    end
    when login with pc.get_map_index() != 408 or not pc.in_dungeon() begin
    pc.setqf("erlaubt",0)
    end
    end
end 
12/05/2011 21:31 chrissiapfel#4200
Meine Erste Quest ...
PHP Code:
quest chrissiapfelTest begin
    state start begin
        when value.chat."Music starten" begin with pc.is_gm begin
            say("Möchtest du das Erste Lied starten?")
            say("")
            local auswahl = select ("Ja", "Nein")
            if auswahl == 2 then
                return
            elseif auswahl == 1 then
                pc.setqf(mq, 1)
            cmdchat("lied1.mp3")
            end
        end
    end
end 
Page 280 of 845 « First 180230270278279 280 281282290330380780 Last »