[Release]Tränenshop ~ Verbessert & Gefixt

12/02/2012 18:04 Mr. 'Avenue™#1
Habe die vorherige "Version" auf meinem Testserver getestet & gemerkt, dass man auch ohne Tränen Items kaufen konnte..
Dies habe ich nun gefixt & ich habe auch 2 Kategorien hinzugefügt (Schmuck + UppItems)

PHP Code:
quest tshop begin
    state start begin
        when 20091.chat."Tränenshop" with pc.get_level() > 49 begin
            local anzahltrnen = pc.count_item(30186)
            say_title("Tränenshop")
            say("Hallo "..pc.get_name()..",")
            say("Bei mir kannst du Versteinerte Tränen")
            say("gegen legendäre Items eintauschen.")
            say_item_vnum(30186)
            say("")
            local open = select("Informationen","Shop öffnen","Abbrechen")
            if open == 3 then
                return
            elseif open == 1 then
                say_title("Informationen ~ Tränenshop")
                say("Hallo "..pc.get_name()..",")
                say("Du hast "..anzahltrnen.." Versteinerte Tränen.")
            elseif open == 2 then
                say_title("Der Tränenshop")
                local cat = select("Waffen","Rüstungen","Schmuck","UppItems","Abbrechen")
                if cat == 5 then
                    return
                elseif cat == 1 then
                    say_title("Waffen ~ Tränenshop")
                    local waffen = select("Giftschwert+9(120 Tränen)","Grollschwert+9(120 Tränen)","Löwenschwert+9(120 Tränen)","Teufelsflügel Chakram+9(120 Tränen)","Krähenstahlbogen+9(120 Tränen)","Orchideenglocke+9(120 Tränen)","Abbrechen")
                    if waffen == 7 then
                        return
                    elseif waffen == 1 then
                        say_title("Giftschwert ~ Waffen ~ Tränenshop")
                        say_item_vnum(189)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich das Giftschwert+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("189", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif waffen == 2 then
                        say_title("Grollschwert ~ Waffen ~ Tränenshop")
                        say_item_vnum(3169)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich das Grollschwert+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("3169", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif waffen == 3 then
                        say_title("Löwenschwert ~ Waffen ~ Tränenshop")
                        say_item_vnum(199)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich das Löwenschwert+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("199", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif waffen == 4 then
                        say_title("Teufelsflügel Chakram ~ Waffen ~ Tränenshop")
                        say_item_vnum(1139)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich das Teufelsflügel Chakram+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("1139", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif waffen == 5 then
                        say_title("Krähenstahlbogen ~ Waffen ~ Tränenshop")
                        say_item_vnum(2179)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich den Krähenstahlbogen+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("2179", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif waffen == 6 then
                        say_title("Orchideenglocke ~ Waffen ~ Tränenshop")
                        say_item_vnum(5129)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Orchideenglocke+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("5129", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    end
                elseif cat == 2 then
                    say_title("Rüstungen ~ Tränenshop")
                    local russis = select("Hwang Rüstung(450 Tränen)","Rote Hwang Rüstung(450 Tränen)","Zin-Hwang Rüstung(450 Tränen)","Sang-Hwang Rüstung(450 Tränen)","Blaustahlpanzer+9(250 Tränen)","Blauer Drachenanzug+9(250 Tränen)","Auraplattenpanzer+9(250 Tränen)","Kleidung des Drachen+9(250 Tränen)","Abbrechen")
                    if russis == 9 then
                        return
                    elseif russis == 1 then
                        say_title("Hwang Rüstung ~ Waffen ~ Tränenshop")
                        say_item_vnum(11971)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Hwang Rüstung")
                        say_blue2("für 450 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 450 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("11971", 1)
                                pc.removeitem("30186", 450)
                            end
                        end
                    elseif russis == 2 then
                        say_title("Rote Hwang Rüstung ~ Waffen ~ Tränenshop")
                        say_item_vnum(11972)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Rote Hwang Rüstung")
                        say_blue2("für 450 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 450 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("11972", 1)
                                pc.removeitem("30186", 450)
                            end
                        end
                    elseif russis == 3 then
                        say_title("Zin-Hwang Rüstung ~ Waffen ~ Tränenshop")
                        say_item_vnum(11973)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Zin-Hwang Rüstung")
                        say_blue2("für 450 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 450 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("11973", 1)
                                pc.removeitem("30186", 450)
                            end
                        end
                    elseif russis == 4 then
                        say_title("Sang-Hwang Rüstung ~ Waffen ~ Tränenshop")
                        say_item_vnum(11974)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Sang-Hwang Rüstung")
                        say_blue2("für 450 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 450 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("11974", 1)
                                pc.removeitem("30186", 450)
                            end
                        end
                    elseif russis == 5 then
                        say_title("Blaustahlpanzer ~ Waffen ~ Tränenshop")
                        say_item_vnum(12019)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich den Blaustahlpanzer+9")
                        say_blue2("für 250 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 250 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("12019", 1)
                            end
                        end
                    elseif russis == 6 then
                        say_title("Blauer Drachenanzug ~ Waffen ~ Tränenshop")
                        say_item_vnum(12029)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich den Blauen Drachenanzug+9")
                        say_blue2("für 250 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 250 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("12029", 1)
                                pc.removeitem("30186", 250)
                            end
                        end
                    elseif russis == 7 then
                        say_title("Auraplattenpanzer ~ Waffen ~ Tränenshop")
                        say_item_vnum(12039)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich den Auraplattenpanzer+9")
                        say_blue2("für 250 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 250 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("12039", 1)
                                pc.removeitem("30186", 250)
                            end
                        end
                    elseif russis == 8 then
                        say_title("Kleidung des Drachen ~ Waffen ~ Tränenshop")
                        say_item_vnum(12049)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Kleidung des Drachen+9")
                        say_blue2("für 250 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 250 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("12049", 1)
                                pc.removeitem("30186", 250)
                            end
                        end
                    end
                elseif cat == 3 then
                    say_title("Schmuck ~ Tränenshop")
                    local schmuck = select("Himmelstränenarmband(120 Tränen)","Himmelstränenhalskette(120 Tränen)","Himmelstränenohrringe(120 Tränen)","Abbrechen")
                    if schmuck == 4 then
                        return
                    elseif schmuck == 1 then
                        say_title("Himmelstränenarmband ~ Schmuck ~ Tränenshop")
                        say_item_vnum(14209)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich das Himmelstränenarmband+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("14209", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif schmuck == 2 then
                        say_title("Himmelstränenhalskette ~ Schmuck ~ Tränenshop")
                        say_item_vnum(16209)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Himmelstränenhalskette+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("16209", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    elseif schmuck == 3 then
                        say_title("Himmelstränenohrringe ~ Schmuck ~ Tränenshop")
                        say_item_vnum(17209)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Himmelstränenohrringe+9")
                        say_blue2("für 120 Tränen kaufen?")
                        local yn = select("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 120 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("17209", 1)
                                pc.removeitem("30186", 120)
                            end
                        end
                    end
                elseif cat == 4 then
                    say_title("UppItems ~ Tränenshop")
                    local uppitems = select("Weiße Perle(50 Tränen)","Blaue Perle(50 Tränen)","Blutrote Perle(50 Tränen)","Abbrechen")
                    if uppitems == 4 then
                        return
                    elseif uppitems == 1 then
                        say_title("Weiße Perle ~ UppItems ~ Tränenshop")
                        say_item_vnum(27991)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Weiße Perle")
                        say_blue2("für 50 Tränen kaufen?")
                        local yn = select ("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 50 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("27991", 1)
                                pc.removeitem("30186", 50)
                            end
                        end
                    elseif uppitems == 2 then
                        say_title("Blaue Perle ~ UppItems ~ Tränenshop")
                        say_item_vnum(27992)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Blutrote Perle")
                        say_blue2("für 50 Tränen kaufen?")
                        local yn = select ("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 50 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("27992", 1)
                                pc.removeitem("30186", 50)
                            end
                        end
                    elseif uppitems == 3 then
                        say_title("Blutrote Perle ~ UppItems ~ Tränenshop")
                        say_item_vnum(27993)
                        say_gold("Bestätigung")
                        say_blue2("Möchtest du wirklich die Blutrote Perle")
                        say_blue2("für 50 Tränen kaufen?")
                        local yn = select ("Ja","Nein")
                        if yn == 2 then
                            return
                        elseif yn == 1 then
                            if anzahltrnen < 50 then
                                say_red("Dir fehlen Versteinerte Tränen..")
                            else
                                pc.give_item2("27993", 1)
                                pc.removeitem("30186", 50)
                            end
                        end
                    end
                end
            end
        end
    end
end 

Viel Spaß damit.
12/02/2012 18:06 'Hooligan#2
Sieht echt gut aus, danke dir.

Werde es mal ausprobieren und mein Feedback hier posten.
12/02/2012 18:06 LotusSky#3
Danke.
Gut wie immer.
12/02/2012 18:07 Sikk'#4
Gute und nützliche Quest.
Werde ich sobald ich Zeit habe in meinen Sammelthread adden :)
12/02/2012 18:10 Mr. 'Avenue™#5
Danke für euer Feedback :awesome:

Falls ihr Bugs findet bitte meldet sie bei mir.
12/02/2012 18:11 .HC'Zeklow#6
Nice.
Thx
12/02/2012 18:14 yessiя#7
nice
12/02/2012 18:51 #SoNiice#8
Die Quest hätte man ruhig kürzer fassen können. Verstehe den Sinn dahinter nicht so ganz o.o
12/02/2012 21:42 'Hooligan#9
Ob lang oder kurz, sie erfüllt ihren Zweck.

Ich habe es getestet habe soweit keine Bugs gefunden echt schöne Quest. Kann man gut mit anderen Quests verbinden, weiter so, mehr bitte :)
12/03/2012 03:45 ♥NuuB♥#10
Quote:
Originally Posted by SoNiice View Post
Die Quest hätte man ruhig kürzer fassen können. Verstehe den Sinn dahinter nicht so ganz o.o
Ich kenn dich zwar nicht, aber mir ist eins aufgefallen du hast an allem i was aus zusetzten ?

Du bist zu 100 % nur neidisch.
und bitte sparr dir in Zukunft solche Kommentare.

(hast du überhaupt freunde) ?
12/03/2012 15:25 .SliceR#11
Sieht gut aus danke :-)
12/03/2012 17:16 hr4rjuku#12
Sooo lange :D

Die Quest würd ich dir in max. 30 zeilen schreiben^^ (wenn überhaupt)

Für die, die es gebrauchen können nicht schlecht.


Mfg Hr4rjuku
04/21/2013 19:12 olieg#13
Tut mir leid, dass ich diese Thread pushe, aber bei mir funktioniert es nicht, nach sh make kommt folgende Fehlermeldung:
WHEN : 20091.chat ("Tränenshop")
with pc . get_level ( ) > 49
Calls undeclared function! :
say_blue2
say_gold
Error occured on compile tshop.quest

Ingame kann ich alles benutzen, nur wen ich ein Item aussuche und dann auf OK klicke passiert nichts, Quest-Fenster schliesst sich aber ich bekomme kein Item.
04/22/2013 09:44 mrapc#14
olieg
Du brauchst wahrscheinlich die Questlib Erweiterung von Mijago.


Gibt es bei Questen eigentlich kein "Select Case" oder sowas ähnliches,
denn immer ElseIf zu verwenden kann Resourcsen kosten.
04/27/2013 20:20 Asamcos123451#15
debile