[SERVICE] Die Questkontrolle

Page 397 of 845 « First 297347387395396 397 398399407447497 Last »
06/05/2012 10:38 MetinLegende#5941
@darkness
PHP Code:
quest gm_support_panel begin
    state start begin
        when login begin
            set_state(information)
        end
    end
    state information begin
        when letter with pc.is_gm() begin 
            send_letter("Support Panel") 
        end
        when button or info begin
        local s = select("Support anmelden", "Support abmelden", "Support AFK", "Abbrechen")
        if s == 1 then
            command("n ".. pc.get_name() .." ist nun Online.")
            command("n ".. pc.get_name() .." meldet sicht am Support an")
            command("n Ihr könnt ihn nun bei Fragen oder Problemen kontaktieren.")
        end
        if s == 2 then
            command("n ".. pc.get_name() .." meldet sich vom Support ab")
            command("n ".. pc.get_name() .." geht nun Offline")
            command("n Er wünscht euch noch Viel Spaß auf DarkNessWorld2.")
        end
        if s == 3 then
            command("n ".. pc.get_name() .." geht nun AFK.")
            command("n ".. pc.get_name() .." meldet sicht am Support vorerst ab")
            command("n Er Meldet sich wenn er wieder da ist.")
        end
        if s == 4 then
            return
        end
    end
end 
du hattest glaube ich ein end vergessen weis aber nicht ob das wirklich der Fehler ist
06/05/2012 13:15 .BeKiiR##5942
Ich hab da mal eine Quest geschrieben, da mein "Wolf-Siegel" irgendwie nicht Funkt. allerdings funkt. die Quest auch nicht...


PHP Code:
quest Wolf begin
    state start begin
        when 71116.use begin  
            affect.remove_collect()
            pc.mount(20111,900)
            pc.remove_item(71120, 1)
           end
    end
end 

Desselbe Problem hab ich beim Wandelzauber...

PHP Code:
quest item_change_sex begin
    state start begin
        when 71048.use begin 
            if pc.get_level() < 50 then 
                say_title("Umwandlungsrolle")
                say_reward("Du musst Level 50 sein!")
                return;
            end
            
            if pc.is_engaged() then
                say_title("Umwandlungsrolle")
                say_reward("Du kannst dein Geschlecht nicht wechseln")
                return;
            end

            if pc.is_married() then
                say_title("Umwandlungsrolle")
                say_reward("Du musst dich scheiden um dein Geschlecht zu wechseln!")
                return;
            end

            if pc.is_polymorphed() then
                say_title("Umwandlungsrolle")
                say_reward("Du kannst dein Geschlecht nicht wechseln, wenn du verwandelt bist!")
                say("")
                return;
            end

            if get_time() < pc.getqf("next_time") then
                say_title("Umwandlungsrolle")
                say_reward("Du musst noch warten,")
                say_reward("bis du das nächste mal dein Geschlecht wechseln kannst!")
                say("")    
                return;
            end
            say_title("Umwandlungsrolle")
            say("Du willst dein Geschlecht wechseln?")
            say("")
            local s=select("Ja","Nö")
            if 1==s then
                say("Bist du dir GANZ sicher?")
                say("")
                local s2=select("Ja","Nö")
                if 1==s2 then
                say("Ok ich werde dein Geschlecht wechseln...")
                say_reward("Relog damit die Änderung aktiv wird")
                say("")
                pc.remove_item(71048,1)
                pc.setqf("next_time", get_time() + 86400 * 3)
                pc.change_sex()
                local m_sex = pc.get_sex()
                if m_sex == 0 then
                    char_log(0, "CHANGE_SEX", "F -> M")
                else
                    char_log(0, "CHANGE_SEX", "M -> F")
                end
            end
            elseif 2==s then
                say("Dann halt nicht")
            end
        end
    end
end 
06/05/2012 13:54 Sp0ngeb0b ist cool#5943
@[ST]Hydra: Habe die Quest bereits verbessert..schau mal meinen letzten Beitrag an ;)
06/05/2012 17:47 DarkNessWorld2#5944
Quote:
Originally Posted by .BeKiiR# View Post
Ich hab da mal eine Quest geschrieben, da mein "Wolf-Siegel" irgendwie nicht Funkt. allerdings funkt. die Quest auch nicht...


PHP Code:
quest Wolf begin
    state start begin
        when 71116.use begin  
            affect.remove_collect()
            pc.mount(20111,900)
            pc.remove_item(71120, 1)
           end
    end
end 
PHP Code:
quest Wolf begin
    state start begin
        when 71116.use begin
            pc.mount(20111,900)
            pc.remove_item(71116, 1)
           end
    end
end 
jetz müsste sie gehen


MFG DarkNessWorld2
06/05/2012 20:21 tяuє Ðevin#5945
PHP Code:
quest bedrohung1 begin
    state start begin
        when login with pc.level >= 50 begin
            set_state(information)
        end
    end

    state information begin
        when letter begin
            send_letter("Die dunkle Bedrohung")
        end

        when info or button begin
            say("Die Monster der Umliegenden Regionen machen es uns immer schwerer,")
            say("hier in Ruhe zu leben. Am schlimmsten ist es derzeit im Orktal!")
            say("Sollte ihr Anführer, der Oberork gestürzt werden, werden sie sich vieleicht zurückziehen!")
            say_reward("Gehe in die das Orktal  und töte 5x den Oberork!")
            say_reward("Beachte das er sehr selten ist!")
            say("")
            pc.setqf("state", 5)
            q.set_counter("Oberork", 5)
        end

        when 691.kill begin
            local count = pc.getqf("state") - 1
            if count <= 5 then
                pc.setqf("state", count)
                q.set_counter("Eishexe", count)
            end
                if count == 4 then
                say("Okay, du weist nun immerhin wie es funktioniert!")
                say("Töte nun die restliche Anzahl der Oberorks.")
                elseif count == 0 then
                say_title("Alle Oberorks getötet!")
                say("Glückwunsch, du hast alle Oberorks getötet!")
                say("Die Monster werden uns ab jetzt hoffentlich in Ruhe lassen.")
                say("Als Zeichen unserer Dankbarkeit möchten wir dir unsere Schätze überlassen:")
                say_reward("5x Weiße Perle")
                say_reward("5x Blaue Perle")
                say_reward("5x Blutrote perle")
                say_reward("5x Mondlichtschatztruhe")
                say_reward("75.000.000 Yang")
                say("")
                say("")
                say_reward("15% Schaden gegen Monster")
                say_reward("5 INT, STR, DEX und VIT")
                pc.give_item2(27992, 5)
                pc.give_item2(27993, 5)
                pc.give_item2(27994, 5)
                pc.give_item2(50011, 5)
                pc.change_money(75000000)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER,15,60*60*24*365*60) -----¡V60¦~
                affect.add_collect(apply.INT,5,60*60*24*365*60)
                affect.add_collect(apply.STR,5,60*60*24*365*60)
                affect.add_collect(apply.VIT,10,60*60*24*365*60)
                affect.add_collect(apply.DEX,10,60*60*24*365*60)
                clear_letter()
                set_state(__COMPLETE__)

            end
        end
    end

    state __COMPLETE__ begin
    end
end 
nach einem Mapwechsel oder relog setzt sich der status auf 0, wie kann man es beheben?
06/05/2012 20:41 BlackBynes#5946
Guten Abend zusammen

ich bin gerade am verzweifel meiner Quest. Sie funktioniert alles außer das die regen.txt nicht laden will. Hoffe es kann mir jemand weiter helfen. Die Quest spielt sich voll und ganz auf dem gm_guild_build map ab und hat den index 200 (fals relevant). Ich danke euch schon mal für die hilfe.
Gruß Blacky

