[SERVICE] Die Questkontrolle

Page 44 of 845

10/10/2010 18:37 CoreDump#646

lol omg spammt nicht!!!!!!!!!!
den ganzen tag kommt keine quest rein und dann posten 5 leute innerhalb von 15minuten.

erstmal @ .Lolcat
schau mal in die db. bei shops muss die id f�r on_click auf 1

PHP Code:


			
npc.open_shop() 11

ist doch klar das das so geht

PHP Code:


			
npc.open_shop(11)

10/10/2010 18:38 ProNight84#647

Quote:

Originally Posted by n'zy

Was funktioniert denn nicht genau ?

Also der NPC 20087 nimm so zu sagen die Quest nicht an.
Ich klick drauf und die Quest ist nicht da.
Wo ich die Quest rein gemacht habe, stand da was komisches
im VPC nach sh make.sh blabla..

Da VPC..

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

10/10/2010 18:54 CoreDump#648

lol du h�ttest auch nur den text abschreiben m�ssen
die letzten 2-3 zeilen
OMG!!

PHP Code:


			
quest derwilde begin
    state start begin
        when 20087.chat."Tal der Wilden" with pc.get_level()< 94 begin

            say_title("Spezial Teleporter")
            say("")
            say("Sei gegr��t Kamerad")
            say("Vor vielen Jahren gab es einen Ort, der von einem")
            say("Zombiek�nig bewacht wurde. Heute kennt man ihn unter dem")
            say("Name: Tal der Wilden. Eigentlich wurde es mir")
            say("verboten Informationen �ber die Lage dieses Ortes zu")
            say("geben aber ich k�nnte dich trotzdem")
            say("dort hin teleportieren.")
            say("")
            say_reward("Soll ich dich ins Tal der Wilden teleportieren?")

            local s = select("Teleportieren", "Hier bleiben")
            if s == 1 then
            pc.warp(44400, 44400)
            else
            return
            end
        end
    end
end

10/10/2010 18:55 Darkhuti#649

Hi hab mal ne frage ...
Kann man ne quest machen :
dort muss man z.B. 5 Sensenm�nner killn
und als behlong kriegt man dann ne King r�ssi
geht das irgendwie ?

10/10/2010 19:11 ProNight84#650

Quote:

Originally Posted by CoreDump

lol du h�ttest auch nur den text abschreiben m�ssen
die letzten 2-3 zeilen
OMG!!

PHP Code:

quest derwilde begin state start begin when 20087.chat."Tal der Wilden" with pc.get_level()< 94 begin say_title("Spezial Teleporter") say("") say("Sei gegr��t Kamerad") say("Vor vielen Jahren gab es einen Ort, der von einem") say("Zombiek�nig bewacht wurde. Heute kennt man ihn unter dem") say("Name: Tal der Wilden. Eigentlich wurde es mir") say("verboten Informationen �ber die Lage dieses Ortes zu") say("geben aber ich k�nnte dich trotzdem") say("dort hin teleportieren.") say("") say_reward("Soll ich dich ins Tal der Wilden teleportieren?") local s = select("Teleportieren", "Hier bleiben") if s == 1 then pc.warp(44400, 44400) else return end end end end

Funktionieren tut es nicht.
Und ein bisschen netter kannst du auch sein..

10/10/2010 20:48 Pаylasici#651

Es hei�t "NPC.OPEN_SHOP(11)" - so muss es klappen. :)

10/10/2010 20:49 CoreDump#652

@ProNight84

warum denn? es lernt sowiso keiner was daraus wenn ich euch helfe.
dann kommt jeder ein paar tage sp�ter mit ner neuen quest an.
und h�r mal auf dauernd zu zitieren. schonmal ein post ohne zitat hinbekommen?
und der screen war auch unn�tig. es ist einfach so
du h�ttest auch einfach die 2 letzten zeilen schreiben k�nnen.

PS:Payla$ici bist auch mal wieder on oder wie xD

10/10/2010 21:44 Pаylasici#653

Ja, aber nicht so oft. Ich habe mal hier rein geschaut, ich habe noch viel um die Ohren mit Zuilong 2 zu tun.

10/10/2010 23:47 '-SkyLiiNe-'#654

