[SERVICE] Die Questerstellung

Page 91 of 248

04/23/2014 12:29 PlayaStylee#1351

Hallo Suche Ne quest Auto Chatblock wenn jemand schimpft w�rter schreibt das er Chat block bekommen mit verwarnung 1 30 min verwarung 2 2stunden verwarung 3 24 stunden CB hoffe ihr k�nnt mir helfen bei so einer quest schreiben die schimpf w�rter soll er per banword gelesen werden lesen die quest Ansonst wenn es nicht geht halt normale quest

04/25/2014 13:22 f4m0uz # 1#1352

Suche eine Quest f�r nen art Gl�cksrad man kann mit Ingame Coins 80014 80015 80016 (die Quest von Killroy ) 100 DR - 500 DR - 1000 DR - und man sollte f�r 50 DR drehen k�nnen. Items sollten einstellbar sein.

04/26/2014 23:55 dopeness'#1353

Suche eine Quest mit Startlevel 75, wenns geht ohne Kick.

Gru�,
sHorty.

04/27/2014 00:18 Simplex2�#1354

PHP Code:


			
quest starterlevel begin 
    state start begin 
        when login with pc.get_playtime() == 0 begin 
            while pc.get_level() < 75 do 
                local a = pc.get_next_exp() 
                pc.give_exp2(a) 
            end 
        end 
    end 
end

Glaube das sollte gehen, bin mir aber nicht sicher.

04/30/2014 19:59 K.A.K.A.S.H.I#1355

Br�uchte zwei Quests...

1. Einmal eine Multi Reittier Ruf Quest mit ca 15-20 Auswahlen... pro Seite sollte man 5 Ausw�hlen k�nnen und die Quest sollte immer wieder erscheinen beim Login Porten etc... am besten eine mit der Mob vnum des Mobs das man dort eintragen muss damit es kommt...

2. Eine Multi Pets Ruf Quest mit ca 10 Auswahlen pro Seite sollte man 5 Ausw�hlen k�nnen und die Quest sollte immer wieder erscheinen beim Login Porten etc... am besten eine mit der Mob vnum des Mobs das man dort eintragen muss damit es kommt...

W�re sehr nett wenn mir jemand die zwei Quests erstellen k�nnte...

04/30/2014 22:33 AntikerGolem#1356

brauche mal ne funktion, die ein Npc ruft, der einem dann folgt, also like einem Pet/Pferd

05/02/2014 19:06 K.A.K.A.S.H.I#1357

Quote:

Originally Posted by Lightbox

Br�uchte zwei Quests...

1. Einmal eine Multi Reittier Ruf Quest mit ca 15-20 Auswahlen... pro Seite sollte man 5 Ausw�hlen k�nnen und die Quest sollte immer wieder erscheinen beim Login Porten etc... am besten eine mit der Mob vnum des Mobs das man dort eintragen muss damit es kommt...

2. Eine Multi Pets Ruf Quest mit ca 10 Auswahlen pro Seite sollte man 5 Ausw�hlen k�nnen und die Quest sollte immer wieder erscheinen beim Login Porten etc... am besten eine mit der Mob vnum des Mobs das man dort eintragen muss damit es kommt...

W�re sehr nett wenn mir jemand die zwei Quests erstellen k�nnte...

Brauch ich immer noch hoffe mir kann jemand da helfen...

05/04/2014 13:43 .yorliK#1358

Quote:

Originally Posted by Lightbox

Br�uchte zwei Quests...

1. Einmal eine Multi Reittier Ruf Quest mit ca 15-20 Auswahlen... pro Seite sollte man 5 Ausw�hlen k�nnen und die Quest sollte immer wieder erscheinen beim Login Porten etc... am besten eine mit der Mob vnum des Mobs das man dort eintragen muss damit es kommt...

2. Eine Multi Pets Ruf Quest mit ca 10 Auswahlen pro Seite sollte man 5 Ausw�hlen k�nnen und die Quest sollte immer wieder erscheinen beim Login Porten etc... am besten eine mit der Mob vnum des Mobs das man dort eintragen muss damit es kommt...

W�re sehr nett wenn mir jemand die zwei Quests erstellen k�nnte...

Spoiler

