[SERVICE] Die Questerstellung

Page 233 of 248

233

07/02/2016 14:52 BizepsSupportAccount#3481

if zf <= p [2] and pc.get_level () >= 15 begin

ersetzen.

07/05/2016 10:47 r3dn0xHD#3482

Guten morgen suche eine quest die einige items wie zb muschel gegenstand segnen und einf�gen bei jedem mob droppen l�sst.
Wichtig hierbei am besten das ich noch weiter items einf�gen kann und man die sachen nur bei mobs droppt wo das levelunterschied nicht �ber 15 ist.
danke im vorraus

07/05/2016 12:55 -Exploit#3483

Such gegen Bezahlung ein erfahrenen Quester der mir ein Gildenrun schreibt.

Bitte melden via Skype.

07/05/2016 21:34 Gameerish___#3484

PHP Code:


			
----------------------------------------------------

--MAKE HERB LV4

--METIN2 Herb Quest  

----------------------------------------------------

quest make_herb_lv4  begin

    state start begin

        when login or levelup with pc.get_level() ==4  begin

            set_state(information)

        end    

    end



    state information begin

        when letter begin

            local v = find_npc_by_vnum(20084)

            if v != 0 then

                target.vid("__TARGET__", v, "Biologenquest")

            end

            send_letter("Die Untersuchung des Biologen(Pfirsichbl�te)")

        end



        when button or info begin

            say_title("Die Untersuchung des Biologen(Pfirsichbl�te)")

            say("")

            say("Die Biologin braucht deine Hilfe!")

            say("Gehe zu ihr.")

            say("")

        end

        

        when __TARGET__.target.click or

            20084.chat."Pfirsichbl�ten" begin

            target.delete("__TARGET__")

            say("Biologin:")

            ---                                                   l

            say("Oh!!! Du hilfst mir?")

            say("Gut ...")

            say("Ich bin �brigenz die Biologin")

            say("ich studiere zahlreiches aus der Pflanzenwelt.")

            say("Wenn du mir bei meinen Forschungen hilfst,")

            say("werde ich dich Reich Belohnen")

            wait()

            say("Biologin:")

            say("Ich habe vor kurzem wieder angefangen ...")

            say("Ich Forsche an Bl�ten...")

            say("Ich habe derzeit viel zu tun,")

            say("es w�hre also nett wenn du mir hilfst...")

            say("Sammel 5 Pfirsichbl�ten und ich werde dich Belohnen")

                say("Du bekommst die Bl�ten von Hungrigen Alpha-W�lfe")

            say("Nun Geht, Ich w�nsche euch viel Gl�ck")

            say("")                                                                                                                                                          

            set_state(go_to_disciple)

            pc.setqf("collect_count",0) 

            pc.setqf("drink_drug",0) 

        end

    end



    state go_to_disciple begin

        when letter begin

            send_letter("Sammlung der Kr�uter")

            

        end

        when button or info begin

            say_title("Pfirsichbl�ten")

            ---                                                   l

            say("")

            say("Die Biologin gab euch den Auftrag")

            say("5 Bl�ten zu sammeln!")

            say("Sammelt sie von Hungrigen Alpha-W�lfe ")

            say("und gebt sie der Biologin.")

            say("")

            say_item_vnum(50701)

            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")

            say("")

        end

        

        when 71035.use begin --�g�b�Ĥ�

            if pc.getqf("drink_drug")==1 then

                say("")

                say("�w�g�ϥΤF1��")

                say("")



                return

            end

            if pc.count_item(50701)==0 then

                say("Du hast keine!")

                say("Du hast keine!")

                say("Du sollst mir aber welche bringen :D")

                say("")

                return

            end

            item.remove()    

            pc.setqf("drink_drug",1)

        end





        when 173.kill begin

            if pc.count_item(50701)<5-pc.getqf("collect_count") then

                pc.give_item2(50701, 1)

            end

        end

        

        when 20084.chat."Pfirsichbl�te" with pc.count_item(50701) >0   begin

                say("Einen Moment ...")

                ---                                                   l

                say("Vielen Dank,")

                say("lasst es mich schnell �berpr�fen")

                say("ob diese Bl�te in Ordnung ist ...")

                say("")

                pc.remove_item(50701, 1)

                wait()

                

                local pass_percent

                if pc.getqf("drink_drug")==0 then

                    pass_percent=90

                else        

                    pass_percent=100

                end

                

                local s= number(1,100)

                if s<= pass_percent  then

                   if pc.getqf("collect_count")< 4 then     --5*ӥH�U 

                        local index =pc.getqf("collect_count")+1 

                        pc.setqf("collect_count",index)     --���o�@*Ӯ� +1

                        say("Biologin:")

                        say("Hervorragend diese Bl�te ist in Ordnung")

                        say("Ihr habt bis jetzt ".." "..5-pc.getqf("collect_count").. " Abgegeben!")

                        say("Bringt mir noch welche!")

                        say("")

                        pc.setqf("drink_drug",0)     --�Ĥ���l��

                        return

                    end

                    say("Biologin:")

                    say("Hervorragend du hast")

                    say("mir die 5 St�ck gebracht...")

                    say("Daf�r werde ich dich wie versprochen")

                        say("Belohnen :D")

                    say("")

                    say_reward("Du Bekommst ein Item!")

                    say_reward("Du Bekommst 1kk Yang!")

                    pc.setqf("collect_count",0)

                    pc.setqf("drink_drug",0)    

                    clear_letter()

                    set_state(__complete)

                    

                    else      

                        pc.give_item2(13009)

                        say_reward("Schlachtschild+9")



                    end

                    pc.change_money(1000000)

                    set_quest_state("levelup","run")

                    

                else                                

                say("Biologin:")

                say("Diese Bl�te ist von schlechter Qualit�t!")

                say("sie kann nicht verwendet werden")

                say("bitte hole mir eine neue.")

                say("")

                pc.setqf("drink_drug",0)     --�Ĥ���l��

                return

                end

        

    end

