Pferde Quest de like

[BlackBaron12]

Hallo comm,
wie schon gesagt ich suche die Metin2 de like Pferde Quest, ich find ums verrecken keine und kenne mich mit questen leider kein stück aus.
Wenn jemand eine schreiben würde, könnte ich auch die Koordis einfügen, wäre echt super nett.

mfg blackbaron

[Lauling]

kp obs die originale ist, aber guck sie dir mal an.

PHP Code:

quest pony_buy begin
    state start begin
        when 20349.chat."Pferdeprüfung" with horse.get_grade()==0 begin
            if pc.level<=24 then
                say("Dein Level für ein")
                say("Pferd ist zu niedrig!")
                say("")
            elseif pc.countitem("50050")<1 then
                say("Um ein Pferd zu besorgen")
                say("benötigst du eine bestimmte")
                say("Medallie. Nur auf der Pferdemedallie")
                say("können die Ergebnisse")
                say("der Qualifikationsprüfung eingetragen werden.")
                say("")
                setstate(need_item50050)
            elseif pc.countitem("50050")>=1 and pc.level>=25 then
                say("Um ein Pferd zu erhalten")
                say("musst du eine Qualifikationsprüfung bestehen.")
                say("In 30 Minuten musst du 30 Wilde Bogenschützen töten.")
                say("Nur dann bekommst du dein Pferd!")
                say("Die Ergebnisse werden auf deiner Medallie eingetragen.")
                local b=select("¦P·N", "©Úµ´")
                if 1==b then
                    if pc.countitem("50050")>=1 then
                        pc.removeitem("50050", 1)
                        setstate(test)
                    end
                elseif 2==b then
                    say("Pferdequest fehlgeschlagen.")
                else
                    say("UNKNOWN BUTTON ["..b.."]")
                end
            else
                say("Pferdequest fehlgeschlagen.")
            end
        end
    end
    state need_item50050 begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Sammle eine Pferdemedallie")
            q.set_title("Sammle eine Pferdemedallie")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Pferdemedallie!"..locale.NORMAL_COLOR)
            say("Du benötigst eine Pferdemedallie")
            say("um die Qualifikationsprüfung zu bestehen.")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Pferdemedallie!"..locale.NORMAL_COLOR)
            say("Du benötigst eine Pferdemedallie")
            say("um die Qualifikationsprüfung zu bestehen.")
            setstate(start)
            q.done()
        end
    end
    state test begin
        when letter begin
            q.set_counter("³Ñ¤Uªº¤*¯T®g¤â¼Æ¶q", 30-pc.getqf("kill_count"))
        end
        when 503.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¤Uªº¤*¯T®g¤â¼Æ¶q", 30-pc.getqf("kill_count"))
            if get_time()>=pc.getqf("limit_time") then
                setstate(failure)
            end
        end
        when letter begin
            q.set_clock("³Ñ¾l®É¶¡", pc.getqf("limit_time")-get_time())
        end
        when enter begin
            pc.setqf("limit_time", get_time()+30*60)
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Wilde Bogenschützen!")
            q.set_title("Töte Wilde Bogenschützen!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Wilde Bogenschützen!"..locale.NORMAL_COLOR)
            say("Töte innerhalb 30 Minuten mindestens 30 Wilde Bogenschützen.")
            say("Kehre dann zum Stallburschen zurück.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte die Wilden Bogenschützen!"..locale.NORMAL_COLOR)
            say("Töte innerhalb 30 Minuten mindestens 30 Wilde Bogenschützen.")
            say("Kehre dann zum Stallburschen zurück.")
        end
        when 503.kill with pc.getf("pony_buy","kill_count") >= 30 and pc.getf("pony_buy","limit_time")>=get_time() begin
            setstate(report)
        end
        when 20349.chat."PONY QUEST STATE REPAIR" with horse.get_grade()!=0 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Pferdeprüfung" begin
            say("Möchtest du die Prüfung beginnen?")
            local b=select("Ja", "Nein")
            if 1==b then
            elseif 2==b then
                say("Wirklich?")
                local b=select("Ja", "Nein")
                if 1==b then
                    say("Quest wird angenommen")
                    setstate(start)
                    q.done()
                elseif 2==b then
                    say("Nun denn!")
                    say("So soll es sein")
                else
                    say("UNKNOWN BUTTON ["..b.."]")
                end
            else
                say("UNKNOWN BUTTON ["..b.."]")
            end
        end
    end
    state report begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Qualifikation erfolgreich!")
            q.set_title("Qualifikation erfolgreich!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Qualifikation erfolgreich!"..locale.NORMAL_COLOR)
            say("Kehre zum Stallburschen zurück.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Qualifikation erfolgreich!"..locale.NORMAL_COLOR)
            say("Kehre zum Stallburschen zurück.")
        end
        when 20349.chat."PONY QUEST STATE REPAIR" with horse.get_grade()!=0 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Geschafft" with horse.get_grade()==0 begin
            say("Herzlichen Glückwunsch.")
            say("Du hast die Qualifikation bestanden.")
            say("Bis das Pferdebild fertig ist, musst du noch einen Tag warten.")
            say("Vergiss nicht, 100.000 Yang mitzubringen.")
            if is_test_server() then
                pc.setqf("make_time", get_time()+10)
            else
                pc.setqf("make_time", get_time()+number(8, 16)*60*60)
            end
            setstate(wait)
        end
    end
    state wait begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Warte auf das Pferdebild")
            q.set_title("Warte auf das Pferdebild")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Warte auf das Pferdebild"..locale.NORMAL_COLOR)
            say("Warte, bis der Stallbursche")
            say("das Pferdebild erstellt hat.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Warte auf das Pferdebild"..locale.NORMAL_COLOR)
            say("Warte, bis der Stallbursche")
            say("das Pferdebild erstellt hat.")        end
        when login with get_time()>=pc.getf("pony_buy","make_time") begin
            setstate(buy)
        end
        when 20349.chat."PONY QUEST STATE REPAIR" with horse.get_grade()!=0 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Ist mein Pferd schon fertig?" with horse.get_grade()==0 begin
            say("Das Pferdebild ist noch")
            say("nicht fertig. Komme morgen wieder!")
            say("Vergesse aber nicht die 100.000 Yang!")
        end
    end
    state buy begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Das Pferdebild ist fertig!")
            q.set_title("Das Pferdebild ist fertig!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Das Pferdebild ist fertig"..locale.NORMAL_COLOR)
            say("Hol es dir beim Stallburschen ab.")
            say("Es kostet 100.000 Yang.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Das Pferdebild ist fertig"..locale.NORMAL_COLOR)
            say("Hol es dir beim Stallburschen ab.")
            say("Es kostet 100.000 Yang.")
        end
        when 20349.chat."Pferdebild" with horse.get_grade()==0 and get_time()>=pc.getf("pony_buy","make_time") begin
            say("Das Pferdebild ist fertig!")
            say("Möchtest du das Pferdebild kaufen?")
            local b=select("Ja", "Später", "Abbrechen")
            if 1==b then
                if pc.money>=100000 then
                    char_log(0, "HORSE_BUY", "BEGIN")
                    pc.changemoney(-100000)
                    char_log(0, "HORSE_BUY", "DEC money 100000")
                    horse.unride()
                    horse.advance()
                    horse.ride()
                    char_log(0, "HORSE_BUY", "INC horse_advance 1")
                    pc.give_item2("50051", 1)
                    char_log(0, "HORSE_BUY", "INC 50051 1")
                    char_log(0, "HORSE_BUY", "END")
                    say("Hier ist dein Pferd")
                    say("Du kannst es jederzeit")
                    say("mit hilfe des Pferdebildes rufen.")
                    say("Denke daran dein Pferd zu füttern.")
                    setstate(start)
                    q.done()
                else
                    say("¶R ¯«Â@»î ªº¿ú¤£°÷!")
                end
            elseif 2==b then
                say("Ok wir reden später noch einmal.")
            elseif 3==b then
                say("Du willst tatsächlich?")
                say("all die Mühe abbrechen?")
                local b=select("Ja", "Nein")
                if 1==b then
                    setstate(start)
                elseif 2==b then
                else
                    say("UNKNOWN BUTTON ["..b.."]")
                end
            else
                say("UNKNOWN BUTTON ["..b.."]")
            end
        end
    end
    state failure begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Qualifikation fehlgeschlagen!")
            q.set_title("Qualifikation fehlgeschlagen!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Qualifikation fehlgeschlagen!"..locale.NORMAL_COLOR)
            say("Du hast leider keine 30 Wilden Bogenschützen")
            say("in den 30 Minuten getötet.")
            say("Schade.")
            say("Suche eine neue Pferdemedallie")
            say("und versuche es noch einmal.")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Qualifikation fehlgeschlagen!"..locale.NORMAL_COLOR)
            say("Du hast leider keine 50 Wilden Bogenschützen")
            say("in den 30 Minuten getötet.")
            say("Schade.")
            say("Suche eine neue Pferdemedallie")
            say("und versuche es noch einmal.")
            setstate(start)
            q.done()
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


[Nick]

Originally Posted by Bereichsregeln

Beachtet für jeden einzelnen Bereich in der Metin2-Sektion die jeweiligen Sammelthemen. Vermeidet also das Erstellen von Themen, welche ihr in Form eines Beitrags im jeweiligen Sammelthema im jeweiligen Bereich verfassen könnt.

->

In dem Fall bitte das obige Sammelthema nutzen. (closerequested)

lg