PHP Code:
quest quest_2 begin
    state start begin
    end
    
    state run begin
        when login or levelup or enter with pc.get_level() >= 1 begin
            set_state(Wache)
        end
    end
    
    state Wache begin
        when letter begin
            send_letter("Erste Aufgabe")
        end
        
        when button or info begin
            say_rot("A & A-Team:")
            say_grau("Such den ".. mob_name(20354) .." auf,")
            say("er gibt dir weitere Aufgaben.")
            say("")
            local a = find_npc_by_vnum(20354)
            if a != 0 then
                target.vid("__TARGET1__", a, "Stadtwächter")
            end
        end
        
        when __TARGET1__.target.click or
            20354.chat."Erste Aufgabe" begin
            target.delete("__TARGET1__")
            say_gelb("".. mob_name(20354) ..":")
            say_grau("Sehr schön du hast den Weg hier her gefunden.")
            say("Ich werde dich nun ein wenig Trainieren,")
            say("damit du draußen eine Chance hast.")
            say("Fangen wir an. Deine Erste Aufgabe besteht")
            say("darin einige Wildhunde und Wölfe zu töten")
            say("bis du für deine Lehre bereit bist.")
            say("Bist du bereit?")
            say("")
            say_blau(""..pc.get_name()..":")
            local b=select("Kann los gehen", "Ich hab was vergessen", "Ich will zurück")
            if 1==b then
                say_gelb(""..mob_name(20354)..":")
                say_grau("Gut, deine erste Aufgabe besteht darin")
                say("genügend Erfahrung zu sammeln bist du für")
                say("deine Ausbildung bereit bist.")
                say("")
                if pc.getempire() == 1 then
                    d.set_regen_file("data/dungeon/guild_rot_1_regen.txt")
                elseif pc.getempire() == 2 then
                    d.set_regen_file("data/dungeon/guild_gelb_1_regen.txt")
                elseif pc.getempire() == 3 then
                    d.set_regen_file("data/dungeon/guild_blau_1_regen.txt")
                end
            elseif 2==b then
                say_gelb(""..mob_name(20354)..":")
                say_grau("Ok, aber beeile dich und")
                say("sprech mich wieder an, sobald es los")
                say("gehen kann.")
                say("")
            elseif 3==b then
                say_gelb(""..mob_name(20354)..":")
                say_grau("Ohhh...")
                say("Bedenke wenn du zurück gehst hast du keine")
                say("Möglichkeit mehr hier her zurück zu kommen.")
                say("Bist du dir also sicher?")
                say_blau(""..pc.get_name()..":")
                local c=select("Ja, ich will zurück", "Nein, ich bleib hier")
                if 1==c then
                    if pc.getempire() == 1 then
                        pc.warp(469300, 964200)
                    elseif pc.getempire() == 2 then
                        pc.warp(55700, 157900)
                    elseif pc.getempire() == 3 then
                        pc.warp(969600, 278400)
                    end
                clear_letter()
                set_state(__COMPLETE__)
                elseif 2==c then
                    say_gelb(""..mob_name(20354)..":")
                    say_grau("Ok, aber beeile dich und")
                    say("sprech mich wieder an, sobald es los")
                    say("gehen kann.")
                    say("")
                end
            end
        clear_letter()
        end
    end
    state __COMPLETE__ begin
    end
end 
06/06/2012 18:20 ©by Noa#5947
PHP Code:
quest gm_support_panel begin
    state start begin
        when login begin
            set_state(information)
        end
    end
    state information begin
        when letter with pc.is_gm() begin 
            send_letter("Support Panel") 
        end
        when button or info begin
        local s = select("Support anmelden", "Support abmelden", "Support AFK", "Abbrechen")
        if s == 1 then
            command("n ".. pc.get_name() .." ist nun Online.")
            command("n ".. pc.get_name() .." meldet sicht am Support an")
            command("n Ihr könnt ihn nun bei Fragen oder Problemen kontaktieren.")
        end
        if s == 2 then
            command("n ".. pc.get_name() .." meldet sich vom Support ab")
            command("n ".. pc.get_name() .." geht nun Offline")
            command("n Er wünscht euch noch Viel Spaß auf DarkNessWorld2.")
        end
        if s == 3 then
            command("n ".. pc.get_name() .." geht nun AFK.")
            command("n ".. pc.get_name() .." meldet sicht am Support vorerst ab")
            command("n Er Meldet sich wenn er wieder da ist.")
        end
        if s == 4 then
            return
        end
        end
    end
