[SERVICE] Die Questkontrolle

Page 143 of 845

143

04/27/2011 00:15 .ReDDoX�#2131

Dann versuch es mal so:

Spoiler

PHP Code:


			
quest Information begin

    state start begin

        when login begin

            set_state("information")

        end

    end

    state information begin

        when letter begin

            send_letter("Server Regeln")

        end

        when button or info begin

            say_title("Server Regeln")

            ----"12345678901234567890123456789012345678901234567890"|

            say("Gehe zum Informationsstand, er wird dir,")

            say("unsere Server Regeln erkl�ren.")

            say("Euer HollisterMt2 Team.")

            say("")

            set_state(gotoinfostand)

        end

    end

    state gotoinfostand begin

        when letter begin

            local v=find_npc_by_vnum(30000)

            if v!=0 then

                target.vid("__TARGET__", v, "Geh zum Info-Stand")

                send_letter("Komm zu mir!")

            end

        end

        when __TARGET__.target.click or 30000.chat."Info-Stand" begin

            target.delete("__TARGET__")

            say("Info-Stand :")



            ----"12345678901234567890123456789012345678901234567890"|

            say("Erst erkl�r ich dir mal, warum du unsere Regeln,")

            say("lesen sollst.")

            say("Also, unsere Regeln sind wichtig, da du wissen sollst,")

            say("dass du keine Schei�e bauen sollst, denn sonst kriegste,")

            say("einen saftigen Bann.")

            say("Nun denn, willst du unsere Regeln lesen? Es w�re hilfreich.")

            say("")

            local s = select("Ja, bin mal brav","Nein, keine Zeit")

            if s==1 then

                set_state(regelnfangenan)

            else

                say("Naja, nicht wundern, wenn du auf einmal,")

                say("einen Bann hast..")

                say("")

                clear_letter()

                q.done()

            end

        end

    end

    state regelnfangenan begin

        when letter begin

            send_letter("Regeln fangen an.")

        end

        when button or info begin

            say("Info-Stand:")

            ----"12345678901234567890123456789012345678901234567890"|

            say("#1 Kein Hacken")

            say("#2 Keine Beleidigungen")

            say("#3 Keine Erpressung")

            say("#4 Der GM, hat immer RECHT.")

            say("#5 Alle Regeln sind einzuhalten.")

            say("Bei weiteren Fragen frage einen [GM].")

            say("Wirst du diese Regeln einhalten?")

            say("")

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

            if s==1 then

                say("Guuuut, dann sag ich dem Stadtw�chter,")

                say("dass er dich nicht besuchen soll.")

                clear_letter()

            else

                say("Ich glaube, mein Freund der Stadtw�chter,")

                say("muss dir einen Besuch abstatten :P")

                say("Naja, weiterhin Viel Spa�, auf")

                say("HollisterMt2")

                say("")

                clear_letter()

                q.done()

            end

        end

    end

end

04/27/2011 00:15 .Delta#2132

Quote:

Originally Posted by 53enes

Ups failed aber lies dir mal mein edit durch pls

€dit:Kannst du das pls machen? Ich blick bei dir nicht durch :D

Ich wollte nur wissen ob du ingame den ersten Brief schon ge�ffnet hast :rolleyes:

€: ja nimm mal die von .ReDDoX™

04/27/2011 00:19 53enes#2133

Soo, nun endlich geschafft. Danke nochmals :D

04/27/2011 12:16 Glost123#2134

ich habe ausversehen alle horse.quests gel�scht. quests die ich noch retten konnte:

horse_ride.quest
horse_upgrade.quest
horse_upgrade2.quest
horse_mg.quest (selbst gemacht!)