PHP Code:


			
quest multi_reittier begin

    state start begin

        when letter begin

            send_letter("Multi-Reittier-Quest")

        end

        when button or info begin

            say_title("Multi-Reittier Seite 1")

            say("")

            select_1 = select("Reittier 1", "Reittier 2", "Reittier 3", "Reittier 4", "Reittier 5", "Weiter", "Schlie�en")

            if select_1 == 7 then

                return

            elseif select_1 == 1 then

                pc.unmount()

                pc.mount(Reittier1, 60*60*24*365)

                return

            elseif select_1 == 2 then

                pc.unmount()

                pc.mount(Reittier2, 60*60*24*365)

                return

            elseif select_1 == 3 then

                pc.unmount()

                pc.mount(Reittier3, 60*60*24*365)

                return

            elseif select_1 == 4 then

                pc.unmount()

                pc.mount(Reittier4, 60*60*24*365)

                return

            elseif select_1 == 5 then

                pc.unmount()

                pc.mount(Reittier5, 60*60*24*365)

                return

            end

            say_title("Multi-Reittier Seite 2")

            say("")

            select_2 = select("Reittier 6", "Reittier 7", "Reittier 8", "Reittier 9", "Reittier 10", "Weiter", "Schlie�en")

            if select_2 == 7 then

                return

            elseif select_2 == 1 then

                pc.unmount()

                pc.mount(Reittier6, 60*60*24*365)

                return

            elseif select_2 == 2 then

                pc.unmount()

                pc.mount(Reittier7, 60*60*24*365)

                return

            elseif select_2 == 3 then

                pc.unmount()

                pc.mount(Reittier8, 60*60*24*365)

                return

            elseif select_2 == 4 then

                pc.unmount()

                pc.mount(Reittier9, 60*60*24*365)

                return

            elseif select_2 == 5 then

                pc.unmount()

                pc.mount(Reittier10, 60*60*24*365)

                return

            end

            say_title("Multi-Reittier Seite 3")

            say("")

            select_3 = select("Reittier 11", "Reittier 12", "Reittier 13", "Reittier 14", "Reittier 15", "Weiter", "Schlie�en")

            if select_3 == 7 then

                return

            elseif select_3 == 1 then

                pc.unmount()

                pc.mount(Reittier11, 60*60*24*365)

                return

            elseif select_3 == 2 then

                pc.unmount()

                pc.mount(Reittier12, 60*60*24*365)

                return

            elseif select_3 == 3 then

                pc.unmount()

                pc.mount(Reittier13, 60*60*24*365)

                return

            elseif select_3 == 4 then

                pc.unmount()

                pc.mount(Reittier14, 60*60*24*365)

                return

            elseif select_3 == 5 then

                pc.unmount()

                pc.mount(Reittier15, 60*60*24*365)

                return

            end

            say_title("Multi-Reittier Seite 4")

            say("")

            select_4 = select("Reittier 16", "Reittier 17", "Reittier 18", "Reittier 19", "Reittier 20", "Schlie�en")

            if select_4 == 6 then

                return

            elseif select_4 == 1 then

                pc.unmount()

                pc.mount(Reittier16, 60*60*24*365)

                return

            elseif select_4 == 2 then

                pc.unmount()

                pc.mount(Reittier17, 60*60*24*365)

                return

            elseif select_4 == 3 then

                pc.unmount()

                pc.mount(Reittier18, 60*60*24*365)

                return

            elseif select_4 == 4 then

                pc.unmount()

                pc.mount(Reittier19, 60*60*24*365)

                return

            elseif select_4 == 5 then

                pc.unmount()

                pc.mount(Reittier20, 60*60*24*365)

                return

            end

        end

    end

end

2. Wissen wir wie du die Pets eingef�gt hast?

05/04/2014 15:10 BlackBynes#1359

Hallo,

ich ben�tige keine ganze Quest sonder eine Zeile bzw. der Befehl w�rde mir reichen. und Zwar wenn der Spieler dem NPC Antwort X gibt soll der Spieler sterben.

sowie der GM Befehl /kill spielername

Vielen Dank
Gru� Blacky

05/04/2014 15:23 MrPlayboy#1360

Code:

command("kill "..pc.get_name())

05/04/2014 15:43 .yorliK#1361

Quote:

Originally Posted by BlackBynes

Hallo,

ich ben�tige keine ganze Quest sonder eine Zeile bzw. der Befehl w�rde mir reichen. und Zwar wenn der Spieler dem NPC Antwort X gibt soll der Spieler sterben.

sowie der GM Befehl /kill spielername

