[SERVICE] Die Questkontrolle

Page 512 of 845 « First 12412462502510511 512 513514522562612 Last »
02/27/2013 14:48 MrPlayboy#7666
PHP Code:
quest multiring begin 
    state start begin 
        when 70007.use begin 
            say_title("Warpring:") 
            local main=select("Warpring-Funktion", "Lager-Funktion")
            if 1==main then 
                say_title("Warpring-Funktion:") 
                local s=select("Map1", "Map2", "Orktal (Mitte)", "Eisland (Mitte)", "Wüste (Oase)", "Weitere", "Beenden") 
                if 1==s then 
                    say_title("Warpring-Funktion:") 
                    local a=select ("Rotes", "Gelbes", "Blaues", "Beenden") 
                    if 1==a then 
                        pc.warp(474086, 954540) 
                    elseif 2==a then 
                        pc.warp(63098, 166617) 
                    elseif 3==a then 
                        pc.warp(960054, 268807) 
                    elseif 4==a then 
                        return 
                    end 
                elseif 2==s then 
                    say_title("Warpring-Funktion:") 
                    local a=select ("Rotes", "Gelbes", "Blaues", "Beenden") 
                    if 1==a then 
                        pc.warp(353003, 882460) 
                    elseif 2==a then 
                        pc.warp(145582, 240227) 
                    elseif 3==a then 
                        pc.warp(863589, 246139) 
                    elseif 4==a then 
                        return 
                    end 
                elseif 3==s then 
                    pc.warp(332885, 745737) 
                elseif 4==s then 
                    pc.warp(435705, 215084) 
                elseif 5==s then 
                    pc.warp(296758, 547724) 
                elseif 6==s then 
                    if pc.get_level() < 75 then     
                        say_title("Weitere Maps:") 
                        local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Beenden") 
                        if 1==a then 
                            pc.warp(600813, 687144) 
                        elseif 2==a then 
                            say_title("Warping-Funktion:") 
                            local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald", "Beenden") 
                            if 1==sd then 
                                pc.warp(51200, 486400) 
                            elseif 2==sd then 
                                pc.warp(665600, 435200) 
                            elseif 3==sd then 
                                pc.warp(4168320, 4173180) 
                            elseif 4==sd then 
                                return 
                            end 
                        elseif 3==a then 
                            pc.warp(590516, 110606) 
                        elseif 4==a then 
                            return 
                        end 
                    elseif pc.get_level() < 90 then 
                        say_title("Weitere Maps:") 
                        local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Areal der Steine", "Königsraum", "Beenden") 
                        if 1==a then 
                            pc.warp(600813, 687144) 
                        elseif 2==a then 
                            say_title("Warping-Funktion:") 
                            local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald", "Beenden") 
                            if 1==sd then 
                                pc.warp(51200, 486400) 
                            elseif 2==sd then 
                                pc.warp(665600, 435200) 
                            elseif 3==sd then 
                                pc.warp(4168320, 4173180) 
                            elseif 4==sd then 
                                return 
                            end 
                        elseif 3==a then 
                            pc.warp(590516, 110606) 
                        elseif 4==a then 
                            say_reward("In welche Seelengrotte möchtest du denn?") 
                            local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden") 
                            if 1==b then 
                                pc.warp(10086, 1213190) 
                            elseif 2==b then 
                                pc.warp(241682, 1275028) 
                            elseif 3==b then 
                                return 
                            end 
                        elseif 5==a then 
                            pc.warp(44445978, 44445878) 
                        elseif 6==a then 
                            pc.warp(92110, 97047) 
                        elseif 7==a then 
                            return 
                        end 
                    elseif pc.get_level() < 110 then 
                        say_title("Weitere Maps:") 
                        local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Areal der Steine", "Königsraum", "Weitere", "Beenden") 
                        if 1==a then 
                            pc.warp(600813, 687144) 
                        elseif 2==a then 
                            say_title("Warping-Funktion:") 
                            local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald", "Beenden") 
                            if 1==sd then 
                                pc.warp(51200, 486400) 
                            elseif 2==sd then 
                                pc.warp(665600, 435200) 
                            elseif 3==sd then 
                                pc.warp(4168320, 4173180) 
                            elseif 4==sd then 
                                return 
                            end 
                        elseif 3==a then 
                            pc.warp(590516, 110606) 
                        elseif 4==a then 
                            say_reward("In welche Seelengrotte möchtest du denn?") 
                            local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden") 
                            if 1==b then 
                                pc.warp(10086, 1213190) 
                            elseif 2==b then 
                                pc.warp(241682, 1275028) 
                            elseif 3==b then 
                                return 
                            end 
                        elseif 5==a then 
                            pc.warp(44445978, 44445878) 
                        elseif 6==a then 
                            pc.warp(92110, 97047) 
                        elseif 7==a then 
                            say_title("Warpring-Funktion:") 
                            local c=select ("Verkommenes Land", "Beenden") 
                            if 1==c then 
                                pc.warp(2206207, 2231958) 
                            elseif 2==c then 
                                return 
                            end 
                        elseif 7==a then 
                            return 
                        end 
                    elseif pc.get_level() >= 110 then 
                        say_title("Weitere Maps:") 
                        local a=select ("Feuerland (Teleporter)", "Spinnenmaps", "Dämonenturm", "Seelengrotte", "Areal der Steine", "Königsraum", "Weitere", "Beenden") 
                        if 1==a then 
                            pc.warp(600813, 687144) 
                        elseif 2==a then 
                            say_title("Warping-Funktion:") 
                            local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald", "Beenden") 
                            if 1==sd then 
                                pc.warp(51200, 486400) 
                            elseif 2==sd then 
                                pc.warp(665600, 435200) 
                            elseif 3==sd then 
                                pc.warp(4168320, 4173180) 
                            elseif 4==sd then 
                                return 
                            end 
                        elseif 3==a then 
                            pc.warp(590516, 110606) 
                        elseif 4==a then 
                            say_reward("In welche Seelengrotte möchtest du denn?") 
                            local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden") 
                            if 1==b then 
                                pc.warp(10086, 1213190) 
                            elseif 2==b then 
                                pc.warp(241682, 1275028) 
                            elseif 3==b then 
                                return 
                            end 
                        elseif 5==a then 
                            pc.warp(44445978, 44445878) 
                        elseif 6==a then 
                            pc.warp(92110, 97047) 
                        elseif 7==a then 
                            say_title("Warpring-Funktion:") 
                            local c=select ("Verkommenes Land", "Orkberg", "Beenden") 
                            if 1==c then 
                                pc.warp(2206207, 2231958) 
                            elseif 2==c then 
                                pc.warp(35039765, 35085766) 
                            elseif 3==c then 
                                return 
                            end 
                        elseif 8==a then 
                            return 
                        end 
                    end 
                elseif 7==s then 
                    return 
                end 
            elseif 2==main then 
                say_title("Lager-Funktion") 
                say("Hallo und Herzlich Willkomen!") 
                say("Ich bin deine Mobile Lager-Funktion.") 
                say("Ich kann dir überall dein Lager öffnen.") 
                say_reward("Möchtest du dein Lager öffnen?") 
                local lager=select("Ja", "Nein") 
                if 1==lager then 
                    say_title("Lager-Funktion:") 
                    say("Welches Lager möchtest du denn öffnen?") 
                    local a=select("Normales Lager", "Itemshop Lager", "Beenden") 
                    if 1==a then 
                        game.open_safebox() 
                    elseif 2==a then 
                        game.open_mall() 
                    elseif 3==a then 
                        return 
                    end 
                elseif 2==lager then 
                    return 
                end 
            end
        end     
    end 
    state waffen begin 
        when 20024.chat."Waffenhandel" begin 
            npc.open_shop(1) 
            setskin(NOWINDOW) 
            npc.purge() 
            set_state(start) 
        end 
    end 
    state special begin 
        when 20024.chat."Spezialhandel" begin 
            npc.open_shop(41) 
            setskin(NOWINDOW) 
            npc.purge() 
            set_state(start) 
        end 
    end 
    state rüstung begin 
        when 20024.chat."Rüstungshandel" begin 
            npc.open_shop(16) 
            setskin(NOWINDOW) 
            npc.purge() 
            set_state(start) 
        end 
    end 
    state gemi begin 
        when 20024.chat."Gemischtwarenhandel" begin 
            npc.open_shop(3) 
            setskin(NOWINDOW) 
            npc.purge() 
            set_state(start) 
        end 
    end 
    state schmuck begin 
        when 20024.chat."Schmuckhandel" begin 
            npc.open_shop(17) 
            setskin(NOWINDOW) 
            npc.purge() 
            set_state(start) 
        end 
    end 
    state pfeil begin 
        when 20024.chat."Pfeilhandel" begin 
            npc.open_shop(15) 
            setskin(NOWINDOW) 
            npc.purge() 
            set_state(start) 
        end 
    end     