ich brauche die horse_quest wo man pferd ruft. wenn ich auf miligaul-buch klicke, passiert nix, garnix! :( help me.

k�nntet ihr die datei in anhang reintuhen ODER den text rein? ich kann ja den text dann in eine neue quest.datei reintuhen und filezilla rein. hauptsache ich rufe dieses pferd.. :(

#edit

problem gel�st, hab mein k�pfchen angestrengt und die sufu benutzt.. (warum hab ich das nicht fr�her gemacht? :()

04/27/2011 12:30 √π.#2135

Spoiler

PHP Code:


			
quest horse_summon begin
    state start begin
        function get_horse_summon_prob_pct()  local skill_level=pc.get_skill_level(131)  if skill_level==1 then   return 15  elseif skill_level==2 then   return 20  elseif skill_level==3 then   return 30  elseif skill_level==4 then   return 40  elseif skill_level==5 then   return 50  elseif skill_level==6 then   return 60  elseif skill_level==7 then   return 70  elseif skill_level==8 then   return 80  elseif skill_level==9 then   return 90  elseif skill_level>=10 then   return 100  end  return 10 end
        
        when 20349.chat."Pferdebild verloren." with horse.get_grade()==1 and pc.countitem("50051")<1 begin
            say("Wie ich sehe hast")
            say("du dein Pferdebild verloren.")
            local b=select("Ein neues bitte.", "Ist doch egal.")
            if 1==b then
                if pc.money>=10000 then
                    pc.changemoney(-10000)
                    say("Hier ist dein neues Pferdebild.")
                    say("Verlier es nicht wieder.")
                    pc.give_item2("50051", 1)
                else
                    say("Du hast nicht genug Yang.")
                end
            elseif 2==b then
            else
                say("UNKNOWN BUTTON ["..b.."]")
            end
        end
        when 20349.chat."Waffen-Pferdebuch verloren." with horse.get_grade()==2 and pc.countitem("50052")<1 begin
            say("Wie ich sehe hast")
            say("du dein Waffen-Pferdebuch verloren.")
            local b=select("Ein neues bitte.", "Ist doch egal.")
            if 1==b then
                if pc.money>=50000 then
                    pc.changemoney(-50000)
                    say("Hier ist dein neues Waffen-Pferdebuch.")
                    say("Verlier es nicht wieder.")
                    pc.give_item2("50052", 1)
                else
                    say("Du hast nicht genug Yang.")
                end
            elseif 2==b then
            else
                say("UNKNOWN BUTTON ["..b.."]")
            end
        end
        when 20349.chat."Milit�r-Pferdebuch verloren." with horse.get_grade()==3 and pc.countitem("50053")<1 begin
            say("Wie ich sehe hast")
            say("du dein Milit�r-Pferdebuch verloren.")
            local b=select("Ein neues bitte.", "Ist doch egal.")
            if 1==b then
                if pc.money>=100000 then
                    pc.changemoney(-100000)
                    say("Hier ist dein neues Milit�r-Pferdebuch.")
                    say("Verlier es nicht wieder.")
                    pc.give_item2("50053", 1)
                else
                    say("Du hast nicht genug Yang.")
                end
            elseif 2==b then
            else
                say("UNKNOWN BUTTON ["..b.."]")
            end
        end
        when 50051.use with horse.get_grade()==0 begin
            say("Du besitzt kein Pferd!")
        end
        when 50051.use with horse.get_grade()==1 begin
            if pc.getsp()>=100 then
                if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
                    say("Dein Pferd wurde gerufen.")
                    say("")
                    horse.summon()
                else
                    say("Es hat leider nicht geklappt")
                    say("dein Pferd zu rufen.")
                    say("Versuche es noch einmal.")
                end
                pc.change_sp(-100)
            else
                say("Du hast nicht genug Mana")
                say("um dein Pferd zu rufen.")
                say("Du ben�tigst 100 Mana")
            end
        end
        when 50051.use with horse.get_grade()==2 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50051.use with horse.get_grade()==3 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50052.use with horse.get_grade()==0 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50052.use with horse.get_grade()==1 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50052.use with horse.get_grade()==2 begin
            if pc.getsp()>=200 then
                if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
                    say("Dein Pferd wurde gerufen.")
                    say("")
                    horse.summon()
                else
                    say("Es hat leider nicht geklappt")
                    say("dein Pferd zu rufen.")
                    say("Versuche es noch einmal.")
                end
                pc.change_sp(-200)
            else
                say("Du hast nicht genug Mana")
                say("um dein Pferd zu rufen.")
                say("Du ben�tigst 200 Mana")
            end
        end
        when 50052.use with horse.get_grade()==3 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50053.use with horse.get_grade()==0 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50053.use with horse.get_grade()==1 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50053.use with horse.get_grade()==2 begin
            say("Du benutzt ein falsches Pferdebild.")
        end
        when 50053.use with horse.get_grade()==3 begin
            if pc.getsp()>=300 then
                if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
                    say("Dein Pferd wurde gerufen.")
                    say("")
                    horse.summon()
                else
                    say("Es hat leider nicht geklappt")
                    say("dein Pferd zu rufen.")
                    say("Versuche es noch einmal.")
                end
                pc.change_sp(-300)
            else
                say("Du hast nicht genug Mana")
                say("um dein Pferd zu rufen.")
                say("Du ben�tigst 300 Mana")
            end
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end

Das ist die horse_summon.quest aus den '10er Files

04/27/2011 12:40 Glost123#2136

Quote:

Originally Posted by Googler77

Spoiler

PHP Code:

quest horse_summon begin state start begin function get_horse_summon_prob_pct() local skill_level=pc.get_skill_level(131) if skill_level==1 then return 15 elseif skill_level==2 then return 20 elseif skill_level==3 then return 30 elseif skill_level==4 then return 40 elseif skill_level==5 then return 50 elseif skill_level==6 then return 60 elseif skill_level==7 then return 70 elseif skill_level==8 then return 80 elseif skill_level==9 then return 90 elseif skill_level>=10 then return 100 end return 10 end when 20349.chat."Pferdebild verloren." with horse.get_grade()==1 and pc.countitem("50051")<1 begin say("Wie ich sehe hast") say("du dein Pferdebild verloren.") local b=select("Ein neues bitte.", "Ist doch egal.") if 1==b then if pc.money>=10000 then pc.changemoney(-10000) say("Hier ist dein neues Pferdebild.") say("Verlier es nicht wieder.") pc.give_item2("50051", 1) else say("Du hast nicht genug Yang.") end elseif 2==b then else say("UNKNOWN BUTTON ["..b.."]") end end when 20349.chat."Waffen-Pferdebuch verloren." with horse.get_grade()==2 and pc.countitem("50052")<1 begin say("Wie ich sehe hast") say("du dein Waffen-Pferdebuch verloren.") local b=select("Ein neues bitte.", "Ist doch egal.") if 1==b then if pc.money>=50000 then pc.changemoney(-50000) say("Hier ist dein neues Waffen-Pferdebuch.") say("Verlier es nicht wieder.") pc.give_item2("50052", 1) else say("Du hast nicht genug Yang.") end elseif 2==b then else say("UNKNOWN BUTTON ["..b.."]") end end when 20349.chat."Milit�r-Pferdebuch verloren." with horse.get_grade()==3 and pc.countitem("50053")<1 begin say("Wie ich sehe hast") say("du dein Milit�r-Pferdebuch verloren.") local b=select("Ein neues bitte.", "Ist doch egal.") if 1==b then if pc.money>=100000 then pc.changemoney(-100000) say("Hier ist dein neues Milit�r-Pferdebuch.") say("Verlier es nicht wieder.") pc.give_item2("50053", 1) else say("Du hast nicht genug Yang.") end elseif 2==b then else say("UNKNOWN BUTTON ["..b.."]") end end when 50051.use with horse.get_grade()==0 begin say("Du besitzt kein Pferd!") end when 50051.use with horse.get_grade()==1 begin if pc.getsp()>=100 then if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then say("Dein Pferd wurde gerufen.") say("") horse.summon() else say("Es hat leider nicht geklappt") say("dein Pferd zu rufen.") say("Versuche es noch einmal.") end pc.change_sp(-100) else say("Du hast nicht genug Mana") say("um dein Pferd zu rufen.") say("Du ben�tigst 100 Mana") end end when 50051.use with horse.get_grade()==2 begin say("Du benutzt ein falsches Pferdebild.") end when 50051.use with horse.get_grade()==3 begin say("Du benutzt ein falsches Pferdebild.") end when 50052.use with horse.get_grade()==0 begin say("Du benutzt ein falsches Pferdebild.") end when 50052.use with horse.get_grade()==1 begin say("Du benutzt ein falsches Pferdebild.") end when 50052.use with horse.get_grade()==2 begin if pc.getsp()>=200 then if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then say("Dein Pferd wurde gerufen.") say("") horse.summon() else say("Es hat leider nicht geklappt") say("dein Pferd zu rufen.") say("Versuche es noch einmal.") end pc.change_sp(-200) else say("Du hast nicht genug Mana") say("um dein Pferd zu rufen.") say("Du ben�tigst 200 Mana") end end when 50052.use with horse.get_grade()==3 begin say("Du benutzt ein falsches Pferdebild.") end when 50053.use with horse.get_grade()==0 begin say("Du benutzt ein falsches Pferdebild.") end when 50053.use with horse.get_grade()==1 begin say("Du benutzt ein falsches Pferdebild.") end when 50053.use with horse.get_grade()==2 begin say("Du benutzt ein falsches Pferdebild.") end when 50053.use with horse.get_grade()==3 begin if pc.getsp()>=300 then if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then say("Dein Pferd wurde gerufen.") say("") horse.summon() else say("Es hat leider nicht geklappt") say("dein Pferd zu rufen.") say("Versuche es noch einmal.") end pc.change_sp(-300) else say("Du hast nicht genug Mana") say("um dein Pferd zu rufen.") say("Du ben�tigst 300 Mana") end end end state __COMPLETE__ begin when enter begin q.done() end end end

Das ist die horse_summon.quest aus den '10er Files

hab die quest schon^^ vor 10 min schnell neue quest mit dem text was du da hast und einfach filezilla rein :D trotzdem danke!

04/27/2011 18:36 .xD1997�#2137

PHP Code:


			
quest Pferdemedaille begin

    state start begin

    local cost = 10000000

        when 50050.use begin

            say_title("Pferdemedaille")

            say("Hiermit kannst du dein Pferd 1 Level steigern.")

            say("Dies kostet dich 10.000.000 Yang!")

            say("")

            say("M�chtest du wirklich fortfahren?")

            

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

            if main_set == 2 then

                return

            end

            

            if horse.get_level() == 30 then

                say_title("Pferdemedaille")

                say("Dein Pferd ist schon Level 30!")

                say("Du kannst es nicht weiter trainieren.")

                return

            end

            

            if pc.gold < cost then

                say_title("Pferdemedaille")

                say("Du hast leider nicht genug Yang!")

                return

            end

            

            if main_set == 1 then

                say_title("Pferdemedaille")

                say_reward("Dein Pferd ist ein Level gestiegen!")

                say_reward("Du hast nun 10.000.000 Yang weniger!")

                horse.advance()

                pc.changegold(-cost)

                item.remove()

                return

            end

        end

    end

end

Meine erste Quest (:
Richtig so?

04/27/2011 18:47 .ReDDoX�#2138

Quote:

Originally Posted by .xD1997™

PHP Code:

quest Pferdemedaille begin state start begin local cost = 10000000 when 50050.use begin say_title("Pferdemedaille") say("Hiermit kannst du dein Pferd 1 Level steigern.") say("Dies kostet dich 10.000.000 Yang!") say("") say("M�chtest du wirklich fortfahren?") local main_set = select("Ja", "Nein") if main_set == 2 then return end if horse.get_level() == 30 then say_title("Pferdemedaille") say("Dein Pferd ist schon Level 30!") say("Du kannst es nicht weiter trainieren.") return end if pc.gold < cost then say_title("Pferdemedaille") say("Du hast leider nicht genug Yang!") return end if main_set == 1 then say_title("Pferdemedaille") say_reward("Dein Pferd ist ein Level gestiegen!") say_reward("Du hast nun 10.000.000 Yang weniger!") horse.advance() pc.changegold(-cost) item.remove() return end end end end

Meine erste Quest (:
Richtig so?

Hey

Das freut mich das in letzter Zeit die "Neulinge" in Sachen Quest schreiben nur noch so wenig Fehler machen :p :D
Ich habe trotzdem ein wenig umgeschrieben, damit sie auch 100% so klappt, wie sie soll. ;)

Spoiler

Vergleich einfach mal beide Quests & falls du noch Fragen hast, warum ich das so gemacht habe, kannst du mich gerne per PN oder einfach hier fragen.

04/27/2011 18:55 .xD1997�#2139

Werd mich gleich nochmal daransetzen. Macht irgendwie fun :D

Was der Unterschied zwischen if und elseif?

04/27/2011 18:57 .Scy#2140

Quote:

Originally Posted by .xD1997™

Werd mich gleich nochmal daransetzen. Macht irgendwie fun :D

Was der Unterschied zwischen if und elseif?

z.b.
if blalba then
say("hi")
elseif blablabla then
return
end

04/27/2011 19:01 .xD1997�#2141

Quote:

Originally Posted by .Scy

z.b.
if blalba then
say("hi")
elseif blablabla then
return
end

Achso, Danke.
Kenn ich auch so �hnlich von C++, da hei�t es halt statt elseif nur else ^^

04/27/2011 19:03 .Delta#2142

Quote:

Originally Posted by .xD1997�

Achso, Danke.
Kenn ich auch so �hnlich von C++, da hei�t es halt statt elseif nur else ^^

wenn du nur 2 Auswahlm�glicheiten/Ereignise hast kannst du auch if und else nehmen ;)

04/27/2011 19:04 .ReDDoX�#2143

Quote:

Originally Posted by .xD1997™

Was der Unterschied zwischen if und elseif?

Naja, eigentlich ist da kein Unterschied, ich habs fr�her auch immer mit if gemacht, aber dann wurde mir mal gesagt, dass wenn die Quest lange ist und es viele if's gibt man besser elseif benutzen soll. :rolleyes:

Quote:

Originally Posted by .Delta

wenn du nur 2 Auswahlm�glicheiten/Ereignise hast kannst du auch if und else nehmen ;)

^meins in Kurzfassung :D

€: Waren noch ein paar Fehler drin die ich �bersehen hab e.e' Sollte aber jetzt richtig sein.

04/27/2011 19:18 .Delta#2144

auch wenn ich nicht gerne �ber Reddox's Version poste, w�rde ich das in dem Fall doch so machen :)
Kannst aber gerne Reddox version nehmen, die er jetzt ja gefixxt hat.
Ist nur ein anderer Vorschlag, den ich f�r besser halte :)

PHP Code:


			
quest Pferdemedaille begin

    state start begin

        when 50050.use begin

            say_title("Pferdemedaille")

            say("Hiermit kannst du dein Pferd 1 Level steigern.")

            say("Dies kostet dich 10.000.000 Yang!")

            say("")

            say("M�chtest du wirklich fortfahren?")

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

            local cost = 10000000

            if main_set == 1 then

                if horse.get_level() == 30 then

                    say_title("Pferdemedaille")

                    say("Dein Pferd ist schon Level 30!")

                    say("Du kannst es nicht weiter trainieren.")

                    return

                end            

                if pc.get_money() < cost then

                    say_title("Pferdemedaille")

                    say("Du hast leider nicht genug Yang!")

                    return

                end

                if pc.get_money() >= cost and horse.get_level() < 30 then

                    say_title("Pferdemedaille")

                    say_reward("Dein Pferd ist ein Level gestiegen!")

                    say_reward("Du hast nun 10.000.000 Yang weniger!")

                    horse.advance()

                    pc.changegold(-cost)

                    item.remove()

                end

            elseif main_set == 2 then

                return

            end

        end

    end

end

PS: Sry .ReDDoX� :o

04/27/2011 19:21 .ReDDoX�#2145

Quote:

Originally Posted by .Delta

auch wenn ich nicht gerne �ber Reddox's Version poste, w�rde ich das in dem Fall doch so machen :)
Kannst aber gerne Reddox version nehmen, die er jetzt ja gefixxt hat.
Ist nur ein anderer Vorschlag, den ich f�r besser halte :)

