[SERVICE] Die Questkontrolle

Page 542 of 845 « First 42442492532540541 542 543544552592642 Last »
05/21/2013 19:24 FCPorto15#8116
Gutten Tag, kann mir bitte eine ihr mit diesse 3 Quest's helfen ?

1° Quest
PHP Code:
quest drop_ovo_milenar begin
    state start begin
        when 8001.kill or 8002.kill or 8003.kill or 8004.kill or 8005.kill or 8006.kill or 8007.kill or 8008.kill or 8009.kill or 8010.kill or 8011.kill or 8012.kill with game.get_event_flag("ovo_milenar_event") >0 begin
            if pc.level >= 1 and pc.level <= 60 then
                local s = number(1, 100)
                if s <= 25 then
                    chat("Dropou Ovo Milenar")
                        pc.give_item2(71150, 1)
                end
            end
        end
        when 8013.kill or 8014.kill or 8024.kill or 8025.kill or 8026.kill or 8027.kill or 8036.kill with game.get_event_flag("ovo_milenar_event") >0 begin
            if pc.level >= 61 and pc.level <= 104 then
                local s = number(1, 100)
                if s <= 25 then
                    chat("Dropou Ovo Milenar")
                        pc.give_item2(71150, 1)
                end
            end
        end
        when 8035.kill or 8038.kill or 8034.kill or 8030.kill or 8029.kill with game.get_event_flag("ovo_milenar_event") >0 begin
            if pc.level >= 105 and pc.level <= 159 then
                local s = number(1, 100)
                if s <= 25 then
                    chat("Dropou Ovo Milenar")
                        pc.give_item2(71150, 1)
                end
            end
        end
        when 8033.kill or 8041.kill with game.get_event_flag("ovo_milenar_event") >0 begin
            if pc.level >= 160 and pc.level <= 250 then
                local s = number(1, 100)
                if s <= 25 then
                    chat("Dropou Ovo Milenar")
                        pc.give_item2(71150, 1)
                end
            end
        end
    end
end 
2° Quest
PHP Code:
quest ovo_milenar begin
    state start begin
        when 71150.use begin
        if pc.getqf("next_time") >= get_time() then
        syschat("So podes abrir o "..item_name(71150).." 30 em 30 Minutos.")
        return
        end
        local randi = number(1,38)
        local normal_item = {
            [1] = { 70005,1 }, --Anel de Experiência
            [2] = { 28730,1 }, --Pedra da Penetração+7
            [3] = { 28731,1 }, --Pedra de Golpe Mortal+7
            [4] = { 28732,1 }, --Pedra da Repetição+7
            [5] = { 28733,3 }, --Pedra Anti Guerreiro+7
            [6] = { 28734,1 }, --Pedra Anti Ninja+7
            [7] = { 28735,5 }, --Pedra Anti Sura+7
            [8] = { 28736,5 }, --Pedra Anti Shamã+7
            [9] = { 28737,1 }, --Pedra Anti Monstros+7
            [10] = { 28738,1 }, --Pedra da Evasão+7
            [11] = { 28739,1 }, --Pedra da Agilidade+7
            [12] = { 28740,1 }, --Pedra da Magia+7
            [13] = { 28741,1 }, --Pedra da Vida+7
            [14] = { 28742,1 }, --Pedra da Defesa+7
            [15] = { 28743,1 }, --Pedra da Pressa+7
            [16] = { 95101,1 }, --Ostra Escura
            [17] = { 95107,1 }, --Diamante do Inferno   
            [18] = { 95114,1 }, --Orquídea  Laranja
            [19] = { 95115,1 }, --Orquídea  Vermelha
            [20] = { 95117,1 }, --Diamante Observado
            [21] = { 70023,1 }, --Pingente dos Mortos
            [22] = { 25041,1 }, --Pedra Mágica
            [23] = { 70031,1 }, --Manual de Duelos
            [24] = { 70032,1 }, --Livro Espada Duas Mãos
            [25] = { 70033,1 }, --Livro da Espada
            [26] = { 70034,1 }, --Livro da Adaga
            [27] = { 71057,1 }, --Papiro - Madeira Fóssil
            [28] = { 71058,1 }, --Papiro - Cobre
            [29] = { 71059,1 }, --Papiro - Prata
            [30] = { 71060,1 }, --Papiro - Ouro
            [31] = { 71061,1 }, --Papiro - Jade
            [32] = { 71062,1 }, --Papiro - Ébano
            [33] = { 71063,1 }, --Papiro - Ostras
            [34] = { 71064,1 }, --Papiro - Platina
            [35] = { 71065,1 }, --Papiro - Cristal
            [36] = { 71066,1 }, --Papiro - Ametista
            [37] = { 71067,1 }, --Papiro - Safira
            [38] = { 19,1 }, --Espada
            }
            pc.give_item2(normal_item[randi][1],normal_item[randi][2])
            if not pc.is_gm() then
            pc.setqf("next_time",get_time() + 1800)
            end
            pc.setqf("open",pc.getqf("open") +1)
            syschat("So podes abrir o Ovo Milegar. (Mais ".. 5-pc.getqf("open").." vezes)")
            --pc.give_item_from_special_item_group("71150")
            if pc.getqf("open") >= 5 then
            pc.removeitem(71150,1)
            pc.setqf("open",0)
            end
        end
    end
end 
3° Quest
PHP Code:
quest ovo_milenar_manage begin
       state start begin
        when login begin 
            if game.get_event_flag("ovo_milenar_event") == 1 then
                notice("O Evento do Ovo Milenar esta activado!")
            else
                return
            end
        end
        when 20094.chat."Evento - Ovo Milenar" with pc.is_gm() begin
            if game.get_event_flag("ovo_milenar_event") == 0 then
                say("O Evento do Ovo Milenar Está Desativado")
                say("Quantas horas queres activar?")
                local t = tonumber(input()) 
                say("O Evento do Ovo Milenar foi Activado!")
                game.set_event_flag("ovo_milenar_event", 1)
                notice_all("O Evento Ovo Milenar foi Activado!")
                notice_all("Poderão dropar Ovo Milenar nas Metins,")
                notice_all("Durante 2 Horas. Divirta-se!")
                server_timer("close_cl" , 3600 * t )
            else
                say("O Evento Ovo Milenar Está Ativado")
                say("Queres Desativa-lo?")
                local s = select("Sim","Não")
                if s == 1 then
                    say("O Evento - Ovo Milenar Está Desativo!")
                    game.set_event_flag("ovo_milenar_event", 0)
                    notice_all("O Ovo Milenar foi Desativado!")
                    notice_all("Espero que todos se tenham Divertido!")
                else
                    return
                end
            end
        end
        when close_cl.server_timer begin
            game.set_event_flag("ovo_milenar_event", 0)
            notice_all("O Evento do Ovo Milenar foi Desligado.")
            notice_all("Esperemos que tenham gostado do Evento!")
        end
    end
end 
Also bei Quest 1° ist der problem wenn ich aktiviere dann dropt nichts mehr aus der Metin's Steine.
Und der Problem bei Quest 2° ist wenn Eimal trauf drüke bekomm ich denn item habe wenn ich nochmal Drüke dann komm dass man warten muss geht der server aus also der channel ist direck off

Danke ofentlich eine kann mir helfen
05/22/2013 05:24 kaufman93#8117
Hallo,
Kann sich bitte einer der sich gut mit Quest auskennt bitte bei mir melden? :/
05/22/2013 23:13 G.I Duke#8118
melde dich bei uns? :DD
05/23/2013 21:59 KampfBonn#8119
Hallo,