end 
02/27/2013 20:43 ©by Noa#7667
hatte ein falschen index bei dem warp
PHP Code:
quest warpring begin
    state start begin
        when 70007.use begin 
            local warp={{55700, 157900},{969600, 278400},{469300, 964200},}
            say_title("Warpring")
            say("")
            say("In welches gebiet möchtest du?")
            local s = select("Joan","Pyungmoo","Yongan","Schließen")
            if s==4 then return end
            pc.warp(warp[s][1],warp[s][2])
        end
    end
end 
02/27/2013 21:05 Andreasi#7668
Vielen Dank nun geht sie ! :)
02/27/2013 21:07 ©by Noa#7669
du kannst Übringens so viele x und y werte rein schreiben bis die select tabelle (also wo du die maps als spieler auswählst) bis ganz unten reicht, die quest ist dynamisch
02/27/2013 21:59 TommyH99#7670
hi
kann mir bitte jemand 3 quests schreiben? wär echt nett

fangen wir mal mit den denke ich 2 einfacheren an
Code:
die quest soll anfangen wenn das item 70028 (notiz des weisen) benutzt wird
ein textfeld kommt mit "Bitte wähle deinen gewünschten Rang"
dann sollen folgende knöpfe kommen die einem so viel ehre geben:
"Ritterlich" 	---> 20.000
"Edel" 	---> 11.500
"Gut" 	---> 7.500
"Freundlich" 	---> 3.500
"Aggressiv" 	---> −3.000
"Arglistig" 	---> −7.000
"Bösartig" 	---> −11.000
"Grausam" 	---> −20.000
"Abbrechen"
dann soll das textfeld "Glückwunsch, Ihr Rang wurde erfolgreich geändert" kommen mit dem knopf "ok" um die quest zu beenden und danach soll das item 70028 verschwinden
die 2. quest:
Code:
beginnt wenn 70023 (stock des weisen) benutzt wird
dann soll das textfeld "Schnorrst du schonwieder um Geld? Das war aber das letzte mal!!!" kommen
danach sollen folgende knöpfe aufgehen und wenn man drauf klickt einem so viel yang geben:
"20M" ---> 20.000.000
"50M" ---> 50.000.000
"100M" ---> 100.000.000
"200M" ---> 200.000.000
"500M" ---> 500.000.000
"1B" ---> 1.000.000.000
"Abbrechen"