Ich hab mal eine Frage,
gibt es eine Quest-Funktion
den den Player auf einer Map teleportiert?
also zB so

PHP Code:


			
when 9001.chat."TestPort" begin
    say_title("Hey dies ist eine test-Quest")
    say("TEST123")
local s = select("telen","ne lass ma")
       if s == 2 then
           return
       elseif s == 1 then
          pc.***ja ebn was soll dahin wenn ich auf der selben map nur koordinaten teleportiert werden will bsp ich steh gemi und will zu uriel und gemi portet mich 
pc.go geht nicht und pc.teleport() is  um en anderen player zu porten ...

wer kann mir helfen -.-
lg

10/10/2010 23:57 '-SkyLiiNe-'#655

Quote:

Originally Posted by ProNight84

Funktionieren tut es nicht.
Und ein bisschen netter kannst du auch sein..

da oben steht

Code:

with pc.get_level()>94 begin

es muss aber

Code:

with pc.get_level()>=94 begin

hei�en, denke das is der fehler
SRRy wegen Doppelpost ;( wollte ihm nur helfen.....

10/11/2010 09:25 .Risan.#656

So ich mal, sitz seit stunden drann, Poste aber nur einen teil, rest soll non pub bleiben:
Es ist die Quest von Das Tal von Ascaria.

PHP Code:


			
when 30121.chat."Teil einer Karte" begin
            if pc.count_item(30136)>=1 then
            if game.get_event_flag("zugang_zu")== 1 then
                say("Tut mir leid du musst noch warten, bis vorheringen Run beendet haben")
            else
                say("Du hast eine Karte gefunden?!")
                say("Lass mal sehen!")
                d.setf("devillevel", 1)
                pc.removeitem("30136", 1)
                game.set_event_flag("zugang_zu", 0)
                
                wait()
                say("Okay, ich denke als n�chstes..")
                say("Ja das ist okay.. Bis sp�ter!")
                d.setf("devillevel", 1)
                wait()
                d.new_jump_all(402, 3182, 12142)
            end
            else
                say("Ich habe geh�rt, dass man an den Metinsteine,")
                say("hier in der Umgebung Teile von Karten finden kann,")
                say("wenn man sie zerst�rt. Wenn du mir ein solches")
                say("Teil bringen k�nntest, k�ntne ich dich in das")
                say("n�chste Gebiet teleportieren, da ich dann das")
                say("Gebiet genauer untersuchen k�nnte.")
            end
        end
        when login with pc.in_dungeon() and d.getf("devillevel") == 1 begin
        
                local boxto7= pc.count_item(30300)  
                pc.remove_item(30300,boxto7)
                d.setf("devillevel", 2)                    
                local vid = d.spawn_mob(2597, 268, 311)
                local vid = d.spawn_mob(9012, 104, 107)
                d.regen_file("data/dungeon/dd_regen2.txt")
                d.set_unique("real", vid)
                d.notice("Ebene1: Ihr habt es nun geschafft, nun k�mpft euch gegen die Monster vor")
                d.notice("Ebene1:Und besiegt den W�chter!")
                d.notice("Ebene1:Aber beeilt euch und t�tet ihn, bevor die 5 Minuten abgelaufen sind");
                timer("devildown_weachter1", 120)
        end

Wenn man ihn unten anklickt, wo der Normale Surageist steht (30121)
Dann wird man ja in n�chste eben geportet, ein eine art Dungeon.
Allerdings wird dann er nicht wirklich in einem Dungeon geportet, weil:
Wenn ich oben bin, und dort nochmal den Sura anklicke, dann komme ich ich in den richtigen Dungeon.
Also ich hoffe versteht was ich meine :/

Text ist nru grob, die ganze Quest ist auf Zeitbasis, und l�uft ab der eben2 auch super :=)

nur halt Problem von Ebene0 ind Ebene 1 in einem Dungeon beitreten klappt nicht ganz <.<
Ahja wie man sieht ist Map Index hierf�r 402 :)

EDIT:
Gel�st, lag daran das die map einmal zuviel eingetragen war. in Configs.. :/

10/11/2010 10:23 Mcilrath#657

So 2 Fragen.

