[SERVICE] Die Questerstellung

Page 62 of 248

12/25/2013 17:15 .Soυzα#916

Hallo Leute, und Frohe Weihnachten.
Ich suche dringend eine Quest.

Die soll etwa so aussehen.

Mann hollt sich aus IS eine VIP-Truhe.

Quest Beginn:
------------------
Mann klickt die Truhe an geht Men� auf mann kann sich die jeweilige Rasse ausw�hlen und bekommt dann die Items, nachdem man die Rasse ausgew�hlt hat sollte kommen "Gehe nochmal sicher das du mehr als 5 Pl�tze in dein Inventar frei hast und die Truhe verschwindet nachdem man auf Weiter geklickt hat, aber wenn man auf abbrechen klickt bleibt die Truhe enthalten.W�rde ich mich freuen wenn jemand das f�r mich schreiben w�rde.

Vielen Dank.

12/25/2013 17:24 MrPlayboy#917

PHP Code:


			
quest pumpkin begin
    state start begin
        when ITEMVNUM.use begin
            say_title("Servername")
            say("W�hle deine Rasse aus!")
            local a=select("Krieger","Ninja","Sura","Schamane","Abbrechen")
                if a==5 then return
                elseif a==1 then
                    say_title("Servername")
                    say("Bitte gehe sicher, dass du 5 freie Pl�tze[ENTER]im Inventar hast!")
                    if select("Weiter","Abbrechen")==2 then return
                    else
                        item.remove()
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                    end
                elseif a==2 then
                    say_title("Servername")
                    say("Bitte gehe sicher, dass du 5 freie Pl�tze[ENTER]im Inventar hast!")
                    if select("Weiter","Abbrechen")==2 then return
                    else
                        item.remove()
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                    end
                elseif a==3 then
                    say_title("Servername")
                    say("Bitte gehe sicher, dass du 5 freie Pl�tze[ENTER]im Inventar hast!")
                    if select("Weiter","Abbrechen")==2 then return
                    else
                        item.remove()
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                    end
                elseif a==4 then
                    say_title("Servername")
                    say("Bitte gehe sicher, dass du 5 freie Pl�tze[ENTER]im Inventar hast!")
                    if select("Weiter","Abbrechen")==2 then return
                    else
                        item.remove()
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                        pc.give_item2("ITEMID", Anzahl)
                    end
                end
        end
    end
end

12/25/2013 17:39 .yorliK#918

Hey.

PHP Code:


			
Der Spieler wird ausgeloggt und bekommt nen 20min block, 
danach kann er sich wieder einloggen.

Wie kann man das am besten meistern?

Vielen Dank schonmal, achja und Frohe Weihnachten.

12/26/2013 14:20 .Soυzα#919

Hallo Leute ich suche eine Port Quest wo man NPC anklickt dann da steht halt Kammer des Grauens und man braucht ein item um rein zu kommen man gibt das Item ab und man wird hingeportet kordis selbst anpassbar halt.

12/26/2013 14:27 MrPlayboy#920

PHP Code:


			
quest pumpkin begin
    state start begin
        when NPCVNUM.chat."Kammer des Grauens" begin
            say_title(""..mob_name(NPCVNUM)..":")
            say("Um die Kammer des Grauens zu betreten[ENTER]ben�tigst du folgendes Iten:")
            say_item_vnum(ITEMVNUM)
            if pc.count_item(ITEMVNUM)>=1 then
                if select("Betreten","Abbrechen")==2 then return end
                say_title(""..mob_name(NPCVNUM)..":")
                say("Viel Gl�ck!")
                pc.remove_item(ITEMVNUM)
                pc.warp(X, Y)
            else
                say("Du hast das Item nicht dabei!")
            end
        end
    end
end

12/26/2013 16:18 MrPlayboy#921

PHP Code:


			
quest apollo begin
    state start begin
        when logout with pc.get_map_index() == 66 begin
            pc.remove_item("ITEMVNUM", ANZAHL)
        end
    end
end

12/26/2013 19:30 .yorliK#922

