[SERVICE] Die Questerstellung

Page 145 of 248

145

02/10/2015 14:31 ShootGamerTV#2161

K�nnte mir eventuell jemand eine Quest schreiben, mit der man mit einem Item Yangspeicher erh�lt (Man kann Ausw�hlen wie viel die Yangspeicher geben sollen) und zu den einzelnen Yangspeicher halt noch eine kurze Quest das die einem Yang geben?

oder

Das man mit einem Item sich aussuchen kann, welchen Rang man haben will (Ritterlich, Edel, ..)

MfG und danke schon mal

02/10/2015 15:03 rollback#2162

Quote:

Originally Posted by ShootGamerTV

K�nnte mir eventuell jemand eine Quest schreiben, mit der man mit einem Item Yangspeicher erh�lt (Man kann Ausw�hlen wie viel die Yangspeicher geben sollen) und zu den einzelnen Yangspeicher halt noch eine kurze Quest das die einem Yang geben?

oder

Das man mit einem Item sich aussuchen kann, welchen Rang man haben will (Ritterlich, Edel, ..)

MfG und danke schon mal

Simple Yangspeicher-Kauf Quest:

PHP Code:


			
quest yangspeicher begin
    state start begin
        when 10.use begin
            say("Welchen Yangspeicher m�chtest du kaufen?")
            local s = select("100kk", "200kk", "300kk", "Abbrechen")
            if s == 4 then
                return
            elseif s == 1 and pc.get_money() >= 100000000 then
                pc.give_item2(1, 1)
                pc.change_money(-100000000)
            elseif s == 2 and pc.get_money() >= 200000000 then
                pc.give_item2(2, 1)
                pc.change_money(-200000000)
            elseif s == 3 and pc.get_money() >= 300000000 then
                pc.give_item2(3, 1)
                pc.change_money(-300000000)
            else
                say("Du hast nicht genug Yang.")
            end
        end
    end
end

Etwas bessere Yangspeicher-Kauf Quest:

PHP Code:


			
quest yangspeicher begin
    state start begin
        when 10.use begin
            yangspeicher = {
                names = {"100kk", "200kk", "300kk"},
                values = {100000000, 200000000, 300000000},
                vnums = {1, 2, 3}
            }
            say("Welchen Yangspeicher m�chtest du kaufen?")
            local s = select_table(yangspeicher.names, "Abbrechen")
            if s == table.getn(yangspeicher.names)+1 then return end
            say("Wie �ft m�chtest du den Yangspeicher kaufen?")
            local anzahl = tonumber(input())
            if anzahl >= 1 and anzahl <= 200 then
                say("M�chtest du wirklich "..anzahl.."x den "..yangspeicher.names[s])
                say("Yangspeicher kaufen?")
                local accept = select("Ja", "Nein")
                if accept == 2 then return end
                if pc.get_money() >= yangspeicher.values[s]*anzahl then
                    pc.give_item2(yangspeicher.vnums[s], anzahl)
                    pc.change_money(-yangspeicher.values[s]*anzahl)
                else
                    say("Du hast nicht genug Yang.")
                end
            else
                say("Die Eingabe muss zwischen 1 und 200 liegen.")
            end
        end
    end
end

Yangspeicher einl�sen Quest:

PHP Code:


			
quest yangbarren begin
    state start begin
        when 1.use begin
            if pc.get_money() <= 1899999999 then
                pc.change_money(100000000)
                pc.remove_item(1, 1)
            else
                chat("Du hast zu viel Yang im Inventar.")
            end
        end
        when 2.use begin
            if pc.get_money() <= 1799999999 then
                pc.change_money(200000000)
                pc.remove_item(2, 1)
            else
                chat("Du hast zu viel Yang im Inventar.")
            end
        end
        when 3.use begin
            if pc.get_money() <= 1699999999 then
                pc.change_money(300000000)
                pc.remove_item(3, 1)
            else
                chat("Du hast zu viel Yang im Inventar.")
            end
        end
    end
end

Rang-Quest:

PHP Code:


			
quest rang begin
    state start begin
        when 11.use begin
            ranks = {
                names = {"Freundlich", "Gut", "Edel", "Ritterlich"},
                values = {1000, 4000, 8000, 12000}
            }
            say("Welchen Rang m�chtest du?")
            local s = select_table(ranks.names, "Abbrechen")
            if s == table.getn(ranks.names)+1 then return end
            pc.changealignment(ranks.values[s])
            pc.remove_item(11, 1)
        end
    end
end

Vnums und so noch anpassen ;)

