quest cavalo begin
    state start begin
        when login or levelup begin
            if pc.get_level() < 25 then
                return
            end
            local d = find_npc_by_vnum(20349)
            if d != 0 then
                target.vid("__TARGET__", d, "Consegue o teu cavalo armado")
            end
        end

        when __TARGET__.target.click or 20349.chat."Consegue o teu cavalo armado" with pc.get_level() < 25 begin
            target.delete("__TARGET__")
            say_title("Rapaz do Estabulo:")
            say("Com esta missao te permite")
            say("subir o nível do teu cavalo.")
            say("Mas tens de matar 100 Arqueiros Escorpiao")
            say("Depois dissos poderas cavalgar.")
            say("")

            local temo = select ("Aceito" , "Sair")
            if temo == 2 then return end
            if temo == 1 then
                set_state(cavalo1)
            end
        end
    end

    state cavalo1 begin
        when enter begin
            timer("tiempo1", 1200)
            q.set_counter("Arqueiro Escorpiao", 100)
        end

        when 2105.kill begin
            local killed = q.get_counter("Arqueiro Escorpiao")
            q.set_counter("Arqueiro Escorpiao", killed - 1)
            if killed <= 0 then
                cleantimer("tiempo1")
                say_title("".. pc.get_name() ..":")
                say("Finalmente conseguiste matar todos os Arqueiros Escorpiao")
                say("dentro do tempo estimado...")
                say("Premio:")
                say_reward("Cavalo Armado")
                horse.set_level(11)
                horse.summon()
                set_state(master2)
            end
        end

        when tiempo1.timer begin
            say_title("Falhaste a missao")
            say("Infelizmente falhaste.")
            say("Tenta de novo mais tarde.")
            set_state(start)
        end
    end

    state master2 begin
        when login or levelup begin
            if pc.get_level() < 50 then
                return
            end
            local a = find_npc_by_vnum(20349)
            if a != 0 then
                target.vid("__TARGET__", a, "Consegue o teu cavalo militar")
            end
        end

        when __TARGET__.target.click or 20349.chat."Consegue o teu cavalo militar" with pc.get_level() < 50 begin
            target.delete("__TARGET__")
            say_title("Rapaz do Estabulo:")
            say("Com esta missao te permite")
            say("subir o nivel do teu cavalo.")
            say("Mas tens de matar 500 Arqueiro Demonio")
            say("Depois dissos poderas cavalgar.")
            say("")

            local temo = select ("Aceito" , "Sair")
            if temo == 2 then return end
            if temo == 1 then
                set_state(cavalo2)
            end
        end
    end

    state cavalo2 begin
        when enter begin
            timer("tiempo2", 1800)
            q.set_counter("Arqueiro Demonio", 500)
        end

        when 1002.kill begin
            local killed = q.get_counter("Arqueiro Demonio")
            q.set_counter("Arqueiro Demonio", killed - 1)
            if killed <= 0 then
                cleantimer("tiempo2")
                say_title("".. pc.get_name() ..":")
                say("Finalmente conseguiste matar todos os Arqueiro Demonio")
                say("dentro do tempo estimado...")
                say("Premio:")
                say_reward("Cavalo Militar")
                horse.set_level(21)
                horse.summon()
                set_state(completada)
            end
        end

        when tiempo2.timer begin
            say_title("Falhaste a missao")
            say("Infelizmente falhaste.")
            say("Tenta de novo mais tarde.")
            set_state(master2)
        end
    end

    state completada begin
    end
end