Erstens, wie kann ich in dieser Quest einrichten, das NUR die Skills angezeigt werden, die G1 oder h�her sind und nicht alle.

Spoiler

PHP Code:


			
quest rainbow begin

    state start begin

    when 50512.use begin

        say_title ( "Regenbogenstein" )

        say ( "Mit diesem Stein kannst du eine" )

        say ( "deiner Fertigkeit" )

        say ( "perfektionieren." )

        say ( "" )

        wait ( )

            say_title ( "Regenbogenstein" )

            local result = BuildSkillList(pc.get_job(), pc.get_skill_group())



            local vnum_list = result[1]

            local name_list = result[2]



                if table.getn(vnum_list) < 2 then

                    say("Es gibt keine Fertigkeiten die")

                    say("du perfektonieren kannst!")

                    return

                end

                    say("Welche Fertigkeit willst du perfektionieren?")

                    say("")



                    local i = select_table(name_list)



                        if table.getn(name_list) == i then

                        return

                    end



                            local name = name_list[i]

                            local vnum = vnum_list[i]



                            say_title("Regenbogenstein:")

                            say_reward("Dieser Stein erm�glicht es dir,")

                            say_reward("deine Fertigkeit zu pefektonieren!")

                            say(string.format("%s auf Perfekten Meister erh�hen?", name))

                            say("")



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

                                if 2 == s then

                                return

                            end



                                if 1 == s then

                                say_title("Regenbogenstein:")

                                say("Einmal benutzt, ist dies nicht mehr R�ckg�ngig zu machen.")

                                say("Willst du ihn trotzdem benutzen?")

                                say("")



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



                                if 2 == c then

                                return

                            end





                                    if 1 == c then

                                    pc.set_skill_level((vnum) ,59)

                                    say_reward("Deine Fertigkeit wurde perfektioniert.")

                                    say_reward("Viel Spa� weiterhin mit deiner Perfekten")

                                    say_reward("Fertigkeit!")

                                    pc.removeitem("50512", 1)

                                end

                            end

                        end

                    end

                end

Und wie �nder ich bei der Seelensteinquest die Erfolgschanche auf z.B. 50%.

Spoiler