02/10/2015 15:06 Thetobinator21#2163

Guten Tag ich brauche einen Fix f�r diese Quest. Also mein Problem ist das man [ und ] nicht nutzen kann. Da sollte man und es ist eine .lua, wei� nicht ob das was damit zu tun hat. Danke im vorraus.

Spoiler

02/10/2015 16:16 ShootGamerTV#2164

Die Rangpunkte Quest funktioniert bei mir nicht. Hab beide Vnums angepasst.
Ingame �ndert sich der Rang nicht, nachdem ich mir einen Rang ausw�hle.

Die anderen Quests teste ich sp�ter erst :)

MfG

02/10/2015 17:19 .yorliK#2165

Quote:

Originally Posted by ShootGamerTV

Die Rangpunkte Quest funktioniert bei mir nicht. Hab beide Vnums angepasst.
Ingame �ndert sich der Rang nicht, nachdem ich mir einen Rang ausw�hle.

Die anderen Quests teste ich sp�ter erst :)

MfG

Versuch mal die:

Code:

quest rang_item begin
	state start begin
		when xxx.use begin
			say_title("W�hle Rang")
			say("")
			s = ({1000,4000,8000,12000})[select("Freundlich", "Gut", "Edel", "Ritterlich", "Abbrechen")]
			if not s then return end
			pc.change_alignment(-pc.get_real_alignment())
			pc.change_alignment(s)
			-- pc.remove_item(xxx, 1) -- "--" am Anfang entfernen, xxx durch ItemID ersetzen = Item verschwindet
		end
	end
end

02/10/2015 18:57 firoxxx#2166

Hey, hoffe hier kann mir jemand helfen.

Habe diese Quest hier:

Spoiler

HTML Code:

quest devilscave begin
    state start begin
--Konfiguration   
        when 20351.chat."DC Configuration!" with game.get_event_flag("block_dc_config") == 0 and pc.is_gm begin
			game.set_event_flag("dc_is_ok",1)
			game.set_event_flag("block_dc_config",1)
			game.set_event_flag("dc_versuche",1)
		end
--Eintritt fehlgeschlagen
        --when 20351.chat."The Devils Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 and pc.get_level() > 80 begin
			--say_title("W�chter der Katakombe")
			--say("")
			--say_reward("Du darfst noch nicht in die Devils Catacomb!")
			--say("")
			--say_reward("Bring mir ein Sensenmannrelikt zieh es einfach auf mich!")
			--say_reward("und du darfst Passieren!")
        --end
        --when 20351.chat."Devils Catacomb (lv.80)" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 80 begin
            --say_title("W�chter der Katakombe")
            --say("")
            --say_reward("Du bist noch zu Schwach!")
            --say("")
        --end
--Sensenmannrelikt Abgabe!
        --when 20351.take with item.vnum == 30315 and pc.getqf("can_in_dc") == 0 begin
            --if pc.get_level() < 80 then
                --say_title("W�chter der Katakombe")
                --say("")
                --say_reward("Du musst lv.80 sein um ein Sensenmannrelikt abzugeben!")
                --say("")
            --else
                --item.remove()
                --say_title("W�chter der Katakombe")
                --say("")
                --say_reward("Du darfst nun die Devils Catacomb betreten!")
                --say("")
                --pc.setqf("can_in_dc", 1)
            --end
        --end
--Eintritt    
        when 20351.chat."The Devils Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
            if pc.get_level() < 80 then 
                say_title("W�chter der Katakombe")
                say("")
                say_reward("Du bist noch zu schwach f�r die Katakomben!")
                say("")
            else
                say_title("W�chter der Katakombe")
                say("")
                say("Bisher haben "..game.get_event_flag("dcgamer").." Soldaten es versucht ")
                say("und "..game.get_event_flag("dc_geschaft").." haben es tats�chlich geschaft")
                say("Azrael zu besiegen!")
                wait()
                say_title("W�chter der Katakombe")
                say("")
                say_reward("Willst du es versuchen?")
                say_reward("du w�rst der "..game.get_event_flag("dc_versuche")..". K�mpfer der es")
                say_reward("versucht!")
                say("")
                pc.setqf("Ebene", 1)
                local dc_login = select("Betreten", "Abbrechen")
                if dc_login == 1 then
                    pc.warp(415200, 4209200)
                elseif dc_login == 2 then
                    return
                end
            end
        end            