danach soll das textfeld "Jetzt schuldest du mir 1.870.000.000 Gold. Beim nächsten mal will ich es haben sonst gibts Stress" kommen mit den knopf "ok"
dann ist die quest beendet und das item verschwunden
die 3. quest ist glaub schwerer

Code:
überall wo shop ids stehen bitte nur (HIER SHOP ID) hinschreiben

quest startet wenn man den rüssihändler anklickt
dann kommt das textfeld "Willkommen. Wähle deine Rasse!"
darunter folgende knöpfe
"Krieger"
"Sura"
"Ninja"
"Schami"
"Schmuck"
"Tier Rüssis"
"Kings"
"Abbrechen"

wenn man auf tier rüssi oder kings klickt soll ein laden aufgehen 

wenn man auf eine der rassen klickt sollen die knöpfe kommen:
"Normale Rüssis"
"Special Rüssis"
"Abbrechen"
wenn man auf normale rüssis oder special rüssis klickt soll auch ein laden aufgehen

und das halt bei jeder rasse

wenn man auf schmuck klickt sollen die knöpfe kommen:
"Helme"
"Schilder"
"Armbänder"
"Halsketten"
"Ohrringe"
"Schuhe"
"Abbrechen"
und da halt auch immer ein laden aufgehen

ok glaube das wars
wär echt super wenn mir jemand die 3 quests schreiben und hier posten könnte
der/diejenige bekommt auch ein thanks :-)

lg
02/27/2013 22:39 .Kaycon#7671
Quote:
Originally Posted by TommyH99 View Post
hi
kann mir bitte jemand 3 quests schreiben? wär echt nett

fangen wir mal mit den denke ich 2 einfacheren an
Code:
die quest soll anfangen wenn das item 70028 (notiz des weisen) benutzt wird
ein textfeld kommt mit "Bitte wähle deinen gewünschten Rang"
dann sollen folgende knöpfe kommen die einem so viel ehre geben:
"Ritterlich" 	---> 20.000
"Edel" 	---> 11.500
"Gut" 	---> 7.500
"Freundlich" 	---> 3.500
"Aggressiv" 	---> −3.000
"Arglistig" 	---> −7.000
"Bösartig" 	---> −11.000
"Grausam" 	---> −20.000
"Abbrechen"
dann soll das textfeld "Glückwunsch, Ihr Rang wurde erfolgreich geändert" kommen mit dem knopf "ok" um die quest zu beenden und danach soll das item 70028 verschwinden
die 2. quest:
Code:
beginnt wenn 70023 (stock des weisen) benutzt wird
dann soll das textfeld "Schnorrst du schonwieder um Geld? Das war aber das letzte mal!!!" kommen
danach sollen folgende knöpfe aufgehen und wenn man drauf klickt einem so viel yang geben:
"20M" ---> 20.000.000
"50M" ---> 50.000.000
"100M" ---> 100.000.000
"200M" ---> 200.000.000
"500M" ---> 500.000.000
"1B" ---> 1.000.000.000
"Abbrechen"