PHP Code:


			
quest training_grandmaster_skill begin

    state start begin

    when 50513.use begin

        say_title("Seelenstein")



        if pc.get_skill_group() == 0 then

        say("Du hast keine Skills"..pc.get_skill_group())

        return

        end



        if get_time() < pc.getqf("next_time") then -- and not is_test_server() then

        if pc.is_skill_book_no_delay() then

            say("Hiermit kannst du eine")

            say("Fertigkeit perfektionieren.")

            say("")

            wait()

            say_title("Seelenstein")

        else

            say("Du musst noch warten.")

            return

        end

        end



        local result = training_grandmaster_skill.BuildGrandMasterSkillList(pc.get_job(), pc.get_skill_group())



        local vnum_list = result[1]

        local name_list = result[2]



        if table.getn(vnum_list) == 0 then

        say("Deine Fertigkeiten sind bereits perfekt!")

        return

        end



        say("W�hle eine Fertigkeit aus.")

        say("")



        local menu_list = {}

        table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)

        table.insert(menu_list, "Abbrechen") 



        local s=select_table(menu_list)

        if table.getn(menu_list) == s then

        return

        end



        local skill_name=name_list[s]

        local skill_vnum=vnum_list[s]

        local skill_level = pc.get_skill_level(skill_vnum)

        local cur_alignment = pc.get_real_alignment()

        local need_alignment = 1000+500*(skill_level-30)



        test_chat("Deine Rangpunkte:"..cur_alignment)

        test_chat("Ben�tigte Rangpunkte:"..need_alignment)



        local title=string.format("%s Perfektionieren", skill_name, skill_level-30+1)



        say_title(title)

        say("Beim lesen des Seelensteins")

        say("verlierst du Rangpunkte!")

        say("")



        if cur_alignment<-19000+need_alignment then

        say_reward("Zu wenig Rangpunkte.")

        return

        end



        if cur_alignment<0 then

        say_reward(string.format("Ben�tigte Rangpunkte: %d -> %d", need_alignment, need_alignment*2))

        say_reward("(���H�H�U����, ���c*Ȯ���2*�)")

        need_alignment=need_alignment*2

        elseif cur_alignment<need_alignment then

        say_reward(string.format("Ben�tigte Rangpunkte:: %d", need_alignment))

        say_reward("Zu wenige Rangpunkte")

        else

        say_reward(string.format("Ben�tigte Rangpunkte: %d", need_alignment))

        end

        say("")



        local s=select("Weiter", "Abbrechen")    

        if s==2 then

        return

        end





        if cur_alignment>=0 and cur_alignment<need_alignment then

        say_title(string.format("%s �T�w", title))

        say("Es ist soweit!")

        say("Um zu trainieren,")

        say("gib bitte ein: Trainieren")

        say("")

        say("")

        say_reward("Trainieren")

        say("")

        say("�p�G���Q*׽m����, �Ы��U�T�w")

        local s=input()

        if s!="Trainieren" then

            return

        end

        end



        if get_time() < pc.getqf("next_time") then -- and not is_test_server() then

        if pc.is_skill_book_no_delay() then

            pc.remove_skill_book_no_delay()

        else

            say("[���ŵ���]�ޯ�*׽m���~: �𮧤�")

            return

        end

        end



        pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12)))



        if need_alignment>0 then

        if pc.learn_grand_master_skill(skill_vnum) then

            pc.change_alignment(-need_alignment)





            say_title(string.format("%s ", title))

            if 40 == pc.get_skill_level(skill_vnum) then

            say(string.format("%s ist schon Perfekt", skill_name))

            else

            say(string.format("%s Erfolgreich gestiegen", skill_name, skill_level-30+1+1))

            end

            say("")

            say_reward("Erfolgreich!")

            say_reward(string.format("Verbrauchte Rangpunkte %d ", need_alignment))

            say("")

        else

            say_title(string.format("%s ", title))

            say("Das hat leider nicht geklappt.")

            say("")

            say_reward("Fehlgeschlagen!")

            say("")

            pc.change_alignment(-number(need_alignment/3, need_alignment/2))

        end

        end



        item.remove()

    end

    function BuildGrandMasterSkillList(job, group)

        GRAND_MASTER_SKILL_LEVEL = 30

        PERFECT_MASTER_SKILL_LEVEL = 40



        local skill_list = special.active_skill_list[job+1][group]

        local ret_vnum_list = {}

        local ret_name_list = {}



        -- test_chat(string.format("job=%d, group=%d", job, group))



        table.foreach(skill_list, 

        function(i, skill_vnum) 

        local skill_level = pc.get_skill_level(skill_vnum)



        -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))

        if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then



            table.insert(ret_vnum_list, skill_vnum)

            local name=locale.GM_SKILL_NAME_DICT[skill_vnum]

            if name == nil then name=skill_vnum end

            table.insert(ret_name_list, name)

        end

        end)

        return {ret_vnum_list, ret_name_list}





        --return {ret_vnum_list, ret_name_list}

    end

    end

end

Bitte um Hilfe

10/11/2010 19:26 CoreDump#658

also regenbogenstein.quest gibts schon mehr als genug. auch verschiedene varianten.
und bei der 2ten quest glaube ich(hab mich noch nie wirklich um seeli quests gek�mmert) muss man die chance in der locale einstellen.

10/11/2010 21:35 ProNight84#659

Abend.

H�tte da eine Frage.

Hab zwei Quest`s geschreiben f�r die Shops.

Eine Quest davon:

PHP Code:


			
quest waffen begin
    state start begin
    
    when 9001.chat."Waffen" begin
         npc.open_shop(1)
            say("Hier findest du die Waffen")
    end
    when 9001.chat."Pfeile" begin
         npc.open_shop(6)
            say("Hier findest du alle Pfeile")
    end
    
    end
end

Die Quest hat keinen Fehler und die andere auch nicht, aber der VPC nimmt sie nicht an.

Da steht dan sowas da.

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

Kann mir einer da weiter helfen ?

10/12/2010 00:47 Avulsed#660

Segmentation fault bedeutet das der Name falsch oder garnicht in der hongkonglist steht..

#600er Post :D

Page 44 of 845