Moin, es gibt ja die Funktion find.player_by_name oder so �hnlich um zu kontrollieren ob dieser Name schon existiert(wie ich geh�rt habe geht das nur bei Leuten im gleichen Core).

Wie kann ich das nun per mysql_query kontrollieren? Das er die db nach dem Namen absucht und einem dann sagt "jo gibt es" oder "nein gibt es nicht".

12/27/2013 07:30 Naru.Chan#923

K�nntest du mir so eine Quest erstellen?
Bitte danke.

Z.b ab sobald du 500 kills hast bekommst du ne quest darin steht t�te 100 blaue gelbe und rote daf�r bekommt man z.b ein pokemon / ab 1000 kills bekommst du t�te 300 blaue rote und gelbe dazu den bosen blablabla mob auf der pvm map gibt wd ne Belohnung

12/27/2013 12:30 DiasporaGaming#924

Hat wer ne gute AntiEXP Ring Quest?

12/27/2013 12:34 DerForenLeser#925

Quote:

Originally Posted by .FlashTeX�

Hallo, ich weis nicht ob ich hier richtig bin, & ich nach nem Quester Fragen darf.

Aufjedenfall suche ich einen Quester, der sich richtig gut auskennt & der mir auf autrage eine Quest schreiben kann.
Nat�rlich wird dieser bezahlt.
Es w�re sehr nett, wenn sich jemand melden w�rde in Skype bin ich erreichbar unter dem Namen mein.grisu
Nat�rlich bin ich auch in Epvp verf�gbar.

Liebe Gr��e
Flash

Frag am Besten hier nach:
[Only registered and activated users can see links. Click Here To Register...]

Quote:

Originally Posted by DiasporaGaming

Hat wer ne gute AntiEXP Ring Quest?

PHP Code:


			
quest anti_exp begin

    state start begin

        when exp.timer begin            

            pc.give_exp2(-pc.get_exp())

        end

        when 72501.use begin

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

                chat("Ab jetzt bekommst du KEINE Exp mehr!")

                pc.setqf("exp_block", 1)    

                loop_timer("exp", 1)

            else

                chat("Ab jetzt bekommst du wieder Exp!")

                pc.setqf("exp_block", 0)

                cleartimer("exp")

            end

        end        

    end

end

12/27/2013 14:21 MrPlayboy#926

Diese hier sollte besser sein, da wird deine EXP nicht jede Sekunde gel�scht sondern nach JEDEM Monsterkill, dh bei einem Server mit Highrates ist ein Levelup ausgeschlossen:

PHP Code:


			
quest anti_exp begin 
    state start begin 
        when 72501.use begin 
            if pc.getqf("exp_block")==0 then 
                chat("Ab jetzt bekommst du KEINE Exp mehr!") 
                pc.setqf("exp_block", 1)     
            else 
                chat("Ab jetzt bekommst du wieder Exp!") 
                pc.setqf("exp_block", 0) 
            end 
        end
        when kill with not npc.is_pc() and pc.getqf("exp_block")==1 begin
            pc.give_exp2(-pc.get_exp())
        end
    end 
end

12/27/2013 14:33 Mijago#927

Mal so am Rande, ich mag die Anti-EXP Quests nicht, die immer die EP auf 0 setzen, nur weil der Coder zu faul war, einfach die alten EP zu speichern und nur die Differenz abzuziehen..

Ich w�rde das spontan so l�sen:

Code:

quest anti_exp begin 
    state start begin 
        when 72501.use begin 
            pc.setqf("exp_block", pc.getqf("exp_block") >= 0 and 0 or pc.get_exp())
            chat("Du erh�lst nun "..(pc.getqf("exp_block")== 0 and "wieder" or "keine").." EXP.")
        end
        when kill with not npc.is_pc() and pc.getqf("exp_block")>=0 and pc.get_exp() > pc.getqf("exp_block") begin
            pc.give_exp2(-math.max(0,pc.get_exp()-pc.getqf("exp_block")))
        end
    end 
end

12/27/2013 15:24 .Soυzα#928