Vielen Dank
Gru� Blacky

Da gabs schonmal was

Spoiler

05/04/2014 21:25 Shinso�#1362

Br�uchte mal eine Quest, die blockt das mann eine Truhe �ffnen kann wenn man das Inventar voll hat:

Spoiler

PHP Code:


			
quest truhen10 begin
    state start begin
        when 50187.use begin
            pc.give_item2(70038, 200)                        -- Tapferkeitsumhang (200x)
            pc.give_item2(71084, 50)                        -- Gegenstand verzaubern (200x)
            pc.give_item2(71085, 50)                        -- Gegenstand Verst�rken (200x)
            pc.give_item2(72729, 1)                            -- Elixier des Mondes (G)                     
            pc.give_item2(72725, 1)                            -- Elixier der Sonne (G)
            pc.give_item2(39026, 50)                        -- Geschwindigkeitstrank (50x)    
            pc.give_item2(27112, 50)                        -- Gr�ner Trank (G) (50x)
            pc.give_item2(70058, 1)                            -- Warpring
            pc.give_item2(50188, 1)                            -- Lehrlingstruhe II                                         --
            pc.give_item2(72501, 1)                            -- Anti EXP RING
            pc.remove_item(50187, 1)                        -- Lehrlingstruhe I verschwindet aus dem Inventar            --
        end
        when 50188.use with pc.get_level() >= 10 begin
            pc.give_item2(72022, 1)                            -- Medaille des Gl�cks                                    --
            pc.give_item2(50033, 5)                        -- R�tselhafte Truhe                            --
            pc.give_item2(25040, 5)                            -- Segenschriftrolle                                --
            pc.give_item2(71004, 50)                        -- Medaille des Drachen (50x)                                --
            pc.give_item2(50189, 1)                            -- Lehrlingstruhe III                                         --
            pc.remove_item(50188, 1)                        -- Lehrlingstruhe II verschwindet aus dem Inventar            --
        end
        when 50189.use with pc.get_level() >= 20 begin
            pc.give_item2(71003, 1)                            -- Fertigkeit Neuverteilung                                    --
            pc.give_item2(50033, 5)                            -- Geheimnisvolle Truhe                    
            pc.give_item2(71120, 1)                            -- L�wen-Siegel                            
            pc.give_item2(50190, 1)                            -- Expertentruhe I                                             --
            pc.remove_item(50189, 1)                        -- Lehrlingstruhe III verschwindet aus dem Inventar            --
        end
        when 50190.use with pc.get_level() >= 30 begin
            pc.give_item2(27987, 5)                            -- Muschel                                --
            pc.give_item2(76018, 50)                        -- Trank des Angriffs +15 (50x)                                --
            pc.give_item2(25040, 5)                            -- Segensschriftrolle (5x)                                    --
            pc.give_item2(70003, 1)                            -- Buch des Anf�hrers                                     --
            pc.give_item2(50191, 1)                            -- Expertentruhe II                                            --
            pc.remove_item(50190, 1)                        -- Expertentruhe I verschwindet aus dem Inventar            --
        end
        when 50191.use with pc.get_level() >= 40 begin
            pc.give_item2(39031, 10)                        -- Trank der Hast (10x)                                        --
            pc.give_item2(27112, 50)                        -- Gr�ner Trank (G) (50)                            --
            pc.give_item2(39026, 50)                        -- Geschwindigkeitstrank (50)                                    --
            pc.give_item2(70003, 1)                            -- Buch des Anf�hrers (1h)                                    --
            pc.give_item2(50192, 1)                            -- Expertentruhe III                                         --
            pc.remove_item(50191, 1)                        -- Expertentruhe II verschwindet aus dem Inventar            --
        end
        when 50192.use with pc.get_level() >= 50 begin
            pc.give_item2(70038, 200)                        -- Tapferkeitsumhang (200x)                                    --
            pc.give_item2(53006, 1)                            -- Rufus                                    --
            pc.give_item2(50513, 2)                            -- Seelenstein (2)                            --                                    --
            pc.give_item2(50193, 1)                            -- Meistertruhe I                                             --
            pc.remove_item(50192, 1)                        -- Expertentruhe III verschwindet aus dem Inventar            --
        end
        when 50193.use with pc.get_level() >= 60 begin
            pc.give_item2(71032, 3)                            -- Schriftrolle des Drachens (3x)                            --
            pc.give_item2(50513, 3)                            -- Seelenstein (3)                        --
            pc.give_item2(27987, 5)                            -- Muschel (5)                                    --
            pc.give_item2(72726, 1)                            -- Elixier der Sonne (S)                                --
            pc.give_item2(50194, 1)                            -- Meistertruhe II                                             --
            pc.remove_item(50193, 1)                        -- Meistertruhe I verschwindet aus dem Inventar                --
        end
        when 50194.use with pc.get_level() >= 70 begin
            pc.give_item2(71003, 1)                            -- Fertigkeit Neuverteilung
            pc.give_item2(71045, 10)                        -- Durchbohbrender Kampf
            pc.give_item2(71044, 10)                        -- Kritischer Kampf
            pc.give_item2(30193, 2)                            -- Fingerknochen
            pc.give_item2(50195, 1)                            -- Meistertruhe III                                         --
            pc.remove_item(50194, 1)                        -- Meistertruhe II verschwindet aus dem Inventar            --
        end
        when 50195.use with pc.get_level() >= 80 begin
            pc.give_item2(50196, 1)                            -- Gro�meistertruhe 
            pc.give_item2(30194, 1)                            -- Orkkeule
            pc.give_item2(27987, 30)                        -- Muschel
            pc.give_item2(71145, 1)                            -- Amulett der ewigen Liebe
            pc.remove_item(50195, 1)                        -- Meistertruhe III verschwindet aus dem Inventar            --
        end
        when 50196.use with pc.get_level() >= 90 begin
            pc.give_item2(71129, 1)                            -- Drachenkralle
            pc.give_item2(71123, 1)                            -- Drachenschuppe
            pc.give_item2(38050, 1)                            -- Truhe des maximalen Levels
            pc.remove_item(50196, 1)                        -- Gro�meistertruhe verschwindet aus dem Inventar            --
        end
        when 38050.use with pc.get_level() >= 99 begin
            pc.give_item2(39001, 1)                            -- Magischer Stein
            pc.give_item2(39001, 1)                            -- Magischer Stein
            pc.give_item2(39001, 1)                            -- Magischer Stein
            pc.give_item2(51001, 200)                        -- Energiesplitter
            pc.remove_item(38050, 1)                        -- Truhe des maximalen Levels verschwindet aus dem Inventar            --
        end
    end