end





state __complete begin

    end

end

Virtual box sagt mir:
syntax errer . [string "go_to_disciplepc . count_item (50701) > 0"]:45: <eof> expected near 'else'

Finde den fehler einfach nciht, kann mri jemand weiter helfen ?

07/08/2016 00:44 Blacky7#3485

Hallo liebe Leute,

ich habe hier eine Seelenstein Quest, ich w�rde mich freuen wenn jemand, entfernen k�nnte das man
- immer trainieren am anfang eingeben muss
- keine Rangpunkte verliert wenn man ein Seelenstein lie�t
- nicht mehr Exorzismus Rollen schlucken muss bevor man Seelis lie�t, also man sollte mehrere Seelis lesen k�nnen ohne eine Exo zu verwenden.

Spoiler

PHP Code:


			
quest training_grandmaster_skill begin
    state start begin
        when 50513.use begin
            if pc.get_skill_group() == 0 then
                say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                say(gameforge.training_grandmaster_skill._20_say)
                return
            end

            if get_time() < pc.getqf("next_time") then
                if pc.is_skill_book_no_delay() then
                    say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                    say(gameforge.training_grandmaster_skill._30_say)
                    wait()
                else
                    say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                    say(gameforge.training_grandmaster_skill._40_say)
                    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_title(gameforge.training_grandmaster_skill._10_sayTitle)
                say(gameforge.training_grandmaster_skill._50_say)
                return
            end
            say_title(gameforge.training_grandmaster_skill._10_sayTitle)
            say(gameforge.training_grandmaster_skill._60_say)

            local menu_list = {}
            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
            table.insert(menu_list, gameforge.locale.cancel) 

            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(string.format(gameforge.training_grandmaster_skill._70_chat, cur_alignment..gameforge.training_grandmaster_skill._75_chat..need_alignment))

            local title=string.format(gameforge.training_grandmaster_skill._80_stringFormat, skill_name, skill_level-30+1)

            say_title(gameforge.training_grandmaster_skill._10_sayTitle)
            say(gameforge.training_grandmaster_skill._90_say)

            if cur_alignment<-19000+need_alignment then
                say_reward(gameforge.training_grandmaster_skill._100_sayReward)
                                return
            end

            if cur_alignment<0 then