Moin ich mal wieder ich suche die oficial_pet quest f�r die 2038M game. Da bei mir die Pets ganz Normal Funktunieren aber beim wegrufen die Bonis nicht verschwinden. Hier meine Quest.

Spoiler

PHP Code:


			
quest haustiere begin

    state start begin

        -- Setzt den neuen Petnamen in die Datenbank ein

        function set_pet_name(name)

            mysql_query("DELETE FROM player.pet_name WHERE id = \\'"..pc.get_player_id().."\\'")

            mysql_query("INSERT INTO player.pet_name(id, name) VALUES(\\'"..pc.get_player_id().."\\', \\'"..name.."\\')")

        end

        -- Holt sich den Petnamen aus der Datenbank

        function get_pet_name()

            local pet_name = mysql_query("SELECT * FROM player.pet_name WHERE id = \\'"..pc.get_player_id().."\\'")

            return (pet_name.name or {pc.get_name().."'s Haustier"})[1]

        end

        -- Feuer-Ph�nix

        when 53001.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) 

                affect.remove_collect(apply.MAX_HP, 2500, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(22)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)

                affect.add_collect(apply.MAX_HP, 2500, 60*60*8)

            end

        end

        -- Panda

        when 53002.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATTBONUS_HUMAN, 20, 60*60*8)   

                affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(24)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATTBONUS_HUMAN, 20, 60*60*8)

                affect.add_collect(apply.MAX_HP, 5000, 60*60*8)

            end

        end

        -- Eis-Ph�nix

        when 53003.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)  

                affect.remove_collect(apply.MAX_HP, 2500, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(23)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)

                affect.add_collect(apply.MAX_HP, 2500, 60*60*8)

            end

        end

        -- Baby-Azrael

        when 53005.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)   

                affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(25)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 200, 60*60*8)

                affect.add_collect(apply.MAX_HP, 5000, 60*60*8)

            end

        end

        -- Baby-Wolfs

        when 53006.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)  

                affect.remove_collect(apply.MAX_HP, 2500, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(26)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)

                affect.add_collect(apply.MAX_HP, 2500, 60*60*8)

            end

        end

        -- Baby-L�wen

        when 53007.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)  

                affect.remove_collect(apply.MAX_HP, 2500, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(27)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)

                affect.add_collect(apply.MAX_HP, 2500, 60*60*8)

            end

        end

        -- Baby-Keiler

        when 53008.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATTBONUS_HUMAN, 20, 60*60*8)

                affect.remove_collect(apply.MAX_HP, 7500, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(28)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)

                affect.add_collect(apply.MAX_HP, 2500, 60*60*8)

            end

        end

        -- Baby-Tiger

        when 53009.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) 

                affect.remove_collect(apply.MAX_HP, 2500, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(29)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)

                affect.add_collect(apply.MAX_HP, 2500, 60*60*8)

            end

        end

        -- Baby-Eisb�r

        when 53014.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.BLOCK, 10, 60*60*8)  

                affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(30)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                affect.add_collect(apply.BLOCK, 10, 60*60*8)

                affect.add_collect(apply.MAX_HP, 5000, 60*60*8)

            end

        end

        -- Namenskette - Namens�ndung des Haustiers

        when 71110.use begin

            say_title("Namenskette :")

            say("")

            say("Hier kannst du deinem Haustier einen neuen")

            say("Namen geben. Damit kannst du dein Haustier")

            say("�ber alle anderen hervorheben.")

            say("")

            

            akna = haustiere.get_pet_name()

            

            if string.len(akna) == 0 then

                say_reward("Dein Haustier besitzt bis jetzt keinen Namen.")

            else

                say_reward("Der aktuelle Name deines Haustieres lautet: "..akna)

            end

            

            say("")

            say("M�chtest du fortfahren?")

            say("")

            

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

            if s==2 then

                return

            end

            

            say_title("Namenskette :")

            say("")

            say("Bitte gib hier den neuen Namen deines")

            say("Haustieres ein.")

            

            local x = input()

            

            if string.len(x) < 2 then

                say_title("Namenskette :")

                say("Der eingegeben Name ist zu kurz.")

                say("")

                say_reward("Der neue Name muss aus")

                say_reward("mind. 2 Zeichen bestehen.")

                say("")

                return

            elseif string.len(x) > 12 then

                say_title("Namenskette :")

                say("Der eingegeben Name ist zu lang.")

                say("")

                say_reward("Der neue Name darf max.")

                say_reward("aus 12 Zeichen bestehen.")

                say("")

                return

            end

            

            haustiere.set_pet_name(x)

            chat("Haustier erfolgreich umbenannt")

            pc.remove_item(71110, 1)

        end

    end