PHP Code:

quest Pferdemedaille begin state start begin when 50050.use begin say_title("Pferdemedaille") say("Hiermit kannst du dein Pferd 1 Level steigern.") say("Dies kostet dich 10.000.000 Yang!") say("") say("M�chtest du wirklich fortfahren?") local main_set = select("Ja", "Nein") local cost = 10000000 if main_set == 1 then if horse.get_level() == 30 then say_title("Pferdemedaille") say("Dein Pferd ist schon Level 30!") say("Du kannst es nicht weiter trainieren.") return end if pc.get_money() < cost then say_title("Pferdemedaille") say("Du hast leider nicht genug Yang!") return end if pc.get_money() >= cost and horse.get_level() < 30 then say_title("Pferdemedaille") say_reward("Dein Pferd ist ein Level gestiegen!") say_reward("Du hast nun 10.000.000 Yang weniger!") horse.advance() pc.changegold(-cost) item.remove() end elseif main_set == 2 then return end end end end

PS: Sry .ReDDoX� :o

Die end's zwischen den "if pc.get_money() < cost then" und so m�ssen aber eigentlich auch noch weg. :rolleyes:
Au�erdem hab ich die Quest schon in meinem anderen Beitrag editiert. ([Only registered and activated users can see links. Click Here To Register...]) :p

Page 143 of 845

143