--Ebene 1        

        
        when login with pc.get_map_index() == 209 begin
            game.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1)
            game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1)
            if pc.getqf("Ebene") == 1 then
            say_title("Devils Catacomb")
            say("Um in die 2.Ebene zu kommen, musst du")
            say_item("Seelenkristall-Schl�ssel", 30311, "")
            say("auf die Statue des Kud ziehen!")
            say("Du droppst ihn bei den Monstern.")
            say("Ihr habt ingesamt 90 Minuten Zeit!")
            say("")
            say_reward("Viel Gl�ck!")
            say("")
            timer("dc10", 600)
            pc.setqf("sksgedroppt", 0)
        else
            warp_all_to_village()
            end
        end
        when kill with not npc.is_pc() and pc.get_map_index() == 209 begin 
            local sks = number(1,15)
            if sks==1 and pc.getqf("sksgedroppt")==0 then
                pc.setqf("sksgedroppt", 1)
                chat("Du hast den Seelenkristall-Schl�ssel gedroppt!")
                game.drop_item(30311, 1)
            else
                chat("Dieses Monster hatte keinen Schl�ssel.")
            end
        end
        when 30101.take with item.vnum == 30311 begin
            chat("Du wirst jetzt in die 2. Ebene gebracht.")
            pc.remove_item("30311")
            d.new_jump_all(209, 4632, 42082)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene2.txt")
            d.regen_file("data/dungeon/devilcave/dc_regen_tore_unten.txt")
            d.regen_file("data/dungeon/devilcave/dc_regen_tore_left.txt")
            d.spawn_mob(30103, 741, 221)
            d.setf("Ebene", 2)
        end    
        
        when login with pc.in_dungeon() begin
            if d.getf("Ebene") == 2 then
            chat("Ihr befindet euch jetzt in der 2. Ebene!")
            chat("Schlagt euch zum Schildkr�tenfels durch!")
            chat("Ihr habt nur 10 minuten Zeit!")
            timer("dc1", 600)
        end
            if d.getf("Ebene") == 3 then
            chat("Findet und zerst�rt den richtigen Metin der Vergeltung.")
            chat("Ihr habt 20 Minuten Zeit.")
            timer("dc2", 1200)
        end
            if d.getf("Ebene") == 4 then
            chat("Findet den Weg aus dem Labyrinth.")
            chat("Und findet die Inschrift am Runenpfahl.")
            chat("Ihr habt 15 Minuten Zeit.")
            timer("dc3", 900)
            d.spawn_mob(30104, 500, 800)
            d.spawn_mob(10800, 328, 779)
            d.spawn_mob(10801, 70, 672)
            d.spawn_mob(10802, 142, 865)
            d.spawn_mob(10803, 433, 935)
            d.spawn_mob(10804, 243, 854)
            d.spawn_mob(10805, 182, 667)
        end
            if d.getf("Ebene") == 5 then
            chat("Findet und t�tet Tartaros um das Fratzen-Totem zu bekommen!")
            chat("Zieht es anschlie�end auf den Basalt-Obelisk auf dem Berg.")
            chat("Ihr habt 15 Minuten Zeit.")
            timer("dc4", 900)
            d.spawn_mob(30104, 500, 800)
        end
            if d.getf("Ebene") == 6 then
            chat("T�tet Charon um zur letzten Ebene zu kommen!")
            chat("Ihr habt 15 Minuten Zeit.")
            timer("dc5", 900)
            d.spawn_mob(30104, 500, 800)
        end
            if d.getf("Ebene") == 7 then
            chat("T�tet Azrael und setzt dem Unheil ein Ende!")
            chat("Ihr habt 15 Minuten Zeit!")
            timer("dc6", 900)
            d.spawn_mob(30104, 500, 800)
        end
        end
        
        
        when dc1.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end     


        when dc10.timer begin
            chat("Ihr habt noch 80 Minuten Zeit, Azrael zu finden und zu t�ten!")
            timer("dc20", 600)
        end
        
        when dc20.timer begin
            chat("Ihr habt noch 70 Minuten zeit!")
            timer("dc30", 600)
        end    
        when dc30.timer begin
            chat("Ihr habt noch 60 Minuten zeit!")
            timer("dc40", 600)
        end        
        when dc40.timer begin
            chat("Ihr habt noch 50 Minuten zeit!")
            timer("dc50", 600)
        end        
        when dc50.timer begin
            chat("Ihr habt noch 40 Minuten zeit!")
            timer("dc60", 600)
        end        
        when dc60.timer begin
            chat("Ihr habt noch 30 Minuten zeit!")
            timer("dc70", 600)
        end        
        when dc70.timer begin
            chat("Ihr habt noch 20 Minuten zeit!")
            timer("dc80", 600)
        end        
        when dc80.timer begin
            chat("Ihr habt noch 10 Minuten zeit!")
            timer("dc110", 600)
        end
        when dc110.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end                     
