[SUCHE]Quests!

06/30/2013 21:45 Scarified#1

Da es mit dem Questerstellungsservice nicht ganz klappt, m�chte ich einfach mal hier fragen ob mir jemand dabei helfen kann 3 Quests zu erstelle. :)

Sind im Grunde ganz simple Quests.

Quote:

1. Quest: Eine einfache quest die �ber einen NPC geht und der nur will das man mit einem anderen NPC redet. [Done]

2. Quest: Der NPC m�chte das man z. B. 10 Wildhunde t�tet. [Done]

3. Quest: Der NPC sucht z. B. Rote Tr�nke und die muss man beispielsweise von Wildhunden dropen.

Danke im voraus!

06/30/2013 22:48 x'Radon#2

Ist nicht getestet ist Quest 1

PHP Code:


			
quest test begin

    state start begin

        when NPCID.chat."Suche NPCNAME" begin

            say_title("Hallo")

            say("Suche NPCNAME"9

            local v = find_npc_by_vnum(NPCID)

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

            end

        end

        when __TARGET__.target.click or 20084.chat."Fluchb�cher" begin

            say_title("Hallo")

            say("Gefunden")

        end

    end

end

Schnell mit Handy geschrieben :-D

07/01/2013 00:29 .Leykas#3

Code:

quest test begin 
    state start begin 
        when NPCID.chat."Suche NPCNAME" begin 
            say_title("Hallo") 
            say("Suche NPCNAME") 
            local v = find_npc_by_vnum(NPCID) 
            if v != 0 then target.vid("__TARGET__", v, "NPCNAME") 
            end 
        end 
        when __TARGET__.target.click or NPCID.chat."Buttonname erfinden" begin 
            say_title("Hallo") 
            say("Gefunden") 
        end 
    end 
end

War ein kleiner Fehler drin ;)

07/01/2013 08:50 Ielinque#4

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

07/01/2013 10:52 Scarified#5

Thx :)

@Hydra: Da machts aber keiner :D

07/01/2013 10:56 Ielinque#6

Quote:

Originally Posted by Scarified

Thx :)

@Hydra: Da machts aber keiner :D

Doch, es gibt ein Paar nette Leute die das machen, so eine kleine Quest f�r einen guten Quester macht kein Aufwand. :)

07/01/2013 11:05 Scarified#7

Quote:

Doch, es gibt ein Paar nette Leute die das machen, so eine kleine Quest f�r einen guten Quester macht kein Aufwand.

Ja aber hier gings halt schneller :D
Naja, immerhin 1 von 3 Quests. ^^

07/01/2013 11:12 Ielinque#8

Das ist eine Sch�ne quest :) , du kannst sie nach eigenem Geschmack um�ndern, bzw anpassen an das was du willst.

Spoiler

