[RELEASE]Schere-Stein-Papier Quest

Page 1 of 2

09/03/2011 13:55 Avulsed#1

Hey,

Hab mal eine kleine Schere-Stein-Papier Quest f�r euch, ist zwar nicht wirklich was besonderes, aber eventuell k�nnen die manche ja gebrauchen.

Auf Wunsch kann ich auch noch eine Begrenzung einf�gen wie oft man in einer bestimmten Zeit spielen darf.

Spoiler

PHP Code:


			
quest schere begin
    state start begin
    when npcvnum.chat."Ein Spiel spielen" begin
    say_title("Computer")
    say("Hallo, "..pc.get_name()..".")
    say("M�chtest du ein Spiel mit mir spielen?")
    say_reward("Bei dem Spiel handelt es sich um Schere-Stein-Papier.")
    say_reward("Allerdings m�chte ich daf�r 250.000 Yang von dir.")
    say("")
    local auswahl=select("Ja","Nein")
    if auswahl==1 then
    if pc.money > 250000 then
    pc.change_money(-250000)
    say_title("Computer")
    say("Bitte treffe deine Auswahl")
    say("")
    local auswahl2=select("Schere","Stein","Papier")
    if auswahl2==1 then
        local schere=number(1,3)
            if 1==schere then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")
                say("")
                wait()
                say_title("Das Spiel endet unentschieden!")
                say("Du bekommst dein Geld zur�ck.")
                pc.change_money(250000)
            end
            if 2==schere then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")
                say("")
                wait()
                say_title("Du hast das Spiel verloren!!")
                say("Dein Geld ist futsch!")
            end
            if 3==schere then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")
                say("")
                wait()
                say_title("Du hast das Spiel gewonnen!")
                say("Du erh�lst 500.000 Yang!")
                pc.change_money(500000)
            end
    end
    if auswahl2==2 then
        local stein=number(1,3)
            if 1==stein then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")
                say("")
                wait()
                say_title("Du hast das Spiel gewonnen!")
                say("Du erh�lst 500.000 Yang!")
                pc.change_money(500000)
            end
            if 2==stein then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")
                say("")
                wait()
                say_title("Das Spiel endet unentschieden!")
                say("Du bekommst dein Geld zur�ck.")
                pc.change_money(250000)
            end
            if 3==stein then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")
                say("")
                wait()
                say_title("Du hast das Spiel verloren!")
                say("Dein Geld ist futsch!")
            end
    end
    if auswahl2==3 then
        local papier=number(1,3)
            if 1==papier then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")
                say("")
                wait()
                say_title("Du hast das Spiel verloren!")
                say("Dein Geld ist futsch!")
            end
            if 2==papier then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")
                say("")
                wait()
                say_title("Du hast das Spiel gewonnen!")
                say("Du erh�lst 500.000 Yang!")
                pc.change_money(500000)
            end
            if 3==papier then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")
                say("")
                wait()
                say_title("Das Spiel endet unentschieden!")
                say("Du bekommst dein Geld zur�ck.")
                pc.change_money(250000)
            end
    end
end
    if auswahl==2 then
        return
        end
    if auswahl2==4 then
                return
        end
end
end
end
end

V2 (Mit Einsatz selbst bestimmen & Zeitbegrenzung)

Spoiler

