[SERVICE] Die Questkontrolle

Page 318 of 845

318

02/14/2012 23:01 [ShiizoPhreN]�#4756

Quote:

Originally Posted by Stickstoffx3

K�nnte mir bitte jemand helfen :( Das ist die Quest:

PHP Code:

quest devilscatacomb begin state start begin when 20350.chat."Die Devilscatacomb" begin if pc.get_level() < 85 then say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 85 bist!") else say_title("W�chter der Katakomben") say("") say("Ich war einst Krieger der Kaiserlichen Armee.") say("Vor vielen Jahren gab es einen Ort, der von einem") say("Urgott bewacht wurde. Heute kennt man ihn unter dem") say("Name - The Devil's Catacomb. Eigentlich wurde es mir") say("verboten Informationen �ber die Lage dieses Ortes zu") say("geben aber ich k�nnte dich trotzdem") say("dort hin teleportieren.") say("") say_reward("Soll ich dich in den Devilscatacomben teleportieren?") local s = select("Teleportieren", "Hier bleiben") if s == 1 then pc.warp(307200, 1203200) else return end end if pc.get_map_index() == 205 then d.regen_file("data/dungeon/devilscatacomb1_regen.txt") pc.setf("monster", 0) d.set_counter("kills", 500) local count = pc.getf("monster")+1 end if count <= 500 then pc.setf("monster", count) d.set_counter("kills", 500-count) if count == 500 then pc.give_item2(30311, 1) end end if 30101.chat."N�chste Etage" and pc.count_item(30311) > 1 then say_title("N�chste Etage:") say("") say("Du hast das verlorene Item gefunden!") say("") say("Halt dich fest! Ich bring dich") say("eine Ebene h�her!") pc.remove_item(30311, 1) d.kill_all() pc.set_warp_location(205 , 550, 45) end end end

Fehlermeldung: syntax error : [string "start"]:35: `then' expected near `chat'
devilscatacomb.quest:50:Error occured on compile devilscatacomb.quest

Bitte um hilfe :)

wenn du ein when beendest bzw ein state kannste nicht mit nem if weitermachen sondern mu�t erst nen neuen state bzw. when beginnen

02/15/2012 00:09 CHaCKi�#4757

Code:

---------------------------------- 
--   Regenbogenstein Quest by bjoern.ebert17 
--        (c) by DarkSide 2010 
---------------------------------- 
quest regenbogen begin 
    state start begin 
            when 50512.use  begin 
                if get_time() < pc.getqf("pause") then 
                    say("Versuche es sp�ter erneut.") 
                    return 
                end 
                pc.setqf("pause", get_time()+60*10) 
                say_title("Regenbogenstein:") 
                say("Du m�chtest also deine Skills auf") 
                say("Perfekter-Meister setzen?") 
                 
                if pc.job ==0 then 
                say("W�hle deine Lehre aus") 
                 
                local s=select("K�rper","Mental") 
                 
                if s==1 then 
                --K�rper 
                pc.set_skill_group(1) 
                pc.set_skill_level(1 ,59) 
                pc.set_skill_level(2 ,59) 
                pc.set_skill_level(3 ,59) 
                pc.set_skill_level(4 ,59) 
                pc.set_skill_level(5 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Mentalo 
                pc.set_skill_group(2) 
                pc.set_skill_level(16 ,59) 
                pc.set_skill_level(17 ,59) 
                pc.set_skill_level(18 ,59) 
                pc.set_skill_level(19 ,59) 
                pc.set_skill_level(20 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                elseif pc.job ==1 then 
                say("W�hle deine Lehre aus") 
                 
                local s=select("Nahkampf","Bogen") 
                 
                if s==1 then 
                --Nahkampf 
                pc.set_skill_group(3) 
                pc.set_skill_level(31 ,59) 
                pc.set_skill_level(32 ,59) 
                pc.set_skill_level(33 ,59) 
                pc.set_skill_level(34 ,59) 
                pc.set_skill_level(35 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Fernkampf 
                pc.set_skill_group(4) 
                pc.set_skill_level(46 ,59) 
                pc.set_skill_level(47 ,59) 
                pc.set_skill_level(48 ,59) 
                pc.set_skill_level(49 ,59) 
                pc.set_skill_level(50 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                elseif pc.job ==2 then 
                say("W�hle deine Lehre aus") 
                local s=select("Magie","Waffe") 
                 
                if s==1 then 
                --Magie 
                pc.set_skill_group(5) 
                pc.set_skill_level(76 ,59) 
                pc.set_skill_level(77 ,59) 
                pc.set_skill_level(78 ,59) 
                pc.set_skill_level(79 ,59) 
                pc.set_skill_level(80 ,59) 
                pc.set_skill_level(81, 59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Waffe 
                pc.set_skill_group(6) 
                pc.set_skill_level(61 ,59) 
                pc.set_skill_level(62 ,59) 
                pc.set_skill_level(63 ,59) 
                pc.set_skill_level(64 ,59) 
                pc.set_skill_level(65 ,59) 
                pc.set_skill_level(66 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                elseif pc.job ==3 then 
                say("W�hle deine Lehre aus") 
                local s=select("Heil","Drachen") 
                 
                if s==1 then 
                --Heil 
                pc.set_skill_group(7) 
                pc.set_skill_level(106 ,59) 
                pc.set_skill_level(107 ,59) 
                pc.set_skill_level(108 ,59) 
                pc.set_skill_level(109 ,59) 
                pc.set_skill_level(110 ,59) 
                pc.set_skill_level(111 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Drachen 
                pc.set_skill_group(8) 
                pc.set_skill_level(91 ,59) 
                pc.set_skill_level(92 ,59) 
                pc.set_skill_level(93 ,59) 
                pc.set_skill_level(94 ,59) 
                pc.set_skill_level(95 ,59) 
                pc.set_skill_level(96 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
            end 
        end 
    end 
end

Fehlercode: segmentatio faul (core dumped)

- dies tritt auf bei dem Laden der Quests nach dem einf�gen der Regenbogensteinquest (oben). Und siehe Anhang.

02/15/2012 14:07 Lеlouch#4758

Wie kann ich amchen, dass von einem Item die Gemischtwarenh�ndlerin-Shop ge�ffnet wird?

02/15/2012 16:17 DasKuchen#4759

Quote:

Originally Posted by Stickstoffx3

K�nnte mir bitte jemand helfen :( Das ist die Quest:

PHP Code:

quest devilscatacomb begin state start begin when 20350.chat."Die Devilscatacomb" begin if pc.get_level() < 85 then say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 85 bist!") else say_title("W�chter der Katakomben") say("") say("Ich war einst Krieger der Kaiserlichen Armee.") say("Vor vielen Jahren gab es einen Ort, der von einem") say("Urgott bewacht wurde. Heute kennt man ihn unter dem") say("Name - The Devil's Catacomb. Eigentlich wurde es mir") say("verboten Informationen �ber die Lage dieses Ortes zu") say("geben aber ich k�nnte dich trotzdem") say("dort hin teleportieren.") say("") say_reward("Soll ich dich in den Devilscatacomben teleportieren?") local s = select("Teleportieren", "Hier bleiben") if s == 1 then pc.warp(307200, 1203200) else return end end if pc.get_map_index() == 205 then d.regen_file("data/dungeon/devilscatacomb1_regen.txt") pc.setf("monster", 0) d.set_counter("kills", 500) local count = pc.getf("monster")+1 end if count <= 500 then pc.setf("monster", count) d.set_counter("kills", 500-count) if count == 500 then pc.give_item2(30311, 1) end end if 30101.chat."N�chste Etage" and pc.count_item(30311) > 1 then say_title("N�chste Etage:") say("") say("Du hast das verlorene Item gefunden!") say("") say("Halt dich fest! Ich bring dich") say("eine Ebene h�her!") pc.remove_item(30311, 1) d.kill_all() pc.set_warp_location(205 , 550, 45) end end end

Fehlermeldung: syntax error : [string "start"]:35: `then' expected near `chat'
devilscatacomb.quest:50:Error occured on compile devilscatacomb.quest

Bitte um hilfe :)

Fehlt glaube ein end oder mehrere nicht genauer angeschaut.

02/15/2012 18:39 ~T3chno~#4760

kommt in VBox immer ein Fehler

Quest:

Spoiler

der Fehler:

Spoiler

02/15/2012 20:02 derkiler#4761

Quote:

Originally Posted by ~T3chno~

kommt in VBox immer ein Fehler

Quest:

Spoiler

PHP Code:

quest gold begin state start begin when 20094.chat."viel yang" begin say_title("Universe2-Levelbraut!") say("Hallo "..pc.get_name()") say("brauchst du 1kkk yang?") say("") local s=select("1kkk", "55kkk") if s==2 then say_title("Universe2-Levelbraut!") say("dachteste wa? xD kannste nich haban.") return end pc.change_money(1000000000) say_title("Universe2-Levelbraut!") say("ok Hier kriegste!") end set_state(ende) end end state ende begin end end

der Fehler:

Spoiler

PHP Code:

WHEN : 20094.chat ("viel yang") Error occured on compile gold.quest

So m�sste es klappen:

Spoiler

#Edit:

Quote:

Originally Posted by cReez'

Wie kann ich amchen, dass von einem Item die Gemischtwarenh�ndlerin-Shop ge�ffnet wird?

Hab ich schonmal erkl�rt ->#4444 Seite 445
Selbe Quest nur in deinem Fall statt

PHP Code:


			
when 9010.chat."Itemshop" begin

einfach ->

PHP Code:


			
 when vnum.use begin

->Vnum mit item vnum ersetzen!

Komplette Erkl�rung:

Spoiler

Ich versuchs dir mal zu erkl�ren..
Such dir nen npc raus den du als shop haben m�chtest.
Ich habs bei mir mit dem Npc 9010 gemacht.
Hier ein Bild von dem Npc ->

Spoiler

Achte darauf dass der Npc in der mob_proto bei on_click auf 1 ist!

Spoiler

Dann gehst du zu shop:

Spoiler

Danach gehst du zu shop_item:

Spoiler

Dann Rebooten damit die Shops neu definiert werden und in Filezilla connecten.

Ich hab hier mal meine Quest als veranschaulichung, wie man Quest einf�gt zeige ich jetzt nicht, das m�sste jeder wissen:

Spoiler

make ausf�hren, ingame reload q
und freuen

Hier noch ein ingame Bild:

Spoiler

[Only registered and activated users can see links. Click Here To Register...]

Hoffe dass es verst�ndlich erkl�rt ist und ich dir weiterhelfen konnte.

mfg derkiler

Hoffe ich konnte euch weiterhelfen..
mfg derkiler

02/16/2012 06:38 ~T3chno~#4762

Brauche hilfe es funktioniert sonst alles nur halt die mobs werden nicht gespawnt!
wen ich einen boss rufe funkt es nicht hilfe bitte!

Spoiler

PHP Code:


			
quest vipstein begin
    state start begin
        when 20094.chat."Spezial Auswahlfenster!" begin
        --if get_time() > pc.getqf("vipwartezeit") then
        
        say_title("Nur f�r eingeweihte")
            say("Guten Tag , ")
            say("")
            say("um deinen Status nutzen zu k�nnen")
            say("brauchen wir eine Identifizierung von dir.")
            say("Gebe deshalb hier nun den Code ein den du von [SL]Universe")
            say("oder von [SA]GreenStyle bekommen hast.")
            
            local s=input()
            if s!= "universe24ever" then
            return
            end
           
               local w = select("Bosse Rufen", "Teleportieren", "Abbrechen")
                
            if w == 1 then
                    local e = select("Oberork", "Sensenmann", "K�niginspinne", "Neunschwanz", "Riesiger Geisterbaum", "Abbrechen")
                    
                    if e == 1 then
                 command("n ".. pc.get_name() .." hat einen Oberork gerufen !")
                    mob.spawn(691, pc.get_x(),pc.get_y())             
                    elseif e == 2 then
                command("n ".. pc.get_name() .." hat einen Sensenmann gerufen !")
                    mob.spawn(1093, pc.get_x(),pc.get_y())                 
                    elseif e == 3 then
                command("n ".. pc.get_name() .." hat eine K�niginpinne gerufen !")
                    mob.spawn(2091, pc.get_x(),pc.get_y())                     
                    elseif e == 4 then
                command("n ".. pc.get_name() .." hat einen Neunschwanz gerufen !")
                    mob.spawn(1901, pc.get_x(),pc.get_y())                 
                    elseif e == 5 then
                command("n ".. pc.get_name() .." hat einen Riesigen Geisterbaum gerufen !")
                    mob.spawn(2306, pc.get_x(),pc.get_y())
                elseif e == 6 then
                return
                else 
                return
                end
                
            elseif w == 2 then
                local tele = select("SD2 Anfang","Feuerland", "Geisterwald", "Berg Sohan", "Orktal", "Tempel", "Schlangenfeld")
                
                if tele == 1 then
                command("warp 7050 4650")
                command("n ".. pc.get_name() .." hat sich zum SD2 Teleportiert")
                elseif tele == 2 then
                command("go f")
                command("n ".. pc.get_name() .." hat sich zum Feuerland Teleportiert")
                elseif tele == 3 then
                command("go tr")
                command("n ".. pc.get_name() .." hat sich zum Geisterwald Teleportiert")
                elseif tele == 4 then
                command("go s")
                command("n ".. pc.get_name() .." hat sich ins Eisland Teleportiert")
                elseif tele == 5 then
                command("go t")
                command("n ".. pc.get_name() .." hat sich ins Orktal Teleportiert")
                elseif tele == 6 then
                command("go m")
                command("n ".. pc.get_name() .." hat sich zum Tempel Teleportiert")
                elseif tele == 7 then
                command("warp 8400 7200")
                command("n ".. pc.get_name() .." hat sich ins Schlangenfeld Teleportiert")
                elseif tele == 8 then
                return
                
                else 
                return
                end
            elseif w == 3 then

                 return
            else
                return
            
            end
        
        
        --else 
        --say("Lieber ".. pc.get_name() .." ,")
        --say("Du kannst jederzeit eine Aktion ausf�hren")
        --say("Bitte habe weiterhin spass :P")
        --end
            
           
        end -- end when use item
    end -- end state start
end -- end quest warpring

02/16/2012 10:37 .Delta#4763

nimm pc.get_local_x() und pc.get_local_y()

02/16/2012 11:25 [ShiizoPhreN]�#4764

ich hab ne frage und zwar wo genau ich die seelenstein chance erh�hen kann

02/16/2012 13:45 CHaCKi�#4765

Quote:

Originally Posted by CHaCKi�

Code:

---------------------------------- 
--   Regenbogenstein Quest by bjoern.ebert17 
--        (c) by DarkSide 2010 
---------------------------------- 
quest regenbogen begin 
    state start begin 
            when 50512.use  begin 
                if get_time() < pc.getqf("pause") then 
                    say("Versuche es sp�ter erneut.") 
                    return 
                end 
                pc.setqf("pause", get_time()+60*10) 
                say_title("Regenbogenstein:") 
                say("Du m�chtest also deine Skills auf") 
                say("Perfekter-Meister setzen?") 
                 
                if pc.job ==0 then 
                say("W�hle deine Lehre aus") 
                 
                local s=select("K�rper","Mental") 
                 
                if s==1 then 
                --K�rper 
                pc.set_skill_group(1) 
                pc.set_skill_level(1 ,59) 
                pc.set_skill_level(2 ,59) 
                pc.set_skill_level(3 ,59) 
                pc.set_skill_level(4 ,59) 
                pc.set_skill_level(5 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Mentalo 
                pc.set_skill_group(2) 
                pc.set_skill_level(16 ,59) 
                pc.set_skill_level(17 ,59) 
                pc.set_skill_level(18 ,59) 
                pc.set_skill_level(19 ,59) 
                pc.set_skill_level(20 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                elseif pc.job ==1 then 
                say("W�hle deine Lehre aus") 
                 
                local s=select("Nahkampf","Bogen") 
                 
                if s==1 then 
                --Nahkampf 
                pc.set_skill_group(3) 
                pc.set_skill_level(31 ,59) 
                pc.set_skill_level(32 ,59) 
                pc.set_skill_level(33 ,59) 
                pc.set_skill_level(34 ,59) 
                pc.set_skill_level(35 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Fernkampf 
                pc.set_skill_group(4) 
                pc.set_skill_level(46 ,59) 
                pc.set_skill_level(47 ,59) 
                pc.set_skill_level(48 ,59) 
                pc.set_skill_level(49 ,59) 
                pc.set_skill_level(50 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                elseif pc.job ==2 then 
                say("W�hle deine Lehre aus") 
                local s=select("Magie","Waffe") 
                 
                if s==1 then 
                --Magie 
                pc.set_skill_group(5) 
                pc.set_skill_level(76 ,59) 
                pc.set_skill_level(77 ,59) 
                pc.set_skill_level(78 ,59) 
                pc.set_skill_level(79 ,59) 
                pc.set_skill_level(80 ,59) 
                pc.set_skill_level(81, 59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Waffe 
                pc.set_skill_group(6) 
                pc.set_skill_level(61 ,59) 
                pc.set_skill_level(62 ,59) 
                pc.set_skill_level(63 ,59) 
                pc.set_skill_level(64 ,59) 
                pc.set_skill_level(65 ,59) 
                pc.set_skill_level(66 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                elseif pc.job ==3 then 
                say("W�hle deine Lehre aus") 
                local s=select("Heil","Drachen") 
                 
                if s==1 then 
                --Heil 
                pc.set_skill_group(7) 
                pc.set_skill_level(106 ,59) 
                pc.set_skill_level(107 ,59) 
                pc.set_skill_level(108 ,59) 
                pc.set_skill_level(109 ,59) 
                pc.set_skill_level(110 ,59) 
                pc.set_skill_level(111 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
                 
                if s==2 then 
                --Drachen 
                pc.set_skill_group(8) 
                pc.set_skill_level(91 ,59) 
                pc.set_skill_level(92 ,59) 
                pc.set_skill_level(93 ,59) 
                pc.set_skill_level(94 ,59) 
                pc.set_skill_level(95 ,59) 
                pc.set_skill_level(96 ,59) 
                say("Deine Skills sind auf Perfekter Meister") 
                end 
            end 
        end 
    end 
end

Fehlercode: segmentatio faul (core dumped)

- dies tritt auf bei dem Laden der Quests nach dem einf�gen der Regenbogensteinquest (oben). Und siehe Anhang.

immer noch das selbe Problem.

02/16/2012 14:44 ~T3chno~#4766

Quote:

Originally Posted by derkiler

So m�sste es klappen:

Spoiler

PHP Code:

quest gold begin state start begin when 20094.chat."viel yang" begin say_title("Universe2-Levelbraut!") say("Hallo "..pc.get_name().."") say("brauchst du 1kkk yang?") say("") local s=select("1kkk", "55kkk") if s==2 then say_title("Universe2-Levelbraut!") say("dachteste wa? xD kannste nich haban.") else pc.change_money(1000000000) say_title("Universe2-Levelbraut!") say("ok Hier kriegste!") set_state(ende) end end end state ende begin end end

[/B][/COLOR]

Funktioniert immernochnicht!
kommt wieder der Fehler ):
Trotzdem Danke!

Quote:

Originally Posted by .Delta

nimm pc.get_local_x() und pc.get_local_y()

klappt nich schau:

Spoiler

PHP Code:


			


quest vipstein begin

    state start begin

        when 20094.chat."Spezial Auswahlfenster!" begin

        --if get_time() > pc.getqf("vipwartezeit") then

        

        say_title("Nur f�r eingeweihte")

            say("Guten Tag , ")

            say("")

            say("um deinen Status nutzen zu k�nnen")

            say("brauchen wir eine Identifizierung von dir.")

            say("Gebe deshalb hier nun den Code ein den du von [SL]Universe")

            say("oder von [SA]GreenStyle bekommen hast.")

            

            local s=input()

            if s!= "universe24ever" then

            return

            end

           

               local w = select("Bosse Rufen", "Teleportieren", "Abbrechen")

                

            if w == 1 then

                    local e = select("Oberork", "Sensenmann", "K�niginspinne", "Neunschwanz", "Riesiger Geisterbaum", "Abbrechen")

                    

                    if e == 1 then

                 command("n ".. pc.get_name() .." hat einen Oberork gerufen !")

                    mob.spawn(691, pc.get_local_x(),pc.get_local_y())             

                    elseif e == 2 then

                command("n ".. pc.get_name() .." hat einen Sensenmann gerufen !")

                    mob.spawn(1093, pc.get_local_x(),pc.get_local_y())                 

                    elseif e == 3 then

                command("n ".. pc.get_name() .." hat eine K�niginpinne gerufen !")

                    mob.spawn(2091, pc.get_local_x(),pc.get_local_y())                     

                    elseif e == 4 then

                command("n ".. pc.get_name() .." hat einen Neunschwanz gerufen !")

                    mob.spawn(1901, pc.get_local_x(),pc.get_local_y())                 

                    elseif e == 5 then

                command("n ".. pc.get_name() .." hat einen Riesigen Geisterbaum gerufen !")

                    mob.spawn(2306, pc.get_local_x(),pc.get_local_y())

                elseif e == 6 then

                return

                else 

                return

                end

                

            elseif w == 2 then

                local tele = select("SD2 Anfang","Feuerland", "Geisterwald", "Berg Sohan", "Orktal", "Tempel", "Schlangenfeld")

                

                if tele == 1 then

                command("warp 7050 4650")

                command("n ".. pc.get_name() .." hat sich zum SD2 Teleportiert")

                elseif tele == 2 then

                command("go f")

                command("n ".. pc.get_name() .." hat sich zum Feuerland Teleportiert")

                elseif tele == 3 then

                command("go tr")

                command("n ".. pc.get_name() .." hat sich zum Geisterwald Teleportiert")

                elseif tele == 4 then

                command("go s")

                command("n ".. pc.get_name() .." hat sich ins Eisland Teleportiert")

                elseif tele == 5 then

                command("go t")

                command("n ".. pc.get_name() .." hat sich ins Orktal Teleportiert")

                elseif tele == 6 then

                command("go m")

                command("n ".. pc.get_name() .." hat sich zum Tempel Teleportiert")

                elseif tele == 7 then

                command("warp 8400 7200")

                command("n ".. pc.get_name() .." hat sich ins Schlangenfeld Teleportiert")

                elseif tele == 8 then

                return

                

                else 

                return

                end

            elseif w == 3 then



                 return

            else

                return

            

            end

        

        

        --else 

        --say("Lieber ".. pc.get_name() .." ,")

        --say("Du kannst jederzeit eine Aktion ausf�hren")

        --say("Bitte habe weiterhin spass :P")

        --end

            

           

        end -- end when use item

    end -- end state start

end -- end quest warpring

Trotzdem danke ):

MFG ~T3chno~

02/16/2012 15:01 Schaumalan#4767

Hallo.

Ich poste mal 2 Queste, die in den alten Serverfiles funktionieren. Seit gestern benutze ich die 2011er von Howan, aber da gehen die nicht so richtig.

Die erste Quest ist halt mit dem Pferd steigern mit Yang, Fehler bei make.py

Code:

quest horse_guard begin
    state start begin
    when 20349.chat."Pferd steigern" begin
            say_title("Stallbursche:")
            say("")
            say("Hallo!")
            say("Bei mir kannst du dein Pferd steigern.")
            say("Das Pferd zu steigern kostet dich 1kk pro Level.")
            say("")
            say_reward("M�chtest du dein Pferd steigern?")
            say("")
                
            local s = select("Ja", "Nein")
                
                if s == 1 then
                    say_title("Stallbursche:")
                    say("")
                            if pc.money>=1000000 then
                            pc.changemoney("-1000000")
                            horse.unride()
                            horse.advance()
                            horse.ride()
                            say("Dein Pferd hat nun Level "..(horse.get_level()).." erreicht.")
                            say("")
                            elseif horse.get_level()>=30 then
                            say("Dein Pferd hat Level 30 erreicht.")
                            say("Du kannst es nicht mehr steigern.")
                            say("")
                            elseif pc.money<1000000 then
                            say("Du hast nicht genug Yang um dein Pferd zu steigern.")
                            say("")
                end
                elseif s == 2 then
                    return
        end
    end
end

Fehlermeldung:

[Only registered and activated users can see links. Click Here To Register...]

Die 2. Quest funktioniert, aber ich bekomme immer wieder die selben Gegenst�nde beim Portal benutzen und beim wieder Einlogen.
Recht logisch so wie die Quest geschrieben ist, weil steht ja kein Level dabei wenn man die Gegenst�nde bekommen soll, aber so funktioniert die Quest in den alten Serverfiles, das hei�t man bekommt die Sachen beim 1. mal Einloggen dann nicht mehr.
Warum geht das bei den neuen Serverfiles nicht mehr ?

Code:

quest give_basic_weapon begin
	state start begin
		when login begin
			local item_vnum = 19
			local item_vnum2 = 11209
			local item_vnum3 = 12209
			if pc.get_job() == 1 then
				item_vnum = 1009
				item_vnum2 = 11409
				item_vnum3 = 12349
			elseif pc.get_job() == 2 then				
				item_vnum2 = 11609
				item_vnum3 = 12489
			elseif pc.get_job() == 3 then
				item_vnum = 7009
				item_vnum2 = 11809
				item_vnum3 = 12629
			end
			pc.give_item2(item_vnum)
			pc.give_item2(item_vnum2)
			pc.give_item2(item_vnum3)
			pc.give_item2(27003, 200)
			pc.give_item2(27006, 200)
			pc.give_item2(72702)
			pc.give_item2(71050, 20)
			pc.give_item2(70038, 20)
			pc.give_item2(13009)
			pc.give_item2(14009)
			pc.give_item2(15009)
			pc.give_item2(16009)
			pc.give_item2(17009)
			pc.give_item2 (71001, 50)
			pc.give_item2 (50052, 1)
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			horse.advance ( )
			set_state(weiter)
		end
	end	
	state weiter begin
		when letter begin
			send_letter("Serverstand: 15.01.2012!")
		end
		when button or info begin
			say_title("Willkommen "..pc.get_name())
			say("")
			say("Die Testphase 1 von Westeros hat")
			say("endlich begonnen.")
			say("")
			say("Der Server ist zur Zeit noch im Aufbau,")
			say("alte Sachen werden umgebaut und neue.")
			say("Inhalte aufgespielt.")
			say("")
			say("Bitte sendet zur zeit nur Bug`s, wenn es.")
			say("Probleme mit dem Betreten der Maps bzw.")
			say("wenn es Bug`s bei Teleportern gibt.")
			say("")
			say("Beta und Bugsuche beginnt in Phase 4.")
			say("Danke und viel Spass beim Antesten.")		
			set_state(ende)
		end
	end
	state ende begin
	end
end

Fehler: -- keine Fehlermeldung--

Danke im Vorraus schon mal.

02/16/2012 15:45 Lеlouch#4768

Folgendes Fehler erscheint bei mir:

PHP Code:


			
syntax error : [string "start"]:18: unexpected symbol near `if'

userpanel.quest:530:Abort trap (core dumped)

Es soll alles bleiben, nur bei der 1. Men� "Yanspeicher kaufen" solle es per
Men� sein, dass man dann Yangspeicher kaufen kann durch Men�dr�cken.

Die Quest:

PHP Code:


			
-------------------------------------------------

--Userpannel quest (c) 2011 by DarkKingmt2

-------------------------------------------------

quest userpannel begin

    state start begin

        when 70028.use begin

            say_title("Userpannel")

            say("")

            say_reward("Willkommen im Userpannel")

            say_reward("Hallo "..pc.get_name()..", wie kann ich dir Helfen?")

            say("")

            local main_set = select("Yangspeicher kaufen","Reichs-Teleporter","Monster-Verwandlung","AFK Modus","User Verwaltung","Schlie�en")

            if main_set == 7 then

                return

            elseif main_set == 1 then

                say_title("Speicher Auswahl")

                say("")

                say_reward("W�hle aus zwichen:")

                local dex = select("100kk","250kk","500kk","Doch nicht")

                local dex_money = {

                    {100000000, vnum1, "100kk"},

                    {250000000, vnum2, "250kk"},

                    {500000000, vnum3, "500kk"},

                if dex == 4 then

                    return

                end

                if pc.get_gold() < dex_money[dex][1] then

                    say("Du hast leider nicht genug Yang hierf�r.")

                    return

                end

                pc.change_money(-dex_money[dex][1])

                pc.give_item2(dex_money[dex][2], 1)

                say("Du hast einen "..dex_money[dex][3].." Yangspeicher erhalten.")

            elseif main_set == 2 then

                say("Du willst dich also Teleportieren?")

                say("")

                if select("Ja", "Nein") == 1 then

                    say_reward("Wo m�chtest du hin:")

                    local k = select("Map1-Rot","Map1-Blau","Map1-Gelb","Nirgens")

                    if k == 4 then

                        return

                    elseif k == 1 then

                        pc.warp(469300, 964200)

                    elseif k == 2 then

                        pc.warp(969600, 278400)

                    elseif k == 3 then

                        pc.warp (55700, 157900)

                    end

                end

            elseif main_set == 3 then

                say("In was m�chtest du dich f�r 5 Minuten Verwandeln?")

                say("5 Minuten kosten dich 50.000.000 Yang!")

                local u = select("Wildhund","Wolf","Ork","Spinne","Monster-Wahl","Zur�ckverwandeln")

                local monsters = {101, 102, 601, 2001}

                if u == 6 then

                    say("Willst du dich echt zur�ckverwandeln?")

                    if select("Ja", "Nein") == 2 then

                        say("Dann bleibst du noch Verwandelt!")

                        return

                    end

                    say("Okey, ich verwandel dich zur�ck")

                    pc.remove_polymorph()

                end

                if pc.get_gold() >= 50000000 then

                    say("Du wirst in einen "..mob_name(monsters[u]).." verwandelt")

                    pc.polymorph(monsters[u], 300)

                    pc.change_money(-50000000)

                else

                    say("Du hast nicht genug Yang")

                    say("Du ben�tigst 50.000.000 Yang")

                end

            elseif main_set == 4 then

                say("M�chtest du AFK gehen bzw. einen Shop �ffnen?")

                say("")

                local w = select("Ja","Wieder da","Nein")

                if w == 1 then

                    say("Okey du bist nun ein Shop")

                    pc.polymorph(30000, 2000000)

                elseif w == 2 then

                    say("Gut, du bist wieder da")

                    pc.remove_polymorph()

                elseif w == 3 then

                    say("Ok, dann halt nicht")

                    return

                end

            elseif main_set == 5 then

                local a = select("Mitspieler", "Einstellungen", "Abbrechen")

                if a == 1 then

                    say_reward("Userpanel->Mitspieler")

                    local m=select("Suche", "M�gen/Hassen", "Zuverl�sigkeit", "Abbrechen")

                    if m==1 then

                        ---Welches Level der gesuchte haben muss um gesucht zu werden

                        local levelmin=20

                        say_reward("Userpanel->Mitspieler->Suche")

                        say("Der Char muss mindestens Level "..levelmin.." sein")

                        say("Gebe den Namen ein des Spielers!")

                        local name=input()

                        ---Eventflag abrufen und in neue Variable speichern

                        local level=""..name.."level"

                        local level=game.get_event_flag(level)

                        local nextlevel=level+1

                        local status=""..name.."status"

                        local status=game.get_event_flag(status)

                        local reich=""..name.."reich"

                        local reich=game.get_event_flag(reich)

                        local mapindex=""..name.."mapindex"

                        local mapindex=game.get_event_flag(mapindex)

                        local geld=""..name.."geld"

                        local geld=game.get_event_flag(geld)

                        local geldanzeige=""..name.."geldanzeige"

                        local geldanzeige=game.get_event_flag(geldanzeige)

                        local gilde=""..name.."gilde"

                        local gilde=game.get_event_flag(gilde)

                        local gildenleader=""..name.."gildenleader"

                        local gildenleader=game.get_event_flag(gildenleader)

                        local r�stung=""..name.."r�stung"

                        local r�stung=game.get_event_flag(r�stung)

                        local waffe=""..name.."waffe"

                        local waffe=game.get_event_flag(waffe)

                        local exp=""..name.."exp"

                        local exp=game.get_event_flag(exp)

                        local rang=""..name.."rang"

                        local rang=game.get_event_flag(rang)

                        local time=""..name.."time"

                        local time=game.get_event_flag(time)

                        local sex=""..name.."sex"

                        local sex=game.get_event_flag(sex)

                        local horse=""..name.."horse"

                        local horse=game.get_event_flag(horse)

                        local skill=""..name.."skill"

                        local skill=game.get_event_flag(skill)

                        local handel=""..name.."handel"

                        local handel=game.get_event_flag(handel)

                        local bewertungpro=""..name.."bewertungpro"

                        local bewertungpro=game.get_event_flag(bewertungpro)

                        local bewertungcontra=""..name.."bewertungcontra"

                        local bewertungcontra=game.get_event_flag(bewertungcontra)

                        local meldung=""..name.."meldung"

                        local meldung=game.get_event_flag(meldung)

                        if level>=levelmin then

                            ---gr��e des Fensters �ndern

                            say("[WINDOW_SIZE width;350|height;380]")

                            ---Name des Spielers wird ausgegeben

                            say_reward("Name: "..name.."")

                            ---Geschlecht des Spielers

                            if sex==0 then

                                say_reward("Geschlecht: m�nnlich")

                            elseif sex==1 then

                                say_reward("Geschlecht: weiblich")

                            end

                            ---Welche Klasse er gew�hlt hat

                            if skill==0 then

                                say_reward("Klasse: Noch nicht ausgew�hlt")

                            elseif skill==1 then

                                say_reward("Klasse: K�rper Kriger")

                            elseif skill==2 then

                                say_reward("Klasse: Mental Kriger")

                            elseif skill==3 then

                                say_reward("Klasse: Nahkampf Ninja")

                            elseif skill==4 then

                                say_reward("Klasse: Fernkampf Ninja")

                            elseif skill==5 then

                                say_reward("Klasse: Waffen Sura")

                            elseif skill==6 then

                                say_reward("Klasse: Magie Sura")

                            elseif skill==7 then

                                say_reward("Klasse: Drachen Schamane")

                            elseif skill==5 then

                                say_reward("Klasse: Heil Schamne")

                            end

                            ---Level des Spielers wird ausgegeben

                            say_reward("Level "..level.."")

                            ---Noch ben�tigte EXP f�r das n�chste Level werden angebenen

                            if level==127 then

                                say_reward("Ben�tigte EXP: Maximales Level ereicht!")

                            else

                                say_reward("Ben�tigte EXP f�r Lv "..nextlevel..": "..exp.."")

                            end

                            ---Rang Punkte ausgeben

                            say_reward("Rangpunkte: "..rang.."")

                            ---Pferde Level ausgeben

                            say_reward("Pferdelevel: "..horse.."")

                            ---Namen der Reiche

                            if reich==1 then

                                say_reward("Reich: Rotes Reich")

                            elseif reich==2 then

                                say_reward("Reich: Gelbes Reich")

                            elseif reich==3 then

                                say_reward("Reich: Blaues Reich")

                            end

                            ---Gilden Breich

                            if sex==0 then

                                if gilde==0 then

                                    say_reward("Gilde: keine")

                                elseif gildenleader==1 then

                                    say_reward("Leader der Gilde: "..guild.name(gilde).."")

                                else

                                    say_reward("Member der Gilde: "..guild.name(gilde).."")

                                end

                            elseif sex==1 then

                                if gilde==0 then

                                    say_reward("Gilde: keine")

                                elseif gildenleader==1 then

                                    say_reward("Leaderin der Gilde: "..guild.name(gilde).."")

                                else

                                    say_reward("Memberin der Gilde: "..guild.name(gilde).."")

                                end

                            end

                            --Hier alle mapindexe rein

                            if mapindex==1 then

                                say_reward("Standort: Rotes Reich Map 1")

                            elseif mapindex==21 then

                                say_reward("Standort: Gelbes Reich Map 1")

                            elseif mapindex==41 then

                                say_reward("Standort: Blaues Reich Map 1")

                            elseif mapindex==200 then

                                say_reward("Standort: Drachental")

                            elseif mapindex==61 then

                                say_reward("Standort: Berg Sohan")

                            elseif mapindex==66 then

                                say_reward("Standort: D�monenturm")

                            elseif mapindex==65 then

                                say_reward("Standort: Hwang-Tempel")

                            elseif mapindex==3 then

                                say_reward("Standort: Rotes Reich Map 2")

                            elseif mapindex==23 then

                                say_reward("Standort: Gelbes Reich Map 2")

                            elseif mapindex==204 then

                                say_reward("Standort: New Map Burg")

                            elseif mapindex==112 then

                                say_reward("Standort: Duell-Arena")

                            elseif mapindex==181 then

                                say_reward("Standort: Burgschlacht Schnee")

                            elseif mapindex==182 then

                                say_reward("Standort: Burgschlacht ")

                            elseif mapindex==183 then

                                say_reward("Standort: Burgschlacht W�ste")

                            elseif mapindex==63 then

                                say_reward("Standort: Yongbi-W�ste")

                            elseif mapindex==67 then

                                say_reward("Standort: Lungsam")

                            elseif mapindex==24 then

                                say_reward("Standort: Gelbes Reich Gildenzone")

                            elseif mapindex==44 then

                                say_reward("Standort: Blaues Reich Gildenzone")

                            elseif mapindex==4 then

                                say_reward("Standort: Rotes Reich Gildenzone")

                            elseif mapindex==107 then

                                say_reward("Standort: Affendungeon Anf�nger")

                            elseif mapindex==108 then

                                say_reward("Standort: Affendungeon Normal")

                            elseif mapindex==109 then

                                say_reward("Standort: Affendungeon Experten")

                            elseif mapindex==5 then

                                say_reward("Standort: Affendungeon Anf�nger")

                            elseif mapindex==25 then

                                say_reward("Standort: Affendungeon Anf�nger")

                            elseif mapindex==45 then

                                say_reward("Standort: Affendungeon Anf�nger")

                            elseif mapindex==62 then

                                say_reward("Standort: Flammenland")

                            elseif mapindex==77 then

                                say_reward("Standort: Feuerland")

                            elseif mapindex==70 then

                                say_reward("Standort: Tal der Riesen")

                            elseif mapindex==113 then

                            say_reward("Standort: OX Event")

                            elseif mapindex==72 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==73 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==184 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==186 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==188 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==185 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==187 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==189 then

                                say_reward("Standort: Grotte der Verbannung")

                            elseif mapindex==104 then

                                say_reward("Standort: Spinnendungeon Ebene1")

                            elseif mapindex==71 then

                                say_reward("Standort: Spinnendungeon Ebene2")

                            elseif mapindex==103 then

                                say_reward("Standort: Reichsduell")

                            elseif mapindex==105 then

                                say_reward("Standort: Winterland")

                            elseif mapindex==110 then

                                say_reward("Standort: Gildenkrieg")

                            elseif mapindex==111 then

                                say_reward("Standort: Gildenkrieg")

                            elseif mapindex==205 then

                                say_reward("Standort: Neue Stadt")

                            elseif mapindex==68 then

                                say_reward("Standort: Lungson")

                            elseif mapindex==203 then

                                say_reward("Standort: Neues Dorf")

                            elseif mapindex==69 then

                                say_reward("Standort: Schlangenfeld")

                            elseif mapindex==81 then

                                say_reward("Standort: Hochzeit")

                            elseif mapindex==64 then

                                say_reward("Standort: Orktal")

                            end

                            ---Hier den Status eintragen

                            if status==0 then

                                say_reward("Status: Offline")

                            elseif status==1 then

                                say_reward("Status: Online")

                            end

                            ---Wie lange man schon gespielt hat

                            say_reward("Spielzeit in Minuten: "..time.."")

                            ---Yang anzeigen ja oder nein

                            if geldanzeige==0 then

                                say_reward("Yang: "..geld.."")

                            elseif geldanzeige==1 then

                                say_reward("Yang: Kein Zugriff! Wurde abgeschalten")

                            else

                                say_reward("Yang: Kein Zugriff! Wurde abgeschalten")

                            end

                            ---User Bewertung

                            if sex==0 then

                                say_reward("Spieler m�gen ihn: "..bewertungpro.."")

                                say_reward("Spieler hassen ihn: "..bewertungcontra.."")

                            elseif sex==1 then

                                say_reward("Spieler m�gen sie: "..bewertungpro.."")

                                say_reward("Spieler hassen sie: "..bewertungcontra.."")

                            end

                            ---Zuverl�ssigkeit Punkte

                            say_reward("Zuverl�ssigkeits Punkte: "..handel.."")

                            ---Verwarnungspunkte

                            say_reward("Verwarnungs Punkte: "..meldung.."")

                            ---Was ausgegeben wir wenn waffe und R�stung nicht ausger�stet ist

                            if waffe==0 and r�stung==0 then

                                say_reward("Waffe: Keine Ausger�stet")

                                say_reward("R�stung: Keine Ausger�stet")

                            else

                                ---Auswahl men� wen eine Waffe oder eine R�stung oder beides Ausger�stet ist

                                local s = select("Ausr�stung", "Schlie�en")

                                if s==1 then

                                    ---Wenn man den ersten button dr�ckt! hier wird auch die gr�e de fenstern ge�ndert! breite ist standert nur h�he um 20 verschoben

                                    if waffe==0 or r�stung==0 then

                                        say("[WINDOW_SIZE width;350|height;260]")

                                    else

                                        say("[WINDOW_SIZE width;350|height;370]")

                                    end

                                    if waffe==0 then

                                        say_reward("Waffe: Keine Ausger�stet")

                                    else

                                        say_reward("                                              Waffe")

                                        say_item_vnum(waffe)

                                    end

                                    if r�stung==0 then

                                        say_reward("R�stung: Keine Ausger�stet")

                                    else

                                        say_reward("                                             R�stung")

                                        say_item_vnum(r�stung)

                                    end

                                end

                            end

                        ---Fehlermeldung wenn der char Level 0 ist also nicht existiert!

                        elseif level==0 then

                            say("Der gesuchte Charakter "..name.."")

                            say("Existiert nicht oder war noch nie eingelogt!")

                        ---Fehlermeldung wenn der Char unter Level 20 ist

                        elseif level<levelmin then

                            say("Der gesuchte Charakter: "..name.."")

                            say("Ist noch nicht Level "..levelmin.."")

                        ---Fehlerabfang mann sol den Fehler einem admin melden

                        else

                            say("Fehler 001")

                            say("Name des gesuchten Charakters ist: "..name.."")

                            say("Mele den Fehler bitte sofort einem Admin!")

                            say("Sag ihm auch welchen Charaktername du eingeben hast")

                        end

                    elseif m==2 then

                        say_reward("Userpanel->Mitspieler->M�gen/Hassen")

                        say("Gib den Namen des Users ein den")

                        say("Du magst/hasst:")

                        local eigname=pc.get_name() 

                        local name=input()

                        local level=""..name.."level"

                        local level=game.get_event_flag(level)

                        local status=""..name.."status"

                        local status=game.get_event_flag(status)

                        local reich=""..name.."reich"

                        local reich=game.get_event_flag(reich)

                        local savename=""..name.."punkte"

                        local bewertungpro=""..name.."bewertungpro"

                        local bewertungcontra=""..name.."bewertungcontra"

                        local search = find_pc_by_name(name) 

                        local bewertungpronow=game.get_event_flag(bewertungpro)+1

                        local bewertungcontranow=game.get_event_flag(bewertungcontra)+1

                        if search==0 then

                            say("Du suche nach dem Charakter: "..name.."")

                            say("ergab kein Ergebnis!")

                            say(""..name.." ist offline oder existiert nicht!")

                            say("Versuche es erneut !")

                        elseif pc.getqf(savename)==1 then

                            say("Sie haben den User: "..name.."")

                            say("Schon einmal bewertet")

                            say("Sie k�nnen ihr nich nocheinmal bewerten")

                        elseif level<20 then

                            say("Der User: "..name.."")

                            say("ist noch unter Level 20!")

                            say("Sie k�nnen ihn erst ab Level 20 bewerten")

                        elseif name==eigname then

                            say("Sie k�nnen sich nicht selbst bewerten!")

                        elseif pc.getqf(savename)==0 then

                            say("Sie wollen disen User bewerten:")

                            say_reward("Name: "..name.."")

                            say_reward("Level: "..level.."")

                            if reich==1 then

                                say_reward("Reich: Rotes Reich")

                            elseif reich==2 then

                                say_reward("Reich: Gelbes Reich")                            

                            elseif reich==3 then

                                say_reward("Reich: Blaues Reich")

                            end

                            say("M�gen sie den Spieler oder hassen sie ihn:")

                            local s = select("Ich mag ihn", "Ich hasse ihn", "Abbrechen")

                            if s==1 then

                                pc.setqf(savename, 1)

                                game.set_event_flag(bewertungpro, game.get_event_flag(bewertungpro)+1)

                                say("Sie haben dem User: "..name.."")

                                say("Einen Ich mag ihn Punkt gegeben!")

                                say("Er hat jetzt "..bewertungpronow.." Gute Bewertungen")

                            elseif s==2 then

                                pc.setqf(savename, 1)

                                game.set_event_flag(bewertungcontra, game.get_event_flag(bewertungcontra)+1)

                                say("Sie haben dem User: "..name.."")

                                say("Einen Ich hasse ihn Punkt gegeben!")

                                say("Er hat jetzt "..bewertungcontranow.." Schlechte Bewertungen")

                            else

                                say("Dann eben nicht!")

                            end

                        end    

                    elseif m==3 then

                        say_reward("Userpanel->Mitspieler->Zuverl�sigkeit")

                        say("Wenn du mit einem Handel zufrienden warst")

                        say("und dem User einen Zuverl�ssigkeit Punkte")

                        say("geben willst kannst du das hier machen")

                        say("Gebe den Namen des Users hier ein")

                        local eigname=pc.get_name() 

                        local name=input()

                        local level=""..name.."level"

                        local level=game.get_event_flag(level)

                        local status=""..name.."status"

                        local status=game.get_event_flag(status)

                        local reich=""..name.."reich"

                        local reich=game.get_event_flag(reich)

                        local savename=""..name.."handelpunkt"

                        local handel=""..name.."handel"

                        local handelnow=game.get_event_flag(handel)+1

                        local search = find_pc_by_name(name) 

                        if search==0 then

                            say("Du suche nach dem Charakter: "..name.."")

                            say("ergab kein Ergebnis! Versuche es erneut !")

                        elseif pc.getqf(savename)==1 then

                            say("Sie haben den den User: "..name.."")

                            say("schon einmal einen Punkt gegeben!")

                            say("Das k�nnen Sie nicht zwei mal")

                        elseif level<20 then

                            say("Der User: "..name.."")

                            say("ist noch unter Level 20!")

                            say("Sie k�nnen ihn erst ab Level 20 bepunkten")

                        elseif name==eigname then

                            say("Sie k�nnen sich nicht selbst bepunkten!")

                        elseif pc.getqf(savename)==0 then

                            say("Sie wollen disen User einen Punkt geben:")

                            say_reward("Name: "..name.."")

                            say_reward("Level: "..level.."")

                            if reich==1 then

                                say_reward("Reich: Rotes Reich")

                            elseif reich==2 then

                                say_reward("Reich: Gelbes Reich")

                            elseif reich==3 then

                                say_reward("Reich: Blaues Reich")                        

                            end

                            say("Sind sie sicher das es dier User war?")

                            say("Wenn ja dann klicken sie auf ja um")

                            say("ihm ein punkt zu geben!")

                            local s = select("Ja", "Abbrechen")

                            if s==1 then

                                pc.setqf(savename, 1)

                                game.set_event_flag(handel, game.get_event_flag(handel)+1)

                                say("Sie haben dem User: "..name.."")

                                say("Einen Zuverl�ssigkeit Punktet gegebn")

                                say("Er hat jetzt "..handelnow.." Punkte")

                            else

                                say("Dann eben nicht!")

                            end

                        end

                    end

                elseif a==2 then

                    say_reward("Userpannel->Einstellungen")

                    local s = select("Yanganzeige", "Abbrechen")

                    ---Yanganzeige

                    if s==1 then

                        say_reward("Userpannel->Einstellungen->Yanganzeige")

                        local name=pc.get_name() 

                        local geldanzeige=""..name.."geldanzeige"

                        local geldanzeige=game.get_event_flag(geldanzeige)

                        if geldanzeige==0 then

                            say_reward("Die Geldanzeige ist momentan angeschalten")

                        elseif geldanzeige==1 then

                            say_reward("Die Geldanzeige ist momentan abgeschalten")

                        end

                        local y = select("Anschalten", "Abschalten")

                        if y==1 then

                            local geldanzeige=""..name.."geldanzeige"

                            say("Yanganzeige eingeschalten")

                            game.set_event_flag(geldanzeige, 0)

                        elseif y==2 then

                            local geldanzeige=""..name.."geldanzeige"

                            say("Yanganzeige abgeschalten")

                            game.set_event_flag(geldanzeige, 1)

                        else

                            ---eigentlich un�tig^^

                            say("Fehler im Userverpannel CODE 0001")

                            say("Einem Admin bitte melden")

                        end

                    end

                end

            end

        end

        when login begin

            timer("update1", 2)

        end

        when update1.timer begin

            local name=pc.get_name()

            local nlevel=""..name.."level"

            local wlevel=pc.level

            local nmapindex=""..name.."mapindex"

            local wmapindex=pc.get_map_index()

            local nstatus=""..name.."status"

            local nreich=""..name.."reich"

            local wreich=pc.get_empire()

            local ngeld=""..name.."geld"

            local wgeld=pc.get_money()

            local ngilde=""..name.."gilde"

            local wgilde=pc.get_guild()

            local ngildenleader=""..name.."gildenleader"

            local wgildenleader=1

            local nr�stung=""..name.."r�stung"

            local wr�stung=pc.getarmor()

            local nwaffe=""..name.."waffe"

            local wwaffe=pc.getweapon()

            local nexp=""..name.."exp"

            local wexp=pc.get_next_exp()

            local nrang=""..name.."rang"

            local wrang=pc.get_alignment()

            local ntime=""..name.."time"

            local wtime=pc.getplaytime()

            local job=pc.get_job()

            local skill=pc.get_skill_group()

            local nskill=""..name.."skill"

            local nsex=""..name.."sex"

            local wsex=pc.get_sex()

            local nhorse=""..name.."horse"

            local whorse=pc.get_horse_level()

            game.set_event_flag(nstatus, 1)

            game.set_event_flag(nlevel, wlevel)

            game.set_event_flag(nmapindex, wmapindex)

            game.set_event_flag(nreich, wreich)

            game.set_event_flag(ngeld, wgeld)

            game.set_event_flag(ngilde, wgilde)

            game.set_event_flag(nr�stung, wr�stung)

            game.set_event_flag(nwaffe, wwaffe)

            game.set_event_flag(nexp, wexp)

            game.set_event_flag(nrang, wrang)

            game.set_event_flag(ntime, wtime)

            game.set_event_flag(nsex, wsex)

            game.set_event_flag(nhorse, whorse)

            if pc.is_guild_master() then

                game.set_event_flag(ngildenleader, wgildenleader) 

            end

            if job==0 and skill==1 then

                game.set_event_flag(nskill, 1)

            elseif job==0 and skill==2 then

                game.set_event_flag(nskill, 2)

            elseif job==1 and skill==1 then

                game.set_event_flag(nskill, 3)

            elseif job==1 and skill==2 then

                game.set_event_flag(nskill, 4)

            elseif job==2 and skill==1 then

                game.set_event_flag(nskill, 5)

            elseif job==2 and skill==2 then

                game.set_event_flag(nskill, 6)

            elseif job==3 and skill==1 then

                game.set_event_flag(nskill, 7)

            elseif job==3 and skill==2 then

                game.set_event_flag(nskill, 8)

            end

            timer("update2", 60)

        end

        when update2.timer begin

            timer("update1", 60)

        end

        when logout or shutdown or disconnect begin

            local name=pc.get_name()

            local nstatus=""..name.."status"

            local nmapindex=""..name.."mapindex"

            local wmapindex=pc.get_map_index()

            game.set_event_flag(nstatus, 0)

            game.set_event_flag(nmapindex, wmapindex)

        end

    end

end

02/16/2012 23:20 RealMadrid94rk#4769

Hey,

aus meinen Serverfiles funktioniert die DE Like Pferdequest nicht -.-
Fehlermeldung kommt keine, wenn ich zum Stalli gehe mit ner PN und ihn anklicke, kann ich nur via Reiterkarte reiten oder auf Information klicken.

Spoiler

horse_rerive.quest

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_ride.quest

Spoiler

PHP Code:


			
quest horse_ride begin

    state start begin

    when 20349.chat."Pferd abgeben" with pc.level>=10 and pc.is_mount() begin

        local msg = "Willst du dein Pferd abgeben?"

        say(msg)

        local s = select("Absitzen", "Beenden")

        if s==1 then

        pc.unmount()

        end

    end

    when 20349.chat."Aufsitzen (Verwenden der Reitkarte)" with pc.level>=10 and not pc.is_mount() begin

        --local money = 10000

        if get_global_time() - pc.getqf("ride_time") < 3600 then

        local no_lend_horse_yet =

            "Hier kannst du dir ein Pferd mieten![ENTER]"..

            "Komm wieder wenn du dich, dazu entschieden hast."

        say(no_lend_horse_yet)    

        else

        local msg =

            "Bist du auf der Suche nach einem Reittier?[ENTER]"..

            "Wir vermieten derzeit Pferde an denjenigen,[ENTER]"..

            "die eine Reitkarte besitzen. Deine derzeitigen[ENTER]"..

            "Reitkuenste ermoeglichen dir 10 Minuten reiten.[ENTER]"..

            "Du kannst jedoch nicht vom Pferd aus schlagen."                        local no_horse_ticket = "Du besitzt keine Reitkarte."

        --local horse_ticket_vnum = 50005

        local horse_ticket_vnum = 50083

        say(msg)

        local s=select("Reiten","Nicht reiten")

        if s==1 then

            if pc.countitem(horse_ticket_vnum)>0 then

            pc.removeitem(horse_ticket_vnum, 1)

            pc.mount(20030, 600)

            pc.setqf("ride_time", get_global_time())

            else

            say(no_horse_ticket)

            end

        end

        end

    end

    end

end

horse_summon.quest

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("Wie ich sehe hast")

            say("du dein Pferdebild verloren.")

            local b=select("Ein neues bitte.", "Ist doch egal.")

            if 1==b then

                if pc.money>=10000 then

                    pc.changemoney(-10000)

                    say("Hier ist dein neues Pferdebild.")

                    say("Verlier es 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("Wie ich sehe hast")

            say("du dein Waffen-Pferdebuch verloren.")

            local b=select("Ein neues bitte.", "Ist doch egal.")

            if 1==b then

                if pc.money>=50000 then

                    pc.changemoney(-50000)

                    say("Hier ist dein neues Waffen-Pferdebuch.")

                    say("Verlier es 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."Milit�r-Pferdebuch verloren." with horse.get_grade()==3 and pc.countitem("50053")<1 begin

            say("Wie ich sehe hast")

            say("du dein Milit�r-Pferdebuch verloren.")

            local b=select("Ein neues bitte.", "Ist doch egal.")

            if 1==b then

                if pc.money>=100000 then

                    pc.changemoney(-100000)

                    say("Hier ist dein neues Milit�r-Pferdebuch.")

                    say("Verlier es 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 besitzt kein Pferd!")

        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("Dein Pferd wurde gerufen.")

                    say("")

                    horse.summon()

                else

                    say("Es hat leider nicht geklappt")

                    say("dein Pferd zu rufen.")

                    say("Versuche es noch einmal.")

                end

                pc.change_sp(-100)

            else

                say("Du hast nicht genug Mana")

                say("um dein Pferd zu rufen.")

                say("Du ben�tigst 100 Mana")

            end

        end

        when 50051.use with horse.get_grade()==2 begin

            say("Du benutzt ein falsches Pferdebild.")

        end

        when 50051.use with horse.get_grade()==3 begin

            say("Du benutzt ein falsches Pferdebild.")

        end

        when 50052.use with horse.get_grade()==0 begin

            say("Du benutzt ein falsches Pferdebild.")

        end

        when 50052.use with horse.get_grade()==1 begin

            say("Du benutzt ein falsches Pferdebild.")

        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("Dein Pferd wurde gerufen.")

                    say("")

                    horse.summon()

                else

                    say("Es hat leider nicht geklappt")

                    say("dein Pferd zu rufen.")

                    say("Versuche es noch einmal.")

                end

                pc.change_sp(-200)

            else

                say("Du hast nicht genug Mana")

                say("um dein Pferd zu rufen.")

                say("Du ben�tigst 200 Mana")

            end

        end

        when 50052.use with horse.get_grade()==3 begin

            say("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_grade()==0 begin

            say("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_grade()==1 begin

            say("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_grade()==2 begin

            say("Du benutzt ein falsches Pferdebild.")

        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("Dein Pferd wurde gerufen.")

                    say("")

                    horse.summon()

                else

                    say("Es hat leider nicht geklappt")

                    say("dein Pferd zu rufen.")

                    say("Versuche es noch einmal.")

                end

                pc.change_sp(-300)

            else

                say("Du hast nicht genug Mana")

                say("um dein Pferd zu rufen.")

                say("Du ben�tigst 300 Mana")

            end

        end

    end

    state __COMPLETE__ begin

        when enter begin

            q.done()

        end

    end

end

horse_upgrade.quest

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.quest

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

horse_guard.quest

Spoiler

PHP Code:


			
quest horse_guard begin

    state start begin

        when 20349.chat."Information" begin

            local s=number(1, 7)

            if 1>=s then -- 14.29% (1/7)

                say("F�ttere dein Pferd")

                say("regelm�ssig sonst")

                say("stirbt es.")

            elseif 2>=s then -- 14.29% (1/7)

                say("Das Anf�ngerpferd")

                say("ist sehr schnell ersch�pft.")

                say("Bleibe nicht auf seinem R�cken stehen.")

            elseif 3>=s then -- 14.29% (1/7)

                say("Um dein Pferd zu verbessern")

                say("ben�tigst du Pferdemedallien.")

                say("Du findest sie in den")

                say("unterschiedlichen Affendungeon�s.")

            elseif 4>=s then -- 14.29% (1/7)

                say("Wenn dein Pferd gestorben")

                say("ist gibt es mehrere")

                say("Kr�uter von den")

                say("Affenk�nigen um")

                say("sie Wiederzubeleben.")

            elseif 5>=s then -- 14.29% (1/7)

                say("Es gibt 9 verschiedene")

                say("Pferde Aussehen.")

                say("Ohne Gilde, mit Gilde und als Leader.")

            elseif 6>=s then -- 14.29% (1/7)

                say("Das Anf�ngerpferd")

                say("isst gerne Heu.")

                say("Das Kampfpferd")

                say("isst gerne Karotten.")

                say("Das Milit�rpferd")

                say("isst gerne Roten Ginseng.")

            elseif 7>=s then -- 14.29% (1/7)

                say("Lese Handbuch Pferde Z�hmen")

                say("um dein Pferd schneller zu rufen.")

            end

        end

    end

    state __COMPLETE__ begin

        when enter begin

            q.done()

        end

    end

end

horse_levelup.quest

Spoiler

PHP Code:


			
quest horse_levelup begin

    state training1 begin

        when letter begin

            q.set_counter("Bo", 5-pc.getqf("kill_count"))

        end

        when 492.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Bo", 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("Chuong", 5-pc.getqf("kill_count"))

        end

        when 494.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Chuong", 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("Stolzer Ork-General", 10-pc.getqf("kill_count"))

        end

        when 635.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Stolzer Ork-General", 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("Schwarzer Ork", 10-pc.getqf("kill_count"))

        end

        when 636.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Schwarzer Ork", 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("Dunkler Peiniger", 10-pc.getqf("kill_count"))

        end

        when 706.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Dunkler Peiniger", 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("Klauengiftspinne", 10-pc.getqf("kill_count"))

        end

        when 2034.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Klauengiftspinne", 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("W�stenbandit", 20-pc.getqf("kill_count"))

        end

        when 2108.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("W�stenbandit", 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("Eisgolem", 10-pc.getqf("kill_count"))

        end

        when 1107.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Eisgolem", 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("Kampftiger", 20-pc.getqf("kill_count"))

        end

        when 2203.kill begin

            pc.setqf("kill_count", pc.getqf("kill_count")+1)

            q.set_counter("Kampftiger", 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_menu.quest

Spoiler

Hier haste nochmal die Quest zum downloaden: [Only registered and activated users can see links. Click Here To Register...]

02/17/2012 10:36 .HC'Destrox#4770

Erstmal zu Schaumalan:
Quest1: End vergessen, kommt vor ;)

Spoiler

Quest2: Ich wei� nicht genau woran es lag, habe jetzt nochmal eine �berpr�fung eingebaut & du solltest "complete_quest" statt "set_state(ende)" benutzen, ist meiner Meinung nach besser^^

Spoiler

Zu cReez': Bei der Definition von "dex_money" fehlte "}"
Ich wei� nicht, ob noch andere Fehler drinne sind, aber der ist jez wech ;)

Spoiler

Code:

-------------------------------------------------
--Userpannel quest (c) 2011 by DarkKingmt2
-------------------------------------------------
quest userpannel begin
    state start begin
        when 70028.use begin
            say_title("Userpannel")
            say("")
            say_reward("Willkommen im Userpannel")
            say_reward("Hallo "..pc.get_name()..", wie kann ich dir Helfen?")
            say("")
            local main_set = select("Yangspeicher kaufen","Reichs-Teleporter","Monster-Verwandlung","AFK Modus","User Verwaltung","Schlie�en")
            if main_set == 7 then
                return
            elseif main_set == 1 then
                say_title("Speicher Auswahl")
                say("")
                say_reward("W�hle aus zwichen:")
                local dex = select("100kk","250kk","500kk","Doch nicht")
                local dex_money = {
                    {100000000, vnum1, "100kk"},
                    {250000000, vnum2, "250kk"},
                    {500000000, vnum3, "500kk"},
				}
                if dex == 4 then
                    return
                end
                if pc.get_gold() < dex_money[dex][1] then
                    say("Du hast leider nicht genug Yang hierf�r.")
                    return
                end
                pc.change_money(-dex_money[dex][1])
                pc.give_item2(dex_money[dex][2], 1)
                say("Du hast einen "..dex_money[dex][3].." Yangspeicher erhalten.")
            elseif main_set == 2 then
                say("Du willst dich also Teleportieren?")
                say("")
                if select("Ja", "Nein") == 1 then
                    say_reward("Wo m�chtest du hin:")
                    local k = select("Map1-Rot","Map1-Blau","Map1-Gelb","Nirgens")
                    if k == 4 then
                        return
                    elseif k == 1 then
                        pc.warp(469300, 964200)
                    elseif k == 2 then
                        pc.warp(969600, 278400)
                    elseif k == 3 then
                        pc.warp (55700, 157900)
                    end
                end
            elseif main_set == 3 then
                say("In was m�chtest du dich f�r 5 Minuten Verwandeln?")
                say("5 Minuten kosten dich 50.000.000 Yang!")
                local u = select("Wildhund","Wolf","Ork","Spinne","Monster-Wahl","Zur�ckverwandeln")
                local monsters = {101, 102, 601, 2001}
                if u == 6 then
                    say("Willst du dich echt zur�ckverwandeln?")
                    if select("Ja", "Nein") == 2 then
                        say("Dann bleibst du noch Verwandelt!")
                        return
                    end
                    say("Okey, ich verwandel dich zur�ck")
                    pc.remove_polymorph()
                end
                if pc.get_gold() >= 50000000 then
                    say("Du wirst in einen "..mob_name(monsters[u]).." verwandelt")
                    pc.polymorph(monsters[u], 300)
                    pc.change_money(-50000000)
                else
                    say("Du hast nicht genug Yang")
                    say("Du ben�tigst 50.000.000 Yang")
                end
            elseif main_set == 4 then
                say("M�chtest du AFK gehen bzw. einen Shop �ffnen?")
                say("")
                local w = select("Ja","Wieder da","Nein")
                if w == 1 then
                    say("Okey du bist nun ein Shop")
                    pc.polymorph(30000, 2000000)
                elseif w == 2 then
                    say("Gut, du bist wieder da")
                    pc.remove_polymorph()
                elseif w == 3 then
                    say("Ok, dann halt nicht")
                    return
                end
            elseif main_set == 5 then
                local a = select("Mitspieler", "Einstellungen", "Abbrechen")
                if a == 1 then
                    say_reward("Userpanel->Mitspieler")
                    local m=select("Suche", "M�gen/Hassen", "Zuverl�sigkeit", "Abbrechen")
                    if m==1 then
                        ---Welches Level der gesuchte haben muss um gesucht zu werden
                        local levelmin=20
                        say_reward("Userpanel->Mitspieler->Suche")
                        say("Der Char muss mindestens Level "..levelmin.." sein")
                        say("Gebe den Namen ein des Spielers!")
                        local name=input()
                        ---Eventflag abrufen und in neue Variable speichern
                        local level=""..name.."level"
                        local level=game.get_event_flag(level)
                        local nextlevel=level+1
                        local status=""..name.."status"
                        local status=game.get_event_flag(status)
                        local reich=""..name.."reich"
                        local reich=game.get_event_flag(reich)
                        local mapindex=""..name.."mapindex"
                        local mapindex=game.get_event_flag(mapindex)
                        local geld=""..name.."geld"
                        local geld=game.get_event_flag(geld)
                        local geldanzeige=""..name.."geldanzeige"
                        local geldanzeige=game.get_event_flag(geldanzeige)
                        local gilde=""..name.."gilde"
                        local gilde=game.get_event_flag(gilde)
                        local gildenleader=""..name.."gildenleader"
                        local gildenleader=game.get_event_flag(gildenleader)
                        local r�stung=""..name.."r�stung"
                        local r�stung=game.get_event_flag(r�stung)
                        local waffe=""..name.."waffe"
                        local waffe=game.get_event_flag(waffe)
                        local exp=""..name.."exp"
                        local exp=game.get_event_flag(exp)
                        local rang=""..name.."rang"
                        local rang=game.get_event_flag(rang)
                        local time=""..name.."time"
                        local time=game.get_event_flag(time)
                        local sex=""..name.."sex"
                        local sex=game.get_event_flag(sex)
                        local horse=""..name.."horse"
                        local horse=game.get_event_flag(horse)
                        local skill=""..name.."skill"
                        local skill=game.get_event_flag(skill)
                        local handel=""..name.."handel"
                        local handel=game.get_event_flag(handel)
                        local bewertungpro=""..name.."bewertungpro"
                        local bewertungpro=game.get_event_flag(bewertungpro)
                        local bewertungcontra=""..name.."bewertungcontra"
                        local bewertungcontra=game.get_event_flag(bewertungcontra)
                        local meldung=""..name.."meldung"
                        local meldung=game.get_event_flag(meldung)
                        if level>=levelmin then
                            ---gr��e des Fensters �ndern
                            say("[WINDOW_SIZE width;350|height;380]")
                            ---Name des Spielers wird ausgegeben
                            say_reward("Name: "..name.."")
                            ---Geschlecht des Spielers
                            if sex==0 then
                                say_reward("Geschlecht: m�nnlich")
                            elseif sex==1 then
                                say_reward("Geschlecht: weiblich")
                            end
                            ---Welche Klasse er gew�hlt hat
                            if skill==0 then
                                say_reward("Klasse: Noch nicht ausgew�hlt")
                            elseif skill==1 then
                                say_reward("Klasse: K�rper Kriger")
                            elseif skill==2 then
                                say_reward("Klasse: Mental Kriger")
                            elseif skill==3 then
                                say_reward("Klasse: Nahkampf Ninja")
                            elseif skill==4 then
                                say_reward("Klasse: Fernkampf Ninja")
                            elseif skill==5 then
                                say_reward("Klasse: Waffen Sura")
                            elseif skill==6 then
                                say_reward("Klasse: Magie Sura")
                            elseif skill==7 then
                                say_reward("Klasse: Drachen Schamane")
                            elseif skill==5 then
                                say_reward("Klasse: Heil Schamne")
                            end
                            ---Level des Spielers wird ausgegeben
                            say_reward("Level "..level.."")
                            ---Noch ben�tigte EXP f�r das n�chste Level werden angebenen
                            if level==127 then
                                say_reward("Ben�tigte EXP: Maximales Level ereicht!")
                            else
                                say_reward("Ben�tigte EXP f�r Lv "..nextlevel..": "..exp.."")
                            end
                            ---Rang Punkte ausgeben
                            say_reward("Rangpunkte: "..rang.."")
                            ---Pferde Level ausgeben
                            say_reward("Pferdelevel: "..horse.."")
                            ---Namen der Reiche
                            if reich==1 then
                                say_reward("Reich: Rotes Reich")
                            elseif reich==2 then
                                say_reward("Reich: Gelbes Reich")
                            elseif reich==3 then
                                say_reward("Reich: Blaues Reich")
                            end
                            ---Gilden Breich
                            if sex==0 then
                                if gilde==0 then
                                    say_reward("Gilde: keine")
                                elseif gildenleader==1 then
                                    say_reward("Leader der Gilde: "..guild.name(gilde).."")
                                else
                                    say_reward("Member der Gilde: "..guild.name(gilde).."")
                                end
                            elseif sex==1 then
                                if gilde==0 then
                                    say_reward("Gilde: keine")
                                elseif gildenleader==1 then
                                    say_reward("Leaderin der Gilde: "..guild.name(gilde).."")
                                else
                                    say_reward("Memberin der Gilde: "..guild.name(gilde).."")
                                end
                            end
                            --Hier alle mapindexe rein
                            if mapindex==1 then
                                say_reward("Standort: Rotes Reich Map 1")
                            elseif mapindex==21 then
                                say_reward("Standort: Gelbes Reich Map 1")
                            elseif mapindex==41 then
                                say_reward("Standort: Blaues Reich Map 1")
                            elseif mapindex==200 then
                                say_reward("Standort: Drachental")
                            elseif mapindex==61 then
                                say_reward("Standort: Berg Sohan")
                            elseif mapindex==66 then
                                say_reward("Standort: D�monenturm")
                            elseif mapindex==65 then
                                say_reward("Standort: Hwang-Tempel")
                            elseif mapindex==3 then
                                say_reward("Standort: Rotes Reich Map 2")
                            elseif mapindex==23 then
                                say_reward("Standort: Gelbes Reich Map 2")
                            elseif mapindex==204 then
                                say_reward("Standort: New Map Burg")
                            elseif mapindex==112 then
                                say_reward("Standort: Duell-Arena")
                            elseif mapindex==181 then
                                say_reward("Standort: Burgschlacht Schnee")
                            elseif mapindex==182 then
                                say_reward("Standort: Burgschlacht ")
                            elseif mapindex==183 then
                                say_reward("Standort: Burgschlacht W�ste")
                            elseif mapindex==63 then
                                say_reward("Standort: Yongbi-W�ste")
                            elseif mapindex==67 then
                                say_reward("Standort: Lungsam")
                            elseif mapindex==24 then
                                say_reward("Standort: Gelbes Reich Gildenzone")
                            elseif mapindex==44 then
                                say_reward("Standort: Blaues Reich Gildenzone")
                            elseif mapindex==4 then
                                say_reward("Standort: Rotes Reich Gildenzone")
                            elseif mapindex==107 then
                                say_reward("Standort: Affendungeon Anf�nger")
                            elseif mapindex==108 then
                                say_reward("Standort: Affendungeon Normal")
                            elseif mapindex==109 then
                                say_reward("Standort: Affendungeon Experten")
                            elseif mapindex==5 then
                                say_reward("Standort: Affendungeon Anf�nger")
                            elseif mapindex==25 then
                                say_reward("Standort: Affendungeon Anf�nger")
                            elseif mapindex==45 then
                                say_reward("Standort: Affendungeon Anf�nger")
                            elseif mapindex==62 then
                                say_reward("Standort: Flammenland")
                            elseif mapindex==77 then
                                say_reward("Standort: Feuerland")
                            elseif mapindex==70 then
                                say_reward("Standort: Tal der Riesen")
                            elseif mapindex==113 then
                            say_reward("Standort: OX Event")
                            elseif mapindex==72 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==73 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==184 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==186 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==188 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==185 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==187 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==189 then
                                say_reward("Standort: Grotte der Verbannung")
                            elseif mapindex==104 then
                                say_reward("Standort: Spinnendungeon Ebene1")
                            elseif mapindex==71 then
                                say_reward("Standort: Spinnendungeon Ebene2")
                            elseif mapindex==103 then
                                say_reward("Standort: Reichsduell")
                            elseif mapindex==105 then
                                say_reward("Standort: Winterland")
                            elseif mapindex==110 then
                                say_reward("Standort: Gildenkrieg")
                            elseif mapindex==111 then
                                say_reward("Standort: Gildenkrieg")
                            elseif mapindex==205 then
                                say_reward("Standort: Neue Stadt")
                            elseif mapindex==68 then
                                say_reward("Standort: Lungson")
                            elseif mapindex==203 then
                                say_reward("Standort: Neues Dorf")
                            elseif mapindex==69 then
                                say_reward("Standort: Schlangenfeld")
                            elseif mapindex==81 then
                                say_reward("Standort: Hochzeit")
                            elseif mapindex==64 then
                                say_reward("Standort: Orktal")
                            end
                            ---Hier den Status eintragen
                            if status==0 then
                                say_reward("Status: Offline")
                            elseif status==1 then
                                say_reward("Status: Online")
                            end
                            ---Wie lange man schon gespielt hat
                            say_reward("Spielzeit in Minuten: "..time.."")
                            ---Yang anzeigen ja oder nein
                            if geldanzeige==0 then
                                say_reward("Yang: "..geld.."")
                            elseif geldanzeige==1 then
                                say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
                            else
                                say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
                            end
                            ---User Bewertung
                            if sex==0 then
                                say_reward("Spieler m�gen ihn: "..bewertungpro.."")
                                say_reward("Spieler hassen ihn: "..bewertungcontra.."")
                            elseif sex==1 then
                                say_reward("Spieler m�gen sie: "..bewertungpro.."")
                                say_reward("Spieler hassen sie: "..bewertungcontra.."")
                            end
                            ---Zuverl�ssigkeit Punkte
                            say_reward("Zuverl�ssigkeits Punkte: "..handel.."")
                            ---Verwarnungspunkte
                            say_reward("Verwarnungs Punkte: "..meldung.."")
                            ---Was ausgegeben wir wenn waffe und R�stung nicht ausger�stet ist
                            if waffe==0 and r�stung==0 then
                                say_reward("Waffe: Keine Ausger�stet")
                                say_reward("R�stung: Keine Ausger�stet")
                            else
                                ---Auswahl men� wen eine Waffe oder eine R�stung oder beides Ausger�stet ist
                                local s = select("Ausr�stung", "Schlie�en")
                                if s==1 then
                                    ---Wenn man den ersten button dr�ckt! hier wird auch die gr�e de fenstern ge�ndert! breite ist standert nur h�he um 20 verschoben
                                    if waffe==0 or r�stung==0 then
                                        say("[WINDOW_SIZE width;350|height;260]")
                                    else
                                        say("[WINDOW_SIZE width;350|height;370]")
                                    end
                                    if waffe==0 then
                                        say_reward("Waffe: Keine Ausger�stet")
                                    else
                                        say_reward("                                              Waffe")
                                        say_item_vnum(waffe)
                                    end
                                    if r�stung==0 then
                                        say_reward("R�stung: Keine Ausger�stet")
                                    else
                                        say_reward("                                             R�stung")
                                        say_item_vnum(r�stung)
                                    end
                                end
                            end
                        ---Fehlermeldung wenn der char Level 0 ist also nicht existiert!
                        elseif level==0 then
                            say("Der gesuchte Charakter "..name.."")
                            say("Existiert nicht oder war noch nie eingelogt!")
                        ---Fehlermeldung wenn der Char unter Level 20 ist
                        elseif level<levelmin then
                            say("Der gesuchte Charakter: "..name.."")
                            say("Ist noch nicht Level "..levelmin.."")
                        ---Fehlerabfang mann sol den Fehler einem admin melden
                        else
                            say("Fehler 001")
                            say("Name des gesuchten Charakters ist: "..name.."")
                            say("Mele den Fehler bitte sofort einem Admin!")
                            say("Sag ihm auch welchen Charaktername du eingeben hast")
                        end
                    elseif m==2 then
                        say_reward("Userpanel->Mitspieler->M�gen/Hassen")
                        say("Gib den Namen des Users ein den")
                        say("Du magst/hasst:")
                        local eigname=pc.get_name() 
                        local name=input()
                        local level=""..name.."level"
                        local level=game.get_event_flag(level)
                        local status=""..name.."status"
                        local status=game.get_event_flag(status)
                        local reich=""..name.."reich"
                        local reich=game.get_event_flag(reich)
                        local savename=""..name.."punkte"
                        local bewertungpro=""..name.."bewertungpro"
                        local bewertungcontra=""..name.."bewertungcontra"
                        local search = find_pc_by_name(name) 
                        local bewertungpronow=game.get_event_flag(bewertungpro)+1
                        local bewertungcontranow=game.get_event_flag(bewertungcontra)+1
                        if search==0 then
                            say("Du suche nach dem Charakter: "..name.."")
                            say("ergab kein Ergebnis!")
                            say(""..name.." ist offline oder existiert nicht!")
                            say("Versuche es erneut !")
                        elseif pc.getqf(savename)==1 then
                            say("Sie haben den User: "..name.."")
                            say("Schon einmal bewertet")
                            say("Sie k�nnen ihr nich nocheinmal bewerten")
                        elseif level<20 then
                            say("Der User: "..name.."")
                            say("ist noch unter Level 20!")
                            say("Sie k�nnen ihn erst ab Level 20 bewerten")
                        elseif name==eigname then
                            say("Sie k�nnen sich nicht selbst bewerten!")
                        elseif pc.getqf(savename)==0 then
                            say("Sie wollen disen User bewerten:")
                            say_reward("Name: "..name.."")
                            say_reward("Level: "..level.."")
                            if reich==1 then
                                say_reward("Reich: Rotes Reich")
                            elseif reich==2 then
                                say_reward("Reich: Gelbes Reich")                            
                            elseif reich==3 then
                                say_reward("Reich: Blaues Reich")
                            end
                            say("M�gen sie den Spieler oder hassen sie ihn:")
                            local s = select("Ich mag ihn", "Ich hasse ihn", "Abbrechen")
                            if s==1 then
                                pc.setqf(savename, 1)
                                game.set_event_flag(bewertungpro, game.get_event_flag(bewertungpro)+1)
                                say("Sie haben dem User: "..name.."")
                                say("Einen Ich mag ihn Punkt gegeben!")
                                say("Er hat jetzt "..bewertungpronow.." Gute Bewertungen")
                            elseif s==2 then
                                pc.setqf(savename, 1)
                                game.set_event_flag(bewertungcontra, game.get_event_flag(bewertungcontra)+1)
                                say("Sie haben dem User: "..name.."")
                                say("Einen Ich hasse ihn Punkt gegeben!")
                                say("Er hat jetzt "..bewertungcontranow.." Schlechte Bewertungen")
                            else
                                say("Dann eben nicht!")
                            end
                        end    
                    elseif m==3 then
                        say_reward("Userpanel->Mitspieler->Zuverl�sigkeit")
                        say("Wenn du mit einem Handel zufrienden warst")
                        say("und dem User einen Zuverl�ssigkeit Punkte")
                        say("geben willst kannst du das hier machen")
                        say("Gebe den Namen des Users hier ein")
                        local eigname=pc.get_name() 
                        local name=input()
                        local level=""..name.."level"
                        local level=game.get_event_flag(level)
                        local status=""..name.."status"
                        local status=game.get_event_flag(status)
                        local reich=""..name.."reich"
                        local reich=game.get_event_flag(reich)
                        local savename=""..name.."handelpunkt"
                        local handel=""..name.."handel"
                        local handelnow=game.get_event_flag(handel)+1
                        local search = find_pc_by_name(name) 
                        if search==0 then
                            say("Du suche nach dem Charakter: "..name.."")
                            say("ergab kein Ergebnis! Versuche es erneut !")
                        elseif pc.getqf(savename)==1 then
                            say("Sie haben den den User: "..name.."")
                            say("schon einmal einen Punkt gegeben!")
                            say("Das k�nnen Sie nicht zwei mal")
                        elseif level<20 then
                            say("Der User: "..name.."")
                            say("ist noch unter Level 20!")
                            say("Sie k�nnen ihn erst ab Level 20 bepunkten")
                        elseif name==eigname then
                            say("Sie k�nnen sich nicht selbst bepunkten!")
                        elseif pc.getqf(savename)==0 then
                            say("Sie wollen disen User einen Punkt geben:")
                            say_reward("Name: "..name.."")
                            say_reward("Level: "..level.."")
                            if reich==1 then
                                say_reward("Reich: Rotes Reich")
                            elseif reich==2 then
                                say_reward("Reich: Gelbes Reich")
                            elseif reich==3 then
                                say_reward("Reich: Blaues Reich")                        
                            end
                            say("Sind sie sicher das es dier User war?")
                            say("Wenn ja dann klicken sie auf ja um")
                            say("ihm ein punkt zu geben!")
                            local s = select("Ja", "Abbrechen")
                            if s==1 then
                                pc.setqf(savename, 1)
                                game.set_event_flag(handel, game.get_event_flag(handel)+1)
                                say("Sie haben dem User: "..name.."")
                                say("Einen Zuverl�ssigkeit Punktet gegebn")
                                say("Er hat jetzt "..handelnow.." Punkte")
                            else
                                say("Dann eben nicht!")
                            end
                        end
                    end
                elseif a==2 then
                    say_reward("Userpannel->Einstellungen")
                    local s = select("Yanganzeige", "Abbrechen")
                    ---Yanganzeige
                    if s==1 then
                        say_reward("Userpannel->Einstellungen->Yanganzeige")
                        local name=pc.get_name() 
                        local geldanzeige=""..name.."geldanzeige"
                        local geldanzeige=game.get_event_flag(geldanzeige)
                        if geldanzeige==0 then
                            say_reward("Die Geldanzeige ist momentan angeschalten")
                        elseif geldanzeige==1 then
                            say_reward("Die Geldanzeige ist momentan abgeschalten")
                        end
                        local y = select("Anschalten", "Abschalten")
                        if y==1 then
                            local geldanzeige=""..name.."geldanzeige"
                            say("Yanganzeige eingeschalten")
                            game.set_event_flag(geldanzeige, 0)
                        elseif y==2 then
                            local geldanzeige=""..name.."geldanzeige"
                            say("Yanganzeige abgeschalten")
                            game.set_event_flag(geldanzeige, 1)
                        else
                            ---eigentlich un�tig^^
                            say("Fehler im Userverpannel CODE 0001")
                            say("Einem Admin bitte melden")
                        end
                    end
                end
            end
        end
        when login begin
            timer("update1", 2)
        end
        when update1.timer begin
            local name=pc.get_name()
            local nlevel=""..name.."level"
            local wlevel=pc.level
            local nmapindex=""..name.."mapindex"
            local wmapindex=pc.get_map_index()
            local nstatus=""..name.."status"
            local nreich=""..name.."reich"
            local wreich=pc.get_empire()
            local ngeld=""..name.."geld"
            local wgeld=pc.get_money()
            local ngilde=""..name.."gilde"
            local wgilde=pc.get_guild()
            local ngildenleader=""..name.."gildenleader"
            local wgildenleader=1
            local nr�stung=""..name.."r�stung"
            local wr�stung=pc.getarmor()
            local nwaffe=""..name.."waffe"
            local wwaffe=pc.getweapon()
            local nexp=""..name.."exp"
            local wexp=pc.get_next_exp()
            local nrang=""..name.."rang"
            local wrang=pc.get_alignment()
            local ntime=""..name.."time"
            local wtime=pc.getplaytime()
            local job=pc.get_job()
            local skill=pc.get_skill_group()
            local nskill=""..name.."skill"
            local nsex=""..name.."sex"
            local wsex=pc.get_sex()
            local nhorse=""..name.."horse"
            local whorse=pc.get_horse_level()
            game.set_event_flag(nstatus, 1)
            game.set_event_flag(nlevel, wlevel)
            game.set_event_flag(nmapindex, wmapindex)
            game.set_event_flag(nreich, wreich)
            game.set_event_flag(ngeld, wgeld)
            game.set_event_flag(ngilde, wgilde)
            game.set_event_flag(nr�stung, wr�stung)
            game.set_event_flag(nwaffe, wwaffe)
            game.set_event_flag(nexp, wexp)
            game.set_event_flag(nrang, wrang)
            game.set_event_flag(ntime, wtime)
            game.set_event_flag(nsex, wsex)
            game.set_event_flag(nhorse, whorse)
            if pc.is_guild_master() then
                game.set_event_flag(ngildenleader, wgildenleader) 
            end
            if job==0 and skill==1 then
                game.set_event_flag(nskill, 1)
            elseif job==0 and skill==2 then
                game.set_event_flag(nskill, 2)
            elseif job==1 and skill==1 then
                game.set_event_flag(nskill, 3)
            elseif job==1 and skill==2 then
                game.set_event_flag(nskill, 4)
            elseif job==2 and skill==1 then
                game.set_event_flag(nskill, 5)
            elseif job==2 and skill==2 then
                game.set_event_flag(nskill, 6)
            elseif job==3 and skill==1 then
                game.set_event_flag(nskill, 7)
            elseif job==3 and skill==2 then
                game.set_event_flag(nskill, 8)
            end
            timer("update2", 60)
        end
        when update2.timer begin
            timer("update1", 60)
        end
        when logout or shutdown or disconnect begin
            local name=pc.get_name()
            local nstatus=""..name.."status"
            local nmapindex=""..name.."mapindex"
            local wmapindex=pc.get_map_index()
            game.set_event_flag(nstatus, 0)
            game.set_event_flag(nmapindex, wmapindex)
        end
    end
end

Zu CHaCKi™:
Die Gold-Quest sollte gehen, naja ich hab sie nochmal �berarbeitet:

Spoiler

Regenbogenstein-Quest:

Spoiler

Ungetestet, aber ich fand die alte einfach schrecklich >.<

Falls ich eine Quest �bersehen habe, sry^^

Mfg, Destroyer446

Page 318 of 845