danach soll das textfeld "Jetzt schuldest du mir 1.870.000.000 Gold. Beim nächsten mal will ich es haben sonst gibts Stress" kommen mit den knopf "ok"
dann ist die quest beendet und das item verschwunden
die 3. quest ist glaub schwerer

Code:
überall wo shop ids stehen bitte nur (HIER SHOP ID) hinschreiben

quest startet wenn man den rüssihändler anklickt
dann kommt das textfeld "Willkommen. Wähle deine Rasse!"
darunter folgende knöpfe
"Krieger"
"Sura"
"Ninja"
"Schami"
"Schmuck"
"Tier Rüssis"
"Kings"
"Abbrechen"

wenn man auf tier rüssi oder kings klickt soll ein laden aufgehen 

wenn man auf eine der rassen klickt sollen die knöpfe kommen:
"Normale Rüssis"
"Special Rüssis"
"Abbrechen"
wenn man auf normale rüssis oder special rüssis klickt soll auch ein laden aufgehen

und das halt bei jeder rasse

wenn man auf schmuck klickt sollen die knöpfe kommen:
"Helme"
"Schilder"
"Armbänder"
"Halsketten"
"Ohrringe"
"Schuhe"
"Abbrechen"
und da halt auch immer ein laden aufgehen

ok glaube das wars
wär echt super wenn mir jemand die 3 quests schreiben und hier posten könnte
der/diejenige bekommt auch ein thanks :-)

lg
1. Quest
PHP Code:
quest notiz_des_weisen begin
    state start begin
        when 70028.use begin
            say("Bitte wähle deinen gewünschen Rang")
            local s = select("Ritterlich", "Edel", "Gut", "Freundlich", "Aggressiv", "Arglistig", "Bösartig", "Grausam", "Abbrechen")
            if s == 1 then
                pc.change_aligment(20000)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 2 then
                pc.change_aligment(11500)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 3 then
                pc.change_aligment(7500)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 4 then
                pc.change_aligment(3500)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 5 then
                pc.change_aligment(-3000)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 6 then
                pc.change_aligment(-7000)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 7 then
                pc.change_aligment(-11000)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            elseif s == 8 then
                pc.change_aligment(-20000)
                pc.remove_item(70028, 1)
                say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
            end
        end
    end
end 
2. Quest:
PHP Code:
quest stock_des_weisen begin
    state start begin
        when 70023.use begin
            say("Schnorrst du schonwieder um Geld?")
            say("Das war aber das letzte mal!!!")
            local s = select("20M", "50M", "100M", "200M", "500M", "1B", "Abbrechen")
            if s == 1 then
                pc.change_money(20000000)
                pc.remove_item(70023, 1)
                say("Jetzt schuldest du mir 1.870.000.000 Gold.") 
                say("Beim nächsten mal will ich es haben sonst gibts Stress")
            elseif s == 2 then
                pc.change_money(50000000)
                pc.remove_item(70023, 1)
                say("Jetzt schuldest du mir 1.870.000.000 Gold.") 
                say("Beim nächsten mal will ich es haben sonst gibts Stress")
            elseif s == 3 then
                pc.change_money(100000000)
                pc.remove_item(70023, 1)
                say("Jetzt schuldest du mir 1.870.000.000 Gold.") 
                say("Beim nächsten mal will ich es haben sonst gibts Stress")
            elseif s == 4 then
                pc.change_money(200000000)
                pc.remove_item(70023, 1)
                say("Jetzt schuldest du mir 1.870.000.000 Gold.") 
                say("Beim nächsten mal will ich es haben sonst gibts Stress")
            elseif s == 5 then
                pc.change_money(500000000)
                pc.remove_item(70023, 1)
                say("Jetzt schuldest du mir 1.870.000.000 Gold.") 
                say("Beim nächsten mal will ich es haben sonst gibts Stress")
            elseif s == 6 then
                pc.change_money(1000000000)
                pc.remove_item(70023, 1)
                say("Jetzt schuldest du mir 1.870.000.000 Gold.") 
                say("Beim nächsten mal will ich es haben sonst gibts Stress")
            end
        end
    end