say_reward(string.format(gameforge.training_grandmaster_skill._110_sayReward, need_alignment, need_alignment*2))
                say_reward(gameforge.training_grandmaster_skill._120_sayReward)
                need_alignment=need_alignment*2
            elseif cur_alignment<need_alignment then
say_reward(string.format(gameforge.training_grandmaster_skill._130_sayReward, need_alignment))
                say_reward(gameforge.training_grandmaster_skill._140_sayReward)
            else
say_reward(string.format(gameforge.training_grandmaster_skill._130_sayReward, need_alignment))
            end
                
            local s= select(gameforge.locale.levelup.prev_quest_go, gameforge.locale.cancel)    
            
            if s==2 then
                return
            end


            if cur_alignment>=0 and cur_alignment<need_alignment then
say_title(title)
                say_reward(gameforge.training_grandmaster_skill._150_sayReward)
                say(gameforge.training_grandmaster_skill._160_say)
                say_reward(gameforge.training_grandmaster_skill._170_sayReward)
                say(gameforge.training_grandmaster_skill._180_say)
                local s=input()
                s = string.gsub(s, "(%a*)%s*", "%1")
                s = string.lower(string.gsub(s, "(%a*)%s*", "%1"))

                local t = string.gsub(gameforge.training_grandmaster_skill._10_answer, "(%a*)%s*", "%1")
                t = string.lower(string.gsub(gameforge.training_grandmaster_skill._10_answer, "(%a*)%s*", "%1"))
                
                if s!=t then
                    return
                end
            end

            if get_time() < pc.getqf("next_time") then
                if pc.is_skill_book_no_delay() then
                    pc.remove_skill_book_no_delay()
                else
                    say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                    return
                end
            end

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


            if need_alignment>0 then
                if pc.count_item(50513) > 0 then
                    if pc.learn_grand_master_skill(skill_vnum) then
                        pc.change_alignment(-need_alignment)
                
                        say_title(title)
                        say_reward(gameforge.training_grandmaster_skill._190_sayReward)

                        if 40 == pc.get_skill_level(skill_vnum) then
                            say(gameforge.training_grandmaster_skill._200_say)
                            say(string.format(gameforge.training_grandmaster_skill._210_say, skill_name))
                            say(gameforge.training_grandmaster_skill._220_say)
                        else
                            say(gameforge.training_grandmaster_skill._230_say)
                            say(string.format(gameforge.training_grandmaster_skill._240_say, skill_name, skill_level-30+1+1))
                        end
                        say_reward(gameforge.training_grandmaster_skill._250_sayReward)
                        say_reward(string.format(gameforge.training_grandmaster_skill._260_sayReward, need_alignment))
                    else
                        say_title(title)
                        say_reward(gameforge.training_grandmaster_skill._270_sayReward)
                        say(gameforge.training_grandmaster_skill._280_say)
                        say_reward(gameforge.training_grandmaster_skill._290_sayReward)
                        pc.change_alignment(-number(need_alignment/3, need_alignment/2))
                    end
                    pc.remove_item(50513)
                else
                    char_log(0, "HACK 50513", pc.getname())
                end
            end
        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 = {}

            table.foreach(skill_list, 
            function(i, skill_vnum) 
            local skill_level = pc.get_skill_level(skill_vnum)

            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}
        end
    end
end

ich bedanke mich schonmal im Vorraus!
THX 100% Garantie :)

07/09/2016 15:34 Chris9090909090#3486

Suche eine Quest die sorgt das z.B ein npc gekillt wird und der schaden einem anderen monster gegeben wird

07/21/2016 10:09 TrollZone#3487

Hallo!