end

Und eine Quest, die die Bonis wieder l�scht wenn man ein Haustier mit einem anderem Siegel weg schickt, bzw kann man es blocken das man pro pet nur 1 siegel hat also das bei den anderen steht" Du hast bereits ein pet gerufen"?:

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.ATTBONUS_DEVIL, 35, 60*60*24*365*60)
                affect.remove_collect(apply.POISON_PCT, 8, 60*60*24*365*60)   
                affect.remove_collect(apply.MAX_HP, 2500, 60*60*24*365*60)
            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.ATTBONUS_DEVIL, 35, 60*60*24*365*60)
                affect.add_collect(apply.POISON_PCT, 8, 60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP, 2500, 60*60*24*365*60)
            end
        end
        -- Rentierjunges
        when 53002.use begin
            if pet.is_summon() then
                pet.unsummon()
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.apply.CRITICAL_PCT, 10, 60*60*24*365*60)
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*24*365*60)   
                affect.remove_collect(apply.MAX_HP, 2000, 60*60*24*365*60)
            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.apply.CRITICAL_PCT, 10, 60*60*24*365*60)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 20, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60)
            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.ATTBONUS_UNDEAD, 35, 60*60*24*365*60)
                affect.remove_collect(apply.POISON_PCT, 8, 60*60*24*365*60)   
                affect.remove_collect(apply.MAX_HP, 2500, 60*60*24*365*60)
            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.ATTBONUS_UNDEAD, 35, 60*60*24*365*60)
                affect.add_collect(apply.POISON_PCT, 8, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 2500, 60*60*24*365*60)
            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, 75, 60*60*24*365*60)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 125, 60*60*24*365*60)   
            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, 75, 60*60*24*365*60)
                affect.add_collect(apply.DEF_GRADE_BONUS, 125, 60*60*24*365*60)   
            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, 30, 60*60*24*365*60)
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*24*365*60)
            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, 30, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*24*365*60)
            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.PENERATE_PCT, 10, 60*60*24*365*60)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*24*365*60)   
                affect.remove_collect(apply.MAX_HP, 1500, 60*60*24*365*60)
            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.PENERATE_PCT, 10, 60*60*24*365*60)
                affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 1500, 60*60*24*365*60)
            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.CRITICAL_PCT, 10, 60*60*24*365*60)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*24*365*60)   
                affect.remove_collect(apply.MAX_HP, 1500, 60*60*24*365*60)
            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.CRITICAL_PCT, 10, 60*60*24*365*60)
                affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 1500, 60*60*24*365*60)
            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.HP_REGEN, 30, 60*60*24*365*60)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 200, 60*60*24*365*60)  
            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.HP_REGEN, 30, 60*60*24*365*60)
                affect.add_collect(apply.DEF_GRADE_BONUS, 200, 60*60*24*365*60)
            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.ATTBONUS_HUMAN, 15, 60*60*24*365*60)
                affect.remove_collect(apply.CRITICAL_PCT, 5, 60*60*24*365*60)   
                affect.remove_collect(apply.PENERATE_PCT, 5, 60*60*24*365*60)
            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.ATTBONUS_HUMAN, 15, 60*60*24*365*60)
                affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*24*365*60)
                affect.add_collect(apply.PENERATE_PCT, 5, 60*60*24*365*60)
            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