end 
3. Quest:
PHP Code:
quest shops begin
    state start begin
        when 9001.chat."Krieger" begin
            local k = select("Normale Rüssis", "Special Rüssis", "Abbrechen")
            if k == 1 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif k == 2 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            else
                return
            end
        end
        when 9001.chat."Ninja" begin
            local n = select("Normale Rüssis", "Special Rüssis", "Abbrechen")
            if n == 1 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif n == 2 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            else
                return
            end
        end
        when 9001.chat."Sura" begin
            local s = select("Normale Rüssis", "Special Rüssis", "Abbrechen")
            if s == 1 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif s == 2 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            else
                return
            end
        end
        when 9001.chat."Schami" begin
            local sc = select("Normale Rüssis", "Special Rüssis", "Abbrechen")
            if sc == 1 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif sc == 2 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            else
                return
            end
        end
        when 9001.chat."Schmuck" begin
            local sh = select("Helme", "Schilder", "Arbänder", "Halsketten", "Ohrringe", "Schuhe", "Abbrechen")
            if sh == 1 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif sh == 2 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif sh == 3 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif sh == 4 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif sh == 5 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            elseif sh == 6 then
                npc.open_shop(HIER SHOP ID)
                setskin(NOWINDOW)
            else
                return
            end
        end
        when 9001.chat."Tier Rüssis" begin
            npc.open_shop(HIER SHOP ID)
            setskin(NOWINDOW)
        end
        when 9001.chat."Tier Rüssis" begin
            npc.open_shop(HIER SHOP ID)
            setskin(NOWINDOW)
        end
    end
end 
Alle ungetestet, müssten aber funktionieren. Sollte etwas nicht funktionieren oder ich etwas vergessen haben bitte PN.
02/27/2013 23:22 ©by Noa#7672
bitte keine anfragen stellen, das ist Immer noch die Questkontrolle denn soweit ich weis werden hier nur quests entbuggt

PHP Code:
quest notiz_des_weisen begin 
    state start begin 
        when 70028.use begin 
            say("Bitte wähle deinen gewünschen Rang") 
            local tab={20000,11500,7500,3500,-3000,-7000,-11000,-20000} 
            local s = select("Ritterlich", "Edel", "Gut", "Freundlich", "Aggressiv", "Arglistig", "Bösartig", "Grausam", "Abbrechen") 
            if s==9 then return end
            --[[for i,align in next,tab do    --Möglichkeit über eine schleife
                if s==i then
                    pc.change_aligment(align)
                end
            end]]
            pc.change_aligment(tab[s])-- möglichkeit über den direkten index
            pc.remove_item(70028, 1) 
            say("Glückwunsch, Ihr Rang wurde erfolgreich geändert")
        end 
    end 
end 
ist nicht getestet
das selbe kann man bei den anderen quests machen dann braucht man nicht so viel zu schreiben
02/28/2013 20:31 el' Pacino#7673
Hallo, ich versuche hier mal mein Glück.
Beim Versuch den Pferdenamen zu ändern, steht jedes mal
"Du kannst keine Sonderzeichen benutzen". Auch wenn man garkeine
Sonderzeichen benutzt. (Die Sonderzeichensperre sollte dennoch da bleiben,
nur funktionieren halt :D)

02/28/2013 20:51 MrPlayboy#7674
Änder mal
PHP Code:
                    local sonderzeichen = "!§$%&/()=?`´²³{[]}\\*+~#-_.:,;" 
in
PHP Code:
                    local sonderzeichen = ("!§$%&/()=?`´²³{[]}\\*+~#-_.:,;") 
02/28/2013 20:57 el' Pacino#7675
Quote:
Originally Posted by MrPlayboy View Post
Änder mal
PHP Code:
                    local sonderzeichen = "!§$%&/()=?`´²³{[]}\\*+~#-_.:,;" 
in
PHP Code:
                    local sonderzeichen = ("!§$%&/()=?`´²³{[]}\\*+~#-_.:,;") 