Ich suche folgende Quests:

Ingame_Bann.quest

Spoiler

Newssystem.quest

Spoiler

BITTE DIE QUESTS PER PN SCHICKEN
(BITTE!!!)

Ich bitte um dringende hilfe :)

07/21/2016 10:27 martingos#3488

Hey. Suche jemanden der etwas erfahrener ist. Und Bock hat bisschen was auf Skype/TS zu erkl�ren... Wenns alles passt ist nat�rlich auch ne PSC drinne.

Hier ein System, bei dem ich mir vorstellen k�nnte, dass es sehr aufwendig zu questen ist:

"Der Spieler kann nicht nur ein Pet haben, sondern ein Team von z.b. 6 Pets bei sich haben. Jeder Zeit kann nur eins dieser Pets aktiv wirken, die anderen passiv."

07/23/2016 00:35 timiich12#3489

Ich Suche eine drop quest die so aussieht:

Das Monster sollte nicht alle items droppen sondern nur eins zu 15%

Code:

quest drop begin
    state start begin    
        when 1093.kill begin
            pc.give_item2(54005, 1) or (54006, 1)	or (54007, 1) or (54008, 1)
        end
    end
end

w�re sehr nett

07/23/2016 02:44 .Delta#3490

15% chance �berhaupt was zu droppen?
dann zuf�llig eins der items?

wenn nicht, dann hab ich das falsch verstanden^^

PHP Code:


			
quest drop begin

    state start begin    

        when kill with npc.get_race() == 1093 begin

            local items = {

                {54005, 1},

                {54006, 1},

                {54007, 1},

                {54008, 1}

            }

            if number(1, 100) <= 15 then

                local r = number(1, 4)

                pc.give_item2(items[r][1], items[r][2])

            end

        end

    end

end

Quote:
Originally Posted by timiich12
Ich Suche eine drop quest die so aussieht:

Das Monster sollte nicht alle items droppen sondern nur eins zu 15%
Code:
quest drop begin
    state start begin    
        when 1093.kill begin
            pc.give_item2(54005, 1) or (54006, 1)	or (54007, 1) or (54008, 1)
        end
    end
end
w�re sehr nett

07/23/2016 06:22 TrollZone#3491

Quote:

Originally Posted by TrollZone

Hallo!

Ich suche folgende Quests:

Ingame_Bann.quest

Spoiler

Also:
Die quest sollte bei einem NPC anklickbar sein (Nur als GM).
man kann da NUR Bannen
In der reihenfolge:
- Name eingeben
- Zeit ausw�hlen (Tage NUR) ODER Permanent
- Grund angeben (kann auch leer gelassen werden) (Aber zeit muss ausgew�hlt werden)
- Danach kommt eine notice_all meldung im chat wo steht:
#Der Spieler XXX wurde gerade von XXX gebannt.
#Grund: XXX#
#Dauer: XXX#

==== Like Age of Aruna!!

Newssystem.quest

Spoiler

Also:
Ich m�chte das der Server alle 30min(Festgelegter Zeit - somehow) eine notice_all nachricht ausgibt bzw mehrere. Diese sollte ich beliebig erweitern & �ndern k�nnen.
Und wenn es ginge , die Zeitabst�nde pro "News" immer individuell einstellen kann z.b
eine news kommt alle 30min und die andere jede stunde

BITTE DIE QUESTS PER PN SCHICKEN
(BITTE!!!)

Ich bitte um dringende hilfe :)

Suche daf�r jmd erfahrendes , der mir helfen kann damit :)

07/23/2016 18:43 timiich12#3492

Hallo,
Ich suche deine Dropp quest die alle 24 stunden 100x ID:30013 l�sst
von den Monstern: 6301, 6302 ,6304
vielen dank im voraus

07/24/2016 23:15 [SA]xAmnezia#3493

Quote:

Originally Posted by TrollZone

Hallo!

Ich suche folgende Quests:

Ingame_Bann.quest

Spoiler