--Ebene 2
        when 30103.chat."Weiter zur 3. Ebene" begin
            npc.purge()
            say_reward("Inschrift:")
            say("Es ist noch ein weiter weg.")
            wait()
            d.new_jump_all(209, 5427, 42282)
            d.setf("Ebene", 3)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
            local metindv = number(1,4)
            if metindv==1 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8032, 1351, 149)
            end
            if metindv==2 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8032, 1151, 155)
                d.spawn_mob(8029, 1351, 149)
            end
            if metindv==3 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8032, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8029, 1351, 149)
            end
            if metindv==4 then
                d.spawn_mob(8032, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8029, 1351, 149) 
            end
        
        end
        
        when 8029.kill with pc.in_dungeon() begin
            chat("Ein Falscher Metin wurde zerst�rt.")
        end
        when 8032.kill with pc.in_dungeon() begin
            chat("Der richtige Metin wurde zerst�rt.")
            chat("Ihr kommt nun in die 4. Ebene.")
            timer("devils_catacomb_goto_ebene4", 2)
        end    
        when dc2.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    

        
--Ebene 4 (Labyrinth)
        when devils_catacomb_goto_ebene4.timer begin
            d.new_jump_all(209, 4143, 42657)
            d.setf("Ebene", 4)
        end
        
        when 30104.chat."Inschrift" with pc.in_dungeon() begin
            say_title("Ihr seid schon ziemlich weit gekommen.")
            timer("dc3", 6000)
            chat("Ihr habt den richtigen Weg gefunden.")
            chat("Ihr kommt jetzt in die 5. Ebene.")
            timer("devils_catacomb_goto_ebene5", 5)
        end
        when dc3.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    
--Ebene 6 (Tartaros)
        when devils_catacomb_goto_ebene5.timer begin
            d.new_jump_all(209, 4917, 42925)
            d.spawn_mob(30102, 848, 739)
            d.setf("Ebene", 5)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
            local tartaros = number(1,4)
            if tartaros==1 then
                d.spawn_mob(2593, 991, 848)
            end
            if tartaros==2 then
                d.spawn_mob(2593, 999, 652)
            end
            if tartaros==3 then
                d.spawn_mob(2593, 848, 577)
            end
            if tartaros==4 then
                d.spawn_mob(2593, 703, 644)
            end
            if tartaros==5 then
                d.spawn_mob(2593, 692, 817)
            end
        end        
        
        when 2593.kill with pc.in_dungeon() begin
            chat("Tartaros wurde besiegt und das Fratzen-Totem wurde Fallengelassen!")
            chat("Begebt euch mit dem Fratzen-Totem auf den Berg in der Mitte.")
            game.drop_item(30313, 1)
        end    
        when 30102.take with item.vnum == 30313 begin
            timer("dc4", 6000)
            item.remove()
            npc.purge()
            say_reward("...")
            chat("Ihr werdet jetzt in die 6. Ebene gebracht.")
            timer("devils_catacomb_goto_ebene6", 5)
        end
        when dc4.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    
--Ebene 7 (Charon)
        when devils_catacomb_goto_ebene6.timer begin
            d.new_jump_all(209, 5422, 42782)
            d.setf("Ebene", 6)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
        end
        
        when 2597.kill with pc.in_dungeon() begin
            timer("dc5", 6000)
            d.kill_all()
            chat("Ihr habt Charon besiegt!")
            chat("Bereitet euch auf den Kampf mit Azrael vor!")
            timer("devils_catacomb_goto_ebene7", 10)
        end
        when dc5.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    
--Ebene 8 (Azrael)
		when devils_catacomb_goto_ebene7.timer begin
			 d.new_jump_all(209, 4147, 43191)
			d.setf("Ebene", 7)
			d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
        end
	
        when 2598.kill with pc.in_dungeon() begin
			game.set_event_flag(("dc_geschaft"), game.get_event_flag("dc_geschaft")+1)
			local level = pc.get_level()            
			chat("Ihr habt ihn Besiegt und das B�se vertrieben.")
			chat("Ihr werdet in 2 Minuten herrausteleportiert!")
			chat("Sammelt schnell die Sch�tze ein, bevor es zu sp�t ist.")
			d.kill_all()
			d.kill_all()
			notice_all("Die Gruppe von "..pc.get_name().." hat Azrael besiegt!")
			timer("goout_from_dc", 120)
			d.spawn_mob(9012, 74, 1159)    
        end
        
        when dc6.timer begin
			chat("Die Zeit ist Abgelaufen!")
			warp_all_to_village( pc.get_map_index() , 5 )
			end
        when goout_from_dc.timer begin
			warp_all_to_village( pc.get_map_index() , 3 )
			end
	end
