pferde quest

[.Hass]

kann mal bitte jemand die ganznormale Pferde quest posten? ich hab die leider nicht mehr in meinen SF

[LxR'EsoZiaL]

horse_guard

 Spoiler

PHP Code:

quest horse_guard begin
    state start begin
        when 20349.chat."Informationen über Pferde" begin
            local s=number(1, 7)
            if 1>=s then -- 14.29% (1/7)
                say("Während du ein Pferd reitest, nimmt seine")
                say("Erschöpfung zu und seine Gesundheit ab.")
                say("Du musst es daher ab und zu rasten lassen, damit")
                say("es nicht zusammen bricht.")
            elseif 2>=s then -- 14.29% (1/7)
                say("Es gibt Pferde für drei Arten von Reitern:")
                say("Anfänger, Fortgeschrittene und Experten. Um mit")
                say("deinen Fähigketen aufzusteigen, musst du einen")
                say("Eignungstest bestehen.")
                say("")
            elseif 3>=s then -- 14.29% (1/7)
                say("Um eine Pferdequest zu starten,")
                say("benötigst du eine Pferdemedallie. Du bekommst")
                say("sie im Affendungeon")
                say("")
            elseif 4>=s then -- 14.29% (1/7)
                say("Die Fertigkeiten eines Reiters können")
                say("unterschiedlich sein. Wenn du dich dazu noch im")
                say("Besitz einer Pferdemedallie befindest, kannst du")
                say("den Level deines Reittieres verbessern.")
                say("")
            elseif 5>=s then -- 14.29% (1/7)
                say("Je nach ihrer Belastung durch den Reiter")
                say("benötigen Pferde unterschiedliche Arten von")
                say("Futter. Reitanfänger füttern ihre Tiere am")
                say("besten mit Heu, Fortgeschrittene mit Karotten")
                say("und Experte, die ihrem Tier viel abverlangen,")
                say("sollten ausschließlich roten Ginseng verfüttern,")
                say("In dieser Hinsicht können Pferde sehr wählerisch")
                say("sein.")
                say("")
            elseif 6>=s then -- 14.29% (1/7)
                say("Es sind Gerüchte im Umlauf, dass ein totes Pferd")
                say("mit Affenkraut wiederbelebt werden kann.")
                say("Allerdings wird dieses Kraut von Affen")
                say("schwer bewacht und ist schwierig zu bekommen.")
            elseif 7>=s then -- 14.29% (1/7)
                say("Der Zustand des Pferdes wird durch einen")
                say("einfachen Indikarot angezeigt: Bei Grün ist es")
                say("gesund, im hungrigen Zustand Gelb.")
                say("Rote Farbe ist gefährlich, denn sie weist auf")
                say("Unterernährung hin. Du musst dein Pferd füttern,")
                say("wenn es in den gelben oder gar roten Bereich")
                say("gekommen ist. Es ist eine ernste Angelegenheit,")
                say("wenn dein Pferd stirbt")
                say("")
            end
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


horse_levelup

 Spoiler

PHP Code:

quest horse_levelup begin
    state training1 begin
        when letter begin
            q.set_counter("³Ñ¾l¶Â*·¥ªÅ@ªk¼Æ¶q", 5-pc.getqf("kill_count"))
        end
        when 492.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l¶Â*·¥ªÅ@ªk¼Æ¶q", 5-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Bo!")
            q.set_title("Töte Bo!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Bo!"..locale.NORMAL_COLOR)
            say("Töte 5 Bo.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Bo!"..locale.NORMAL_COLOR)
            say("Töte 5 Bo.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 492.kill with pc.getf("horse_levelup","kill_count") >= 5 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training2 begin
        when letter begin
            q.set_counter("³Ñ¾l¶Â*·¹ë¥D¼Æ¶q", 5-pc.getqf("kill_count"))
        end
        when 494.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l¶Â*·¹ë¥D¼Æ¶q", 5-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Chuong!")
            q.set_title("Töte Chuong!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Chuong!"..locale.NORMAL_COLOR)
            say("Töte 5 Chuong.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Chuong!"..locale.NORMAL_COLOR)
            say("Töte 5 Chuong.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 494.kill with pc.getf("horse_levelup","kill_count") >= 5 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training3 begin
        when letter begin
            q.set_counter("³Ñ¾l°*±Ú±N*x¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when 635.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l°*±Ú±N*x¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Stolzer Ork-General")
            q.set_title("Töte Stolzer Ork-General")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Stolzer Ork-General"..locale.NORMAL_COLOR)
            say("Töte 10 Stolzer Ork-General.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Stolzer Ork-General"..locale.NORMAL_COLOR)
            say("Töte 10 Stolzer Ork-General.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 635.kill with pc.getf("horse_levelup","kill_count") >= 10 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training4 begin
        when letter begin
            q.set_counter("³Ñ¾l°*±Ú±O¤M¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when 636.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l°*±Ú±O¤M¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Schwarzer Ork!")
            q.set_title("Töte Schwarzer Ork!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Schwarzer Ork!"..locale.NORMAL_COLOR)
            say("Töte 10 Schwarzer Ork.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Schwarzer Ork!"..locale.NORMAL_COLOR)
            say("Töte 10 Schwarzer Ork.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 636.kill with pc.getf("horse_levelup","kill_count") >= 10 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training5 begin
        when letter begin
            q.set_counter("³Ñ¾l¯µ©v§x¥}ÆF¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when 706.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l¯µ©v§x¥}ÆF¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Dunkler Peiniger")
            q.set_title("Töte Dunkler Peiniger")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Dunkler Peiniger"..locale.NORMAL_COLOR)
            say("Töte 10 Dunkler Peiniger.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Dunkler Peiniger"..locale.NORMAL_COLOR)
            say("Töte 10 Dunkler Peiniger.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 706.kill with pc.getf("horse_levelup","kill_count") >= 10 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training6 begin
        when letter begin
            q.set_counter("³Ñ¾l¯T¬r»jµï¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when 2034.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l¯T¬r»jµï¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Klauengiftspinne")
            q.set_title("Töte Klauengiftspinne")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Klauengiftspinne"..locale.NORMAL_COLOR)
            say("Töte 10 Klauengiftspinne.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Klauengiftspinne"..locale.NORMAL_COLOR)
            say("Töte 10 Klauengiftspinne.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 2034.kill with pc.getf("horse_levelup","kill_count") >= 10 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training7 begin
        when letter begin
            q.set_counter("³Ñ¾lµô¨MªÌ¼Æ¶q", 20-pc.getqf("kill_count"))
        end
        when 2108.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾lµô¨MªÌ¼Æ¶q", 20-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Wüstenbandit")
            q.set_title("Töte Wüstenbandit")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Wüstenbandit"..locale.NORMAL_COLOR)
            say("Töte 20 Wüstenbandit.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Wüstenbandit"..locale.NORMAL_COLOR)
            say("Töte 20 Wüstenbandit.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 2108.kill with pc.getf("horse_levelup","kill_count") >= 20 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training8 begin
        when letter begin
            q.set_counter("³Ñ¾l¦BÀJÅ]¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when 1107.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l¦BÀJÅ]¼Æ¶q", 10-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Eisgolem")
            q.set_title("Töte Eisgolem")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Eisgolem"..locale.NORMAL_COLOR)
            say("Töte 10 Eisgolem.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Eisgolem"..locale.NORMAL_COLOR)
            say("Töte 10 Eisgolem.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 1107.kill with pc.getf("horse_levelup","kill_count") >= 10 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state training9 begin
        when letter begin
            q.set_counter("³Ñ¾lµK¨ªªê¼Æ¶q", 20-pc.getqf("kill_count"))
        end
        when 2203.kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾lµK¨ªªê¼Æ¶q", 20-pc.getqf("kill_count"))
        end
        when enter begin
            pc.setqf("kill_count", 0)
        end
        when leave begin
            q.done()
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Töte Kampftiger")
            q.set_title("Töte Kampftiger")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Kampftiger"..locale.NORMAL_COLOR)
            say("Töte 20 Kampftiger.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Kampftiger"..locale.NORMAL_COLOR)
            say("Töte 20 Kampftiger.")
            say("Wenn du absteigst")
            say("ist deine Prüfung misslungen.")
        end
        when 2203.kill with pc.getf("horse_levelup","kill_count") >= 20 begin
            setstate(report)
        end
        when unmount begin
            setstate(failure)
        end
    end
    state start begin
        when 20349.chat."Kampfprüfung" with horse.get_grade()==2 begin
            if horse.get_level()==20 then
                say("Du kannst dein Pferd")
                say("zu einem Militärpferd")
                say("ausbilden.")
                say("")
            elseif pc.countitem("50050")<1 then
                say("Du benötigst eine")
                say("Pferdemedaille.")
                say("")
                setstate(need_item50050)
            elseif get_time()<pc.getqf("next_time") then
                say("Du musst noch warten.")
                say("Komm Morgen wieder.")
                say("")
            elseif horse.get_stamina_pct()<=10 then
                say("Dein Pferd ist zu")
                say("Erschöpft.")
                say("")
            elseif horse.get_health_pct()<=10 then
                say("Dein Pferd ist zu")
                say("Erschöpft.")
                say("")
            elseif horse.is_riding()==0 then
                say("Rufe zuerst dein Pferd.")
            elseif (horse.get_level()>=11 and horse.get_level()<=19) then
                say("Du möchtest also dein Pferd")
                say("weiter Trainieren!")
                say("Nun gut hier ist deine")
                say("Aufgabe.")
                say("Aber pass auf das du nicht")
                say("vom Pferd fällst oder absteigst.")
                say("")
                if is_test_server() then
                    pc.setqf("next_time", get_time()+10)
                else
                    pc.setqf("next_time", get_time()+number(16, 32)*60*60)
                end
                if horse.get_level()==11 then
                    setstate(training1)
                elseif horse.get_level()==12 then
                    setstate(training2)
                elseif horse.get_level()==13 then
                    setstate(training3)
                elseif horse.get_level()==14 then
                    setstate(training4)
                elseif horse.get_level()==15 then
                    setstate(training5)
                elseif horse.get_level()==16 then
                    setstate(training6)
                elseif horse.get_level()==17 then
                    setstate(training7)
                elseif horse.get_level()==18 then
                    setstate(training8)
                elseif horse.get_level()==19 then
                    setstate(training9)
                end
            end
        end
    end
    state need_item50050 begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Pferdemedaille")
            q.set_title("Pferdemedaille")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Pferdemedaille"..locale.NORMAL_COLOR)
            say("Gehe ins Affendungeon")
            say("und besorge eine Pferdemedaille")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Pferdemedaille"..locale.NORMAL_COLOR)
            say("Gehe ins Affendungeon")
            say("und besorge eine Pferdemedaille")
            setstate(start)
            q.done()
        end
    end
    state failure begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Training Misslungen!")
            q.set_title("Training Misslungen!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Training Misslungen!"..locale.NORMAL_COLOR)
            say("Bitte versuche es Später erneut.")
            say("")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Training Misslungen!"..locale.NORMAL_COLOR)
            say("Bitte versuche es Später erneut.")
            say("")
            setstate(start)
            q.done()
        end
    end
    state report begin
        when letter begin
            local v=find_npc_by_vnum(20349)
            if 0==v then
            else
                target.vid("__TARGET__", v, "")
            end
        end
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Rückkehr zum Stallburschen")
            q.set_title("Rückkehr zum Stallburschen")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Rückkehr zum Stallburschen"..locale.NORMAL_COLOR)
            say("Kehre zum Stallburschen zurück")
            say("und berichte ihm von deinem Ergebnis.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Rückkehr zum Stallburschen"..locale.NORMAL_COLOR)
            say("Kehre zum Stallburschen zurück")
            say("und berichte ihm von deinem Ergebnis.")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say("Hat alles gut geklappt?")
            say("Wir werden Morgen dein")
            say("Training fortsetzten.")
            say("Dein Ergebnis steht auf deiner Pferdemedaille.")
            setstate(reward)
            q.done()
        end
    end
    state reward begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Ergebnis der Prüfung")
            q.set_title("Ergebnis der Prüfung")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Ergebnis der Prüfung"..locale.NORMAL_COLOR)
            if horse.get_level()<=10 then
                say("Dein Pferd ist zu niedrig.")
            elseif horse.get_level()>=20 then
                say("Dein Pferd ist zu hoch")
            elseif (horse.get_level()>=11 and horse.get_level()<=19) then
                local s=number(1, 2)
                if 1>=s then -- 50.00% (1/2)
                    say("Training misslungen.")
                    say("")
                    say("Versuche es erneut.")
                    pc.setqf("next_time", 0)
                elseif 2>=s then -- 50.00% (1/2)
                    say("Training erfolgreich.")
                    if pc.countitem("50050")>=1 then
                        char_log(0, "HORSE_ADVANCE", "BEGIN")
                        pc.removeitem("50050", 1)
                        char_log(0, "HORSE_ADVANCE", "DEC 50050 1")
                        horse.unride()
                        horse.advance()
                        horse.ride()
                        char_log(0, "HORSE_ADVANCE", "INC horse_advance 1")
                        char_log(0, "HORSE_ADVANCE", "END")
                        say("Dein Pferd hat nun Level "..(horse.get_level()).." erreicht.")
                        say("")
                        if horse.get_level()==20 then
                            say("Dein Pferd ist nun gross genug")
                            say("für die Militärpferde Prüfung.")
                            pc.setqf("next_time", 0)
                        else
                            say("Du solltest weiter Trainieren")
                            say("bis dein Pferd Level 20 erreicht hat.")
                        end
                    else
                        say("")
                    end
                end
            end
            setstate(start)
            q.done()
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


horse_lv1

 Spoiler

PHP Code:

quest pony_buy begin
    state start begin
        when 20349.chat."Ponyprüfung" with pc.level >= 4 begin
            say_title(""..mob_name(20349)..":")
            say("")
            say("Hallo reisender!")
            say("Du hast die Möglichkeit bei mir einen")
            say("Anfänger Gaul zu kaufen.")
            say("")
            say("Möchtest du einen Anfänger Gaul?")
            say("")
            local a = select("Ja",
                             "Nein")
            if a == 1 then
                if pc.count_item(3004)>=1 then
                    say_title(""..mob_name(20349)..":")
                    say("")
                    say("Hallo,")
                    say("Was hast du da in deiner Hand?")
                    say("Einen Keilerzahn?! ")
                    say("Wenn du ihn mir gibst, gebe ich dir ein Pferd")
                    say("")
                    say_reward("Na, wie wärs?")
                    say("")
                    local b=select("Gerne, hier doch", 
                                    "Nein, dass ist meiner!")    
                    if b == 1 then
                        horse.set_level("10")
                        pc.change_money("100000")
                        pc.give_exp2("10000")
                        pc.give_item2("50051", 1)
                        say_title("Pferdeprüfung Belohnung")
                        say("")
                        say("Du erhälst")
                        say_reward("Pferd Level 10")
                        say_reward("100.000 Yang")
                        say_reward("10.000 Erfahrungspunkte")
                        say_reward("Eine Pferdebild")
                        say("")
                        say_reward("Komm wieder wenn du Level 25 bist!")
                        say("")
                    else
                        say_title(""..mob_name(20349)..":")
                        say("")
                        say("Komme wieder wenn du dafür bereit bist.")
                        setstate(getrequest)
                    end
                else
                    say_title(""..mob_name(20349)..":")
                    say("")
                    say("Du lügst mich also an?")
                    say("Komme wieder wenn du den Keilerzahn hast!")
                    setstate(getrequest)
                end
            
            else
                say_title(""..mob_name(20349)..":")
                say("")
                say("Komme wieder wenn du dafür bereit bist.")                
                setstate( getrequest )
            end    
        end
    end
    
    state getrequest begin
        when letter begin
            send_letter("Besorge sein Material")
        end
        
        when info or button begin
            say_title(""..mob_name(20349)..":")
            say("")
            say("Besorge mir folgenden Materialien.")
            say("")
            say("Du benötigst:")
            say_reward("- 1 Keilerzahn")
            local a = select ("Ich hab den Zahn!",
                                "Ich brauch noch kurz")
            if a == 1 then
                say_title(""..mob_name(20349)..":")
                say("")
                say("Kehre zurück zu mir um dein Pferd")
                say("zu erhalten.")
                setstate( start )
            else
                setstate( getrequest )
            end
        end
    end
end 


horse_lv11

 Spoiler

PHP Code:

quest horse_lv11 begin
    state start begin
        when 90100.use with pc.get_level() >= 75 begin
            if horse.get_level()>=1 then
                set_state( gotostable )
                pc.remove_item(90100, 1)
            end
        end
    end
    state gotostable begin
        when letter begin
            local v=find_npc_by_vnum(20349)
            if 0==v then
            else
                target.vid("__TARGET__", v, "Gehe zum Stallbursche")
            end
        end
        when letter begin
            send_letter("Gehe zum Stallbursche!")
        end
        when button or info begin
            say_title("Gehe zum Stallbursche")
            say("Du hast ein Hufeisen gefunden. Der Stallbursche")
               say("kann diese immer gebrauchen. Bringe es ihm und")
            say("frage ihn ob dein Pferd mittlererweile gut")
            say("genug ist um zusammen mit dir gegen Gegner")
            say("zu kämpfen.")
            say("")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say_title("Stallbursche:")
            say("")
               say("Ein Hufeisen?")
            say("Dankeschön.. ich kann nie genug davon haben..")
            say("so viele Leute kommen Tag für Tag zu mir, nur weil")
            say("sie neue Hufeisen brauchen..")
            say("Aber egal.. warum erzähle ich dir das..")
            say("")
            wait()
               say("Dein Pferd? Du willst wissen ob es stark genug")
            say("geworden ist? Mhh nunja eigentlich..")
            wait()
            say("Ja ich denke es kann es mittlererweile mit")
            say("einigen Gegnern aufnehmen. Ich gebe dir nun")
            say("eine Rüstung und bringe deinem Pferd bei,")
            say("wie es sich verhalten muss, wenn du mit")
               say("ihm kämpfst.")
            wait()
            horse.set_level("11")
            pc.remove_item(50051, 1)
            pc.give_item2("50052")
            horse.unride()
            horse.summon()
            horse.ride()
               say_reward("Kampfpferd erhalten.")
            say_reward("Waffenpferdebuch erhalten.")
            setstate( __COMPLETE__ )
            q.done()
        end
    end
    state __COMPLETE__ begin
    end
end 


horse_lv21

 Spoiler

PHP Code:

quest horse_lv21 begin
    state start begin
        when 90101.use with pc.get_level() >= 90 begin
            if horse.get_level()>=1 then
                set_state( gotostable21 )
                pc.remove_item(90101, 1)
            end
        end
    end
    state gotostable21 begin
        when letter begin
            local v=find_npc_by_vnum(20349)
            if 0==v then
            else
                target.vid("__TARGET__", v, "Gehe zum Stallbursche")
            end
        end
        when letter begin
            send_letter("Gehe zum Stallbursche!")
        end
        when button or info begin
            say_title("Gehe zum Stallbursche")
            say("Du hast ein Hufeisen gefunden. Der Stallbursche")
               say("kann diese immer gebrauchen. Bringe es ihm und")
            say("frage ihn ob dein Pferd mittlererweile gut")
            say("genug ist um die Fertigkeiten des Millitärpferdes")
            say("zu erlernen.")
            say("")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say_title("Stallbursche:")
            say("")
               say("Ein Hufeisen?")
            say("Dankeschön.. ich kann nie genug davon haben..")
            say("so viele Leute kommen Tag für Tag zu mir, nur weil")
            say("sie neue Hufeisen brauchen..")
            say("Aber egal.. warum erzähle ich dir das..")
            say("")
            wait()
               say("Dein Pferd? Du willst wissen ob es stark genug")
            say("geworden ist? Mhh nunja eigentlich..")
            wait()
            say("Ja.. Ich denke es ist mittlererweile stark")
            say("und schlau genug die Fertigkeiten des")
            say("Millitärpferdes zu erlernen. Ich werde")
            say("sie ihm sofort beibringen.")
               wait()
            horse.set_level("21")
            pc.remove_item(50051, 1)
            pc.remove_item(50052, 1)
            pc.give_item2("50053")
            horse.unride()
            horse.summon()
            horse.ride()
               say_reward("Millitärpferd erhalten.")
            say_reward("Millitärpferdebuch erhalten.")
            setstate( __COMPLETE__ )
            q.done()
        end
    end
    state __COMPLETE__ begin
    end
end 


horse_menu

 Spoiler

PHP Code:

quest horse_menu begin
    state start begin
    when 20030.click begin show_horse_menu() end
    when 20101.click begin show_horse_menu() end
    when 20102.click begin show_horse_menu() end
    when 20103.click begin show_horse_menu() end
    when 20104.click begin show_horse_menu() end
    when 20105.click begin show_horse_menu() end
    when 20106.click begin show_horse_menu() end
    when 20107.click begin show_horse_menu() end
    when 20108.click begin show_horse_menu() end
    when 20109.click begin show_horse_menu() end
    end
end 


horse_revive

 Spoiler

PHP Code:

quest horse_revive begin
    state start begin
        when 20349.chat."Mein Pferd ist Tod" with horse.get_grade()==3 and horse.is_dead() and pc.countitem("50059")<1 begin
            say("Hallo Reiter")
            say("wie ich sehe ist dein Pferd gestorben.")
            say("Du brauchst ein spezielles Kraut")
            say("Vom Affen König um es Wiederzubeleben.")
            if pc.countitem("50058")>=1 then
                say("Du besitzt das Falsche Kraut.")
            elseif pc.countitem("50057")>=1 then
                say("Du besitzt das Falsche Kraut.")
            end
        end
        when 20349.chat."Mein Pferd ist Tod" with horse.get_grade()==3 and horse.is_dead() and pc.countitem("50059")>=1 begin
            say("Wie ich sehe ist dein Pferd")
            say("Gestorben.")
            wait()
            say("Du hast das Geheimnissvolle Kraut.")
            say("[DELAY value=400]. . .[/DELAY]")
            horse.summon()
            wait()
            say("Ich belebe damit dein Pferd wieder.")
            say("Vergiss nicht dein Pferd zu Füttern.")
            if pc.countitem("50059")>=1 then
                pc.removeitem("50059", 1)
                horse.revive()
            end
        end
        when 20349.chat."Mein Pferd ist Tod" with horse.get_grade()==2 and horse.is_dead() and pc.countitem("50058")<1 begin
            say("Hallo Reiter")
            say("wie ich sehe ist dein Pferd gestorben.")
            say("Du brauchst ein spezielles Kraut")
            say("Vom Affen König um es Wiederzubeleben.")
            if pc.countitem("50059")>=1 then
                say("Du besitzt das Falsche Kraut.")
            elseif pc.countitem("50057")>=1 then
                say("Du besitzt das Falsche Kraut.")
            end
        end
        when 20349.chat."Mein Pferd ist Tod" with horse.get_grade()==2 and horse.is_dead() and pc.countitem("50058")>=1 begin
            say("Wie ich sehe ist dein Pferd")
            say("Gestorben.")
            wait()
            say("Du hast das Geheimnissvolle Kraut.")
            say("[DELAY value=400]. . .[/DELAY]")
            horse.summon()
            wait()
            say("Ich belebe damit dein Pferd wieder.")
            say("Vergiss nicht dein Pferd zu Füttern.")
            if pc.countitem("50058")>=1 then
                pc.removeitem("50058", 1)
                horse.revive()
            end
        end
        when 20349.chat."Mein Pferd ist Tod" with horse.get_grade()==1 and horse.is_dead() and pc.countitem("50057")<1 begin
            say("Hallo Reiter")
            say("wie ich sehe ist dein Pferd gestorben.")
            say("Du brauchst ein spezielles Kraut")
            say("Vom Affen König um es Wiederzubeleben.")
            if pc.countitem("50059")>=1 then
                say("Du besitzt das Falsche Kraut.")
            elseif pc.countitem("50057")>=1 then
                say("Du besitzt das Falsche Kraut.")
            end
        end
        when 20349.chat."Mein Pferd ist Tod" with horse.get_grade()==1 and horse.is_dead() and pc.countitem("50057")>=1 begin
            say("Wie ich sehe ist dein Pferd")
            say("Gestorben.")
            wait()
            say("Du hast das Geheimnissvolle Kraut.")
            say("[DELAY value=400]. . .[/DELAY]")
            horse.summon()
            wait()
            say("Ich belebe damit dein Pferd wieder.")
            say("Vergiss nicht dein Pferd zu Füttern.")
            if pc.countitem("50057")>=1 then
                pc.removeitem("50057", 1)
                horse.revive()
            end
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


horse_summon

 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("Du bist nicht sehr vorsichtig...")
            say("Du solltest dein Pferdebild nicht zu oft verlieren!")
            say(")
            say_reward("Möchtest du es für 1 Stuek Gold ?")
            local b=select("ja", "Invi zu voll")
            if 1==b then
                if pc.money>=1 then
                    pc.changemoney(-1)
                    say("Hier bitte.")
                    say("Verliere es so schnell 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("Du bist nicht sehr vorsichtig...")
            say("Du solltest dein Waffen-Pferdebuch nicht zu oft verlieren!")
            say(")
            say_reward("Möchtest du es für 1 Stuek Gold ?")
            local b=select("Kaufen", "Nicht Kaufen")
            if 1==b then
                if pc.money>=1 then
                    pc.changemoney(-1)
                    say("Hier bitte.")
                    say("Verliere es so schnell 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."Millitär-Pferdebuch verloren" with horse.get_grade()==3 and pc.countitem("50053")<1 begin
            say("Du bist nicht sehr vorsichtig...")
            say("Ein neues Millitär-Pferdebuch ist teuer")
            say("und nicht leicht zu bekommen!")
            say(")
            say_reward("Möchtest du es für 1 Stuek Gold ?")
            say_reward("neues Waffen-Pferdebuch kaufen?")
            local b=select("Kaufen", "Nicht Kaufen")
            if 1==b then
                if pc.money>=1 then
                    pc.changemoney(-1)
                    say("Hier bitte.")
                    say("Verliere es so schnell 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 musst zuerst die Qualifikationsprüfung")
            say("für Reiter bestehen, um dein Pferd zu rufen!")
        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_title("Information:")
                    say_reward("Das Pferd ist da :D")
                    horse.summon()
                else
                    say_title("Information:")
                    say_reward("Hmmm Fail sry.. Versuche gleich nochmal :D")
                end
                pc.change_sp(-100)
            else
                say_title("Information:")
                say_reward("Zuwenig Mana -.-")
            end
        end
        when 50051.use with horse.get_grade()==2 begin
                    say_reward("Falsches Gaul Buch")
        end
        when 50051.use with horse.get_grade()==3 begin
                    say_reward("Falsches Gaul Buch")
        end
        when 50052.use with horse.get_grade()==0 begin
                    say_reward("Falsches Gaul Buch")
        end
        when 50052.use with horse.get_grade()==1 begin
                    say_reward("Falsches Gaul Buch")
        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_title("Information:")
                    say_reward("Das Pferd ist da :D")
                    horse.summon()
                else
                    say_title("Information:")
                    say_reward("Hmmm Fail sry.. Versuche gleich nochmal :D")
                end
                pc.change_sp(-200)
            else
                say_title("Information:")
                say_reward("Zuwenig Mana -.-")
            end
        end
        when 50052.use with horse.get_grade()==3 begin
                    say_reward("Falsches Gaul Buch")
        end
        when 50053.use with horse.get_grade()==0 begin
                    say_reward("Falsches Gaul Buch")
        end
        when 50053.use with horse.get_grade()==1 begin
                    say_reward("Falsches Gaul Buch")
        end
        when 50053.use with horse.get_grade()==2 begin
                    say_reward("Falsches Gaul Buch")
        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_title("Information:")
                    say_reward("Das Pferd ist da :D")
                    horse.summon()
                else
                    say_title("Information:")
                    say_reward("Hmmm Fail sry.. Versuche gleich nochmal :D")
                end
                pc.change_sp(-300)
            else
            say_title("Information:")
                    say_reward("Zuwenig Mana -.-")
            end
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


horse_upgrade

 Spoiler

PHP Code:

quest horse_upgrade begin
    state start begin
        when 20349.chat."Kampfpferd" with horse.get_grade()==1 and horse.get_level()==10 begin
            if horse.is_dead() then
                say("Dein Pferd ist Tod!")
                say("Belebe es erst wieder.")
                say("")
            elseif pc.level<=34 then
                say("Dein Level ist zu gering.")
                say("")
            elseif horse.get_level()<=9 then
                say("Dein Pferd ist zu klein!")
                say("Bitte Trainiere dein Pferd erst.")
                say("")
            elseif pc.countitem("50050")<1 then
                say("Du hast keine Pferdemedaille!")
                say("Bitte hole erst eine.")
                say("")
                setstate(need_item50050)
            elseif pc.countitem("50051")<1 then
                say("Du hast kein Pferdebild !")
                say("")
            elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=35 then
                say("Du musst 100 Schlangenbogenschützen")
                say("in 30 Minuten töten.")
                say("Nur so kann ich sicher gehen")
                say("Das du wirklich Qualifiziert")
                say("genug bist für ein Kampfpferd.")
                say("Möchtest du den Test beginnen?")
                say("")
                local b=select("Ja", "Öhm, ne du lass mal.")
                if 1==b then
                    if pc.countitem("50050")>=1 then
                        pc.removeitem("50050", 1)
                        setstate(test)
                    end
                elseif 2==b then
                    say("Komm wieder wenn du soweit bist.")
                else
                    say("UNKNOWN BUTTON ["..b.."]")
                end
            else
                say("")
                say("Viel Erfolg.")
                say("")
            end
        end
    end
    state need_item50050 begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Pferdemedaille")
            q.set_title("Pferdemedaille")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Pferdemedaille"..locale.NORMAL_COLOR)
            say("Besorge eine Pferdemedaille!")
            say("Du bekommst sie im Affendungeon.")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Pferdemedaille"..locale.NORMAL_COLOR)
            say("Besorge eine Pferdemedaille!")
            say("Du bekommst sie im Affendungeon.")
            setstate(start)
            q.done()
        end
    end
    state test begin
        when letter begin
            q.set_counter("Bogenschützen", 100-pc.getqf("kill_count"))
        end
        when 2105.party_kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("Bogenschützen", 100-pc.getqf("kill_count"))
            if get_time()>=pc.getqf("limit_time") then
                setstate(failure)
            end
        end
        when 2107.party_kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("Bogenschützen", 100-pc.getqf("kill_count"))
            if get_time()>=pc.getqf("limit_time") then
                setstate(failure)
                q.done()
            end
        end
        when letter begin
            q.set_clock("Restzeit:", 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 Bogenschützen")
            q.set_title("Töte Bogenschützen")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Töte Bogenschützen"..locale.NORMAL_COLOR)
            say("Du hast 30 Minuten Zeit um")
            say("100 Skorpion oder Schlangen ")
            say("Bogenschützen zu töten.")
            say("Deine Gruppenmitglieder können dir helfen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Töte Bogenschützen"..locale.NORMAL_COLOR)
            say("Du hast 30 Minuten Zeit um")
            say("100 Skorpion oder Schlangen ")
            say("Bogenschützen zu töten.")
            say("Deine Gruppenmitglieder können dir helfen.")
        end
        when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
            setstate(report)
        end
        when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
            setstate(report)
        end
        when 20349.chat."Kampfpferd" begin
            say("Du musst in 30 Minuten")
            say("100 Skorpionbogenschützen oder")
            say("100 Schlangenbogenschützen töten.")
            say("Deine Gruppe kann dir helfen.")
        end
    end
    state report begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Geschafft")
            q.set_title("Geschafft")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Geschafft"..locale.NORMAL_COLOR)
            say("Geh zum Stallwächter.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Geschafft"..locale.NORMAL_COLOR)
            say("Geh zum Stallwächter.")
        end
        when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Ich habs geschafft!" with horse.get_grade()==1 begin
            say("Herzlichen Glückwunsch")
            say("Nun muss ich dir ein ")
            say("Waffenpferdebuch erstellen.")
            say("Das dauert einen Tag.")
            say("Komm morgen wieder")
            say("Vergiss nicht er kostet 500.000 Yang.")
            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("Warten auf das Pferdebild")
            q.set_title("Warten auf das Pferdebild")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Warten auf das Pferdebild"..locale.NORMAL_COLOR)
            say("Die Pferdebild herstellung läuft.")
            say("Du musst noch warten.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Warten auf das Pferdebild"..locale.NORMAL_COLOR)
            say("Die Pferdebild herstellung läuft.")
            say("Du musst noch warten.")
        end
        when login with get_time()>=pc.getqf("make_time") begin
            setstate(buy)
        end
        when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Pferdebild?" with horse.get_grade()==1 begin
            say("Ich habe dein Pferdebild")
            say("Leider noch nicht fertig.")
            say("Komm Morgen wieder.")
        end
    end
    state buy begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Dein Pferdebild ist Fertig!")
            q.set_title("Dein Pferdebild ist Fertig!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Dein Pferdebild ist Fertig!"..locale.NORMAL_COLOR)
            say("Gehe zum Stallwächter und")
            say("hole dein Pferdebild ab.")
            say("Vergiss die 500.000 Yang nicht.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Dein Pferdebild ist Fertig!"..locale.NORMAL_COLOR)
            say("Gehe zum Stallwächter und")
            say("hole dein Pferdebild ab.")
            say("Vergiss die 500.000 Yang nicht.")
        end
        when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Mein Pferdebild?" with horse.get_grade()==1 and horse.get_level()==10 begin
            say("Dein Pferdebild ist Fertig.")
            say("Es kostet dich 500.000 Yang.")
            local b=select("Kaufen", "Später", "Beenden")
            if 1==b then
                if pc.money>=500000 then
                    if pc.countitem("50051")>=1 then
                        char_log(0, "HORSE_UPGRADE", "BEGIN")
                        pc.changemoney(-500000)
                        char_log(0, "HORSE_UPGRADE", "DEC money 500000")
                        pc.removeitem("50051", 1)
                        char_log(0, "HORSE_UPGRADE", "DEC 50051 1")
                        horse.unride()
                        horse.advance()
                        horse.ride()
                        char_log(0, "HORSE_UPGRADE", "INC horse_advance 1")
                        pc.give_item2("50052", 1)
                        char_log(0, "HORSE_UPGRADE", "INC 50052 1")
                        char_log(0, "HORSE_UPGRADE", "END")
                        say("Herzlichen Glückwunsch")
                        say("Du hast nun ein Kampfpferd.")
                        say("Fütter es regelmässig.")
                        say("")
                        setstate(start)
                        q.done()
                    else
                        say("")
                    end
                else
                    say("")
                end
            elseif 2==b then
                say("Ok bis später.")
            elseif 3==b then
                say("Quest wirklich beenden?")
                local b=select("Ja", "Nein")
                if 1==b then
                    setstate(start)
                    q.done()
                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("Prüfung misslungen")
            q.set_title("Prüfung misslungen")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Prüfung misslungen"..locale.NORMAL_COLOR)
            say("Du hast die Kampfpferde Prüfung")
            say("nicht bestanden!")
            say("")
            say("Gehe zum Stallburschen um")
            say("es noch einmal zu versuchen.")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Prüfung misslungen"..locale.NORMAL_COLOR)
            say("Du hast die Kampfpferde Prüfung")
            say("nicht bestanden!")
            say("")
            say("Gehe zum Stallburschen um")
            say("es noch einmal zu versuchen.")
            setstate(start)
            q.done()
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


horse_upgrade2

 Spoiler

PHP Code:

quest horse_upgrade2 begin
    state start begin
        when 20349.chat."Militär-Pferde Prüfung" with horse.get_grade()==2 and horse.get_level()==20 begin
            if horse.is_dead() then
                say("Dein Pferd ist Tod.")
                say("Bitte belebe es erst")
                say("wieder.")
            elseif pc.level<=49 then
                say("Dein Level ist zu gering.")
                say("Du musst erst Level 50 erreichen.")
            elseif horse.get_level()<=19 then
                say("Dein Pferd ist zu klein.")
                say("Dein Pferd muss erst")
                say("Level 20 erreichen.")
            elseif pc.countitem("50050")<1 then
                say("Du besitzt keine")
                say("Pferdemedaille.")
                say("Bitte besorge erst")
                say("eine.")
                say("")
                say("")
                setstate(need_item50050)
            elseif pc.countitem("50052")<1 then
                say("Du hast kein Kampf-Pferdebild.")
                say("Bitte kauf erst eins.")
            elseif horse.get_level()==20 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=50 then
                say("Dein Pferd ist nun")
                say("groß genug für die")
                say("Militär Pferde Prüfung.")
                say("Du musst 300 Dämonenbogenschützen")
                say("in 30 Minuten töten.")
                say("Möchtest du den Test beginnen?")
                say("")
                local b=select("Test beginnen", "Nein, noch nicht.")
                if 1==b then
                    if pc.countitem("50050")>=1 then
                        pc.removeitem("50050", 1)
                        setstate(test)
                    end
                elseif 2==b then
                    say("Komm später wieder.")
                else
                    say("UNKNOWN BUTTON ["..b.."]")
                end
            else
                say("Viel erfolg.")
                say("")
                say("")
            end
        end
    end
    state need_item50050 begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Pferdemedaille")
            q.set_title("Pferdemedaille")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Pferdemedaille"..locale.NORMAL_COLOR)
            say("Gehe ins Affendungeon")
            say("und besorge eine Pferdemedaille.")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Pferdemedaille"..locale.NORMAL_COLOR)
            say("Gehe ins Affendungeon")
            say("und besorge eine Pferdemedaille.")
            setstate(start)
            q.done()
        end
    end
    state test begin
        when letter begin
            q.set_counter("³Ñ¾l¤`ÆF¤}½b¤â", 300-pc.getqf("kill_count"))
        end
        when 1002.party_kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("³Ñ¾l¤`ÆF¤}½b¤â", 300-pc.getqf("kill_count"))
            if get_time()>=pc.getqf("limit_time") then
                setstate(failure)
                q.done()
            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("Militär-Pferde Prüfung")
            q.set_title("Militär-Pferde Prüfung")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Militär-Pferde Prüfung"..locale.NORMAL_COLOR)
            say("Töte 300 Dämonenbogenschützen")
            say("in 30 Minuten.")
            say("")
            say("Deine Gruppe kann dir helfen.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Militär-Pferde Prüfungç"..locale.NORMAL_COLOR)
            say("Töte 300 Dämonenbogenschützen")
            say("in 30 Minuten.")
            say("")
            say("Deine Gruppe kann dir helfen.")
        end
        when 1002.party_kill with pc.getf("horse_upgrade2","kill_count") >= 300 and pc.getqf("limit_time")>=get_time() begin
            setstate(report)
        end
        when 20349.chat."¬d¬Ý¥Ø«eª¬ªp" begin
            say("30¤ÀÄÁ¤º®ø·À300¥u¤`ÆF¤}½b¤â")
            say("")
            say("¤¹³\²Õ¶¤§¹¦¨¡A¦ý*n¨D±z¬°²Õ¶¤¶¤ªø")
            local b=select("±µ¨ü", "©ñ±ó")
            if 1==b then
            elseif 2==b then
                say("¯uªº*n¤¤³~©ñ±ó¦¹¦¸¾÷·|¶Ü¡H")
                local b=select("¬Oªº", "¶}ª±¯º")
                if 1==b then
                    say("¯¬§A¤U¦¸¦³¦n¹B")
                    setstate(start)
                    q.done()
                elseif 2==b then
                    say("²{¦b¨S¦³®É¶¡¦b³oùض¢²á")
                    say("§Ö¥h®ø·À¤`ÆF¤}½b¤â")
                else
                    say("UNKNOWN BUTTON ["..b.."]")
                end
            else
                say("UNKNOWN BUTTON ["..b.."]")
            end
        end
    end
    state report begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Rückkehr zum Stallburschen")
            q.set_title("Rückkehr zum Stallburschen")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Rückkehr zum Stallburschen"..locale.NORMAL_COLOR)
            say("Sage dem Stallburschen")
            say("das du es Geschafft hast.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Rückkehr zum Stallburschen"..locale.NORMAL_COLOR)
            say("Sage dem Stallburschen")
            say("das du es Geschafft hast.")
        end
        when 20349.chat."HORSE2 QUEST STATE REPAIR" with horse.get_grade()!=2 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Ich hab es Geschafft!" with horse.get_grade()==2 begin
            say("Na dann")
            say("Herzlichen Glückwunsch.")
            say("Ich stelle dir nun dein")
            say("Militär-Pferdebuch her.")
            say("Es dauert 24 Stunden.")
            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("Warten auf das Militär-Pferdebuch")
            q.set_title("Warten auf das Militär-Pferdebuch")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Warten auf das Militär-Pferdebuch"..locale.NORMAL_COLOR)
            say("Warte bis der Stallbursche")
            say("das Militär-Pferdebuch fertig hat.")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Warten auf das Militär-Pferdebuch"..locale.NORMAL_COLOR)
            say("Warte bis der Stallbursche")
            say("das Militär-Pferdebuch fertig hat.")
        end
        when login with get_time()>=pc.getf("horse_upgrade2","make_time") begin
            setstate(buy)
        end
        when 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=2 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Militär-Pferdebuch?" with horse.get_grade()==2 begin
            say("Es tut mir leid aber")
            say("das Militär-Pferdebuch")
            say("ist noch nicht fertig.")
            say("")
        end
    end
    state buy begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Dein Pferdebuch ist Fertig!")
            q.set_title("Dein Pferdebuch ist Fertig!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Dein Pferdebuch ist Fertig!"..locale.NORMAL_COLOR)
            say("Geh zum Stallburschen und hole")
            say("dein Militär-Pferdebuch ab.")
            say("Es kostet 1.000.000 Yang.")
            say("")
        end
        when info begin
            say(locale.NOTICE_COLOR.."Dein Pferdebuch ist Fertig!"..locale.NORMAL_COLOR)
            say("Geh zum Stallburschen und hole")
            say("dein Militär-Pferdebuch ab.")
            say("Es kostet 1.000.000 Yang.")
            say("")
        end
        when 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=2 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()==2 and horse.get_level()!=20 begin
            setstate(start)
            q.done()
        end
        when 20349.chat."Mein Militär-Pferdebuch!" with horse.get_grade()==2 and horse.get_level()==20 begin
            say("Dein Militär-Pferdebuch ist fertig.")
            say("Es kostet dich 1.000.000 Yang.")
            say("Möchtest du das Militär-Pferdebuch")
            say("nun kaufen?")
            say("")
            say("")
            local b=select("Kaufen", "Später", "Quest beenden")
            if 1==b then
                if pc.money>=1000000 then
                    if pc.countitem("50052")>=1 then
                        char_log(0, "HORSE_UPGRADE2", "BEGIN")
                        pc.changemoney(-1000000)
                        char_log(0, "HORSE_UPGRADE2", "DEC money 1000000")
                        pc.removeitem("50052", 1)
                        char_log(0, "HORSE_UPGRADE2", "DEC 50052 1")
                        horse.unride()
                        horse.advance()
                        horse.ride()
                        char_log(0, "HORSE_UPGRADE2", "INC horse_advance 1")
                        pc.give_item2("50053", 1)
                        char_log(0, "HORSE_UPGRADE2", "INC 50053 1")
                        pc.give_item2("50060", 1)
                        char_log(0, "HORSE_UPGRADE2", "INC 50060 1")
                        char_log(0, "HORSE_UPGRADE2", "END")
                        say("Herzlichen Glückwunsch.")
                        say("Du besitzt nun ein Militär Pferd")
                        say("Bitte Fütter es Regelmässig.")
                        say("")
                        say("")
                        say("")
                        setstate(start)
                        q.done()
                    else
                        say("")
                    end
                else
                    say("")
                end
            elseif 2==b then
                say("Bis Später.")
            elseif 3==b then
                say("Möctest du wirklich die")
                say("Quest 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("Prüfung misslungen!")
            q.set_title("Prüfung misslungen!")
            q.start()
        end
        when button begin
            say(locale.NOTICE_COLOR.."Prüfung misslungen!"..locale.NORMAL_COLOR)
            say("Du hast es leider nicht geschafft")
            say("300 Dämonenbogenschützen in")
            say("30 minuten zu töten.")
            say("Gehe zum Stallburschen um es noch")
            say("einmal zu versuchen.")
            setstate(start)
            q.done()
        end
        when info begin
            say(locale.NOTICE_COLOR.."Prüfung misslungen!"..locale.NORMAL_COLOR)
            say("Du hast es leider nicht geschafft")
            say("300 Dämonenbogenschützen in")
            say("30 minuten zu töten.")
            say("Gehe zum Stallburschen um es noch")
            say("einmal zu versuchen.")
            setstate(start)
            q.done()
        end
    end
    state __COMPLETE__ begin
        when enter begin
            q.done()
        end
    end
end 


Naja das mit Buch kaufen ist in Gold und kostet immer 1 Gold Stück ^^

[.Hass]

schonmal danke aber die DE prüfungen sind das auch nicht^^

brauch die quest für denn anfang wo er sag blablabla geh in den leichen AD und bring mir eine PM

[Marciland]

Ich finde das endgut!
Danke das du threat gemacht hast da muss ich nicht suchen^^

[nickraser]

geil die queset ist der hamma = )