end 
bei when button hat noch ein end gefehlt
06/06/2012 19:33 skurto#5948
Code:
quest Achievement_Shop begin
    state start begin        
        --LOGIN
        when login begin
            local actual_achievement_points = pc.getqf("achievement_points")
            if pc.getqf("firstlogin") != 1 then
                local Reward = 1
                pc.setqf("firstlogin", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement První přihlášení%".. actual_achievement_points + Reward .."")
            else
                cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
            end
        end
    
        --BOSSE
        when 691.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_oberork", pc.getqf("achievement_oberork")+1)
			pc.setqf("achievementp_oberork", pc.getqf("achievementp_oberork")+3)
            local Reward = 3
            local Achievement = "Vrchního orka"
            local killcount = pc.getqf("691")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("691", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 791.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_anfuehrer", pc.getqf("achievement_anfuehrer")+1)
			pc.setqf("achievementp_anfuehrer", pc.getqf("achievementp_anfuehrer")+1)
            local Reward = 1
            local Achievement = "Tmavého vůdce"
            local killcount = pc.getqf("791")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("791", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 792.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_ganfuehrer", pc.getqf("achievement_ganfuehrer")+1)
			pc.setqf("achievement_ganfuehrerp", pc.getqf("achievementp_ganfuehrer")+1)
            local Reward = 1
            local Achievement = "Tmavého vůdce duchů "
            local killcount = pc.getqf("792")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("792", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 1094.kill begin
            local Reward = 1
            local Achievement = "Hnusného krále démonů "
            local killcount = pc.getqf("1094")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("1094", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 1095.kill begin
            local Reward = 1
            local Achievement = "Modrou smrt"
            local killcount = pc.getqf("1095")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("1095", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 1192.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_großeeishexe", pc.getqf("achievement_großeeishexe")+1)
			pc.setqf("achievementp_großeeishexe", pc.getqf("achievementp_großeeishexe")+5)
            local Reward = 5
            local Achievement = "Velkou ledovou čarodejnici"
            local killcount = pc.getqf("1192")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("1192", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
		when 2291.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_roterdrache", pc.getqf("achievement_roterdrache")+1)
			pc.setqf("achievementp_roterdrache", pc.getqf("achievementp_roterdrache")+5)
            local Reward = 5
            local Achievement = "Červeného draka"
            local killcount = pc.getqf("2291")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("2291", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 1304.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_tigergeist", pc.getqf("achievement_tigergeist")+1)
			pc.setqf("achievementp_tigergeist", pc.getqf("achievementp_tigergeist")+3)
            local Reward = 3
            local Achievement = "Žlutého ducha tygra"
            local killcount = pc.getqf("1304")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("1304", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 1901.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_neunschwanz", pc.getqf("achievement_neunschwanz")+1)
			pc.setqf("achievementp_neunschwanz", pc.getqf("achievementp_neunschwanz")+3)
            local Reward = 3
            local Achievement = "Devítiocase"
            local killcount = pc.getqf("1901")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("1901", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 2091.kill begin		
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_kingspider", pc.getqf("achievement_kingspider")+1)
			pc.setqf("achievementp_kingspider", pc.getqf("achievementp_kingspider")+1)		
            local Reward = 1
            local Achievement = "Královnu pavouků "
            local killcount = pc.getqf("2091")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("2091", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 2191.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_schildkroete", pc.getqf("achievement_schildkroete")+1)
			pc.setqf("achievementp_schildkroete", pc.getqf("achievementp_schildkroete")+10)				
            local Reward = 10
            local Achievement = "Velkou pouštní želvu"
            local killcount = pc.getqf("2191")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("2191", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        
        --METINS
		when 8026.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_toyoung", pc.getqf("achievement_toyoung")+1)
			pc.setqf("achievementp_toyung", pc.getqf("achievementp_toyung")+1)						
            local Reward = 1
            local Achievement = "Kámen Tu-Young"
            local killcount = pc.getqf("8026")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("8026", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end
        when 8027.kill begin
			pc.setqf("complete_achievments", pc.getqf("complete_achievments")+1)
			pc.setqf("achievement_jeonun", pc.getqf("achievement_jeonun")+1)
			pc.setqf("achievementp_jeonun", pc.getqf("achievementp_jeonun")+1)	
            local Reward = 1
            local Achievement = "Kámen Jeon-Un"
            local killcount = pc.getqf("8027")
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("8027", killcount + 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)
            cmdchat("achievement ".. Achievement .."_#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")
        end

        --LEVELS
        when login or levelup with pc.get_level() >= 50 and pc.getqf("Level50") != 1 begin
            local Reward = 1
            local Achievement = "Level 50"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level50", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 75 and pc.getqf("Level75") != 1 begin
            local Reward = 2
            local Achievement = "Level 75"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level75", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 85 and pc.getqf("Level85") != 1 begin
            local Reward = 3
            local Achievement = "Level 85"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level85", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 90 and pc.getqf("Level90") != 1 begin
            local Reward = 4
            local Achievement = "Level 90"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level90", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 95 and pc.getqf("Level95") != 1 begin
            local Reward = 5
            local Achievement = "Level 95"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level95", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 100 and pc.getqf("Level100") != 1 begin
            local Reward = 6
            local Achievement = "Level 100"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level100", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 110 and pc.getqf("Level110") != 1 begin
            local Reward = 7
            local Achievement = "Level 110"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level110", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 120 and pc.getqf("Level120") != 1 begin
            local Reward = 8
            local Achievement = "Level 120"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level120", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 130 and pc.getqf("Level130") != 1 begin
            local Reward = 9
            local Achievement = "Level 130"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level130", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 140 and pc.getqf("Level140") != 1 begin
            local Reward = 10
            local Achievement = "Level 140"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level140", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        when login or levelup with pc.get_level() >= 150 and pc.getqf("Level150") != 1 begin
            local Reward = 11
            local Achievement = "Level 150"
            local actual_achievement_points = pc.getqf("achievement_points")
            pc.setqf("Level150", 1)
            pc.setqf("achievement_points", actual_achievement_points + Reward)            
            cmdchat("achievement ".. Achievement .."_%".. actual_achievement_points + Reward .."")
        end
        
        --CHECK EQUIP
        when login begin
            loop_timer("check_eq", 10)
        end
        when check_eq.timer begin
            local russi = pc.get_armor()
            local waffe = pc.get_weapon()
            local actual_achievement_points = pc.getqf("achievement_points")
            local Reward = 2
            if russi==11299 and pc.getqf("achievement_ssp") != 1 then
                pc.setqf("achievement_ssp", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Brnění z černé oceli+9%".. actual_achievement_points + Reward .."")
            elseif russi==11499 and pc.getqf("achievement_swa") != 1 then
                pc.setqf("achievement_swa", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Oblek černého větru+9%".. actual_achievement_points + Reward .."")
            elseif russi==11699 and pc.getqf("achievement_mpp") != 1 then
                pc.setqf("achievement_mpp", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Magické pancéřové brnění+9%".. actual_achievement_points + Reward .."")
            elseif russi==11899 and pc.getqf("achievement_sk") != 1 then
                pc.setqf("achievement_sk", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Černé oblečení+9%".. actual_achievement_points + Reward .."")
            elseif waffe==189 and pc.getqf("achievement_gifti") != 1 then
                pc.setqf("achievement_gifti", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Jedovatý meč+9%".. actual_achievement_points + Reward .."")
            elseif waffe==199 and pc.getqf("achievement_lowenschw.") != 1 then
                pc.setqf("achievement_lowenschw.", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Lví meč+9%".. actual_achievement_points + Reward .."")
            elseif waffe==5129 and pc.getqf("achievement_orchiglocke") != 1 then
                pc.setqf("achievement_orchiglocke", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Zvon orchidejí+9%".. actual_achievement_points + Reward .."")
            elseif waffe==2179 and pc.getqf("achievement_krahenstahl") != 1 then
                pc.setqf("achievement_krahenstahl", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Ocelový luk vran+9%".. actual_achievement_points + Reward .."")
            elseif waffe==1139 and pc.getqf("achievement_teufelsflugenchak") != 1 then
                pc.setqf("achievement_teufelsflugenchak", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Chakram křídla ďábla+9%".. actual_achievement_points + Reward .."")
            elseif waffe==3169 and pc.getqf("achievement_Grolli") != 1 then
                pc.setqf("achievement_Grolli", 1)
                pc.setqf("achievement_points", actual_achievement_points + Reward)
                cmdchat("achievement Meč zášti+9%".. actual_achievement_points + Reward .."")
            end
        end
		when 9010.chat."Legionářské body" with game.get_event_flag("achievmentsystem") == 0 begin
			say_title("Legionářka")
			say("")
			say_reward("Co chceš udělat?")
			say("")
			local ap_uebersicht_alle = select("LB - počet","Statistika LB","Odeslat LB/ztratit","Vyměnit LB","Skončit")
			if ap_uebersicht_alle==1 then		
				say_title("Mönch")
				say("")
				say_reward("Nyní máš na kontě: "..pc.getqf("achievement_points").." LB!")
				say("")
			elseif ap_uebersicht_alle==2 then		 
				say_title("Legionářka")
				say("Celkově si nasbíral "..pc.getqf("complete_achievments").." LB!")
				say_reward("Zvol kategorii:")
				say("")
				local achievment_einsehen1 = select("Zabití Bossové ","Rozbité kameny","Dosažené levely","Body za předměty","Zrušit")
				if achievment_einsehen1 == 1 then	
					say_size(256, 512)
					say_title("Zabití Bossové:")
					say("Jméno / Kolik / LB")
					say("")
					say_reward("Vrchní ork / "..pc.getqf("achievement_oberork").." / "..pc.getqf("achievementp_oberork").."")
					say_reward("Tmavý vůdce / "..pc.getqf("achievement_anfuehrer").." / "..pc.getqf("achievementp_anfuehrer").."")
					say_reward("Tmavý vůdce duchů / "..pc.getqf("achievement_ganfuehrer").." / "..pc.getqf("achievementp_ganfuehrer").."")
					say_reward("Žlutý duch tygra / "..pc.getqf("achievement_tigergeist").." / "..pc.getqf("achievementp_tigergeist").."")
					say_reward("Devítiocas / "..pc.getqf("achievement_neunschwanz").." / "..pc.getqf("achievementp_neunschwanz").."")

					say_reward("Královna pavouků / "..pc.getqf("achievement_kingspider").." / "..pc.getqf("achievementp_kingspider").."")
					say_reward("Velká pouštní želva / "..pc.getqf("achievement_schildkroete").." / "..pc.getqf("achievementp_schildkroete").."")

					say_reward("Červený drak / "..pc.getqf("achievement_roterdrache").." / "..pc.getqf("achievementp_roterdrache").."")
					say_reward("Velká ledová čarodejnice / "..pc.getqf("achievement_großeeishexe").." / "..pc.getqf("achievementp_großeeishexe").."")
					say_reward("Charon / "..pc.getqf("achievement_charon").." / "..pc.getqf("achievementp_charon").."")
					say_reward("Azrael / "..pc.getqf("achievement_azrael").." / "..pc.getqf("achievementp_azrael").."")
					say_reward("")
				end
			end
				if achievment_einsehen1 == 2 then	
					say_title("Rozbité kameny:")
					say("Jméno / Kolik / LB celkem")
					say("")
					say_reward("Kámen Tu-Young / "..pc.getqf("achievement_toyoung").." / "..pc.getqf("achievementp_toyoung").."")
					say_reward("Kámen Jeon-Un / "..pc.getqf("achievement_jeonun").." / "..pc.getqf("achievementp_jeonun").."")
					say_reward("")
				end					
				if achievment_einsehen1 == 3 then	
					say_size(256, 512)
					say_title("Dosažené úrovně:")
					say("")
					if pc.get_level() > 49 then
						say_green("Úroveň 50: dosažena!")
					else
						say_red("Úroveň 50: dosažena!")
					end
					if pc.get_level() > 74 then
						say_green("Úroveň 75: dosažena!")
					else
						say_red("Úroveň 75: dosažena!")
					end					
					if pc.get_level() > 84 then
						say_green("Úroveň 85: dosažena!")
					else
						say_red("Úroveň 85: dosažena!")
					end
					if pc.get_level() > 89 then
						say_green("Úroveň 90: dosažena!")
					else
						say_red("Úroveň 90: dosažena!")
					end
					if pc.get_level() > 94 then
						say_green("Úroveň 95: dosažena!")
					else
						say_red("Úroveň 95: dosažena!")
					end
					if pc.get_level() > 99 then
						say_green("Úroveň 100: dosažena!")
					else
						say_red("Úroveň 100: dosažena!")
					end
					if pc.get_level() > 109 then
						say_green("Úroveň 110: dosažena!")
					else
						say_red("Úroveň 110: dosažena!")
					end
					if pc.get_level() > 119 then
						say_green("Úroveň 120: dosažena!")
					else
						say_red("Úroveň 120: dosažena!")
					end
				end						
				if achievment_einsehen1 == 4 then	
					say_size(256, 512)
					say_title("Body za předměty:")
					say("")
					if pc.getqf("achievement_ssp") == 1 then
						say_green("Brnění z černé oceli+9")
					else
						say_red("Brnění z černé oceli+9")
					end					
					if pc.getqf("achievement_swa") == 1 then
						say_green("Oblek černého větru+9")
					else
						say_red("Oblek černého větru+9")
					end						
					if pc.getqf("achievement_mpp") == 1 then
						say_green("Magické pancéřové brnění+9")
					else
						say_red("Magické pancéřové brnění+9")
					end						
					if pc.getqf("achievement_sk") == 1 then
						say_green("Černé oblečení+9")
					else
						say_red("Černé oblečení+9")
					end						
					if pc.getqf("achievement_gifti") == 1 then
						say_green("Jedovatý meč+9")
					else
						say_red("Jedovatý meč+9")
					end						
					if pc.getqf("achievement_lowenschw.") == 1 then
						say_green("Lví meč+9")
					else
						say_red("Lví meč+9")
					end						
					if pc.getqf("achievement_orchiglocke") == 1 then
						say_green("Zvon orchidejí+9")
					else
						say_red("Zvon orchidejí+9")
					end						
					if pc.getqf("achievement_krahenstahl") == 1 then
						say_green("Ocelový luk vran+9")
					else
						say_red("Ocelový luk vran+9")
					end						
					if pc.getqf("achievement_teufelsflugenchak") == 1 then
						say_green("Chakram křídla ďábla+9")
					else
						say_red("Chakram křídla ďábla+9")
					end	
					if pc.getqf("achievement_grolli") == 1 then
						say_green("Meč zášti+9")
					else
						say_red("Meč zášti+9")
					end	
				end				
			elseif ap_uebersicht_alle==3 then		 
				say_title("Legionářka")
				say("Momentálně máš: "..pc.getqf("achievement_points").." LB")
				say("")
				say_reward("Co chceš udělat?")
				say("")
				local send_achievement = select("Odeslat","Vyměnit","Konec")
				if send_achievement == 3 then
					return			
				elseif send_achievement == 1 then
					if pc.is_gm() then
						say_red("Jako GM nesmíš rozesílat LB!")
					else					
						say_title("Legionářka")
						say("Za odeílání zaplatíš poplatek!")
						say_reward("Wieviele willst du verschicken?")
						local send_achievement2 = select("10LB = 1.000.000 Yangů ","20LB = 2.000.000 Yangů ","30LB = 3.000.000 Yangů ","40LB = 4.000.000 Yangů ","50LB = 5.000.000 Yangů ","Konec")
						if send_achievement2 == 6 then
							return	
						elseif send_achievement2 == 1 then
							if pc.getqf("achievement_points") < 10 or pc.gold < 1000000 then
								say_title("Legionářka")
								say("")
								say_reward("Máš buď málo LB nebo")
								say_reward("příliš málo Yangů!")
								say("")
							elseif pc.getqf("achievement_points") > 9 and pc.gold > 999999 then
								say_title("Legionářka")
								say("")
								say_reward("Komu chceš poslat 10LB?")
								say("")
								local name=input()
								local search = find_pc_by_name(name) 
								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.."meldung"
								if search==0 then
									say("Hledáš hráče: "..name.."")
									say("Žádný výsledek!")
									say(""..name.." je off-line nebo neexistuje!")
									say("Ujisti se, zda je opravdu on-line!")
									say("")
									say("Když to opravdu nepůjde, kontaktuj")
									say("člena týmu...")
									say("")
								elseif level<1 then
									say("Hráč: "..name.."")
									say("je ještě level 1!")
									say("Nesmíš nic posílat levelu 1")
								elseif name==eigname then
									say("Nemůžeš poslat body sám sobě!")
								elseif pc.getqf(savename)==0 then
									say("Chceš tomuto hráči poslat 10LB?")
									say_reward("Jméno: "..name.."")
									say_reward("Level: "..level.."")
									if reich==1 then
										say_reward("Říše: Červená říše")
									elseif reich==2 then
										say_reward("Říše: Žlutá říše")
									elseif reich==3 then
										say_reward("Říše: Modrá říše")
									end
									say("Je to správný hráč?")
									say("Klikni na další pro")
									say("odeslání LB!")
									local s = select("Další ", "Konec")
									if s==1 then
										pc.change_gold(-1000000)
										say_title("Legionářka")
										say("LB úspěšně odeslány!")
										say("")
										game.set_event_flag((""..name.."ap_send"), game.get_event_flag(""..name.."ap_send") + 10)
										pc.setqf("achievement_points", pc.getqf("achievement_points") - 10)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
									else
										say_red("Teď nemůžeš posílat...")
									end
								end
							end
						elseif send_achievement2 == 2 then
							if pc.getqf("achievement_points") < 20 or pc.gold < 2000000 then
								say_title("Legionářka")
								say("")
								say_reward("Máš buď málo LB nebo")
								say_reward("příliš málo Yangů!")
								say("")
							elseif pc.getqf("achievement_points") > 19 and pc.gold > 1999999 then
								say_title("Legionářka")
								say("")
								say_reward("Komu chceš poslat 20LB?")
								say("")
								local name=input()
								local search = find_pc_by_name(name) 
								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.."meldung"
								if search==0 then
									say("Hledáš hráče: "..name.."")
									say("Žádný výsledek!")
									say(""..name.." je off-line nebo neexistuje!")
									say("Ujisti se, zda je opravdu on-line!")
								elseif level<10 then
									say("Hráč: "..name.."")
									say("je ještě menší level jak 10!")
									say("Nesmíš mu posílat LB již v levelu 10")
								elseif name==eigname then
									say("Nemůžeš poslat mince sám sobě!")
								elseif pc.getqf(savename)==0 then
									say("Chceš tomuto hráči poslat 20LB?")
									say_reward("Jméno: "..name.."")
									say_reward("Level: "..level.."")
									if reich==1 then
										say_reward("Říše: Červená říše")
									elseif reich==2 then
										say_reward("Říše: Žlutá říše")
									elseif reich==3 then
										say_reward("Říše: Modrá říše")
									end
									say("Je to správný hráč?")
									say("Klikni na další pro")
									say("odeslání LB!")
									local s = select("Další ", "Konec")
									if s==1 then
										pc.change_gold(-2000000)
										say_title("Legionářka")
										say("LB úspěšně odeslány!")
										say("")
										game.set_event_flag((""..name.."ap_send"), game.get_event_flag(""..name.."ap_send") + 20)
										pc.setqf("achievement_points", pc.getqf("achievement_points") - 20)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
									else
										say_red("Teď nemůžeš posílat...")
									end
								end
							end			
						elseif send_achievement2 == 3 then
							if pc.getqf("achievement_points") < 30 or pc.gold < 3000000 then
								say_title("Legionářka")
								say("")
								say_reward("Buď máš málo LB nebo")
								say_reward("máš příliš málo Yangů!")
								say("")
							elseif pc.getqf("achievement_points") > 29 and pc.gold > 2999999 then
								say_title("Legionářka")
								say("")
								say_reward("Komu cheš poslat 30LB?")
								say("")
								local name=input()
								local search = find_pc_by_name(name) 
								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.."meldung"
								if search==0 then
									say("Hledáš hráče: "..name.."")
									say("Žádná odpověď!")
									say(""..name.." je off-line nebo neexistuje!")
									say("Podívej se, zda je opravdu on-line!")
								elseif level<10 then
									say("Hráč: "..name.."")
									say("je ještě menší level než 10!")
									say("Nesmíš mu posílat LB již v levelu 10")
								elseif name==eigname then
									say("Nemůžeš poslat LB sám sobě!")
								elseif pc.getqf(savename)==0 then
									say("Chceš tomuto hráči poslat LB?")
									say_reward("Jméno: "..name.."")
									say_reward("Level: "..level.."")
									if reich==1 then
										say_reward("Říše: Červená říše")
									elseif reich==2 then
										say_reward("Říše: Žlutá říše")
									elseif reich==3 then
										say_reward("Říše: Modrá říše")
									end
									say("Je to správný hráč?")
									say("Klikni na další pro")
									say("odeslání LB!")
									local s = select("Další ", "Zrušit")
									if s==1 then
										pc.change_gold(-3000000)
										say_title("Legionářka")
										say("LB úspěšně odeslány!")
										say("")
										game.set_event_flag((""..name.."ap_send"), game.get_event_flag(""..name.."ap_send") + 30)
										pc.setqf("achievement_points", pc.getqf("achievement_points") - 30)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
									else
										say_red("Nyní nemůžeš posílat...")
									end
								end
							end			
						elseif send_achievement2 == 4 then
							if pc.getqf("achievement_points") < 40 or pc.gold < 4000000 then
								say_title("Legionářka")
								say("")
								say_reward("Buď máš málo LB nebo")
								say_reward("máš příliš málo Yangů!")
								say("")
							elseif pc.getqf("achievement_points") > 39 and pc.gold > 3999999 then
								say_title("Legionářka")
								say("")
								say_reward("Komu chceš poslat 40LB?")
								say("")
								local name=input()
								local search = find_pc_by_name(name) 
								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.."meldung"
								if search==0 then
									say("Hledáš hráče: "..name.."")
									say("Žádná odpověď!")
									say(""..name.." je off-line nebo neexistuje!")
									say("Podívej se, zda je opravdu on-line!")
								elseif level<10 then
									say("Hráč: "..name.."")
									say("je ještě menší level než 10!")
									say("Nemůžeš mu posílat LB již v levelu 10")
								elseif name==eigname then
									say("Nemůžeš poslat LB sám sobě!")
								elseif pc.getqf(savename)==0 then
									say("Chceš tomuto hráči poslat 40LB?")
									say_reward("Jméno: "..name.."")
									say_reward("Level: "..level.."")
									if reich==1 then
										say_reward("Říše: Červená říše")
									elseif reich==2 then
										say_reward("Říše: Žlutá říše")
									elseif reich==3 then
										say_reward("Říše: Modrá říše")
									end
									say("Je to správný hráč?")
									say("Klikni na další pro")
									say("odeslání LB!")
									local s = select("Další ", "Konec")
									if s==1 then
										pc.change_gold(-4000000)
										say_title("Legionářka")
										say("LB úspěšně odeslány!")
										say("")
										game.set_event_flag((""..name.."ap_send"), game.get_event_flag(""..name.."ap_send") + 40)
										pc.setqf("achievement_points", pc.getqf("achievement_points") - 40)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
									else
										say_red("Nyní nemůžeš posílat...")
									end
								end
							end			
						elseif send_achievement2 == 5 then
							if pc.getqf("achievement_points") < 50 or pc.gold < 5000000 then
								say_title("Legionářka")
								say("")
								say_reward("Buď máš málo LB nebo")
								say_reward("máš příliš málo Yangů!")
								say("")
							elseif pc.getqf("achievement_points") > 49 and pc.gold > 4999999 then
								say_title("Legionářka")
								say("")
								say_reward("Komu chceš poslat 50LB?")
								say("")
								local name=input()
								local search = find_pc_by_name(name) 
								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.."meldung"
								if search==0 then
									say("Hledáš hráče: "..name.."")
									say("Žádná odpověď!")
									say(""..name.." je off-line nebo neexistuje!")
									say("Podívej se, zda je opravdu on-line!")
								elseif level<10 then
									say("Hráč: "..name.."")
									say("je ještě menší level než 10!")
									say("NEmůžeš mu posílat LB již v levelu 10")
								elseif name==eigname then
									say("Nemůžeš poslat LB sám sobě!")
								elseif pc.getqf(savename)==0 then
									say("Chceš tomuto hráči poslat 50LB?")
									say_reward("Jméno: "..name.."")
									say_reward("Level: "..level.."")
									if reich==1 then
										say_reward("Říše: Červená říše")
									elseif reich==2 then
										say_reward("Říše: Žlutá  říše")
									elseif reich==3 then
										say_reward("Říše: Modrá říše")
									end
									say("Je to správný hráč?")
									say("Klikni na další pro")
									say("odeslání LB!")
									local s = select("Další ", "Konec")
									if s==1 then
										pc.change_gold(-5000000)
										say_title("Legionářka")
										say("LB úspěšně odeslány!")
										say("")
										game.set_event_flag((""..name.."ap_send"), game.get_event_flag(""..name.."ap_send") + 50)
										pc.setqf("achievement_points", pc.getqf("achievement_points") - 50)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
									else
										say_red("Nyní nemůžeš posílat...")
									end
								end
							end			
						end
					end
				elseif send_achievement == 2 then
					say_title("Legionářka")
					say("Přišlo ti "..game.get_event_flag(""..pc.get_name().."ap_send").." LB!")
					say("")
					say_reward("Chceš všechny přijmout?")	
					local eintasuchen_ap = select("Ano", "Ne")
					if eintasuchen_ap==1 then
						pc.setqf("achievement_points", pc.getqf("achievement_points") + game.get_event_flag(""..pc.get_name().."ap_send"))			
						game.set_event_flag(""..pc.get_name().."ap_send",0)			
						cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
						say_title("Legionářka")
						say("")
						say_green("Nyní máš "..pc.getqf("achievement_points").." LB!")
						say("")
					else
						return
					end
				end
			elseif ap_uebersicht_alle==4 then				
				local actual_achievement_points = pc.getqf("achievement_points")
				if actual_achievement_points <= 0 then
					say_title("".. mob_name(9010) ..":")
					say("")
					say("Ahoj ".. pc.get_name() ..",")
					say("")
					say("Zde můžeš své nasbírané LB")
					say("Vyměnit za skvělé věci, které chceš.")
					say("Ale nyní bohužel nemáš žádné LB,")
					say("takže nemůžeš vyměňovat.")
					say("")
					say("")
					say("")
					say_reward("Přijď až budeš mít LB")
				else
					say_title("".. mob_name(9010) ..":")
					say("")
					say("Ahoj ".. pc.get_name() ..",")
					say("")
					say("Vidím, že si nasbíral/a "..pc.getqf("achievement_points").." LB.")
					say("Chceš je vyměnit za nějaké předměty?")
					say("Mám skvělé předměty, ")
					say("které by se ti mohly líbit.")
					local achievement = select("Vyměnit","Konec")
					if achievement == 2 then
						return
					elseif achievement == 1 then
						say_title("".. mob_name(9010) ..":")
						say("")
						say("Zvol si prosím kategorii.")
						local selectcategory = select("Vylepšovací předměty","Pomocné předměty","Bonusy","Cenné předměty","Opustit obchod")
						if selectcategory == 5 then
							return
						elseif selectcategory == 1 then
							say_size(350, 380)
							say_title("".. mob_name(9010) ..":")
							say("")
							say("Chceš vylepšovací předměty?")
							say("Mám od každého nespočetně.")
							local uppitems = select("Bílá perla","Modrá perla","Krvavě rudá perla","Příručka zbraní ","Příručka brnění ","Příručka náhrdelníků ","Další...","Opustit obchod")
							if uppitems == 8 then
								return
							elseif uppitems == 1 then
								local Price = 50
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš koupit Bílou perlu?")
								say("Mohl bys ji potřebovat pro zlepšní předmětů.")
								say("")
								say("")
								say("")
								say_reward("Bude tě stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš příliš málo LB.")
										say("Přijď zpět, až nasbíráš ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím, tvá Bílá perla.")
										say("LB jistě stály za tuto perlu.")
										say("Dobře s ní nalož.")
										say("")
										say("")
										say("")
										say_item_vnum(27992)
										say_reward("Obdržel si Bílou perlu")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(27992, 1)
									end
								end
							elseif uppitems == 2 then
								local Price = 100
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš koupit Modrou perlu?")
								say("Mohl/a by si ji potřebovat k vylepšování předmětů.")
								say("")
								say("")
								say("")
								say_reward("Bude tě stát ".. Price .." LB.")
								local buyselection = select("Koupit","Zrušit")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Přijď zpět, až nasbíráš ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím, tvá Modrá perla.")
										say("LB jistě stály za tuto perlu.")
										say("Dobře s ní nalož.")
										say_item_vnum(27993)
										say("")
										say("")
										say("")
										say_reward("Obdržel si Modrou perlu")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(27993, 1)
									end
								end
							elseif uppitems == 3 then
								local Price = 150
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš koupit Krvavě rudou perlu?")
								say("Mohl/a by si ji potřebovat pro vylepšování předmětů.")
								say("")
								say("")
								say("")
								say_reward("Bude tě stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Vrať se, až nasbíráš ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím, tvá Krvavě rudá perla.")
										say("LB jistě stály za tuto perlu.")
										say("Dobře s ní nalož.")
										say("")
										say("")
										say("")
										say_item_vnum(27994)
										say_reward("Obdržel si Krvavě rudou perlu")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(27994, 1)
									end
								end
							elseif uppitems == 4 then
								local Price = 20
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš koupit 10x Příručku zbraní?")
								say("Mohl/a by si ji potřebovat pro vylepšování předmětů.")
								say("")
								say("")
								say("")
								say_reward("Bude tě stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím, tvé Příručky zbraní.")
										say("Dobře s nimi nalož.")
										say_item_vnum(71150)
										say_reward("Obdržel si 10x Příručku zbraní ")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(71150, 10)
									end
								end
							elseif uppitems == 5 then
								local Price = 20
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš koupit 10x Příručku brnění?")
								say("Mohl/a by si ji potřebovat pro vylepšení předmětů.")
								say("")
								say("")
								say("")
								say_reward("Bude tě stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Přijď zpět, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím, tvé Příručky brnění.")
										say("Dobře s nimi nalož.")
										say_item_vnum(71151)
										say_reward("Obdržel si 10x Příručku brnění ")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(71151, 10)
									end
								end
							elseif uppitems == 6 then
								local Price = 20
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš koupit 10x Příručku náhrdelníků?")
								say("Mohl/a by si je potřebovat pro vylepšování předmětů.")
								say("")
								say("")
								say("")
								say_reward("Bude tě to stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Přijď zpět, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prsím, tvé Příručky náhrdelníků.")
										say("Dobře s nimi nalož.")
										say_item_vnum(71152)
										say_reward("Obdržel si 10x Příručku náhrdelníků ")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(71152, 10)
									end
								end
							elseif uppitems == 7 then
								say_size(350, 380)
								say_reward("Co chceš koupit?")
								local uppitems_zweite_seite = select("Příručku náramků ","Příručku náušnic","Příručku helem","Příručku štítů ","Příručky bot","Opusit obchod")
								if uppitems_zweite_seite == 6 then
									return
								elseif uppitems_zweite_seite == 1 then
									local Price = 20
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit 10x Příručku náramků?")
									say("Mohl/a by si je potřebovat pro vylepšování předmětů.")
									say("")
									say("")
									say("")
									say_reward("Budou tě stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Bohužel máš příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prsím, tvé Příručky náramků.")
											say("Dobře s nimi nalož.")
											say_item_vnum(71153)
											say_reward("Obdržel si 10x Příručku náramků ")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(71153, 10)
										end
									end					
								elseif uppitems_zweite_seite == 2 then
									local Price = 20
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit 10x Příručku náušnic?")
									say("Mohl/a by si ji potřebovat pro vylepšování předmětů ")
									say("")
									say("")
									say("")
									say_reward("Budou tě stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvé Příručky náušnic.")
											say("Dobře s nimi nalož.")
											say_item_vnum(71154)
											say_reward("Obdržel si 10x Příručku náušnic")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(71154, 10)
										end
									end						
								elseif uppitems_zweite_seite == 3 then
									local Price = 20
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit 10x Příručku helem?")
									say("Mohl/a by si ji potřebovat pro vylepšování předmětů.")
									say("")
									say("")
									say("")
									say_reward("Budou tě stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvé Příručky helem.")
											say("Dobře s nimi nalož.")
											say_item_vnum(71155)
											say_reward("Obdržel si 10x Příručku helem")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(71155, 10)
										end
									end
								elseif uppitems_zweite_seite == 4 then
									local Price = 20
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit 10x Příručku štítů?")
									say("Mohl/a by si ji potřebovat pro vylepšování předmětů.")
									say("")
									say("")
									say("")
									say_reward("Budou tě stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvé Příručky štítů.")
											say("Dobře s nimi nalož.")
											say_item_vnum(71156)
											say_reward("Obdržel si 10x Příručku štítů ")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(71156, 10)
										end
									end	
								elseif uppitems_zweite_seite == 5 then
									local Price = 20
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit 10x Příručku bot?")
									say("Mohl/a by si ji potřebovat pro vylepšování předmětů.")
									say("")
									say("")
									say("")
									say_reward("Budou tě stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvé Příručky bot.")
											say("Dobře s nimi nalož.")
											say_item_vnum(71157)
											say_reward("Obdržel si 10x Příručku bot")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(71157, 10)
										end
									end
								end
							end
						elseif selectcategory == 2 then
							say_title("".. mob_name(9010) ..":")
							say("")
							say("Potřebuješ předměty, které by si mohl/a")
							say("využít pro snazší hraní?")
							say("Tyto jsou tu jen pro tebe")
							local hilfsitems = select("Prsten zkušeností ","Zlodějské rukavice","Kniha náčelníka","Opustit obchod")
							if hilfsitems == 4 then
								return
							elseif hilfsitems == 1 then
								say_title("".. mob_name(20011) ..":")
								say("")
								say("Dobrá volba, s tímto prstenem jistě budeš ")
								say("rychleji získávat zkušenosti.")
								local expringe = select("Prsten zkušeností ","Konec")
								if expringe == 2 then
									return
								elseif expringe == 1 then
									local Price = 75
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Tento prsten je na 1 hodinu.")
									say("Můžeš ho kdykoliv nasadit,")
									say("ale poté je již nemůžeš sundat.")
									say("")
									say("")
									say("")
									say_reward("Prsten tě bude stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvůj Prsten zkušeností.")
											say("Dobře s ním nalož.")
											say_item_vnum(70005)
											say_reward("Obdržel si Prsten zkušeností.")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(70005, 1)
										end
							elseif hilfsitems == 2 then
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Dobrá volba, s těmito rukavicemi budeš ")
								say("jistě rychleji získávat předměty.")
								local handschuhe = select("Zlodějské rukavice","Konec")
								if handschuhe == 2 then
									return
								elseif handschuhe == 1 then
									local Price = 75
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Tyto rukavice jsou na 2 hodiny.")
									say("Můžeš je kdykoliv nasadit,")
									say("ale potom je již nemůžeš sundat.")
									say("")
									say("")
									say("")
									say_reward("Rukavice tě budou stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("VraŤ se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvé Zlodějské rukavice.")
											say("Dobře s nimi nalož.")
											say_item_vnum(70043)
											say_reward("Obdržel si Zlodějské rukavice")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(70043, 1)
										end
							elseif hilfsitems == 3 then
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Expení ve skupině může být zábava.")
								say("Ale proč si jej ještě nezpříjemnit?")
								say("Kniha náčelníka zvyšuje obdržování ")
								say("zkušeností, když jseš ve skupině.")
								local bucher = select("Kniha náčelníka","Konec")
								if bucher == 2 then
									return
								elseif bucher == 1 then
									local Price = 50
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Tato Kniha náčelníka je na 2 hodiny")
									say("a zvyšuje počet zkušeností získaných")
									say("skupinou o 30%...")
									say("")
									say("")
									say("")
									say_reward("Kniha tě bude stát ".. Price .." LB.")
									local buyselection = select("Kniha náčelníka","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvá Kniha náčelníka.")
											say("Dobře s ní nalož.")
											say_item_vnum(70003)
											say_reward("Obdržel si Knihu náčelníka")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(70003, 1)
										end
									end
								end
							end

						elseif selectcategory == 3 then
							say_title("".. mob_name(9010) ..":")
							say("")
							say("Rád/a utrácíš LB ")
							say("za měniče bonusů?")
							say("Tento obchod je tu jen")
							say("a jen pro tebe.")
							local bonusitems = select("Začarovat předmět 10x","Požehnaná věc 5x","Opustit obchod")
							if bonusitems == 3 then
								return
							elseif bonusitems == 1 then
								local Price = 100
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Začarovat předmět ti umožní změnu")
								say("základních bonusů ve tvých předmětech.")
								say("")
								say("")
								say("")
								say_reward("Bude tě to stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím, tvé Začarovat předmět.")
										say("Přeji ti hodně štěstí,")
										say("až se rozhodneš bonusy změnit.")
										say("")
										say("")
										say_item_vnum(71084)
										say_reward("Obdržel si 10x Začarovat předmět")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(71084, 10)
									end
								end
                   
							elseif bonusitems == 2 then
								local Price = 100
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Požehnaná věc ti umožní změnu")
								say("tvého 6. a 7. bonusu.")
								say("Při změně je potřeba mnoho štěstí.")
								say("")
								say("")
								say("")
								say_reward("Bude tě to stát ".. Price .." LB.")
								local buyselection = select("Koupit","Konec")
								if buyselection == 2 then
									return
								elseif buyselection == 1 then
									if pc.getqf("achievement_points") < Price then
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Máš bohužel příliš málo LB.")
										say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
										say("LB")
										say("")
										say("")
										say("")
										say_reward("Sbírej ještě LB pro tento předmět")
										return    
									else
										say_title("".. mob_name(9010) ..":")
										say("")
										say("Zde prosím tvá Požehnaná věc.")
										say("Přeji ti hodně štěstí,")
										say("až se rozhodneš bonusy změnit.")
										say("")
										say_item_vnum(71052)
										say_reward("Obdržel si 5x Požehnanou věc")
										pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
										cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
										pc.give_item2(71052, 5)
									end
								end
							end
						end

						elseif selectcategory == 4 then
							say_title("".. mob_name(9010) ..":")
							say("")
							say("Vyber kategorii.")
							local selectcategory32 = select("Vzácné předměty","Opustit obchod")
							if selectcategory32 == 2 then
								return
							elseif selectcategory32 == 1 then
								say_size(350, 380)
								say_title("".. mob_name(9010) ..":")
								say("")
								say("Chceš nějaké užitěčné předměty?")
								say("Mám tady velkou spoustau takových věcí.")
								local wichtige = select("Vysušená hlava","Kroucený klíč 3x","Opustit obchod")
								if wichtige == 3 then
									return
								elseif wichtige == 1 then
									local Price = 100
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit Vysušenou hlavu?")
									say("Ta je potřeba do 3.patra Ďáblovy katakomby!")
									say("")
									say_item_vnum(30320)
									say("")
									say_reward("Jedna tě bude stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvá Vysušená hlava.")
											say("Dobře s ní nalož.")
											say("")
											say("")
											say("")
											say_item_vnum(30320)
											say_reward("Obdržel si Vysušnou hlavu")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(30320, 1)
										end
									end

								elseif wichtige == 2 then
									local Price = 100
									say_title("".. mob_name(9010) ..":")
									say("")
									say("Chceš koupit 3x Kroucený klíč?")
									say("S tímto klíčem ti bude umožněno vstoupit")
									say("do Dračí sluje..")
									say_item_vnum(30179)
									say("")
									say_reward("Budou tě stát ".. Price .." LB.")
									local buyselection = select("Koupit","Konec")
									if buyselection == 2 then
										return
									elseif buyselection == 1 then
										if pc.getqf("achievement_points") < Price then
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Máš bohužel příliš málo LB.")
											say("Vrať se, až budeš mít ".. Price - pc.getqf("achievement_points") .."")
											say("LB")
											say("")
											say("")
											say("")
											say_reward("Sbírej ještě LB pro tento předmět")
											return    
										else
											say_title("".. mob_name(9010) ..":")
											say("")
											say("Zde prosím, tvé Kroucené klíče.")
											say("Dobře s nimi nalož.")
											say("")
											say("")
											say("")
											say_item_vnum(30179)
											say_reward("Obdržel si 3x Kroucený klíč.")
											pc.setqf("achievement_points", pc.getqf("achievement_points") - Price)
											cmdchat("achievementpoints ".. pc.getqf("achievement_points"))
											pc.give_item2(30179, 3)
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end	
end
Can someone help me with the achievement quest?
There's the mistake:
syntax error : [string "startgame . get_event_flag ( "achievmentsystem" ) == 0"]:144: <eof> expected near `elseif'
legionarske_body.quest:1619:Chyba pri kompilaci legionarske_body.quest
Thanks for your HELP! :-)
06/06/2012 20:27 Azemi6#5949
Hallo leute ich hab eine quest bei der nichts passiert wenn ich das item anklicke

06/06/2012 22:39 ©by Noa#5950
macht man nicht return()? oder bin ich wieder in visual basic? zudem muss auch das item einem bestimmten type haben & ist da nicht ein end zu viel? unter den" say("Dann halt nicht")"
06/07/2012 01:08 Grand09#5951
PHP Code:
quest drache begin
    state start begin
        when 20090.chat."Beran-Setaou Seelenstein" with pc.get_level() >= 85 begin
            say("Hallo lieber: "..pc.get_name().."")
            say("Bei dieser neuartigen Quest kannst du den Seelenstein")
            say("von Beran-Setaou tauschen.")
            say("")
            say("Hilfst du mir?")
            say("")
            local a = select("Ja", "Nein")
            if a == 2 then
                say("Oke dann überleg es dir lieber bevor ich es abbreche!")
            elseif a == 1 and pc.countitem(30228) < 1 then
                say("Du hast kein Beran-Setaou Seelenstein!")
                say("Bringe mit den Seelenstein bevor du die Quest anfängst.")
                say_item_vnum(30228)
                say("")
            else
                if pc.countitem(30228) >= 1 then
                say("Wie ich sehe besitzt du ein Seelenstein von den Beran-Setaou.")
                say("Jetzt fehlt nur noch das du mir 100 Wattebäuschen von den Unterwelt Monstern in der Grotte1")
                say("farmen tust.")
                say("Machst du?")
            local b = select("Ja", "Nein")
            if b == 2 then
                say("Du hast kein Plan -.-")
            elseif b == 1 then
                say("Oke dann farme mir mal ein paar Wattebäuschen")
            set_state(watte)
            end

            state watte begin
                when 1131.kill or 1132.kill or 1133.kill or 1134.kill or 1135.kill or 1136.kill or 1137.kill begin
                    local s = number(25, 1000)
                    if s <= 20 then
                        pc.give_item2(30163)
                        end
                    when pc.get_item(30163) >= 100 then
                        chat("Du hast 100 Wattebausche gehe nun zu Heuk-Young und tausche es gegen einen Bonus um!")
                    end
                when 20090.chat."Der Seelenstein" with pc.countitem(30163) >= 100 begin
                    say("Wie ich sehe hast du die 100 Wattebäusche")
                    say("hier ist deine Belohnung!")
                        pc.give_item2(77815, 2)
                        pc.give_item2(77814, 2)
                        pc.give_item2(77817, 2)
                    else
                        say("Du hast noch keine 100 Wattebäusche gehe weiter farmen!")
                    end
                end
            end
        end 
schon wieder qc in malloc() error -.-
06/07/2012 04:13 ©by Noa#5952
PHP Code:
quest drache begin
    state start begin
        when 20090.chat."Beran-Setaou Seelenstein" with pc.get_level() >= 85 begin
            say("Hallo lieber: "..pc.get_name().."")
            say("Bei dieser neuartigen Quest kannst du den Seelenstein")
            say("von Beran-Setaou tauschen.")
            say("")
            say("Hilfst du mir?")
            say("")
            local a = select("Ja", "Nein")
            if a == 2 then
                say("Oke dann überleg es dir lieber bevor ich es abbreche!")
            elseif a == 1 and pc.countitem(30228) < 1 then
                say("Du hast kein Beran-Setaou Seelenstein!")
                say("Bringe mit den Seelenstein bevor du die Quest anfängst.")
                say_item_vnum(30228)
                say("")
            else
                if pc.countitem(30228) >= 1 then
                say("Wie ich sehe besitzt du ein Seelenstein von den Beran-Setaou.")
                say("Jetzt fehlt nur noch das du mir 100 Wattebäuschen von den Unterwelt Monstern in der Grotte1")
                say("farmen tust.")
                say("Machst du?")
            local b = select("Ja", "Nein")
            if b == 2 then
                say("Du hast kein Plan -.-")
            elseif b == 1 then
                say("Oke dann farme mir mal ein paar Wattebäuschen")
            set_state(watte)
            end

            state watte begin
                when 1131.kill or 1132.kill or 1133.kill or 1134.kill or 1135.kill or 1136.kill or 1137.kill begin
                    local s = number(25, 1000)
                    if s <= 20 then
                        pc.give_item2(30163)
                    end
                    when pc.get_item(30163) >= 100 then
                        chat("Du hast 100 Wattebausche gehe nun zu Heuk-Young und tausche es gegen einen Bonus um!")
                    end
                when 20090.chat."Der Seelenstein" with pc.countitem(30163) >= 100 begin
                    say("Wie ich sehe hast du die 100 Wattebäusche")
                    say("hier ist deine Belohnung!")
                        pc.give_item2(77815, 2)
                        pc.give_item2(77814, 2)
                        pc.give_item2(77817, 2)
                    else
                        say("Du hast noch keine 100 Wattebäusche gehe weiter farmen!")
                end
                end
            end
            end
        end
    end
end 
Versuchs mal so &wenn du dir nicht sicher bist kontolliere die end´s das schaut ein wenig seltsam aus
06/07/2012 08:34 [SA]Sibba / Christian#5953
PHP Code:
quest drache begin
    state start begin
        when 20090.chat."Beran-Setaou Seelenstein" with pc.get_level() >= 85 begin
            say("Hallo lieber: "..pc.get_name().."")
            say("Bei dieser neuartigen Quest kannst du den Seelenstein")
            say("von Beran-Setaou tauschen.")
            say("")
            say("Hilfst du mir?")
            say("")
            local a = select("Ja", "Nein")
            if a == 2 then
                say("Oke dann überleg es dir lieber bevor ich es abbreche!")
            elseif a == 1 and pc.countitem(30228) < 1 then
                say("Du hast kein Beran-Setaou Seelenstein!")
                say("Bringe mit den Seelenstein bevor du die Quest anfängst.")
                say_item_vnum(30228)
                say("")
            else
                if pc.countitem(30228) >= 1 then
                say("Wie ich sehe besitzt du ein Seelenstein von den Beran-Setaou.")
                say("Jetzt fehlt nur noch das du mir 100 Wattebäuschen von den Unterwelt Monstern in der Grotte1")
                say("farmen tust.")
                say("Machst du?")
            local b = select("Ja", "Nein")
            if b == 2 then
                say("Du hast kein Plan -.-")
            elseif b == 1 then
                say("Oke dann farme mir mal ein paar Wattebäuschen")
            set_state(watte)
            end

            state watte begin
                when 1131.kill or 1132.kill or 1133.kill or 1134.kill or 1135.kill or 1136.kill or 1137.kill begin
                    local s = number(25, 1000)
                    if s <= 20 then
                        pc.give_item2(30163)
                    end
                    when pc.get_item(30163) >= 100 then
                        chat("Du hast 100 Wattebausche gehe nun zu Heuk-Young und tausche es gegen einen Bonus um!")
                    end
                when 20090.chat."Der Seelenstein" with pc.countitem(30163) >= 100 begin
                    say("Wie ich sehe hast du die 100 Wattebäusche")
                    say("hier ist deine Belohnung!")
                        pc.give_item2(77815, 2)
                        pc.give_item2(77814, 2)
                        pc.give_item2(77817, 2)
                    else
                        say("Du hast noch keine 100 Wattebäusche gehe weiter farmen!")
                    end
                end
            
            end
        end
    end
end 
Mach mal so


€ : Quest mal genauer angeschaut..... ich schreib sie nacher vl. neu^^
06/07/2012 11:36 ©by Noa#5954
die quest kann so nicht passen, schau dir ab hier if a == 2 then die end´s a die drunter kommen müssen.
06/07/2012 12:59 metin2sozluk#5955
Hey guys, I need your advise about my new quest. I'm planning to write a quest part which sends other empires to their villages.

It should work like this.

PHP Code:
when 101.kill with pc.get_map_index()== INDEX begin
notice_all("Jinno lost their dog.") 
--- and I want to send all Jinno players to their village.


Thanks :handsdown:
Page 397 of 845 « First 297347387395396 397 398399407447497 Last »