PHP Code:


			
quest schere begin
    state start begin
    when npcvnum.chat."Ein Spiel spielen" begin  ------npc vnum eingeben
    say_title("Computer")
    say("Hallo, "..pc.get_name()..".")
    say("M�chtest du ein Spiel mit mir spielen?")
    say_reward("Bei dem Spiel handelt es sich um Schere-Stein-Papier.")
    say("")
    local main=select("Ja","Nein")
    if main==1 then
    say_title("Computer")
    say("Bitte w�hle deinen Einsatz.")
    say("")
    local einsatz=tonumber(input(""));
    local geld=einsatz
    local m=1.25 ------------------------Hier wird definiert mit welchem Wert der Einsatz beim Gewinn multipliziert wird. In dem Fall 1.25 sprich 25%.
    say_title("Computer")
    say("Bist du sicher, dass du das Geld setzten willst?")
    say("")
    local main2=select("Ja","Nein")
    if main2==1 then
    if get_time() < pc.getqf("gamedura") then
    say_title("Computer")
    say("Es tut mir leid, aber du kannst noch nicht wieder spielen.")
    end
    if pc.get_money() < geld and geld < 900000000  then
    say_title("Computer")
    say("Es tut mir leid, aber der gesetzte Betrag befindet sich nicht in deinem Besitz.")
    end
    if geld > 900000000 then
    say_title("Computer")
    say("Es tut mir leid, aber du kannst leider nur maximal 900.000.000 Yang setzen.")
    end
    end
    if pc.get_money() >= geld and get_time() > pc.getqf("gamedura") then
    pc.change_money(-geld)
    pc.setqf("gamedura",get_time()+60*60*1) ------------------------Hier wird die Zeit definiert, welche der Spieler �berwinden muss, um nochmal zu spielen. Sekunden*Minuten*Stunden
    say_title("Computer")
    say("Bitte treffe deine Auswahl")
    say("")
    local auswahl2=select("Schere","Stein","Papier")
    if auswahl2==1 then
        local schere=number(1,3)
            if 1==schere then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")
                say("")
                wait()
                say_title("Das Spiel endete unentschieden!")
                say("Du bekommst dein Geld zur�ck.")
                pc.change_money(geld)
            end
            if 2==schere then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")
                say("")
                wait()
                say_title("Du hast das Spiel verloren!!")
                say("Dein Geld ist futsch!")
            end
            if 3==schere then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")
                say("")
                wait()
                say_title("Du hast das Spiel gewonnen!")
                say("Du erh�lst "..(geld*m).." Yang!")
                pc.change_money(geld*m)
            end
    end
    if auswahl2==2 then
        local stein=number(1,3)
            if 1==stein then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")
                say("")
                wait()
                say_title("Du hast das Spiel gewonnen!")
                say("Du erh�lst "..(geld*m).." Yang!")
                pc.change_money(geld*m)
            end
            if 2==stein then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")
                say("")
                wait()
                say_title("Das Spiel endet unentschieden!")
                say("Du bekommst dein Geld zur�ck.")
                pc.change_money(geld)
            end
            if 3==stein then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")
                say("")
                wait()
                say_title("Du hast das Spiel verloren!")
                say("Dein Geld ist futsch!")
            end
    end
    if auswahl2==3 then
        local papier=number(1,3)
            if 1==papier then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")
                say("")
                wait()
                say_title("Du hast das Spiel verloren!")
                say("Dein Geld ist futsch!")
            end
            if 2==papier then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")
                say("")
                wait()
                say_title("Du hast das Spiel gewonnen!")
                say("Du erh�lst "..(geld*m).." Yang!")
                pc.change_money(geld*m)
            end
            if 3==papier then
                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")
                say("")
                wait()
                say_title("Das Spiel endete unentschieden!")
                say("Du bekommst dein Geld zur�ck.")
                pc.change_money(geld)
            end
    end
end
end
end
end
end

Erkl�rung zur Zeitbegrenzung

Die Zeit wird so definiert: Minuten*Sekunden*Stunden usw..

24 Stunden Zeitbegrenzung: 60*60*24
1 Stunde Zeitbegrenzung: 60*60
30 Minuten Zeitbegrenzung: 60*30
10 Minuten Zeitbegrenzung: 60*10
60 Sekunden Zeitbegrenzung: 60
10 Sekunden Zeitbegrenzung: 10

Ich glaube jetzt sollte das jeder verstanden haben.

09/03/2011 13:59 lfcmaus#2

nice nice machste noch nen kleinen hingucker rein?
zb nen quest hintergrund der passend ist und vllt bildchen f�r stein schere und papier w�rd mich freun

09/03/2011 14:00 ♛ SoD ♛#3

Danke f�r die Arbeit. Brache es allerdings nicht.

09/03/2011 14:03 John Schmieri#4

Hast du die selber gemacht oder von Majestic?:D auf Majestic waren sogar glaub ich noch Bilder dabei.

W�re super wenn hier ebenfals so ist.

Tolle Arbeit

Regards Cy.

09/03/2011 14:04 Avulsed#5

Quote:

Originally Posted by Cy.

Hast du die selber gemacht oder von Majestic?:D auf Majestic waren sogar glaub ich noch Bilder dabei.

W�re super wenn hier ebenfals so ist.

Tolle Arbeit

Regards Cy.

Nein, hab ich selber gemacht, das mit den Bildern k�nnte ich aber auch noch einf�gen.

09/03/2011 14:04 br0wniie.#6

Hehe nice! Was nettes f�r zwischendurch ;)

09/03/2011 14:11 3jfx#7

net schlecht, aber viel zu viele if abfragen