Gleiches Problem. Ich gebe bsp ein " Bobobo ", "Ajsaufis" usw. und dennoch jedes mal die Sonderzeichen meldung.
02/28/2013 20:59 MrPlayboy#7676
PHP Code:
quest horse_menu begin
    state start begin
        function horse_menu()
            if horse.is_mine() then
                say_title("Pferdehandbuch")
                say("Das Handbuch für das Pferd")
                say("")
                local s = 6
                if horse.is_dead() then
                    s = select( "Zurückholen des Pferde", "Das Pferd zurück geben", "Schließen")
                    if s == 1 then s = 0
                    elseif s == 2 then s = 3
                    elseif s == 3 then return
                    end
                else
                    s = select(
                    "Pferd füttern", "Pferd reiten", "Das Pferd zurückgeben", "Status des Pferdes anzeigen", 
                    "Pferd einen Namen geben", "Schließen")
                end
                if s == 0 then
                    horse.revive()
                elseif s == 1 then
                    local food = horse.get_grade() + 50054 - 1
                    if pc.countitem(food) > 0 then
                        pc.removeitem(food, 1)
                        horse.feed()
                    else
                        say("Das Item "..item_name(food).." wird benötiogt.")
                        say("")
                    end
                elseif s == 2 then
                    horse.ride()
                elseif s == 3 then
                    horse.unsummon()
                elseif s == 4 then
                    say_title("Pferdestatus")
                    say("Momentane Lebenspunkte des Pferdes: "..horse.get_health_pct().."%")
                    say("Momentane Ausdauer des Pferdes: "..horse.get_stamina_pct().."%")
                    say("")
                elseif s == 5 then                    
                    local old_horse_name = horse.get_name() ;
                    say_title("Pferdename")
                    say("Du kannst du deinem Pferd einen neuen")
                    say("Namen geben. Somit wird es einzigartig")
                    say("und bietet dir besseren Schutz.")
                    if string.len(old_horse_name) == 0 then
                        say_reward("Dein Pferd besitzt noch keinen Namen.")
                    else
                        say_reward("Der momentane Name deines Pferdes lautet "..old_horse_name..".")
                    end
                    say("Gib den neuen Pferdenamen ein.")
                    local horse_name = input()
                    if string.len(horse_name) < 2 then
                        say_title("Pferdename")
                        say("Der Name ist zu kurz.")
                        say("")
                        return
                    elseif string.len(horse_name) > 12 then
                        say_title("Pferdename")
                        say("Der Name ist zu lang.")
                        say("")
                        return
                    end
                    local ret = horse.set_name(horse_name)
                    say_title("Pferdename")
                    if ret == 0 then
                        say_reward("Du hast momentan kein Pferd!")
                        say("")
                    elseif ret == 1 then
                        say_reward("Du kannst diesen Namen nicht benutzen!")
                        say("")
                    elseif ret == 2 then
                        pc.remove_item("71110")
                        say("Du hast deinem Pferd einen neuen Namen gegeben!")
                        say("")
                    end
                end
            end
        end
        when 20030.click begin horse_menu.horse_menu() end
        when 20101.click begin horse_menu.horse_menu() end
        when 20102.click begin horse_menu.horse_menu() end
        when 20103.click begin horse_menu.horse_menu() end
        when 20104.click begin horse_menu.horse_menu() end
        when 20105.click begin horse_menu.horse_menu() end
        when 20106.click begin horse_menu.horse_menu() end
        when 20107.click begin horse_menu.horse_menu() end
        when 20108.click begin horse_menu.horse_menu() end
        when 20109.click begin horse_menu.horse_menu() end
    end
end 
Die ist in meinem Questordner. Hab sie grad getestet, normale Namen gehen Sonderzeichen nicht. Ist ned meine Quest
02/28/2013 21:46 el' Pacino#7677
Quote:
Originally Posted by MrPlayboy View Post
PHP Code:
quest horse_menu begin
    state start begin
        function horse_menu()
            if horse.is_mine() then
                say_title("Pferdehandbuch")
                say("Das Handbuch für das Pferd")
                say("")
                local s = 6
                if horse.is_dead() then
                    s = select( "Zurückholen des Pferde", "Das Pferd zurück geben", "Schließen")
                    if s == 1 then s = 0
                    elseif s == 2 then s = 3
                    elseif s == 3 then return
                    end
                else
                    s = select(
                    "Pferd füttern", "Pferd reiten", "Das Pferd zurückgeben", "Status des Pferdes anzeigen", 
                    "Pferd einen Namen geben", "Schließen")
                end
                if s == 0 then
                    horse.revive()
                elseif s == 1 then
                    local food = horse.get_grade() + 50054 - 1
                    if pc.countitem(food) > 0 then
                        pc.removeitem(food, 1)
                        horse.feed()
                    else
                        say("Das Item "..item_name(food).." wird benötiogt.")
                        say("")
                    end
                elseif s == 2 then
                    horse.ride()
                elseif s == 3 then
                    horse.unsummon()
                elseif s == 4 then
                    say_title("Pferdestatus")
                    say("Momentane Lebenspunkte des Pferdes: "..horse.get_health_pct().."%")
                    say("Momentane Ausdauer des Pferdes: "..horse.get_stamina_pct().."%")
                    say("")
                elseif s == 5 then                    
                    local old_horse_name = horse.get_name() ;
                    say_title("Pferdename")
                    say("Du kannst du deinem Pferd einen neuen")
                    say("Namen geben. Somit wird es einzigartig")
                    say("und bietet dir besseren Schutz.")
                    if string.len(old_horse_name) == 0 then
                        say_reward("Dein Pferd besitzt noch keinen Namen.")
                    else
                        say_reward("Der momentane Name deines Pferdes lautet "..old_horse_name..".")
                    end
                    say("Gib den neuen Pferdenamen ein.")
                    local horse_name = input()
                    if string.len(horse_name) < 2 then
                        say_title("Pferdename")
                        say("Der Name ist zu kurz.")
                        say("")
                        return
                    elseif string.len(horse_name) > 12 then
                        say_title("Pferdename")
                        say("Der Name ist zu lang.")
                        say("")
                        return
                    end
                    local ret = horse.set_name(horse_name)
                    say_title("Pferdename")
                    if ret == 0 then
                        say_reward("Du hast momentan kein Pferd!")
                        say("")
                    elseif ret == 1 then
                        say_reward("Du kannst diesen Namen nicht benutzen!")
                        say("")
                    elseif ret == 2 then
                        pc.remove_item("71110")
                        say("Du hast deinem Pferd einen neuen Namen gegeben!")
                        say("")
                    end
                end
            end
        end
        when 20030.click begin horse_menu.horse_menu() end
        when 20101.click begin horse_menu.horse_menu() end
        when 20102.click begin horse_menu.horse_menu() end
        when 20103.click begin horse_menu.horse_menu() end
        when 20104.click begin horse_menu.horse_menu() end
        when 20105.click begin horse_menu.horse_menu() end
        when 20106.click begin horse_menu.horse_menu() end
        when 20107.click begin horse_menu.horse_menu() end
        when 20108.click begin horse_menu.horse_menu() end
        when 20109.click begin horse_menu.horse_menu() end
    end