05/06/2014 10:09 BreakZ�#1363

Guten tag :) w�hre es m�glich eine quest zu erstellen wenn man zu einen Npc geht das die Gilde direkt auf 20 gesetzt wird ? wenn ja k�nnte sie mir bitte jemand schreiben :D W�hre sehr nett. MFG.

05/06/2014 16:18 K.A.K.A.S.H.I#1364

Br�uchte 5 Quests...

1. Einmal eine Quest die dir Rangpunkte gibt (4000) pro ausf�hrung der Quest und die Quest sollte immer wieder erscheinen beim Login Porten etc...

2. Einmal eine Quest die dir Rangpunkte nimmt (-4000) pro ausf�hrung der Quest und die Quest sollte immer wieder erscheinen beim Login Porten etc...

3. Einmal eine Quest die dich in alle 3 Reiche Teleportiert also eine Teleporter Quest halt nur in die 3 Reiche Map 1 und die Quest sollte immer wieder erscheinen beim Login Porten etc...

4. Einmal eine Quest die dir das Reich Wechselt und das ohne zu warten und die Quest sollte immer wieder erscheinen beim Login Porten etc...

5. Einmal eine Quest die dir das Geschlecht Wechselt und das ohne zu warten und die Quest sollte immer wieder erscheinen beim Login Porten etc...

W�re sehr nett wenn mir jemand die 5 Quests erstellen k�nnte...

05/06/2014 17:21 .yorliK#1365

Quote:

Originally Posted by Lightbox

Br�uchte 5 Quests...

1. Einmal eine Quest die dir Rangpunkte gibt (4000) pro ausf�hrung der Quest und die Quest sollte immer wieder erscheinen beim Login Porten etc...

2. Einmal eine Quest die dir Rangpunkte nimmt (-4000) pro ausf�hrung der Quest und die Quest sollte immer wieder erscheinen beim Login Porten etc...

3. Einmal eine Quest die dich in alle 3 Reiche Teleportiert also eine Teleporter Quest halt nur in die 3 Reiche Map 1 und die Quest sollte immer wieder erscheinen beim Login Porten etc...

4. Einmal eine Quest die dir das Reich Wechselt und das ohne zu warten und die Quest sollte immer wieder erscheinen beim Login Porten etc...

5. Einmal eine Quest die dir das Geschlecht Wechselt und das ohne zu warten und die Quest sollte immer wieder erscheinen beim Login Porten etc...

W�re sehr nett wenn mir jemand die 5 Quests erstellen k�nnte...

Die Quests sind alle untested, sollte eine nicht funktionieren, pn.
1.

Spoiler