end

Mein Problem : Ich werde nach abgabe des Schl�ssels nicht in die 2. Ebene geportet.

Map Index = 213

Danke im Vorfeld!

EDIT : >>>>>>>

Ups sorry, sehe schon: Falscher Thread. Sorry daf�r!

02/10/2015 22:16 ShootGamerTV#2167

Die zweite Rangpunkte Quest funktioniert perfekt :)

Habe jetzt die Yangspeicher Kaufen Quest probiert und die "bessere" funktioniert soweit, aber wenn man z.B. eingibt, dass man 2 St�ck kaufen will kriegt man das Yang f�r 2 St�ck abgezogen, bekommt aber nur eins.

Probiere noch die Simple Yangkauf Quest.

MfG

02/11/2015 06:24 rollback#2168

Quote:

Originally Posted by ShootGamerTV

Die zweite Rangpunkte Quest funktioniert perfekt :)

Habe jetzt die Yangspeicher Kaufen Quest probiert und die "bessere" funktioniert soweit, aber wenn man z.B. eingibt, dass man 2 St�ck kaufen will kriegt man das Yang f�r 2 St�ck abgezogen, bekommt aber nur eins.

Probiere noch die Simple Yangkauf Quest.

MfG

Ist der Yangspeicher stapelbar? Wenn nicht schreib ich dir noch ne kleine Funktion dazu :D

02/11/2015 11:59 ShootGamerTV#2169

Nein er ist nicht Stapelbar.

MfG

02/11/2015 13:00 rollback#2170

Quote:

Originally Posted by ShootGamerTV

Nein er ist nicht Stapelbar.

MfG

Dann kann man den auch nicht mehrmals bekommen. Entweder du machst ihn Stapelbar oder (wenn du den nicht Stapelbar machen m�chtest) schreibe ich wenn ich Zeit habe eine kleine Funktion die dann mehrmals den Tresor gibt.

02/11/2015 13:21 ShootGamerTV#2171

Ich werde es einfach stapelbar machen.
Danke f�r die Hilfe :)

MfG

02/11/2015 23:46 #AnymRolex*#2172

Hey Com,

Suche eine Quest wenn man auf ein Item klickt darf man sich aussuchen:
5kk Exp
25kk Yang
10x Item

Danke schonmal im vorraus

02/12/2015 00:13 holosko74#2173

Hey,

br�uchte einen der mir 4 Run quests schreib.
Ablauf etc w�rd ich gerne per Skype erkl�ren w�re super wenn mich jemand adden w�rde oder hier anschreiben w�rde.

02/12/2015 06:53 rollback#2174

Quote:

Originally Posted by #AnymRolex*

Hey Com,

Suche eine Quest wenn man auf ein Item klickt darf man sich aussuchen:
5kk Exp
25kk Yang
10x Item

Danke schonmal im vorraus

PHP Code:


			
quest test begin

    state start begin

        when 1.use begin

            local s = select("EXP", "Yang", "Item", "Abbrechen")

            if s == 4 then

                return

            elseif s == 1 then

                pc.give_exp2(5000000)

            elseif s == 2 then

                pc.change_money(25000000)

            elseif s == 3 then

                pc.give_item2(vnum, 10)

            end

            pc.remove_item(1, 1)

        end

    end

end

Item ID noch einf�gen

02/12/2015 16:39 �Ace�#2175

Kann mir einer die Quest so umschreiben, dass die Schriftrolle des Ortes nicht verschwindet und das es auch keine neue Rolle gibt f�r die Kordis. Halt einfach nur das Item so ist, wie es ist.

PHP Code:


			
quest warp_scroll begin

    state start begin

        when 22012.use begin

            not_allowed = { 97, 191 } -- Blockt die Rolle in diesen Indexen

            if item.get_socket(0)!=0 and item.get_socket(1)!=0 then

                pc.warp(tonumber(item.get_socket(0)), tonumber(item.get_socket(1)))

                item.remove()

            else

                if in_table(pc.get_map_index(), not_allowed) then syschat("Kann nicht benutzt werden.") return end

                item.set_socket(0, (pc.get_x()*100))

                item.set_socket(1, (pc.get_y()*100))

            end

        end

    end

end

Page 145 of 248

145