PHP Code:


			
quest suchundkill begin
        state start begin
            when login or levelup with pc.level >= 115 begin
                set_state(info)
            end
        end
        state info begin
            when letter begin
                send_letter("Geh zum Bettler im Tal des Todes")
                local v = find_npc_by_vnum(20004)
                if v != 0 then
                    target.vid("__TARGET__", v, "Die Hunde!")
                end
            end
            when info or button begin
                say_title("Die H�llenhunde")
                say("Der Bettler sprach von grausamen H�llenhunden...")
                say("Du solltest zu ihm gehen!")
            end
            
            when __TARGET__.target.click or 20004.chat."Die Hunde" with pc.level >= 115 begin
                say_title("Bettler:")
                say("Hallo!")
                say("")
                say("Die H�llenhunde im Garten der Hesperiden")
                say("haben mich meiner Frau beraubt ,")
                say("und sie beim lebendigen Leib gefressen")
                say("deshalb bin ich verdammt in Einsamkeit,")
                say("zu Leben!!!")
                say("")
                say("Ich bin zu Schwach ,")
                say("mich zu R�chen!!")
                wait()
                say_title("Bettler:")
                say("Kannst du die Hunde abschlachten")
                say("und f�r mich Vergeltung �ben?")
                say("")
                say_reward("M�chtest du dem Bettler helfen?")
                local s=select("Ja","Nein")
                    if s == 2 then
                        say("Oh... sehr Schade.")
                        say("Dann suche ich mir jemanden der kein Noob ist!")
                        clear_letter()
                        set_state(__GIVEUP__)
                    else
                        say_title("Bettler")

                        say("Vielen Vielen Dank!")
                        say("Ich denke wenn du 800 von ihnen t�test ist alles")
                        say("wieder in Ordnung.")
                        say_reward("T�te 800 H�llenhunde!")
                        say("")
                        say_reward("800 H�llenhunde")
                        pc.setqf("state", 800)
                        q.set_counter("Hunde", 800)
                        set_state(main)
                    end
            end
        end
        state main begin
            when letter begin
                send_letter("T�te die H�llenhunde!")
            end
            when info or button begin
                say_title("T�te die H�llenhunde!")
                say("Der Bettler hat dich gebeten 800")
                say("H�llenhunde zu Beseitigen.")

            end
            when 2601.kill begin
                local count = pc.getqf("state") - 1
                if count <= 800 then
                    pc.setqf("state", count)
                    q.set_counter("Hunde", count)
                end

                if count == 0 then
                    say("oh der letzte Hund hat mir was von")
                    say("Bla-dek ger�chelt!")
                    say("Du findest Bla-Dek im Feuerland!!")
                    set_state(goback)
                end
            end
        end
        state goback begin
            when letter begin
                send_letter("Gehe zu Bla-Dek!")
                local v = find_npc_by_vnum(20090)
                if v != 0 then
                target.vid("__TARGET__", v, "Die Hunde!")
            end
            end
            when info or button begin
                say_title("Gehe zu Bla-dek")
                say("Da der Letzte Hund was ger�chelt hat.")
                say("Nun gehe zu Bla-dek ins Feuerland!")
            end
            when __TARGET__.target.click or 20090.chat."Die Hunde" with pc.level >= 115 begin
                say_title("Bla-dek:")
                say("Hallo!")
                say("")
                say("Oh ein H�llenhund hat meinen Namen ger�chelt ")
                say("Hmmmmmmmm...")
                say("Dann geht es sicher im des armen Bettlers Frau, ")
                say("aber ich weis sie wurde an die Naga-Zauberer verkauft!!")
                say("um an ihr versuche ihrer Zauberkunst,")
                say("zu machen.")
                say("")
                say("Wilst du mehr wissen??.")
                wait()
                say_title("Bla-Dek:")
                say("Musst du Naga-Zauberer t�ten")
                say("um Informationen zu bekommen")
                say("")
                say_reward("M�chtest du Ihnen helfen?")
                local s=select("Ja","Nein")
                    if s == 2 then
                        say("Oh... sehr Schade.")
                        say("Dann suche ich mir jemanden der mutiger ist!")
                        clear_letter()
                        set_state(__GIVEUP__)
                    else
                        say_title("Bla-dek")

                        say("Vielen Vielen Dank!")
                        say("Ich denke wenn du 700 von ihnen t�test,")
                        say("wirst du Informationen erhalten.")
                        say_reward("T�te Naga-Zauberer!")
                        say("")
                        say_reward("T�te Naga-Zauberer im Garten")
                        pc.setqf("state", 700)
                        q.set_counter("Naga", 700)
                        set_state(main_1)
                    end
            end
        end
        state main_1 begin
            when letter begin
                send_letter("T�te Naga-Zauberer!")
            end
            when info or button begin
                say_title("T�te Naga-Zauberer!")
                say("Der Bla-dek hat dich gebeten einige")
                say("der Naga-Zauberer im Garten zu t�ten,")
                say("um an Infos zu kommen!!!")
                say("")
                say("700 der Zauberer sollten reichen.")
                say_reward("700 Naga-Zauberer aus dem Garten,")

            end
            when 2603.kill begin
                local count = pc.getqf("state") - 1
                if count <= 700 then
                    pc.setqf("state", count)
                    q.set_counter("Naga", count)
                end

                if count == 0 then
                    say("Du hast alle 700 Erledigt erledigt.")
                    say("Aber keine Information erhalten!!!")
                    say("Nun gehe mal zu Bla-dek!")
                    say("dem Sack !!!")
                    set_state(goback_1)
                end
            end
        end

        state goback_1 begin
            when letter begin
                send_letter("Gehe zu Bla-dek!")
                local v = find_npc_by_vnum(20090)
                if v != 0 then
                target.vid("__TARGET__", v, "Die Naga!")
            end
            end
            when info or button begin
                say_title("Gehe zu Bla-dek")
                say("Du hast alle 700 Naga-Zauberer erledigt,")
                say("und keine Infos bekommen!!!!")
                say("Nun gehe zu Bla-dek!")
            end
            when __TARGET__.target.click or 20090.chat."Die Naga" with pc.level >= 115 begin
                say_title("Bla-dek:")
                say("Ohaaa!")
                say("")
                say("Sie haben sie nicht an die Naga-Zauberer ")
                say("verkauft??..")
                say("Dann bin ich mir fast sicher das sie, ")
                say("an die Naga-Krieger gegangen ist,und Bestialisch!!")
                say("hingerichtet wurde grrrrrrrrrrr!!!")
                say("Diese Bestien.")
                say("")
                say("Wilst du mehr wissen??.")
                wait()
                say_title("Bla-Dek:")
                say("Musst du Naga-Krieger t�ten")
                say("um Informationen zu bekommen")
                say("")
                say_reward("M�chtest du Ihnen helfen?")
                local s=select("Ja","Nein")
                    if s == 2 then
                        say("Oh... sehr Schade.")
                        say("Dann suche ich mir jemanden der mutiger ist!")
                        clear_letter()
                        set_state(__GIVEUP__)
                    else
                        say_title("Bla-dek")

                        say("Vielen Vielen Dank!")
                        say("Ich denke wenn du 900 von ihnen t�test,")
                        say("wirst du Informationen erhalten.")
                        say_reward("T�te Naga-Krieger!")
                        say("")
                        say_reward("T�te Naga-Krieger im Garten")
                        pc.setqf("state", 900)
                        q.set_counter("Krieger", 900)
                        set_state(main_2)
                    end
            end
        end
        state main_2 begin
            when letter begin
                send_letter("T�te Naga-Krieger!")
            end
            when info or button begin
                say_title("T�te Naga-Krieger!")
                say("Der Bla-dek hat dich gebeten einige")
                say("der Naga-Krieger im Garten zu t�ten,")
                say("um an Infos zu kommen!!!")
                say("")
                say("900 der Krieger sollten reichen.")
                say_reward("900 Naga-Zauberer aus dem Garten,")

            end
            when 2602.kill begin
                local count = pc.getqf("state") - 1
                if count <= 900 then
                    pc.setqf("state", count)
                    q.set_counter("Krieger", count)
                end

                if count == 0 then
                    say("Du hast alle 900 Erledigt erledigt.")
                    say("Und der letzt r�chelte sie hat gut geschmeckt!!!")
                    say("Nun gehe mal zu Bettler!")
                    say("und erz�hle ihm was du rausgefunden hast !!!")
                    set_state(goback_2)
                end
            end
        end

        state goback_2 begin
            when letter begin
                send_letter("Gehe zum Bettler!")
                local v = find_npc_by_vnum(20004)
                if v != 0 then
                target.vid("__TARGET__", v, "Die Naga!")
            end
            end
            when info or button begin
                say_title("Gehe zum Bettler")
                say("und erz�hle ihm die Neuigkeit,")
                say("�ber seine Frau!!!!")
                say("Nun gehe zum Bettler!")
            end
            when __TARGET__.target.click or 20004.chat."Die Naga" with pc.level >= 115 begin
                    say_title("Bettler")
                    say("Ohhh du scheisse!")
                    say("Meine arme Frau heuuull")
                    say("Aber jetzt hab ich Gewissheit!")
                    say("Und werde den Freitot w�hlen!!")
                    say("Hier hast du alles was ich besitze!!")
                    say("")
                    say_reward("Du erh�lst:")
                    say_reward("500.000.000 Yang")
                    say_reward("800.000.000 Erfahrung")
                    say_reward("10 Schwarzes Eis")
                    say_reward("1 Drachengotthelm")
                    say("")
                    pc.change_money(500000000)
                    pc.give_exp2(800000000)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(30185, 1)
                    pc.give_item2(91000, 1)
                    notice_all("".. pc.get_name() .." hat so eben die such und Kill,")
                    notice_all("Quest abgeschlossen ein/e wahre/r Held/in, Gl�ckwunsch!")
                    clear_letter()
                set_state(__COMPLETE__)
            end

        end
    state __COMPLETE__ begin
    end
    state __GIVEUP__ begin
    end
end

07/01/2013 11:33 Scarified#9

Ah danke Hydra :)
Schon 2 von 3 Quests. :)

07/01/2013 11:50 Ielinque#10

Erkl�r mal den Dritten Punkt besser :)

07/01/2013 12:47 x'Radon#11

PHP Code:


			
quest rotepots begin
    state start begin
        when NPCID.chat."BLABLA" begin
            say_title("BLAA")
            say("BLA")
            say("")
            say("")
            say_reward("BLABLA")
        end
        when MOBID.kill or MOBID.kill or MOBID.kill begin
            if pc.count_item(ITEMID)<1 then
                local rand = number(0,99)
                if rand<5 then pc.give_item2(ITEMID, 1)
                end
            end    
            set_state(ende)
        end
    end
    state ende begin
    end
end

Kp obs funktioniert. Musst du halt nur noch am ende reinmachen das er wieder zum npc gehen soll usw. Aber das soll als Vorlage dienen.

07/01/2013 16:08 Scarified#12

eben so ungef�hr wie eine biologen quest
der npc will z. B. 10 mal irgendein item, das man durch die quest von beispielsweise von wildhunden dropen kann und man muss sie eben bei dem npc abgeben.