end

12/27/2013 15:45 DerForenLeser#929

Quote:

Originally Posted by .Pumpkin

Moin ich mal wieder ich suche die oficial_pet quest f�r die 2038M game. Da bei mir die Pets ganz Normal Funktunieren aber beim wegrufen die Bonis nicht verschwinden. Hier meine Quest.

Spoiler

PHP Code:

quest haustiere begin state start begin -- Setzt den neuen Petnamen in die Datenbank ein function set_pet_name(name) mysql_query("DELETE FROM player.pet_name WHERE id = \\'"..pc.get_player_id().."\\'") mysql_query("INSERT INTO player.pet_name(id, name) VALUES(\\'"..pc.get_player_id().."\\', \\'"..name.."\\')") end -- Holt sich den Petnamen aus der Datenbank function get_pet_name() local pet_name = mysql_query("SELECT * FROM player.pet_name WHERE id = \\'"..pc.get_player_id().."\\'") return (pet_name.name or {pc.get_name().."'s Haustier"})[1] end -- Feuer-Ph�nix when 53001.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.remove_collect(apply.MAX_HP, 2500, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(22) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.add_collect(apply.MAX_HP, 2500, 60*60*8) end end -- Panda when 53002.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATTBONUS_HUMAN, 20, 60*60*8) affect.remove_collect(apply.MAX_HP, 5000, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(24) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATTBONUS_HUMAN, 20, 60*60*8) affect.add_collect(apply.MAX_HP, 5000, 60*60*8) end end -- Eis-Ph�nix when 53003.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.remove_collect(apply.MAX_HP, 2500, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(23) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.add_collect(apply.MAX_HP, 2500, 60*60*8) end end -- Baby-Azrael when 53005.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8) affect.remove_collect(apply.MAX_HP, 5000, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(25) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 200, 60*60*8) affect.add_collect(apply.MAX_HP, 5000, 60*60*8) end end -- Baby-Wolfs when 53006.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.remove_collect(apply.MAX_HP, 2500, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(26) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.add_collect(apply.MAX_HP, 2500, 60*60*8) end end -- Baby-L�wen when 53007.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.remove_collect(apply.MAX_HP, 2500, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(27) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.add_collect(apply.MAX_HP, 2500, 60*60*8) end end -- Baby-Keiler when 53008.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATTBONUS_HUMAN, 20, 60*60*8) affect.remove_collect(apply.MAX_HP, 7500, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(28) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.add_collect(apply.MAX_HP, 2500, 60*60*8) end end -- Baby-Tiger when 53009.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.remove_collect(apply.MAX_HP, 2500, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(29) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8) affect.add_collect(apply.MAX_HP, 2500, 60*60*8) end end -- Baby-Eisb�r when 53014.use begin if pet.is_summon() then pet.unsummon() chat("Dein Haustier verabschiedet sich nun von dir!") affect.remove_collect(apply.BLOCK, 10, 60*60*8) affect.remove_collect(apply.MAX_HP, 5000, 60*60*8) else local old_level = horse.get_level() local old_name = horse.get_name() horse.set_level(30) horse.set_name(haustiere.get_pet_name()) pet.summon() horse.set_level(old_level) horse.set_name(old_name) affect.add_collect(apply.BLOCK, 10, 60*60*8) affect.add_collect(apply.MAX_HP, 5000, 60*60*8) end end -- Namenskette - Namens�ndung des Haustiers when 71110.use begin say_title("Namenskette :") say("") say("Hier kannst du deinem Haustier einen neuen") say("Namen geben. Damit kannst du dein Haustier") say("�ber alle anderen hervorheben.") say("") akna = haustiere.get_pet_name() if string.len(akna) == 0 then say_reward("Dein Haustier besitzt bis jetzt keinen Namen.") else say_reward("Der aktuelle Name deines Haustieres lautet: "..akna) end say("") say("M�chtest du fortfahren?") say("") local s=select("Umbenennen", "Abbrechen") if s==2 then return end say_title("Namenskette :") say("") say("Bitte gib hier den neuen Namen deines") say("Haustieres ein.") local x = input() if string.len(x) < 2 then say_title("Namenskette :") say("Der eingegeben Name ist zu kurz.") say("") say_reward("Der neue Name muss aus") say_reward("mind. 2 Zeichen bestehen.") say("") return elseif string.len(x) > 12 then say_title("Namenskette :") say("Der eingegeben Name ist zu lang.") say("") say_reward("Der neue Name darf max.") say_reward("aus 12 Zeichen bestehen.") say("") return end haustiere.set_pet_name(x) chat("Haustier erfolgreich umbenannt") pc.remove_item(71110, 1) end end end

Nimm eine komplett andere Quest.. Mit der Version kann man n�mlich wunderbar buggen.

Spoiler

PHP Code:


			
 quest haustiere begin
    state start begin
        -- Setzt den neuen Petnamen in die Datenbank ein
        function set_pet_name(name)
            mysql_query("DELETE FROM player.pet_name WHERE id = \\'"..pc.get_player_id().."\\'")
            mysql_query("INSERT INTO player.pet_name(id, name) VALUES(\\'"..pc.get_player_id().."\\', \\'"..name.."\\')")
        end
        -- Holt sich den Petnamen aus der Datenbank
        function get_pet_name()
            local pet_name = mysql_query("SELECT * FROM player.pet_name WHERE id = \\'"..pc.get_player_id().."\\'")
            return (pet_name.name or {pc.get_name().."'s Haustier"})[1]
        end
        -- Feuer-Ph�nix
        when 53001.use with pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("firephoenix_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("firephoenix_use", 1)
                pc.setqf("firephoenix", 1)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER)
        affect.add_collect(apply.STR, 12, 60*60*8)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*8)
         chat("Du hast 12 St�rke,20% Stark gegen Monster,2000 TP")
                horse.set_level("22")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
        affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)                
         affect.remove_collect(apply.STR, 12, 60*60*8)  
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)               
                horse.unsummon()
                pc.setqf("firephoenix_use", 0)
                pc.setqf("firephoenix", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("firephoenix_use") == 1 begin
            
            pc.setqf("firephoenix_use", 0)
            pc.setqf("firephoenix", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier ging alleine fort!")
        affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
                affect.remove_collect(apply.STR, 12, 60*60*8) 
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)
        end
        -- Rentierjunges
        when 53002.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("reindeer") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("reindeer_use", 1)
                pc.setqf("reindeer", 1)
               affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
                affect.add_collect(apply.DEX, 12, 60*60*8)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*8)
                horse.set_level("24")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
        affect.remove_collect(apply.DEX, 12, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)      
                horse.unsummon()
                pc.setqf("reindeer_use", 0)
                pc.setqf("reindeer", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("reindeer_use") == 1 begin
            
            pc.setqf("reindeer_use", 0)
            pc.setqf("reindeer", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verl�sst dich nun!")
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
        affect.remove_collect(apply.DEX, 12, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)
        end
        -- Eis-Ph�nix
        when 53003.use with pc.getqf("firephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("icephoenix_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("icephoenix_use", 1)
                pc.setqf("icephoenix", 1)
               affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
                affect.add_collect(apply.INT, 12, 60*60*8)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*8)
                horse.set_level("23")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
        affect.remove_collect(apply.INT, 12, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)      
                horse.unsummon()
                pc.setqf("icephoenix_use", 0)
                pc.setqf("icephoenix", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("icephoenix_use") == 1 begin
            
            pc.setqf("icephoenix_use", 0)
            pc.setqf("icephoenix", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Eisph�nix verl�sst dich nun!")
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 60*60*8)
        affect.remove_collect(apply.INT, 12, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)
        end
        when 53005.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("pwahuang") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("pwahuang_use", 1)
                pc.setqf("pwahuang", 1)
               affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
                affect.add_collect(apply.ATT_BONUSDEVIL, 10, 60*60*8)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*8)
                horse.set_level("25")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
        affect.remove_collect(apply.ATT_BONUSDEVIL, 10, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)       
                horse.unsummon()
                pc.setqf("pwahuang_use", 0)
                pc.setqf("pwahuang", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("pwahuang_use") == 1 begin
            
            pc.setqf("pwahuang_use", 0)
            pc.setqf("pwahuang", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verl�sst dich nun!")
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
        affect.remove_collect(apply.ATT_BONUSDEVIL, 10, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)
        end
        -- Baby-Wolfs
        when 53006.use with pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("dog_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("dog_use", 1)
                pc.setqf("dog", 1)
               affect.add_collect(apply.EXP_DOUBLE_BONUS, 50, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*8)
                horse.set_level("26")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.EXP_DOUBLE_BONUS, 50, 60*60*8)
        affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)                   
                horse.unsummon()
                pc.setqf("dog_use", 0)
                pc.setqf("dog", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("dog_use") == 1 begin
            
            pc.setqf("dog_use", 0)
            pc.setqf("dog", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verl�sst dich nun!")
                affect.remove_collect(apply.EXP_DOUBLE_BONUS, 50, 60*60*8)
        affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)  
        end

        -- Baby-L�wen

        
        when 53007.use with pc.getqf("dog") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("lion_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("lion_use", 1)
                pc.setqf("lion", 1)
               affect.add_collect(apply.STR, 10, 60*60*8)
                affect.add_collect(apply.INT, 10, 60*60*8)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*8)
                horse.set_level("27")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.STR, 10, 60*60*8)
        affect.remove_collect(apply.INT, 10, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)     
                horse.unsummon()
                pc.setqf("lion_use", 0)
                pc.setqf("lion", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("lion_use") == 1 begin
            
            pc.setqf("lion_use", 0)
            pc.setqf("lion", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verl�sst dich nun!")
                affect.remove_collect(apply.STR, 10, 60*60*8)
        affect.remove_collect(apply.INT, 10, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 2000, 60*60*8)
        end

        -- Baby-Keiler
        when 53008.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("pig") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("pig_use", 1)
                pc.setqf("pig", 1)
               affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
                horse.set_level("28")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
        affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)   
        affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)   
                horse.unsummon()
                pc.setqf("pig_use", 0)
                pc.setqf("pig", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("pig_use") == 1 begin
            
            pc.setqf("pig_use", 0)
            pc.setqf("pig", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verl�sst dich nun!")
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
        affect.remove_collect(apply.ATT_GRADE_BONUS, 50, 60*60*8)   
        affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*8)
        end

        
        -- Baby-Tiger
        when 53009.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("tiger") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("tiger_use", 1)
                pc.setqf("tiger", 1)
               affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1500, 60*60*8)
                horse.set_level("29")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
        affect.remove_collect(apply.MAX_HP, 1500, 60*60*8)      
                horse.unsummon()
                pc.setqf("tiger_use", 0)
                pc.setqf("tiger", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("tiger_use") == 1 begin
            
            pc.setqf("tiger_use", 0)
            pc.setqf("tiger", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verl�sst dich nun!")
                affect.remove_collect(apply.ATTBONUS_HUMAN, 60*60*8)   
        affect.remove_collect(apply.MAX_HP, 1500, 60*60*8)
        end
end
end

Musst halt Boni anpassen..

12/27/2013 15:49 .Soυzα#930

Da ist zB Azrael und Panda eisb�r nicht mit dabei wie f�g ich die noch mit ein?

Page 62 of 248