PHP Code:


			
quest change_sex begin

    state start begin

        when letter begin

            send_letter("Geschlecht wechseln")

        end

        when button or info begin

            if pc.is_engaged() then

                ssay_title("Geschlechtsumwandlung fehlgeschlagen!")

                say("")

                say_reward("Nur unverheiratete k�nnen ihr Geschlecht �ndern!")

                say("")

                say("Wenn Sie sich scheiden lassen, so k�nnen Sie ihr Geschlecht")

                say("wieder �ndern!")

                say("")

                return

            elseif pc.is_married() then

                say_title("Geschlechtsumwandlung fehlgeschlagen!")

                say("")

                say_reward("Nur unverheiratete k�nnen ihr Geschlecht �ndern!")

                say("")

                say("Wenn Sie sich scheiden lassen, so k�nnen Sie ihr Geschlecht")

                say("wieder �ndern!")

                say("")

                return

            elseif pc.is_polymorphed() then

                say_title("Geschlechtsumwandlung fehlgeschlagen!")

                say("")

                say_reward("Sie sind derzeit verwandelt!")

                say("")

                say("Beenden Sie ihre Verwandlung.")

                say("")

                return

            end

            say_title("Geschlechtsumwandlung")

            say("")

            say("Sie sind dabei, ihr Geschlecht")

            say("zu �ndern. Diese �nderung hat weitgehende")

            say("Folgen!")

            wait()

            say_title("Geschlechtsumwandlung")

            say("")

            say("Verheiratete k�nnen ihr Geschlecht nicht �ndern.")

            say("Verwandelte Personen m�ssen die Verwandlung beenden.")

            say("Sind Sie sich sicher, dass Sie ihr Geschlecht �ndern wollen?")

            say("")

            if select("Geschlecht �ndern!","Geschlecht nicht �ndern!")==2 then send_letter("Geschlecht �ndern") return end

            say_title("Geschlechtsumwandlung")

            say("Alle ihre Fertigkeiten und Statuspunkte")

            say("bleiben erhalten.")

            say("")

            say("Ein Relog ist n�tig, um die Wirkungen sichtbar zu machen!")

            say("")

            pc.change_sex()

            local m_sex = pc.get_sex()

            if m_sex == 0 then

                char_log(0, "CHANGE_SEX", "F -> M")

            else

                char_log(0, "CHANGE_SEX", "M -> F")

            end

            send_letter("Geschlecht �ndern")

        end

    end

end

Spoiler

PHP Code:


			
quest change_empire begin

    state start begin

        when letter begin

            send_letter("Reich wechseln")

        end

        when button or info begin

            say_title("Reich wechseln")

            say("")

            if pc.is_engaged() then

                say("Sie sind in einer Gilde.")

                say("Sie k�nnen das Reich nicht wechseln.")

                say("")

                return

            elseif pc.is_married() then

                say("Sie sind verheiratet.")

                say("Sie k�nnen das Reich nicht wechseln.")

                say("")

                return

            elseif pc.is_polymorphed() then

                say("Sie sind Verwandelt.")

                say("Sie k�nnen das Reich nicht wechseln.")

                say("")

                return

            elseif pc.has_guild() then

                say("Sie sind in einer Gilde.")

                say("Sie k�nnen das Reich nicht wechseln.")

                say("")

                return

            end

            say("W�hlen Sie eines der 3 Reiche")

            local s = select("Shinsoo (rotes Reich)", "Chunjo (gelbes Reich)", "Jinno (blaues Reich)", "Abbrechen")

            if 4==s then return end

            say_title("Reich wechseln")

            say("")

            say_reward("Wollen Sie wirklich das Reich wechseln?")

            say_reward("F�r Folksverrat gibt es keine Entschuldigung!")

            say("")

            if select("Wechseln", "Nicht wechseln")==2 then return end

            local ret = pc.change_empire(s)

            local oldempire = pc.get_empire()

            if ret == 999 then

                say("Sie haben das Reich erfolgreich gewechselt.")

                say("Bitte loggen Sie sich neu ein.")

                say("")

                char_log(0, "CHANGE_EMPIRE",string.format("%d -> %d", oldempire, s)) 

            else

                if ret == 1 then

                    say("Sie sind bereits in diesem Reich.")

                    say("Bitte w�hlen Sie ein anderes.")

                    say("")

                    say("")

                elseif ret == 2 then

                    say("Reichswechsel noch nicht m�glich.")

                    say("Sie k�nnen das Reich noch nicht wechseln, da Sie vor kurzem noch in einer Gilde waren.")

                    say("")

                    say("")

                elseif ret == 3 then

                    say("Reichswechsel noch nicht m�glich.")

                    say("Sie k�nnen das Reich noch nicht wechseln, da Sie vor kurzem noch verheiratet waren.")

                    say("")

                end

            end

            send_letter("Reich wechseln")

        end

    end

end

Page 91 of 248