end 
Die ist in meinem Questordner. Hab sie grad getestet, normale Namen gehen Sonderzeichen nicht. Ist ned meine Quest
Hab den Teil bei dir rausgenommen und getestet. Umbenennen geht zwar, aber ich kann problemlos auch Sonderzeichen verwenden unter anderem ein [GM] davor setzen o.ä.

anscheinend fehlt es bei mir irgendwo anders..
02/28/2013 22:24 ©by Noa#7678
PHP Code:
when 9009.chat."Gruppen-Teleport" begin
                notice_all("Die Gruppe von Melvin wird auf mp1 Teleportiert")
                server_timer("gruppenwarp",5)
        end
        when gruppenwarp.server_timer begin
                clear_server_timer("gruppenwarp")
                pc.warp(969600,278400)
        end 
server stürzt beim servertimer ab
03/01/2013 17:40 Azemi6#7679
Hi Leute hab eine kleine Frage und zwar zu meiner Quest.
Ich habe sie fast selber geschrieben ich musste nur einige Funktionen von anderen Quest abschauen aber ansonsten ist alles self made. Also meine Frage ist ob sie so richtig geschrieben ist und ob es funktioniert?

PHP Code:
quest maxlv begin 
    state start begin 
        when login or levelup with pc.level >= 110 begin 
            set_state(maxlv) 
        end 
    end
    
    state neuepvp105 begin 
        when letter begin 
            send_letter("Herzlichen Glückwunsch") 
        end 

        when button or info begin 
                        say_title("Gratulation")
                        say("Da du das maximale Level in BloodStorm2")
                        say("erreicht hast steht dir ein wunsch zu!")
                        say("")
                        say("")
                        say("Und zwar werde ich ihn dir erfüllen")
                        say("dazu muss ich nur eines wissen")
                        say("bist du ein Mann oder eine Frau?")

                    
                    local main_set = select("Mann", "Frau") 
                    if main_set == 1 then
                        say_title("Laura") 
                        say("Ich habe etwas ganz besonderes mit dir vor.")
                        say("Hoffentlich nimmst du mein Geschenk auch an.")
                        say("Es ist etwas sehr besonderes!")
                        say("Zu erst muss ich nur noch etwas von dir wissen.")
                        say("Denn je nach Beziehungs-Status fällt die ")
                        say("Überraschung leicht verändert aus.")
                        say("")
                        say("")
                        say("")
                        say("")
                        say("Bist du noch Single oder schon Vergeben?")
                        local s = select("Single", "Vergeben")
                        
                        if s == 1 then 
                        say("Wow ich wusste es doch das du noch")
                        say("Single bist. Ich werde dir nun mein Geschenk")
                        say("präsentieren. Aber zu erst will ich mich noch")
                        say("amüsieren!")
                        say("")
                        say("")
                        say("Ahhh.... Haaaaaah.... Jaaaaa!")
                        say("..............................")
                        say("Oh Ja! Das war toll nun das war dein Geschenk.")
                        
                        
                        pc.give_item2(71144, 1) 
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        notice_all("[Laura]:"..pc.get_name().." hat soeben das Maximale Level (110) erreicht!") 
                        notice_all("[Laura]:Ich gratuliere ihm und hoffe, dass wir weiterhin solch spannende") 
                        notice_all("[Laura]:Abenteuer erleben werden wie in Vergangenheit. Oh Ja  Grrrrr ;) ")
                        elseif s == 2 then 
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        notice_all("[MaxLv]:"..pc.get_name().." hat soeben das Maximale Level (110) erreicht!")
                        
                        if main_set == 2 then
                        say_title("John") 
                        say("Ich habe etwas ganz besonderes mit dir vor.")
                        say("Hoffentlich nimmst du mein Geschenk auch an.")
                        say("Es ist etwas sehr besonderes!")
                        say("Zu erst muss ich nur noch etwas von dir wissen.")
                        say("Denn je nach Beziehungs-Status fällt die ")
                        say("Überraschung leicht verändert aus.")
                        say("")
                        say("")
                        say("")
                        say("")
                        say("Bist du noch Single oder schon Vergeben?")
                        local s = select("Single", "Vergeben")
                        
                        if s == 1 then 
                        say("Wow ich wusste es doch das du noch")
                        say("Single bist. Ich werde dir nun mein Geschenk")
                        say("präsentieren. Aber zu erst will ich mich noch")
                        say("amüsieren!")
                        say("")
                        say("")
                        say("Ahhh.... Haaaaaah.... Jaaaaa!")
                        say("..............................")
                        say("Oh Ja! Das war toll nun das war dein Geschenk.")
                        
                        
                        pc.give_item2(71144, 1) 
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        notice_all("[John]:"..pc.get_name().." hat soeben das Maximale Level (110) erreicht!") 
                        notice_all("[John]:Ich gratuliere ihm und hoffe, dass wir weiterhin solch spannende") 
                        notice_all("[John]:Abenteuer erleben werden wie in Vergangenheit. Oh Ja  Grrrrr ;) ")
                        elseif s == 2 then 
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        pc.give_item2(71144, 1)
                        notice_all("[MaxLv]:"..pc.get_name().." hat soeben das Maximale Level (110) erreicht!")
                                                end 
                    end
                clear_letter() 
                set_state(__COMPLETE__) 
            end 
        end 
    end 
    state __COMPLETE__ begin 
    end 