Habe in der Quest Probleme

Code:
quest tausch begin
    state start begin
        when 20095.chat."Kürbis Tausch" begin 
            say_title("Kürbis Tausch")
            say("")
            say("Hallo, bei mir kannst du Kürbisse")
            say("gegen Geldspeicher eintauschen!")
			say("25 Kürbisse - 5 Geldspeicher Stufe 3")
            say("50 Kürbisse - 10 Geldspeicher Stufe 3")
            say("100 Kürbisse - 20 Geldspeicher Stufe 3")
			say("")
			say("Wenn du deine Kürbisse tauschen willst,")
			say("dann wähle nun aus wie viel du besitzt!")
                wait()
            say("Was möchtest du eintauschen?")
            local v = select ("25 Stück", "50 Stück", "100 Stück", "Abbrechen")
            if v == 1 then
                if pc.count_item(50095) >= 1 then
					pc.remove_item(50095, 25)
                    pc.give_item2(81013, 5)
                    say("Solltest du wieder tauschen wollen,")
                    say("dann komm einfach vorbei!")
                    say("Tschüss viel Spaß weiterhin!")
                    say("")
                    say("")
                    say_reward("5 Geldspeicher Stufe 3 erhalten")
                else
                    return
                end                    
            elseif v == 2 then
                if pc.count_item(50095) >= 1 then
					pc.remove_item(50095, 50)
                    pc.give_item2(81013, 10)
                    say("Solltest du wieder tauschen wollen,")
                    say("dann komm einfach vorbei!")
                    say("Tschüss viel Spaß weiterhin!")
                    say("")
                    say("")
                    say_reward(10 Geldspeicher Stufe 3 erhalten")
                else
                    return
                end                    
            elseif v == 3 then
                if pc.count_item(50095) >= 1 then
					pc.remove_item(50095, 100)
                    pc.give_item2(81013, 20)
                    say("Solltest du wieder tauschen wollen,")
                    say("dann komm einfach vorbei!")
                    say("Tschüss viel Spaß weiterhin!")
                    say("")
                    say("")
                    say_reward("20 Geldspeicher Stufe 3 erhalten")
                else
                    return
                end
			elseif v == 4 then
				return
			end
		end
	end
end
when : 20095.chat ("K"uerbis Tausch")
kuerbis.quest:3:Error occured on compile kuerbis.quest

Hilfe bitte

Mit freundlichen Grüßen

KampfBonn
05/23/2013 23:03 Sizer9#8120
Hi ich ich hab vor 2 Tagen begonnen Quests zu schreiben und hab hier nen Fehler wäre nett wenn sich das mal wer anschauen könnte :)
PHP Code:
quest Schnitzeljagd_event begin
    state start begin
        when 20003.chat."Event starten" begin
            say_title("Event starten")
            say("Willst du das Event Schnitzeljagd starten?")
            local a=select("Ja","Nein")
            if a==0 then
                set_state(event)
                game.set_event_flag("erster", 0)
                game.set_event_flag("zweiter", 0)
                game.set_event_flag("dritter", 0)
            end
            if a==1 then
                return
            end
        end
     end
    state event begin
        when 9010.chat."Ich brauche den Schlüssel!" begin
            if pc.get_count(50150)==false then
                say_titel("Der Schlüssel")
                say("Wenn du alle 3 Schlüssel hast muss du zur geheimen Box!")
                pc.give_item2(50150)
            else
                say_titel("Schnitzeljagd")
                say("Du hast diesen Schlüssel schon!")
            end
        end
        when 20086.chat."Ich brauche den Schlüssel!" begin
            if pc.get_count(50151)==false then
                say_titel("Der Schlüssel")
                say("Wenn du alle 3 Schlüssel hast muss du zur geheimen Box!")
                pc.give_item2(50151)
            else
                say_titel("Schnitzeljagd")
                say("Du hast diesen Schlüssel schon!")
            end
        end
        when 20087.chat."Ich brauche den Schlüssel!" begin
            if pc.get_count(50153)==false then
                say_titel("Der Schlüssel")
                say("Wenn du alle 3 Schlüssel hast muss du zur geheimen Box!")
                pc.give_item2(50153)
            else
                say_titel("Schnitzeljagd")
                say("Du hast diesen Schlüssel schon!")
            end
        end
        when 20359.chat."Ich hab alle Schlüssel!" begin
            if pc.get_count(50150)>=1 begin
                if pc.get_count(50151)>=1 begin
                    if pc.get_count(50153)>=1 begin
                        say_title("Alle Schlüssel")
                        say("WOW! Du hast alle Schlüssel gesammelt.")
                        say("Du kannst die Truhe aufschließen.")
                        say("Knack..... Knack......")
                        say_reward("Du hast den Regenbogen-Schlüssel bekommen")
                        pc.remove_item2(50150)
                        pc.remove_item2(50151)
                        pc.remove_item2(50153)
                        pc.give_item2(50156)
                        set_state(fertig)
                    else
                        say("Du hast nicht alle Schlüssel")
                    end
                else
                    say("Du hast nicht alle Schlüssel")
                end
            else
                say("Du hast nicht alle Schlüssel")
            end
        end
    end
    state fertig begin
        local v = find_npc_by_vnum(20003)
        if v != 0 then
            target.vid("target1", v, "Hauk-Yong")
        end
        when 20003.chat."Regenbogen-Schlüssel" begin
            pc.remove_item2(50156)
            target.remove("target1")
            say_title("Gewonnen")
            say("Du hast mir den Regenbogenschlüssel gebracht")
            if game.get_event_flag("dritter")==0 then
                if game.get_event_flag("zweiter")==0 then
                    if game.get_event_flag("erster")==0 then
                        say_title("Erster!")
                        say("Glückwunsch du hast mir als erstes")
                        say("den Regenbogen-Schlüssel gebracht.")
                        say_reward("2 LVL UP")
                        say_reward("Du bekommst 400kk")
                        pc.give_gold(400000000)
                        pc.give_exp(pc.get_next_exp())
                        pc.give_exp(pc.get_next_exp())
                        notice_all("Event Ankündigung:")
                        notice_all(pc.get_name.." hat gewonnen!!!")
                        game.set_event_flag("erster", 1)
                    else
                        say_title("Zweiter!")
                        say("Glückwunsch du hast mir als zweites")
                        say("den Regenbogen-Schlüssel gebracht.")
                        say_reward("LVL UP")
                        say_reward("Du bekommst 300kk")
                        pc.give_gold(300000000)
                        pc.give_exp(pc.get_next_exp())
                        notice_all("Event Ankündigung:")
                        notice_all(pc.get_name.." wurde Zweiter")
                        game.set_event_flag("zweiter", 1)
                    end
                else
                    say_title("Dritter!")
                    say("Du bist dritter geworden.")
                    say_reward("Du bekommst 200kk")
                    pc.give_gold(200000000)
                    notice_all("Event Ankündigung:")
                    notice_all(pc.get_name.." wurde Dritter!!!")
                    notice_all("Es lohnt sich immernoch das Event zu mitzumachen")
                    game.set_event_flag("dritter", 1)
                end
            else
                say_title("Leider!")
                say("Leider bist du nicht unter den besten 3")
                say("Du bekommst trotzdem 50kk Yang für deine Bemühung")
                pc.give_gold(50000000)
            end
            set_state(_complete)
        end
    end
    state _complete begin
    end
end 
qc in malloc():error allocation failed
kommt bei mir :/
05/24/2013 00:24 kaufman93#8121
Also in der Virtuel Box zeigts keinen fehler an
Aber wieso geht nich das als GM geschrieben wird das ein Neuer Spieler beigetreten ist und welchem reich? :/
Kann sie pls wer umschreiben so das es klappt? :/

PHP Code:
quest give_basic_weapon begin
    state start begin
        when login with pc.getqf("hateq") == 0 begin
            if pc.getqf("hateq") == 1 then
                return
            end
            pc.setqf("hateq", 1)
            if pc.job == 0 then
                pc.give_item2(11209,1 )
                pc.give_item2(19, 1)
            elseif pc.job == 1 then
                pc.give_item2(1009,1 ) 
                pc.give_item2(11409,1 )
            elseif pc.job == 2 then
                pc.give_item2(19, 1)
                pc.give_item2(11609,1 )
            elseif pc.job == 3 then
                pc.give_item2(7009,1 )
                pc.give_item2(11809,1 )
            end
            pc.give_item2(72701,1 )
            pc.give_item2(71050,200 )
            pc.give_item2(70038,200 )
            pc.give_item2(71033,1 )
            pc.give_item2(27003,200 )
            pc.give_item2(27003,200 )
            pc.give_item2(27003,200 )
            pc.give_item2(27006,200 )
            pc.give_item2(27006,200 )
            pc.give_item2(50052,1 )
            pc.give_item2(70007, 1)
            say_title("Willkommen auf Inasera2.")
            say()
            say("Auf Unserem Server gibt es Viele Neue Sachen.")
            say("Es erwartet dich: Neue Monster, Neue maps und Neues EQ.")
            say("Ein erfahrendes Team!")
            say("Bei Buggs bitte einem Admin bescheid geben.")
            say("Serverleiter : [SA]KinqDmX")
            wait()
            empire = {"gelbem","rotem","blauem"}
            notice_all("'"..pc.get_name().."' trat soeben dem Server im "..empire[pc.get_empire() - 1].." Reich bei!")
        end
        
        when login with pc.getqf("hateq") == 1 begin
            set_state( __COMPLETE__ )
        end
    end
 
    state __COMPLETE__ begin
    end
   
end 
05/24/2013 03:22 Yiv#8122
Was ist an der Quest falsch:

PHP Code:
quest pvp_streaks begin
    state start begin
        when kill with npc.is_pc() begin
            local l1 = 50
            local l2 = 55
            local l3 = 65
            local l4 = 80
            local l5 = 100
            local l6 = 125
            local l7 = 155
            local l8 = 190
            local l9 = 230
            local l10 = 275
            local l11 = 325
            local l12 = 380
            local l13 = 440
            local l14 = 505
            local l15 = 575
            local l16 = 650
            local l17 = 730
            local l18 = 815
            local l19 = 905
            if pvpgetlevel() = 1 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l1 then
                    pvplevelup()
                    chat("Du hast den PVPRang 2 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l1 - check.." Kills.")
                end
            elseif pvpgetlevel() = 2 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l2 then
                    pvplevelup()
                    chat("Du hast den PVPRang 3 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l2 - check.." Kills.")
                end
            elseif pvpgetlevel() = 3 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l3 then
                    pvplevelup()
                    chat("Du hast den PVPRang 4 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l3 - check.." Kills.")
                end
            elseif pvpgetlevel() = 4 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l4 then
                    pvplevelup()
                    chat("Du hast den PVPRang 5 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l4 - check.." Kills.")
                end
            elseif pvpgetlevel() = 5 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l5 then
                    pvplevelup()
                    chat("Du hast den PVPRang 6 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l5 - check.." Kills.")
                end
            elseif pvpgetlevel() = 6 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l6 then
                    pvplevelup()
                    chat("Du hast den PVPRang 7 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l6 - check.." Kills.")
                end
            elseif pvpgetlevel() = 7 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l7 then
                    pvplevelup()
                    chat("Du hast den PVPRang 8 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l7 - check.." Kills.")
                end
            elseif pvpgetlevel() = 8 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l8 then
                    pvplevelup()
                    chat("Du hast den PVPRang 9 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l8 - check.." Kills.")
                end
            elseif pvpgetlevel() = 9 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l9 then
                    pvplevelup()
                    chat("Du hast den PVPRang 10 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l9 - check.." Kills.")
                end
            elseif pvpgetlevel() = 10 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l10 then
                    pvplevelup()
                    chat("Du hast den PVPRang 11 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l10 - check.." Kills.")
                end
            elseif pvpgetlevel() = 11 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l11 then
                    pvplevelup()
                    chat("Du hast den PVPRang 12 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l11 - check.." Kills.")
                end
            elseif pvpgetlevel() = 12 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l12 then
                    pvplevelup()
                    chat("Du hast den PVPRang 13 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l12 - check.." Kills.")
                end
            elseif pvpgetlevel() = 13 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l13 then
                    pvplevelup()
                    chat("Du hast den PVPRang 14 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l13 - check.." Kills.")
                end
            elseif pvpgetlevel() = 14 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l14 then
                    pvplevelup()
                    chat("Du hast den PVPRang 15 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l14 - check.." Kills.")
                end
            elseif pvpgetlevel() = 15 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l15 then
                    pvplevelup()
                    chat("Du hast den PVPRang 16 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l15 - check.." Kills.")
                end
            elseif pvpgetlevel() = 16 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l16 then
                    pvplevelup()
                    chat("Du hast den PVPRang 17 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l16 - check.." Kills.")
                end
            elseif pvpgetlevel() = 17 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l17 then
                    pvplevelup()
                    chat("Du hast den PVPRang 18 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l17 - check.." Kills.")
                end
            elseif pvpgetlevel() = 18 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l18 then
                    pvplevelup()
                    chat("Du hast den PVPRang 19 erhalten.")
                    pvpresetkills()
                    messagelogout()
                else
                    chat("Du hast "..check.." von "..l18 - check.." Kills.")
                end
            elseif pvpgetlevel() = 19 then
                addkill()
                local check
                check = pvpgetkill()
                if check = l19 then
                    pvplevelup()
                    chat("Herzlichen Glückwunsch.")
                    chat("Du hast den PVPRang K erhalten, den letzten Rang")
                    notice_all(pc.get_name().." hat den letzten PVPRang erhalten. Den PVPRang K!")
                    pvpresetkills()
                    messagelogout()
                    set_state(levelende)
                else
                    chat("Du hast "..check.." von "..l19 - check.." Kills.")
                end
            end
        end
        when login begin
            cmdchat("pvplevel"..pc.getqf("pvplevel"))
        end
    end
    state levelende begin
        when login begin
            cmdchat("pvplevelk")
        end
        when kill with npc.is_pc() begin
            pvpaddkill()
            chat("Du hast "..pvpgetkill())
        end
    end
end 
Ja ich weiss bisschen scheisse geschrieben...

Fehler:
Code:
syntax error : [string "startnpc . is_pc ( )"]:20: `then' expected near `='
pvp_leveln.quest:255:Error occured on compile pvp_leveln.quest
Wer kann helfen?

MfG
05/24/2013 16:27 Fliegex3#8123
Bei den Kostümen klappt alles Perfekt, jedoch bei den Haaren kriegt man das Item ins inventar aber die Haare sind noch ausgerüstet.

PHP Code:
quest costume_system begin
    state start begin
        function get_real_hair_id(id)
            return ({
                [45001] = 5001,
                [45002] = 5001,
                [45003] = 5002,
                [45004] = 5002,
                [45005] = 5003,
                [45006] = 5003,
                [45007] = 5004,
                [45008] = 5004,
                [45009] = 5005,
                [45010] = 5005,
                [45019] = 5006,
                [45020] = 5007,
                [45021] = 5008,
                [45022] = 5009,
                [45023] = 5010,
                [45024] = 5011,
                [45025] = 5012,
                [45026] = 5013,
                [45027] = 5014,
                [45028] = 5015,
                [45029] = 5016,
                [45030] = 5017,
                [45031] = 5018,
                [45032] = 5019,
                [45033] = 5020,
                [45034] = 5021,
                [45035] = 5006,
                [45036] = 5007,
                [45037] = 5008,
                [45038] = 5009,
                [45039] = 5010,
                [45040] = 5011,
                [45041] = 5012,
                [45042] = 5013,
                [45043] = 5014,
                [45044] = 5015,
                [45045] = 5016,
                [45046] = 5017,
                [45047] = 5018,
                [45048] = 5019,
                [45049] = 5020,
                [45050] = 5021,
                [45053] = 5023,
                [45054] = 5023,
                [45055] = 5024,
                [45056] = 5024,
                [45057] = 5025,
                [45058] = 5025,
                [45061] = 5027,
                [45062] = 5027,
                [45075] = 5028,
                [45076] = 5029,
                [45077] = 5030,
                [45078] = 5030,
                [45079] = 5031,
                [45080] = 5031
            })[id] or 0
        end
        
        when button or info begin
            if pc.getqf('costume_system_main_active') == 0 and pc.getqf('costume_system_hair_active') == 0 then
                chat("Du kannst keine Kostüme ablegen, wenn du nicht einmal welche trägst!")
                return
            end
            if pc.getqf('costume_system_main_active') == 1 then
                pc.give_item2(pc.getqf('costume_system_main_vnum'))
                pc.set_part(PART_MAIN, pc.get_armor())
                pc.setqf('costume_system_main_active', 0)
                pc.setqf('costume_system_main_vnum', 0)
            end
            if pc.getqf('costume_system_hair_active') == 1 then
                pc.give_item2(pc.getqf('costume_system_give_hair'))
                pc.set_part(PART_HAIR, (tonumber(costume_system_read("part_hair_old"))))
                pc.setqf('costume_system_hair_active', 0)
                pc.setqf('costume_system_hair_vnum', 0)
                pc.setqf("costume_system_give_hair", 0)
            end
            if pc.getqf('costume_system_hair_active') == 0 then
                local asdf = { 5001, 5002 , 5003 , 5004 , 5005 , 5006 , 5007 , 5008 , 5009 , 5010 , 5011 , 5012 , 5013 , 5014 , 5015 , 5016 , 5017 , 5018 , 5019 , 5020 , 5021 , 5023 , 5024 , 5025 , 5026 , 5027 , 5028 , 5029 , 5030 , 5031 }
                local myhair = pc.get_part(PART_HAIR)
                for i = 0, tablelength(asdf), 1 do
                    if myhair == asdf[i] then pc.setqf("costume_system_hair_vnum", 0) pc.set_part(PART_HAIR, 0) break end
                end
            end
        end

        when login begin
            cmdchat("costume_index "..q.getcurrentquestindex())
            loop_timer('costume_system_check', 0.3)

            if pc.getqf('costume_system_main_active') == 1 then
                costume_system_update("part_main_old", pc.get_part(PART_MAIN))

                pc.set_part(PART_MAIN, pc.getqf('costume_system_main_vnum'))
            end

            if pc.getqf('costume_system_hair_active') == 1 then
                costume_system_update("part_hair_old", pc.get_part(PART_HAIR))

                pc.set_part(PART_MAIN, pc.getqf('costume_system_hair_vnum'))
            end

            if pc.getqf('costume_system') == 1 then
                return

            elseif pc.getqf('costume_system') ~= 1 then
                costume_system_create()

                pc.setqf('costume_system', 1)
            end
            
            
        end
        
        when costume_system_check.timer begin
            if pc.getqf('costume_system_main_active') == 1 and pc.get_part(PART_MAIN) ~= pc.getqf('costume_system_main_vnum') then
                pc.set_part(PART_MAIN, pc.getqf('costume_system_main_vnum'))
            end

            if pc.getqf('costume_system_hair_active') == 1 and pc.get_part(PART_HAIR) ~= pc.getqf('costume_system_hair_vnum') then
                pc.set_part(PART_HAIR, pc.getqf('costume_system_hair_vnum'))
            end
        end
        
        when 41001.use or
             41002.use or
             41003.use or
            41004.use or
            41006.use or
            41007.use or
            41008.use or
            41009.use or
            41010.use or
            41011.use or
            41012.use or
            41013.use or
            41014.use or
            41015.use or
            41016.use or
            41017.use or
            41018.use or
            41019.use or
            41020.use or
            41021.use or
            41022.use or
            41023.use or
            41024.use or
            41025.use or
            41026.use or
            41027.use or
            41028.use or
            41055.use or
            41056.use or
            41057.use or
            41058.use or
            41059.use or
            41060.use or
            41061.use or
            41062.use or
            41063.use or
            41064.use or
            41065.use or
            41066.use or
            41067.use or
            41068.use or
            41069.use or
            41070.use or
            41071.use or
            41072.use or
            41073.use or
            41074.use or
            41075.use or
            41076.use or
            41077.use or
            41078.use or
            41079.use or
            41080.use or
            41081.use or
            41082.use or
            41083.use or
            41084.use or
            45003.use or
            45004.use or
            45005.use or
            45006.use or
            45007.use or
            45008.use or
            45009.use or
            45010.use or
            45011.use or
            45012.use or
            45013.use or
            45014.use or
            45015.use or
            45016.use or
            45017.use or
            45019.use or
            45020.use or
            45021.use or
            45022.use or
            45023.use or
            45024.use or
            45025.use or
            45026.use or
            45027.use or
            45028.use or
            45029.use or
            45030.use or
            45031.use or
            45032.use or
            45033.use or
            45034.use or
            45035.use or
            45036.use or
            45037.use or
            45038.use or
            45039.use or
            45040.use or
            45041.use or
            45042.use or
            45043.use or
            45044.use or
            45045.use or
            45046.use or
            45047.use or
            45048.use or
            45049.use or
            45050.use or
            45053.use or
            45054.use or
            45055.use or
            45056.use or
            45057.use or
            45058.use or
            45061.use or
            45062.use or
            45075.use or
            45076.use or
            45077.use or
            45078.use or
            45079.use or
            45080.use or
            41117.use or
            41118.use or
            41119.use or
            41120.use or
            41121.use or
            41122.use or
            41125.use or
            41126.use or
            41137.use or
            41138.use or
            41139.use or
            41140.use or
            41141.use or
            41142.use or
            41143.use or
            41144.use or
            45018.use begin

            local vnum = item.get_vnum()
            local hair_vnum = costume_system.get_real_hair_id(vnum)

            if tonumber(vnum) > 41000 and tonumber(vnum) < 43029 then
                if pc.getqf('costume_system_main_active') == 1 then
                    pc.give_item2(pc.getqf('costume_system_main_vnum'))
                    pc.set_part(PART_MAIN, vnum)
                    pc.setqf('costume_system_main_vnum', vnum)
                else
                    costume_system_update("part_main_old", pc.get_armor())
                    pc.set_part(PART_MAIN, vnum)
                    pc.setqf('costume_system_main_active', 1)
                    pc.setqf('costume_system_main_vnum', vnum)
                end

            elseif tonumber(vnum) > 45000 and tonumber(vnum) < 48011 then
                if pc.getqf('costume_system_hair_active') == 1 then
                    pc.give_item2(pc.getqf('costume_system_give_hair'))
                    pc.set_part(PART_HAIR, hair_vnum)
                    pc.setqf('costume_system_hair_vnum', hair_vnum)
                    pc.setqf("costume_system_give_hair", vnum)
                else
                    costume_system_update("part_hair_old", pc.get_part(PART_HAIR))
                    pc.set_part(PART_HAIR, hair_vnum)
                    pc.setqf('costume_system_hair_active', 1)
                    pc.setqf('costume_system_hair_vnum', hair_vnum)
                    pc.setqf("costume_system_give_hair", vnum)
                end
            end
            item.remove()
        end
    end
end 
05/24/2013 16:43 eimer92#8124
PHP Code:
quest official_pets begin
    state start begin
        when 53001.use with pc.getqf("firephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("firephoenix_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                chat("Du erhälst:")
                chat("+1k Tp")
                chat("+10% Monster")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("firephoenix_use", 1)
                pc.setqf("firephoenix", 1)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 10, 60*60*8)
                horse.set_level("22")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
                affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 100, 60*60*8)                 
                horse.unsummon()
                pc.setqf("firephoenix_use", 0)
                pc.setqf("firephoenix", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("firephoenix_use") == 1 begin
            
            pc.setqf("firephoenix_use", 0)
            pc.setqf("firephoenix", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier ging alleine fort!")
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
            affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 10, 60*60*8)  
        end
        when 53003.use with pc.getqf("firephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("icephoenix_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("icephoenix_use", 1)
                pc.setqf("icephoenix", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("23")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("icephoenix_use", 0)
                pc.setqf("icephoenix", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("icephoenix_use") == 1 begin
            
            pc.setqf("icephoenix_use", 0)
            pc.setqf("icephoenix", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Eisphönix verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53002.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("reindeer") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("reindeer_use", 1)
                pc.setqf("reindeer", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("24")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)        
                horse.unsummon()
                pc.setqf("reindeer_use", 0)
                pc.setqf("reindeer", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("reindeer_use") == 1 begin
            
            pc.setqf("reindeer_use", 0)
            pc.setqf("reindeer", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53005.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("pwahuang") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("pwahuang_use", 1)
                pc.setqf("pwahuang", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("25")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("pwahuang_use", 0)
                pc.setqf("pwahuang", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("pwahuang_use") == 1 begin
            
            pc.setqf("pwahuang_use", 0)
            pc.setqf("pwahuang", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53006.use with pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("dog_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("dog_use", 1)
                pc.setqf("dog", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("26")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)                   
                horse.unsummon()
                pc.setqf("dog_use", 0)
                pc.setqf("dog", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("dog_use") == 1 begin
            
            pc.setqf("dog_use", 0)
            pc.setqf("dog", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)  
        end
        when 53007.use with pc.getqf("dog") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("lion_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("lion_use", 1)
                pc.setqf("lion", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("27")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("lion_use", 0)
                pc.setqf("lion", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("lion_use") == 1 begin
            
            pc.setqf("lion_use", 0)
            pc.setqf("lion", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53008.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("pig") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("pig_use", 1)
                pc.setqf("pig", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("28")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)        
                horse.unsummon()
                pc.setqf("pig_use", 0)
                pc.setqf("pig", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("pig_use") == 1 begin
            
            pc.setqf("pig_use", 0)
            pc.setqf("pig", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53009.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("tiger") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("tiger_use", 1)
                pc.setqf("tiger", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("29")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("tiger_use", 0)
                pc.setqf("tiger", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("tiger_use") == 1 begin
            
            pc.setqf("tiger_use", 0)
            pc.setqf("tiger", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 39034.use begin
            horse.set_level(23)
            say_title("Haustierzucker:")
            say("")
            say("Hallo meister, "..pc.get_name()..".")
            say("Mit diesem Item kannst du den Namen deines Haustieres ändern!")
            say("")
            say("")
            say_reward("ACHTUNG: Alles Haustiere besitzen dann den gleichen namen!")
            say_reward("Bitte gib nun den Namen deines Haustieres ein:")
            local horse_name = input()
                if string.len(horse_name) < 2 then
                    say_title("Haustierzucker:")
                    say("Der Name ist zu kurz.")
                    say("")
                    horse.unsummon()
                    return
                elseif string.len(horse_name) > 12 then
                    say_title("Haustierzucker:")
                    say("Der Name ist zu lang.")
                    say("")
                    horse.unsummon()
                    return
                end
            local ret = horse.set_name(horse_name)
                say_title("Haustier:")
            if ret == 0 then
                say_reward("Du hast momentan kein Haustier.")
                say("")
                horse.unsummon()
            elseif ret == 1 then
                say_reward("Du kannst diesen Namen nicht benutzen!")
                say("")
                horse.unsummon()
            elseif ret == 2 then
                say_title("Haustier:")
                say("Warte bitte einen moment ich muss kurz überlegen !")
                say("[DELAY value;340]...[/DELAY]")
                say_reward("Ok, der Name "..horse_name.." ist ein guter.")
                say("Ich wünsche dir viel Spaß mit deinem Haustier!")
                horse.unsummon()
                pc.remove_item("39034")
            end
        end
    end
end 
Ich kann den FeuerPhönix nicht mehr wegschicken, und meine ganzen Pets heißen auch feuer phönix was ist falsch?
05/24/2013 19:01 ottiott#8125
PHP Code:
quest Regenbogenstein begin
    state start begin
            when 50512.use  begin
                
                say_title("Regenbogenstein:")
                say("Du möchtest also deine Skills ")
                say("Perfektionieren?")
                
                if pc.job ==0 then
                say("Wähle deine Lehre aus")
                
                local s=select("Körper","Mental")
                
                if s==1 then
                    say_title("Körperkrieger also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Aura", "Kampfrausch", "Dreiwege-Schnitt", "Schwertwirbel", "Sausen")
                
                        if s==1 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(1 ,59)
                        say("Aura ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(2 ,59)
                        say("Kampfrausch ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(3 ,59)
                        say("Dreiwege-Schnitt ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(4 ,59)
                        say("Schwertwirbel ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(5 ,59)
                        say("Sausen ist jetz auf PerfektMeister!")                
                        end
                        
                if s==2 then
                    say_title("Mentalo also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Starker Körper", "Schwertschlag", "Stampfer", "Durchschlag", "Heftiges Schlagen")
                    
                        if s==1 then
                        pc.set_skill_group(2)
                        pc.set_skill_level(16 ,59)
                        say("Starker Körper ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(2)
                        pc.set_skill_level(17 ,59)
                        say("Schwertschlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(18)
                        pc.set_skill_level(3 ,59)
                        say("Stampfer ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(19)
                        pc.set_skill_level(4 ,59)
                        say("Durchschlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(2)
                        pc.set_skill_level(20 ,59)
                        say("Heftiges Schlagen ist jetz auf PerfektMeister!")                
                        end
                    
                elseif pc.job ==1 then
                say("Wähle deine Lehre aus")
                
                local s=select("Nahkampf","Fernkampf")
                
                if s==1 then
                    say_title("Nahkampf-Ninja also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Degenwirbel", "Blitzangriff", "Hinterhalt", "Giftwolke", "Tarnung")
                
                        if s==1 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(31 ,59)
                        say("Degenwirbel ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(32 ,59)
                        say("Blitzangriff ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(33 ,59)
                        say("Hinterhalt ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(34 ,59)
                        say("Giftwolke ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(35 ,59)
                        say("Tarnung ist jetz auf PerfektMeister!")                
                        end
                        
                if s==2 then
                    say_title("Fernkampf-Ninja also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Giftpfeil", "Feuerpfeil", "Pfeilregen", "Wiederholter Schuss", "Federschreiten")
                    
                        if s==1 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(46 ,59)
                        say("Giftpfeil ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(47 ,59)
                        say("Feuerpfeil ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(48 ,59)
                        say("Pfeilregen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(49 ,59)
                        say("Wiederholter Schuss ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(50 ,59)
                        say("Federschreiten ist jetz auf PerfektMeister!")                
                        end
                    
                elseif pc.job ==2 then
                say("Wähle deine Lehre aus")
                
                local s=select("Magie","Waffe")
                
                if s==1 then
                    say_title("Magie-Sura also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Geist der Flamme", "Dunkler Stein", "Dunkler Schlag", "Dunkler Schutz", "Geisterschlag", "Flammenschlag")
                
                        if s==1 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(76 ,59)
                        say("Geist der Flamme ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(77 ,59)
                        say("Dunkler Stein ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(78 ,59)
                        say("Dunkler Schlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(79 ,59)
                        say("Dunkler Schutz ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(80 ,59)
                        say("Geisterschlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(81 ,59)
                        say("Flammenschlag ist jetz auf PerfektMeister!")                
                        end
                        
                if s==2 then
                    say_title("Waffen-Sura also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Verzauberte Klinge", "Verzauberte Rüstung", "Furcht", "Zauber aufheben", "Drachenwirbel", "Fingerschlag")
                    
                        if s==1 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(61 ,59)
                        say("Verzauberte Klinge ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(62 ,59)
                        say("Verzauberte Rüstung ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(63 ,59)
                        say("Furcht ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(64 ,59)
                        say("Zauber aufheben ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(5 ,59)
                        say("Drachenwirbel ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(66 ,59)
                        say("Fingerschlag ist jetz auf PerfektMeister!")                
                        end
                    
                elseif pc.job ==3 then
                say("Wähle deine Lehre aus")
                
                local s=select("Heilung","Drache")
                
                if s==1 then
                    say_title("Heil-Schamane also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Kurieren", "Angriff+", "Blitzkralle", "Blitzwurf", "Blitz heraufbeschwören", "Schnelligkeit")
                
                        if s==1 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(106 ,59)
                        say("Kurieren ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(107 ,59)
                        say("Angriff+ ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(108 ,59)
                        say("Blitzkralle ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(109 ,59)
                        say("Blitzwurf ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(110 ,59)
                        say("Blitz heraufbeschwören ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(111 ,59)
                        say("Schnelligkeit ist jetz auf PerfektMeister!")                
                        end                        
                        
                if s==2 then
                    say_title("Drachen-Schamane also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Hilfe des Drachen", "Segen", "Reflektieren", "Drachenschießen", "Drachengebrüll", "Fliegender Talisman")
                    
                        if s==1 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(91 ,59)
                        say("Hilfe des Drachen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(92 ,59)
                        say("Segen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(93 ,59)
                        say("Reflektieren ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(94 ,59)
                        say("Drachenschießen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(95 ,59)
                        say("Drachengebrüll ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(96 ,59)
                        say("Fliegender Talisman ist jetz auf PerfektMeister!")                
                        end
                    end
                end
            end
        end
    end
end 
folgendes bekomme beim m2 qc befehl folgenden error, nachdem es diese quest hat:
HTML Code:
qc in mallo(): error: allocation failed
Error occured on compile Regenbogenstein.quest
Hilfe
05/24/2013 19:02 He3o Sippel#8126
Quote:
Originally Posted by ottiott View Post
PHP Code:
quest Regenbogenstein begin
    state start begin
            when 50512.use  begin
                
                say_title("Regenbogenstein:")
                say("Du möchtest also deine Skills ")
                say("Perfektionieren?")
                
                if pc.job ==0 then
                say("Wähle deine Lehre aus")
                
                local s=select("Körper","Mental")
                
                if s==1 then
                    say_title("Körperkrieger also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Aura", "Kampfrausch", "Dreiwege-Schnitt", "Schwertwirbel", "Sausen")
                
                        if s==1 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(1 ,59)
                        say("Aura ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(2 ,59)
                        say("Kampfrausch ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(3 ,59)
                        say("Dreiwege-Schnitt ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(4 ,59)
                        say("Schwertwirbel ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(1)
                        pc.set_skill_level(5 ,59)
                        say("Sausen ist jetz auf PerfektMeister!")                
                        end
                        
                if s==2 then
                    say_title("Mentalo also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Starker Körper", "Schwertschlag", "Stampfer", "Durchschlag", "Heftiges Schlagen")
                    
                        if s==1 then
                        pc.set_skill_group(2)
                        pc.set_skill_level(16 ,59)
                        say("Starker Körper ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(2)
                        pc.set_skill_level(17 ,59)
                        say("Schwertschlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(18)
                        pc.set_skill_level(3 ,59)
                        say("Stampfer ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(19)
                        pc.set_skill_level(4 ,59)
                        say("Durchschlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(2)
                        pc.set_skill_level(20 ,59)
                        say("Heftiges Schlagen ist jetz auf PerfektMeister!")                
                        end
                    
                elseif pc.job ==1 then
                say("Wähle deine Lehre aus")
                
                local s=select("Nahkampf","Fernkampf")
                
                if s==1 then
                    say_title("Nahkampf-Ninja also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Degenwirbel", "Blitzangriff", "Hinterhalt", "Giftwolke", "Tarnung")
                
                        if s==1 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(31 ,59)
                        say("Degenwirbel ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(32 ,59)
                        say("Blitzangriff ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(33 ,59)
                        say("Hinterhalt ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(34 ,59)
                        say("Giftwolke ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(3)
                        pc.set_skill_level(35 ,59)
                        say("Tarnung ist jetz auf PerfektMeister!")                
                        end
                        
                if s==2 then
                    say_title("Fernkampf-Ninja also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Giftpfeil", "Feuerpfeil", "Pfeilregen", "Wiederholter Schuss", "Federschreiten")
                    
                        if s==1 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(46 ,59)
                        say("Giftpfeil ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(47 ,59)
                        say("Feuerpfeil ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(48 ,59)
                        say("Pfeilregen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(49 ,59)
                        say("Wiederholter Schuss ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(4)
                        pc.set_skill_level(50 ,59)
                        say("Federschreiten ist jetz auf PerfektMeister!")                
                        end
                    
                elseif pc.job ==2 then
                say("Wähle deine Lehre aus")
                
                local s=select("Magie","Waffe")
                
                if s==1 then
                    say_title("Magie-Sura also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Geist der Flamme", "Dunkler Stein", "Dunkler Schlag", "Dunkler Schutz", "Geisterschlag", "Flammenschlag")
                
                        if s==1 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(76 ,59)
                        say("Geist der Flamme ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(77 ,59)
                        say("Dunkler Stein ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(78 ,59)
                        say("Dunkler Schlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(79 ,59)
                        say("Dunkler Schutz ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(80 ,59)
                        say("Geisterschlag ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(5)
                        pc.set_skill_level(81 ,59)
                        say("Flammenschlag ist jetz auf PerfektMeister!")                
                        end
                        
                if s==2 then
                    say_title("Waffen-Sura also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Verzauberte Klinge", "Verzauberte Rüstung", "Furcht", "Zauber aufheben", "Drachenwirbel", "Fingerschlag")
                    
                        if s==1 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(61 ,59)
                        say("Verzauberte Klinge ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(62 ,59)
                        say("Verzauberte Rüstung ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(63 ,59)
                        say("Furcht ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(64 ,59)
                        say("Zauber aufheben ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(5 ,59)
                        say("Drachenwirbel ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(6)
                        pc.set_skill_level(66 ,59)
                        say("Fingerschlag ist jetz auf PerfektMeister!")                
                        end
                    
                elseif pc.job ==3 then
                say("Wähle deine Lehre aus")
                
                local s=select("Heilung","Drache")
                
                if s==1 then
                    say_title("Heil-Schamane also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Kurieren", "Angriff+", "Blitzkralle", "Blitzwurf", "Blitz heraufbeschwören", "Schnelligkeit")
                
                        if s==1 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(106 ,59)
                        say("Kurieren ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(107 ,59)
                        say("Angriff+ ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(108 ,59)
                        say("Blitzkralle ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(109 ,59)
                        say("Blitzwurf ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(110 ,59)
                        say("Blitz heraufbeschwören ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(7)
                        pc.set_skill_level(111 ,59)
                        say("Schnelligkeit ist jetz auf PerfektMeister!")                
                        end                        
                        
                if s==2 then
                    say_title("Drachen-Schamane also!")
                    say("")
                    say("Hier mit kannst du einen deiner Skills")
                    say("auf PerfektMeister machen, wähle mit Bedacht!")
                    say("")
                    say("")
                    say("Bitte wähle eine Kategorie:")
                    say("")
                    local s=select("Hilfe des Drachen", "Segen", "Reflektieren", "Drachenschießen", "Drachengebrüll", "Fliegender Talisman")
                    
                        if s==1 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(91 ,59)
                        say("Hilfe des Drachen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==2 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(92 ,59)
                        say("Segen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==3 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(93 ,59)
                        say("Reflektieren ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==4 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(94 ,59)
                        say("Drachenschießen ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==5 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(95 ,59)
                        say("Drachengebrüll ist jetz auf PerfektMeister!")                
                        end
                        
                        if s==6 then
                        pc.set_skill_group(8)
                        pc.set_skill_level(96 ,59)
                        say("Fliegender Talisman ist jetz auf PerfektMeister!")                
                        end
                    end
                end
            end
        end
    end
end 
folgendes bekomme beim m2 qc befehl folgenden error, nachdem es diese quest hat:
HTML Code:
qc in mallo(): error: allocation failed
Error occured on compile Regenbogenstein.quest
Hilfe
Hast du die Quests richtig in die questlist eingetragen ?
05/24/2013 19:02 ottiott#8127
Quote:
Originally Posted by Sippe! View Post
Hast du die Quests richtig in die questlist eingetragen ?
jo habe ich, desswegen wundere ich mich sehr :confused:
05/24/2013 19:33 .Rack's#8128
Die Quest hier kickt jemand zuspät ingame wie kann man das machen das er schneller kicken tut ?
und das weitere problem ist der setzt jemanden auf level 1 aber nach einer zeit ist man wieder level 120


PHP Code:
quest prestige begin
    -- by Mijago
    state start begin
        when levelup or letter with pc.get_level() >= 120 and prestige.get_num() < 9 begin
            send_letter("Prestige erhöhen")
            local v = find_npc_by_vnum(({11000,11002,11004})[pc.get_empire()])
            if v ~= 0 then
                target.npc("presiup",v,"Prestige erhöhen")
            end
        end
        when info or button begin
            say_title("Prestige")
            say("Hallo, "..pc.get_name()..".")
            say "Du hast Level 120 erreicht - Wow!"
            say "Nun kannst du beim Dorfplatzwächter dein"
            say "Prestige erhöhen!"
        end
        when presiup.target.click or 11000.chat."Prestige erhöhen" or 11002.chat."Prestige erhöhen"or 11004.chat."Prestige erhöhen" with pc.get_level() >= 120 and prestige.get_num() < 9 begin
            target.clear("presiup")
            clear_letter()
            say_title("Prestige")
            say("Hallo, "..pc.get_name()..".")
            say "Du möchtest also dein Prestige erhöhen?"
            say "Du wirst für 15 Minuten gebannt und dein"
            say "Level wird auf 1 gesetzt."
            say "Ebenso werden dein Status zurückgesetzt."
            say ""
            say "Bist du einverstanden?"
            if select("Ja","Nein") == 1 then
                local coins = 6000
                say("Du erhälst als Belohnung "..coins.." Coins!")
                say "In 13 Minuten wird dein Prestige geupdatet."
                say "In 15 Minuten kannst du dich wieder einloggen"
                say "Auf wiedersehen!"
                wait()
                local new = prestige.get_num()+1
                pc.setqf("prestige",new)
                prestige.presi_up(new,coins)
            end
        end
        -- when login with prestige.get_num() > 0 begin
            -- prestige.show_icon()
        -- end
    end
    state functions begin
        function presi_up(X,coins)
            local coins = coins or 0
            if not X then return -1 end
            local new = (92+18+X)
            local newDur=(60*60*24*365*2)
            mysql_query("CREATE EVENT player.set_prestige_"..pc.get_player_id().."_"..X.." ON SCHEDULE AT CURRENT_TIMESTAMP + INTERVAL 15 MINUTE ON COMPLETION NOT PRESERVE ENABLE DO update player.player set level = 1,prestige = "..X..", hp = 0, mp = 0, random_hp = 0, random_sp = 0,level_step = 0, st = 3, ht = 3, dx = 3, iq = 3, exp = 0, stat_point = 0, skill_point = 0, part_main = 0, sub_skill_point = 0 WHERE id = "..pc.get_player_id().." LIMIT 1;")
            mysql_query("CREATE EVENT player.set_prestige_"..pc.get_player_id().."_"..X.." ON SCHEDULE AT CURRENT_TIMESTAMP + INTERVAL 15 MINUTE ON COMPLETION NOT PRESERVE ENABLE DO INSERT INTO player.affect (dwPID, bType, dwFlag, lDuration) VALUES ("..pc.get_player_id()..", 212, "..new..", "..newDur..") ON DUPLICATE KEY UPDATE dwFlag = "..new..", lDuration = "..newDur..";")
            mysql_query("update account.account set availdt = CURRENT_TIMESTAMP()+60*25,coins = coins+"..coins.." WHERE id = "..pc.get_account_id().."; ")
            for i = 1,500 do
                cmdchat "buff1"
            end
        end
        -- Zum nutzen in anderen Quests. prestige.get_num()
        function get_num()
            return pc.getqf("prestige","prestige")
        end
    end
end 
05/25/2013 01:26 Yiv#8129
PHP Code:
quest pvp_leveln begin
    state start begin
        when login begin
            local l1 = 50
            local l2 = 55
            local l3 = 65
            local l4 = 80
            local l5 = 100
            local l6 = 125
            local l7 = 155
            local l8 = 190
            local l9 = 230
            local l10 = 275
            local l11 = 325
            local l12 = 380
            local l13 = 440
            local l14 = 505
            local l15 = 575
            local l16 = 650
            local l17 = 730
            local l18 = 815
            local l19 = 905
        end
        when kill begin
        if npc.is_pc() then
            if pc.getqf("pvp_level") == 1 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l1 then
                    pc.setqf("pvp_level", 2)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 2 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l1 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 2 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l2 then
                    pc.setqf("pvp_level", 3)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 3 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l2 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 3 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l3 then
                    pc.setqf("pvp_level", 4)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 4 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l3 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 4 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l4 then
                    pc.setqf("pvp_level", 5)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 5 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l4 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 5 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l5 then
                    pc.setqf("pvp_level", 6)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 6 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l5 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 6 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l6 then
                    pc.setqf("pvp_level", 7)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 7 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l6 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 7 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l7 then
                    pc.setqf("pvp_level", 8)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 8 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l7 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 8 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l8 then
                    pc.setqf("pvp_level", 9)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 9 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l8 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 9 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l9 then
                    pc.setqf("pvp_level", 10)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 10 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l9 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 10 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l10 then
                    pc.setqf("pvp_level", 11)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 11 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l10 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 11 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l11 then
                    pc.setqf("pvp_level", 12)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 12 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l11 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 12 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l12 then
                    pc.setqf("pvp_level", 13)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 13 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l12 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 13 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l13 then
                    pc.setqf("pvp_level", 14)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 14 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l13 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 14 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l14 then
                    pc.setqf("pvp_level", 15)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 15 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l14 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 15 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l15 then
                    pc.setqf("pvp_level", 16)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 16 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l15 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 16 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l16 then
                    pc.setqf("pvp_level", 17)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 17 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l16 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 17 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l17 then
                    pc.setqf("pvp_level", 18)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 18 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l17 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 18 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l18 then
                    pc.setqf("pvp_level", 19)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang 19 erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                else
                    chat("Du hast "..check.." von "..l18 - check.." Kills.")
                end
            elseif pc.getqf("pvp_level") == 19 then
                pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills") + 1)
                local check
                check = pc.getqf("pvp_leveln_kills")
                if check = l19 then
                    pc.setqf("pvp_level", 20)
                    pc.setqf("pvp_leveln_kills", 0)
                    say_title("PvP-Rang erhöht")
                    say("Herzlichen Glückwunsch!")
                    say("Du hast den PvP-Rang K erhalten!")
                    say("")
                    say_reward("Bitte führe einen relogg aus!")
                    set_state(levelende)
                else
                    chat("Du hast "..check.." von "..l19 - check.." Kills.")
                end
            end
        else
            chat("ERROR")
        end
        when login begin
            cmdchat("pvplevel"..pc.getqf("pvplevel"))
        end
    end
    state levelende begin
        when login begin
            cmdchat("pvplevelk")
        end
        when kill with npc.is_pc() begin
            pc.setqf("pvp_leveln_kills", pc.getqf("pvp_leveln_kills"))
            chat("Du hast "..pc.getqf("pvp_leveln_kills"))
        end
    end
end 
Code:
syntax error : [string "start"]:6: `then' expected near `='
pvp_leveln.quest:319:Error occured on compile pvp_leveln.quest
Was ist daran falsch?

MfG
05/25/2013 05:42 .Kenny.#8130
PHP Code:
quest pferdequest begin
    state start begin
        when 20349.chat."Pferdepruefung" with horse.get_grade()==0 begin
            if pc.count_item(50050)<1 then
                say("Du brauchst fuer dein Anfaengerpferd")
                say("eine Pferdemedaillie")
                say_item(50050)
                say("Du bekommst sie von Affen aus den Affendungeons")
            elseif pc.count_item(50050)>0 then
                say_title("Stallbursche")
                say("Okey,")
                say("um dein Anfaengerpferd zu bekommen")
                say("musst du allerdings eine Pruefung")
                say("absolvieren.")
                say("")
                wait()
                say("Du musst innerhalb von 30 Minuten")
                say("20 Wilde Bogenschuetzen auf Map2 toeten")
                say("")
                say_reward("Moechtest du beginnen?")
                local s = select("Ja", "Spaeter")
                if s == 2 then
                    say("Okey bis spaeter")
                elseif s == 1 then
                    if pc.count_item(50050)>0 then
                        set_state(pq1)
                        pc.remove_item(50050, 1)
                        pc.setqf("bogis", 20)
                        pc.setqf("limit_time", get_time()+30*60)
                        q.set_counter("Wilde Bogenschuetzen", 20)
                        q.set_clock("restzeit", pc.getqf("limit_time")-get_time())                    
                    else
                        chat("Bug Detected!")
                    end
                end
            end
        end
    end
    state pq1 begin
        when letter begin
            send_letter("Pferedepruefung")
        end
        when button or info begin
            say_title("Pferdepruefung")
            say("Du musst innerhalb von 30 Minuten")
            say("20 Wilde Bogenschuetzen auf Map2 toeten")
            say("")
            say_reward("Du musst noch ".. pc.getqf("bogis") .." töten")
            say("")
        end
        when enter begin
            pc.setqf("limit_time", get_time()+30*60)
            pc.setqf("bogis", 20)
        end
        when leave begin
            set_state(start)
        end
        when 503.kill begin
            local bogis = pc.getqf("bogis") -1
            pc.setqf("bogis", bogis)
            q.set_counter("Wilde Bogenschuetzen", 20-pc.getqf("bogis"))
            if get_time()>=pc.getqf("limit_time") then
                set_state(failure)
            end
        end
        when 503.kill with pc.getf("kill_count") <=0 and pc.getf("limit_time")>=get_time() begin
            set_state(horsetest_complete)
        end
    end
    state horsetest_complete begin
        when letter begin
            send_letter("Pferdepruefung absolviert")
        end
        when button or info begin
            say_title("Pferdepruefung absolviert")
            say("Du hast es geschafft!")
            say("Nun gehe zurueck zum Stallburschen")
            say("er wird dir deine Urkunde ueberreichen")
            say("")
        end
        when 20349.chat."Ich habe es geschafft" begin
            say_title("Stallbursche")
            say("Oh du hast es geschafft?!")
            say("Alles klar.")
            say("Dein Pferdebild kostet")
            say("dich allerdings 100.000 Yang")
            say("Moechtest du es kaufen?")
            local h = select("Ja", "Nein")
            if h == 1 then
                if pc.get_money()<=100000 then
                    say("Du hast nicht genug Geld")
                    say("Komm wieder wenn du genug hast")
                else
                    pc.change_money(-100000)
                    horse.set_level(1)
                    horse.unride()
                    horse.advance()
                    horse.ride()
                    pc.give_item2(50051, 1)
                    say("Hier ist dein Pferd")
                    say("Du kannst es jederzeit")
                    say("mit hilfe des Pferdebildes rufen.")
                    say("Denke daran dein Pferd zu fuettern.")
                    set_state(start)
                end
            end
        end
    end
    state failure begin
        when letter begin
            send_letter("Pferdepruefung fehlgeschlagen")
        end
        when button or info begin
            say_title("Pferdepruefung fehlgeschlagen")
            say("Du hast es leider nicht rechtzeitig geschafft")
            say("besorge eine neue Pferdemedaillie")
            say("und geh wieder zum Stallburschen um")
            say("es erneut zu versuchen")
        end
    end
end 
Kriege diesen error:
SYSERR: May 25 06:29:25 :: RunState: LUA_ERROR: [string "pferdequest"]:7: attempt to compare nil with number
SYSERR: May 25 06:29:25 :: WriteRunningStateToSyserr: LUA_ERROR: quest pferdequest.failure click
Page 542 of 845 « First 42442492532540541 542 543544552592642 Last »