09/03/2011 14:14 ..:EliteZocker:..#8

Nice

kannst du auch machen das man die Einsatzh�he selbst entscheiden kann?

09/03/2011 14:16 √π.#9

Nette Idee, kann man aber wie bereits erw�hnt noch k�rzer schreiben.

09/03/2011 14:36 iSouli~#10

K�nntest du eventuell eine eine 10 Min begrenzung schicken? Also per pn , w�re super nett.

09/03/2011 14:41 Avulsed#11

Quote:

Originally Posted by ..:EliteZocker:..

Nice

kannst du auch machen das man die Einsatzh�he selbst entscheiden kann?

Quote:

Originally Posted by -Soulution-

K�nntest du eventuell eine eine 10 Min begrenzung schicken? Also per pn , w�re super nett.

Heute Abend, da ich gerade nur mit dem Handy online bin.

09/03/2011 15:15 .Keyto#12

Danke dir ich bau die mal ein :)

09/03/2011 15:19 .Risan.#13

Lustige idee, allerdings h�tte ich da mit Tabellen gearbeitet, macht das ganze min um die h�lfte so gro�...

09/03/2011 15:47 .Yacki#14

Quote:

Originally Posted by 3jfx

net schlecht, aber viel zu viele if abfragen

Na ja, wenn's l�uft ;)
Nice Quest �brigends, w�re denke ich mal sonst niemand drauf gekommen ;P

09/03/2011 15:48 ΞӂΞ#15

F�r Anf�nger w�r die Quest so glaube ich besser:

PHP Code:


			
quest schere begin

    state start begin

    when npcvnum.chat."Ein Spiel spielen" begin

          gewinn = 500000

          einsatz = 250000

    say_title("Computer")

    say("Hallo, "..pc.get_name()..".")

    say("M�chtest du ein Spiel mit mir spielen?")

    say_reward("Bei dem Spiel handelt es sich um Schere-Stein-Papier.")

    say_reward("Allerdings m�chte ich daf�r 250.000 Yang von dir.")

    say("")

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

    if auswahl==1 then

    if pc.money > einsatz then

    pc.change_money(-einsatz)

    say_title("Computer")

    say("Bitte treffe deine Auswahl")

    say("")

    local auswahl2=select("Schere","Stein","Papier")

    if auswahl2==1 then

        local schere=number(1,3)

            if 1==schere then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")

                say("")

                wait()

                say_title("Das Spiel endet unentschieden!")

                say("Du bekommst dein Geld zur�ck.")

                pc.change_money(einsatz)

            end

            if 2==schere then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")

                say("")

                wait()

                say_title("Du hast das Spiel verloren!!")

                say("Dein Geld ist futsch!")

            end

            if 3==schere then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")

                say("")

                wait()

                say_title("Du hast das Spiel gewonnen!")

                say("Du erh�lst 500.000 Yang!")

                pc.change_money(gewinn)

            end

    end

    if auswahl2==2 then

        local stein=number(1,3)

            if 1==stein then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")

                say("")

                wait()

                say_title("Du hast das Spiel gewonnen!")

                say("Du erh�lst 500.000 Yang!")

                pc.change_money(gewinn)

            end

            if 2==stein then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")

                say("")

                wait()

                say_title("Das Spiel endet unentschieden!")

                say("Du bekommst dein Geld zur�ck.")

                pc.change_money(einsatz)

            end

            if 3==stein then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")

                say("")

                wait()

                say_title("Du hast das Spiel verloren!")

                say("Dein Geld ist futsch!")

            end

    end

    if auswahl2==3 then

        local papier=number(1,3)

            if 1==papier then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Schere")

                say("")

                wait()

                say_title("Du hast das Spiel verloren!")

                say("Dein Geld ist futsch!")

            end

            if 2==papier then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Stein")

                say("")

                wait()

                say_title("Du hast das Spiel gewonnen!")

                say("Du erh�lst 500.000 Yang!")

                pc.change_money(gewinn)

            end

            if 3==papier then

                say_title("Der Computer w�hlt [DELAY value;340]...[/DELAY] Papier")

                say("")

                wait()

                say_title("Das Spiel endet unentschieden!")

                say("Du bekommst dein Geld zur�ck.")

                pc.change_money(einsatz)

            end

    end

end

    if auswahl==2 then

        return

        end

    if auswahl2==4 then

                return

        end

end

end

end

end

ich denke so sollte es funktionieren ^^
kannst du ja einf�gen

Page 1 of 2