Also:
Die quest sollte bei einem NPC anklickbar sein (Nur als GM).
man kann da NUR Bannen
In der reihenfolge:
- Name eingeben
- Zeit ausw�hlen (Tage NUR) ODER Permanent
- Grund angeben (kann auch leer gelassen werden) (Aber zeit muss ausgew�hlt werden)
- Danach kommt eine notice_all meldung im chat wo steht:
#Der Spieler XXX wurde gerade von XXX gebannt.
#Grund: XXX#
#Dauer: XXX#

Newssystem.quest

Spoiler

Also:
Ich m�chte das der Server alle 30min(Festgelegter Zeit - somehow) eine notice_all nachricht ausgibt bzw mehrere. Diese sollte ich beliebig erweitern & �ndern k�nnen.
Und wenn es ginge , die Zeitabst�nde pro "News" immer individuell einstellen kann z.b
eine news kommt alle 30min und die andere jede stunde

BITTE DIE QUESTS PER PN SCHICKEN
(BITTE!!!)

Ich bitte um dringende hilfe :)

Hab dir die Quests geschickt.

Liebe Gr��e

Quote:

Originally Posted by I�m Raylee

Hallo Leute :)

K�nnte mir bitte jemand eine Ausbildungsquest f�r alle 5 Charaktere erstellen? (Krieger,Ninja,Sura,Schamane,Lykaner)

Best regards
Raylee

Jo schicke dir Skype, schreib an.

Liebe Gr��e

Quote:

Originally Posted by .Ayaz'

Moin Moin :)

Ich suche eine "GM Ank�ndigungs Quest". Sie sollte alle 10 Minuten ank�ndigen, dass ein GM Online ist (wenn �berhaupt). Wenn man sich teleportiert geht der timer wieder von vorne los.

Danke :)

Meld dich Skype hab ne mega Auswahl davon.

Liebe Gr��e

Quote:

Originally Posted by x"Kazuki

Guten Tag,

ich br�uchte zun�chst zwei Quests:

1. Quest

Spoiler

�hnlich wie die Regi Quest soll diese Quest aufgebaut sein:
Durch ein Item kann der User seine Rasse ausw�hlen, hat er das getan, so w�hlt er seine zuvor ausgesuchten Fertigkeiten (Beim Krieger w�re das "Mental"/"K�rper". Nun werden alle m�glichen Fertigkeiten aufgelistet dagestellt (Aura,Kampfrausch,Schwertwirbel etc.) W�hlt er jetzt z.B. Kampfrausch, so hat er die m�glichkeit die Fertigkeit auf M/G oder P zu setzten.

Diese Struktur m�sste f�r jeden Charakter m�glich sein (Krieger,Ninja,Sura,Schamie)

2. Quest

Spoiler

Einfach eine Quest f�r den Lykaner, wo er beim NPC seine Fertigkeiten abholen kann mit (Level 5), diese dann aber direkt auf P gesetzt werden

Vielen Dank schon mal f�r die Hilfe!

Mit freundlichen Gr��en,
X"Kazuki

Fliegt aufm PC rum, meld dich ebenso bei mir.

Liebe Gr��e

07/29/2016 01:57 iL0riS#3494

Hallo suche so eine Quest:

Eine Tausch Quest wo alle Bonis erhalten bleiben z.b Gifit mit Bonis kann man zu XY Waffe tauschen mit den alten Bonis von Gifiti dazu soll man noch 1 Item brauchen zu der R�stung dass man die tauschen kann w�re sehr nett danke!

07/30/2016 00:33 .ERDLING.#3495

Bin auf der Suche nach einer Lv. 5 Lehren Wechsel Quest, jedoch soll diese als normale Schriftrolle auftauchen und nicht bei einem NPC gemacht werden.
Die Quest soll ab Lv. 5 auftauchen, und beim Anklicken einen Text + Auswahl der Lehre, bei Krieger "K�rper, Mental" bei Ninja Sura Shami das jeweilige..
W�re lieb

Page 233 of 248

233