end 
03/01/2013 18:02 ©by Noa#7680
ja es ist falsch, du hast am anfang ein state gesetzt der nicht benutzt wird.
das konnte ich beim drüber lesen erkennen
€.
@azemi
versuch das mal so
PHP Code:
quest maxlv begin  
    state start begin  
        when login or levelup with pc.level >= 110 begin  
            set_state(maxlv)  
        end  
    end 
    state maxlv begin  
        when letter begin  
            send_letter("Herzlichen Glückwunsch")  
        end  
        when button or info begin  
            local sex={[0]="John",[1]="Laura"}
            say_title(sex[pc.get_sex()])  
            say("Ich habe etwas ganz besonderes mit dir vor.") 
            say("Hoffentlich nimmst du mein Geschenk auch an.") 
            say("Es ist etwas sehr besonderes!") 
            say("Zu erst muss ich nur noch etwas von dir wissen.") 
            say("Denn je nach Beziehungs-Status fällt die ") 
            say("Überraschung leicht verändert aus.") 
            say("") 
            say("") 
            say("") 
            say("") 
            say("Bist du noch Single oder schon Vergeben?") 
            if select("Single", "Vergeben")==1 then 
                say("Wow ich wusste es doch das du noch") 
                say("Single bist. Ich werde dir nun mein Geschenk") 
                say("präsentieren. Aber zu erst will ich mich noch") 
                say("amüsieren!") 
                say("") 
                say("") 
                say("Ahhh.... Haaaaaah.... Jaaaaa!") 
                say("..............................") 
                say("Oh Ja! Das war toll nun das war dein Geschenk.") 
                pc.give_item2(71144, 1)  
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                notice_all("["..sex[pc.get_sex()].."]:"..pc.get_name().." hat soeben das Maximale Level (110) erreicht!")  
                notice_all("["..sex[pc.get_sex()].."]:Ich gratuliere ihm und hoffe, dass wir weiterhin solch spannende")  
                notice_all("["..sex[pc.get_sex()].."]:Abenteuer erleben werden wie in Vergangenheit. Oh Ja  Grrrrr ;) ") 
            else  
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                pc.give_item2(71144, 1) 
                notice_all("[MaxLv]:"..pc.get_name().." hat soeben das Maximale Level (110) erreicht!") 
            end
            clear_letter()
        end
    end  
end 
falls man die items stapeln kann würde ich in deiner stelle die anzahl benutzen
pc.give_item2(vnum, anzahl)
Page 512 of 845 « First 12412462502510511 512 513514522562612 Last »