DE-Like Pferdequest

06/25/2018 17:55 gaspariu2293#1
Hallo,

da ich nicht fündig geworden bin, erstelle ich mal ein Theard - ich hoffe ich bin hier richtig. Ich bin mir ziemlich sicher, dass jemand so eine Quest hat, jedoch konnte ich nichts finden ich suche nämlich eine DE-Like Pferdequest(Stallbursche).

MfG
07/04/2018 22:59 Wick'#2
Gibt doch über all welche?
07/05/2018 08:47 ZiriX#3
Könnte die orginale sein, bin mir aber ned sicher...

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")>=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(816)*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()==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 
07/05/2018 11:13 andii#4
Filerequests sind nicht erlaubt.

#closed