Jump to content

Partilha de quests já em pt


F-Caneiras
 Share

Recommended Posts

Boas malta bom venho aqui partilhar umas quests que traduzi podem fazer jeito.

antes que as perca aqui as deixo no forum.

1 - change_empire_item

Spoiler
quest change_empire begin 
    state start begin 
	
        when 20011.chat."Libertar Mudança de Reino" with pc.get_name() == "[GM]" begin 
            say_title("Troca de Reino:")
			say("")
            local s = select("Libertar para Todos Reinos", "Bloquear Troca Shinsoo", "Bloquear Troca Chunjo", "Bloquear Troca Jinno", "Bloquear Todas Trocas", "Sair") 
            if s == 1 then
                change_empire.move_pc()
				game.set_event_flag("TrocaReinoShinsoo", 1)
				game.set_event_flag("TrocaReinoChunjo", 1)
				game.set_event_flag("TrocaReinoJinno", 1)
				say("Permissão de Exílio Liberada para todos!")
				return
            end
			if s == 2 then
                change_empire.move_pc()
				game.set_event_flag("TrocaReinoShinsoo", 0)
				game.set_event_flag("TrocaReinoChunjo", 1)
				game.set_event_flag("TrocaReinoJinno", 1)
				say("Nenhum player poderá sair do Reino Shinsoo!")
				return
            end 
			if s == 3 then 
                change_empire.move_pc()
				game.set_event_flag("TrocaReinoShinsoo", 1)
				game.set_event_flag("TrocaReinoChunjo", 0)
				game.set_event_flag("TrocaReinoJinno", 1)
				say("Nenhum player poderá sair do Reino Chunjo!")
				return
            end 
			if s == 4 then
                change_empire.move_pc()
				game.set_event_flag("TrocaReinoShinsoo", 1)
				game.set_event_flag("TrocaReinoChunjo", 1)
				game.set_event_flag("TrocaReinoJinno", 0)
				say("Nenhum player poderá sair do Reino Jinno!")
				return
            end 
			if s == 5 then 
				game.set_event_flag("TrocaReinoShinsoo", 0)
				game.set_event_flag("TrocaReinoChunjo", 0)
				game.set_event_flag("TrocaReinoJinno", 0)
				say("Nenhum player poderá sair do seu Reino!")
				return
            end 
			if s == 6 then 
                return
            end 
        end 

        when 71054.use begin
            say_title("Permissão de Exílio:") 
			say("")
			
			if pc.is_gm() then
				say("GM não pode trocar de reino sem permissão.")
				say("")
				return
			end
			
			if pc.get_empire() == 1 and game.get_event_flag("TrocaReinoShinsoo") == 0 then
				say("A Troca de Reino não está liberada para")
				say("o seu reino.")
				say("")
				return
			elseif pc.get_empire() == 2 and game.get_event_flag("TrocaReinoChunjo") == 0 then
				say("A Troca de Reino não está liberada para")
				say("o seu reino.")
				say("")
				return
			elseif pc.get_empire() == 3 and game.get_event_flag("TrocaReinoJinno") == 0 then
				say("A Troca de Reino não está liberada para")
				say("o seu reino.")
				say("")
				return
			end

            if get_time() < pc.getqf("next_use_time") then 
                say("Você ainda não pode trocar de reino.") 
                say("") 
                return 
            end 

            if change_empire.move_pc() == true then 
                pc.setqf("next_use_time", get_time() + 86400 * 5) 
            end 
        end 



        function move_pc()
            if pc.is_engaged() then
				say_reward("Você é casado.")
				say_reward("Não pode mudar de reino.")
				return false
			end
            if pc.is_married() then
				say_reward("Você não pode estar casado para")
				say_reward("mudar de reino.")
				return false
			end
			if pc.is_polymorphed() then
				say_reward("Você não pode estar transformado para")
				say_reward("mudar de reino.")
				return false
			end
			if pc.has_guild() then
				say_reward("Você deve sair da guild para mudar")
				say_reward("de reino.")
				return false
			end
			if pc.money < 500000 then
				say_reward("Você não tem gold suficiente.")
				say_reward("Precisa do item e mais 500.000 Gold.")
				return false
			end
			
            say_reward("Para qual reino desejar ir?")
			local s = select("Reino Shinsu (Vermelho)", "Reino Chunjo (Amarelo)", "Reino Jinno (Azul)", "Cancelar")
            if 4==s then 
                return false  
            end 

            say_title("Permissão de Exílio:")
			say("") 
			say("Ao trocar de reino, você não poderá retornar")
			say("ao reino antigo, por pelo menos 5 dias.")
			say("") 
			say("Tem certeza que deseja mudar de reino?")
			say("") 
			local a = select("Sim", "Não")
            if 2== a then 
                return false 
            end 

            local ret = pc.change_empire(s) 
            local oldempire = pc.get_empire() 
            if ret == 999 then 
				say_title("Permissão de Exílio:")
				say("") 
				say("Troca de Reino efetuada com sucesso.")
				say("") 
				say_reward("Por favor, RELOGUE. ")
                say("")
               pc.change_gold(-500000) 
                pc.remove_item(71054) ;
                char_log(0, "CHANGE_EMPIRE",string.format("%d -> %d", oldempire, s))  
             
                return  true 
            else 
                if ret == 1 then 
					say_title("Permissão de Exílio:")
					say("") 
					say_reward("Você não pode mudar de reino.")
					say("") 
                    say("Verifique se algum char de sua conta está ")
                    say("em Guild, Casado ou Transformado.") 
					say("") 
                elseif ret == 2 then 
					say_title("Permissão de Exílio:")
					say("") 
                    say_reward("Você não pode mudar de reino.")
					say("") 
					say("Verifique se algum char de sua conta está ")
                    say("em Guild, Casado ou Transformado.") 
                    say("") 
                elseif ret == 3 then 
					say_title("Permissão de Exílio:")
					say("") 
					say_reward("Você não pode mudar de reino.")
					say("") 
                    say("Verifique se algum char de sua conta está ")
                    say("em Guild, Casado ou Transformado.") 
                    say("") 
				elseif ret == 4 then 
					say_title("Permissão de Exílio:")
					say("") 
					say_reward("Você não pode mudar de reino.")
					say("") 
                    say("Verifique se algum char de sua conta está ")
                    say("em Guild, Casado ou Transformado.") 
                    say("") 
				elseif ret == 5 then 
					say_title("Permissão de Exílio:")
					say("") 
					say_reward("Você não pode mudar de reino.")
					say("") 
                    say("Verifique se algum char de sua conta está ")
                    say("em Guild, Casado ou Transformado.") 
                    say("") 
                end 
            end 
            return false 
        end 

    end 
end 

 

2 - change_sex_item

Spoiler
quest change_sex_item begin
	state start begin
		when 71048.use begin
			say_title("Feitíço da Mudança")
			if pc.get_level() < 5 then
				say("")
				say("Para realizar a troca precisa ter no minimo nivel 5.")
				say("Adquira mais experiência para realizar a troca!")
				say("")
				return
			elseif pc.is_married() then
				say("")
				say("Apenas solteiros podem trocar de sexo.")
				say("Obtenha um divórcio e tente novamente!")
				say("")
				return
			elseif pc.is_polymorphed() then
				say("")
				say("Você está atualmente transformado.")
				say("Espere até que sua transformação termine ")
				say("e tente novamente!")
				return
			elseif pc.get_part(PART_MAIN) >= 41001 and pc.get_part(PART_MAIN) <= 41258 then
				say("")
				say("Proibido usar traje para realizar a troca. ")
				say("")
				return
			elseif pc.get_part(PART_HAIR) > 0 then
				say("")
				say("Proibido usar penteados para realizar a troca. ")
				say("")
				return
			elseif get_time() < pc.getqf("next_time") then
				say("")
				say("O seu período de espera ainda não terminou!")
				say("Você so pode mudar seu sexo a cada 7 dias,")
				say("após usar o item.")
				if pc.is_gm() then
					say_reward("Seu tempo de espera é definido como 0.")
					pc.setqf("next_time", 0)
				end
				return
			end
			say("")
			say("Você quer iniciar uma troca de sexo.")
			say("O sexo só pode ser trocado a cada sete dias")
			say("")
			say_reward("Aceita fazer a troca?")
			say("")
			local s=select("Sim", "Não")
			if 1==s then
				say_title("Feitíço da Mudança")
				say("")
				say("O sexo foi alterada com sucesso!")
				say_reward("Para que a mudança seja completa,")
				say_reward("por favor, relogue seu personagem!")
				pc.remove_item("71048", 1)
				pc.setqf("next_time", get_time() + 86400 * 7)
				pc.change_sex()
			end
		end
	end
end

 

3 - acce

Spoiler
quest acce begin
	state start begin
		when 60003.chat."O que é uma faixa de ombro?" begin
			say_title("-- "..mob_name(60003).." --")
			say("")
			say("O sistema de faixas oferece duas opções:")
			say("Combinação & Absorção.")
			say("")
			say("Podes combinar 2 faixas da mesma qualidade")
			say("Para obeter uma faixa de qualidade superior.")
			say("Existem 4 qualidades de faixas.")
			say("")
			say("A absorção permite que absorvas uma % ")
			say("dos bónus da tua arma ou armadura!")
			say("A % de absorção varia consoante")
			say("a qualidadeda faixa!")
			say("A arma/armadura absorvida será destruida.")
			say("")
		end

		when 60003.chat."Combinação" begin
			say_title("-- "..mob_name(60003).." --")
			say("")
			say("Queres combinuar as duas faixas?")
			say("")
			local confirm = select("Sim", "Não")
			if confirm == 2 then
				return
			end

			setskin(NOWINDOW)
			pc.open_sash(true)
		end

		when 60003.chat."Absorção de bônus" begin
			say_title("-- "..mob_name(60003).." --")
			say("")
			say("Queres absorver os bónus da tua arma ou armadura?")
			say("")
			local confirm = select("Sim", "Não")
			if confirm == 2 then
				return
			end

			setskin(NOWINDOW)
			pc.open_sash(false)
		end

	end
end

 

4 - reset_scroll 

Spoiler
quest reset_scroll begin
    state start begin
                when 71002.use or 76001.use begin
                        ---                                                   l
                        say_title("Pregaminho dos Atributos: ")
                        say("")
                        say("Este artigo torna possível esquecer tudo")
                        say("isso irá redefinir todos os seus pontos de status.")
                        say("")
                        say("")
                        say("Você quer usá-lo?")
                        say("")

                        local s = select("Sim Quero", "Não Obrigado")
                        if 2 == s then
                                return
                        end

                        say_title("Pregaminho dos Atributos:")
                        say("")
                        say("Todos os pontos de status serão redefinidos ")
                        say("você vai começar de novo. ")
                        say("")
                        say("Você aprova a reposição do status?")
                        say("")

                        local c = select("Sim Aprovo", "Não Aprovo")
                        if 2 == c then
                                return
                        end
                       item.remove()
                      pc.reset_point()

                end

                when 71003.use or 71100.use or 39009.use begin

                        ----------                                                   l
                        say_title("Pregaminho de Habilidades: ")
                        say_reward("A habilidade selecionada será reiniciada,")

                        local result = BuildSkillList(pc.get_job(), pc.get_skill_group())

                        local vnum_list = result[1]
                        local name_list = result[2]

                        if table.getn(vnum_list) < 2 then
                                say("Nenhuma habilidade para redefinir.")
                                say("")
                                return
                        end

                        say("Selecione a habilidade que deseja redefinir. ")
                        say("")

                        local i = select_table(name_list)

                        if table.getn(name_list) == i then
                                return
                        end

                        local name = name_list[i]
                        local vnum = vnum_list[i]

                        say_title("Pregaminho de Habilidades:")

                        say(string.format("%s Você deseja redefinir sua habilidade?", name))
                        say("")

                        local s = select("Sim", "Não")
                        if 2 == s then
                                return
                        end

                        say_title("Confirmar areposição de Habilidade:")
                        say("")
                        say("Você aprova a reposição de habilidades?")
                        say("")

                        local c = select("Sim tudo Bem", "Não Inda Não")

                        if 2 == c then
                                return
                        end

                        item.remove()

                        pc.clear_one_skill(vnum)


                        say_title("Pregaminho dos Atributos:")
                        say(string.format("%s A habilidade foi redefinida.", name))
                        say("")

                        ---                                                   l
                        say("")
                end
        end
end

 

5 - skill_group com lycan

Spoiler
quest skill_group begin
    state start begin
        when login or levelup with pc.level>=5 and pc.skillgroup ==0 begin
            set_state(run)
        end
    end
 
    state run begin
        when login with pc.get_skill_group()!=0 begin
            restart_quest()
        end
 
        when letter with pc.get_skill_group()==0 begin
            send_letter("Treinar habilidade")
 
            local job=pc.get_job()
 
            if job==0 then
                local v=pc_find_skill_teacher_vid(1)
                if 0!=v then target.vid("teacher1", v, "Professor Força(corpo).") end
                local v=pc_find_skill_teacher_vid(2)
                if 0!=v then target.vid("teacher2", v, "Professor Força (Mental).") end
            elseif job==1 then
                local v=pc_find_skill_teacher_vid(1)
                if 0!=v then target.vid("teacher3", v, "Professor Força(Armas).") end
                local v=pc_find_skill_teacher_vid(2)
                if 0!=v then target.vid("teacher4", v, "Professor Força(Magia).") end
            elseif job==2 then
                local v=pc_find_skill_teacher_vid(1)
                if 0!=v then target.vid("teacher5", v, "Professor Força(Adagas).") end
                local v=pc_find_skill_teacher_vid(2)
                if 0!=v then target.vid("teacher6", v, "Professor Força(Arco).") end
            elseif job==3 then
                local v=pc_find_skill_teacher_vid(1)
                if 0!=v then target.vid("teacher7", v, "Professor Força(Dragão).") end
                local v=pc_find_skill_teacher_vid(2)
                if 0!=v then target.vid("teacher8", v, "Professor Força(Cura).") end
            elseif job==4 then
                local v=pc_find_skill_teacher_vid(1)
                if 0!=v then target.vid("teacher9", v, "Guarda do Portal(Lycan).") end
                clear_letter()
            end
        end
 
        when leave begin
            target.delete("teacher1")
            target.delete("teacher2")
            target.delete("teacher3")
            target.delete("teacher4")
            target.delete("teacher5")
            target.delete("teacher6")
            target.delete("teacher7")
            target.delete("teacher8")
            target.delete("teacher9")
        end
 
                when button or info begin
                        if pc.job == 0 then
                                say_title("Professor Força (Gerreiro):")
                                say("")
                                say_reward("Se você quer ser um gerreiro Rapido, ")
                                say_reward("Com um ataque direto ao fisico ")
                                say_reward("Deve aprender a arte de corpo ")
                                say_reward("Se você quer ser um gerreiro munido de força, ")
                                say_reward("E derrubar varios aprenda arte Mental. ")
                                say_reward("Recomendação: estar na cidade.")
                                say("")
                        elseif pc.job == 1 then
                                say_title("Professor força (Ninja):")
                                say("")
                                say_reward("Se você quer ser um bom atirador, ")
                                say_reward("Aprenda a arte de arco. ")
                                say_reward("Se uiser andar oculto de outros e ")
                                say_reward("se você quiser realizar missões secretas")
                                say_reward("Escolha a arte de Adagas.")
                                say_reward("Recomendação: estar na cidade. ")
                                say("")
                        elseif pc.job == 2 then
                                say_title("Professor Força (Sura):")
                                say("")
                                say_reward("Um verdadeiro representante com habilidades sobrenaturais")
                                say_reward("Você quer ser um cavaleiro, com uma arma mágica")
                                say_reward("Recomendo arte de Armas")
                                say_reward("se você quer ser temido como uma maldição,")
                                say_reward("Recomendo aprender a arte de magia negra")
                                say_reward("Recomendação: estar na cidade. ")
                                say("")
                        elseif pc.job == 3 then
                                say_title("Professor Força (Shaman):")
                                say("")
                                say_reward("O que controla a magia e a bênção")
                                say_reward("Que é ajudado pelo dragão. ")
                                say_reward("Recomendo a arte de Dração")
                                say_reward("O que luta e pode curar a si e outros.")
                                say_reward("Recomendo a arte de cura.")
                                say_reward("Recomendação estar na cidade. ")
                                say("")
                        elseif pc.job == 4 then
                                say_title("Guarda do Portal:")
                                say("")
                                say_reward("O que controla a magia e as garras?")
                                say_reward("Lycam com a sua abilidade de Instinto ")
                                say_reward("Se quiser aprender essa abilidade")
                                say_reward("Fale com o Guarda do portal para aprender")
                                say_reward("Alem de guarda é um grande mestre e")
                                say_reward("Professor. ")
                                say_reward("Recomenda-se ir a primeira cidade! ")
                                say("")
                        end
                        ---setleftimage("")
 
                        select("Entendido")
                        setskin(NOWINDOW)
                end
 
                -- Arahan Troop
                when teacher1.target.click or
                        skill_group1_1.chat."Iniciar o treino de Corpo" or
                        skill_group2_1.chat."Iniciar o treino de Corpo" or
                        skill_group3_1.chat."Iniciar o treino de Corpo"
                        begin
                        target.delete("teacher1")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 0 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar os Guerreiros Corpo.")
                                say("")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
 
                        say_title("Treinamento da Habilidade Corpo")
						say("")

                        ---                                                   l
                        say("O treinamento de corpo uma forma de luta rápida e")
                        say("Métodos, bem como um ataque básico melhorado ")
                        say_reward("Requisito: Seja um guerreiro no nível 5 e acima")
                        say("")
 
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=0 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(1) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado.")
                        ----------------------------------------------
 
                        say_title("Treinamento de Corpo Finalizado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (1,20)
                                pc.set_skill_level (2,20)
                                pc.set_skill_level (3,20)
                                pc.set_skill_level (4,20)
                                pc.set_skill_level (5,20)
                                pc.set_skill_level (6,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
                -- Byulki Troop
                when teacher2.target.click or
                        skill_group1_2.chat."Iniciar o treino de Mental" or
                        skill_group2_2.chat."Iniciar o treino de Mental" or
                        skill_group3_2.chat."Iniciar o treino de Mental"
                        begin
                        target.delete("teacher2")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 0 then
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar gerreiro Mental ")
                                say("Escolha outro Professor.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
 
                        say_title("Treinamento da Habilidade Mental")
                        say("")
                        ---                                                   l
                        say("Você luta contra seus inimigos com habilidade Mental")
                        say("você pode fazer chi-ataques poderosos e auto")
                        say("Ainda se pode defender de varios ataques.")
                        say_reward("Requisito: Seja um guerreiro no nível 5 e acima")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=0 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(2)
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado")
                        ----------------------------------------------
 
 
                        say_title("Habilidade de Mental Finalizado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,20)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                                pc.set_skill_level (17,20)
                                pc.set_skill_level (18,20)
                                pc.set_skill_level (19,20)
                                pc.set_skill_level (20,20)
                                pc.set_skill_level (16,20)
                                pc.set_skill_level (21,20)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
 
                -- Bisal Troop
                when teacher3.target.click or
                        skill_group1_3.chat."Iniciar o treino de Adagas" or
                        skill_group2_3.chat."Iniciar o treino de Adagas" or
                        skill_group3_3.chat."Iniciar o treino de Adagas"
                        begin
                        target.delete("teacher3")
 
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 1 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar Ninjas adagas.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
                        say_title("Treinamento da Habilidade Adagas")
                        say("")
                        ---                                                   l
                        say("No treinamento de Luta Adagas você pode ser ")
                        say("apido e fatal contra o inimigo.")
                        say("Eles podem dar muitos hits.")
                        say_reward("Requisito: Seja um Ninja no nível 5 e acima")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=1 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(1) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado")
                        ----------------------------------------------
 
                        say_title("Treino de ninja adagas Finalizado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (31,20)
                                pc.set_skill_level (32,20)
                                pc.set_skill_level (33,20)
                                pc.set_skill_level (34,20)
                                pc.set_skill_level (35,20)
                                pc.set_skill_level (36,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (140,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,20)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
 
                -- Kangno Troop
                when teacher4.target.click or
                        skill_group1_4.chat."Iniciar o treino de Arco" or
                        skill_group2_4.chat."Iniciar o treino de Arco" or
                        skill_group3_4.chat."Iniciar o treino de Arco"
                        begin
                        target.delete("teacher4")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 1 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar ninja Arco.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
 
                        say_title("Iniciar o treino de Arco")
                        say("")
                        ---                                                   l
                        say("Aprender a Hbilidade de luta distante")
                        say("é uma boa forma de matar o seu inimigo")
                        say("Ele tera de caminhar muito para o vencer.")
                        say_reward("Requisito: Seja um Ninja no nível 5 e acima")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=1 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(2) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado")
                        ----------------------------------------------
 
                        say_title("Treinamento de Ninja Adagas Finalizado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (49,20)
                                pc.set_skill_level (50,20)
                                pc.set_skill_level (48,20)
                                pc.set_skill_level (47,20)
                                pc.set_skill_level (46,20)
                                pc.set_skill_level (51,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (140,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
 
                -- Hwanmoo Troop
                when teacher5.target.click or
                        skill_group1_5.chat."Iniciar o treino de Armas" or
                        skill_group2_5.chat."Iniciar o treino de Armas" or
                        skill_group3_5.chat."Iniciar o treino de Armas"
                        begin
                        target.delete("teacher5")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 2 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar suras Armas")
                                say("Escolha outro Professor.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
 
                        say_title("Iniciar o treino de Armas")
                        say("")
                        ---                                                   l
                        say("Treinamento de armas mágicas, é uma abilidade")
                        say("Que deixa os inimigos enfraquecidos. ")
                        say("Juntamente com o uso de armas malditas.")
                        say_reward("Requisito: Seja uma sura de nivel 5 ou mais")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=2 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(1) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado")
                        ----------------------------------------------
 
 
                        say_title("Treino da Habilidade Armas Terminado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (61,20)
                                pc.set_skill_level (62,20)
                                pc.set_skill_level (63,20)
                                pc.set_skill_level (64,20)
                                pc.set_skill_level (65,20)
                                pc.set_skill_level (66,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
 
                -- Black Horse Troop
                when teacher6.target.click or
                        skill_group1_6.chat."Iniciar o treino de Magias" or
                        skill_group2_6.chat."Iniciar o treino de Magias" or
                        skill_group3_6.chat."Iniciar o treino de Magias"
                        begin
                        target.delete("teacher6")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 2 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar suras magia")
                                say("Escolha outro Professor.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
 
                        say_title("Iniciar o treino de Magia")
                        say("")
                        ---                                                   l
                        say("No treinamento da magia negra oferece ")
                        say("métodos de maldição que enfraquecem seus inimigos")
                        say("ögretilir.")
                        say_reward("Requisito: Seja um sura de nivel 5 ou mais")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=2 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(2) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado.")
                        ----------------------------------------------
 
                        say_title("Treino da Hbilidade Magia Terminado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (76,20)
                                pc.set_skill_level (77,20)
                                pc.set_skill_level (78,20)
                                pc.set_skill_level (79,20)
                                pc.set_skill_level (80,20)
                                pc.set_skill_level (81,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
 
                -- Heavenly Dragon Troop
                when teacher7.target.click or
                        skill_group1_7.chat."Iniciar o treino de Dragão" or
                        skill_group2_7.chat."Iniciar o treino de Dragão" or
                        skill_group3_7.chat."Iniciar o treino de Dragão"
                        begin
                        target.delete("teacher7")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 3 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar Shaman Dragão")
                                say("Escolha outro Professor.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
                        ----------------------------------------------
 
                        say_title("Iniciar o Treino de Dragão")
                        say("")
                        ---                                                   l
                        say("O poder do Deus do Dragão em suas mãos ")
                        say("dirigindo ataques de fogo fortes. ")
                        say("com magia de resistência do deus Dragão. ")
                        say("Eles aprendem a usar sua proteção.")
                        say_reward("Requisito: Seja um Shaman level 5 ou a cima")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=3 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(1) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado.")
                        ----------------------------------------------
 
                        say_title("Treino de Dragão Finalizado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (91,20)
                                pc.set_skill_level (92,20)
                                pc.set_skill_level (93,20)
                                pc.set_skill_level (94,20)
                                pc.set_skill_level (95,20)
                                pc.set_skill_level (96,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
 
                -- Thunder Light Troop
                when teacher8.target.click or
                        skill_group1_8.chat."Iniciar o treino de Cura" or
                        skill_group2_8.chat."Iniciar o treino de Cura" or
                        skill_group3_8.chat."Iniciar o treino de Cura"
                        begin
                        target.delete("teacher8")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 3 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar shaman Cura")
                                say("Escolha outro Professor.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
 
                        ----------------------------------------------
 
                        say_title("Iniciar o treino de Cura")
                        say("")
                        ---                                                   l
                        say("No treinamento da cura, ajuda os amigos ")
                        say("E desfaz os inimigos Com fortes raios")
                        say("Aprenda a usar a cura para seu beneficio.")
                        say_reward("Requisito: Shaman level 5 ou mais")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Não Iniciar")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=3 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(2) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado.")
                        ----------------------------------------------
 
                        say_title("Treino de cura Finalizado.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Porque você escolheu aprender habilidades ")
                                say("Eu as dou como Mestre")
                                say("Para as evoluir você precisa do seu livro de habilidades.")
                                say_title("Informação:")
                                say_reward("Recebeu habilidades a Mestre.")
                                say("")
                                pc.set_skill_level (106,20)
                                pc.set_skill_level (107,20)
                                pc.set_skill_level (108,20)
                                pc.set_skill_level (109,20)
                                pc.set_skill_level (110,20)
                                pc.set_skill_level (111,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
  
 
                -- Lycan Light Troop
                when teacher9.target.click or
                        skill_group1_9.chat."Iniciar o treino de Instinto" or
                        skill_group2_9.chat."Iniciar o treino de Instinto" or
                        skill_group3_9.chat."Iniciar o treino de Instinto"
                        begin
                        target.delete("teacher8")
 
                        ----------------------------------------------
                        local pc_job=pc.get_job()
                        if pc_job != 4 then -- !!!
                                ---                                                   l
                                say_title("Educação incorreta ")
                                say("")
                                say("Peço imensa desculpa.")
                                say("Somente posso ajudar Lycan Instinto")
                                say("você pode escolher.")
                                say("")
 
                                if pc_job==0 then
                                        ---                                                   l
                                        say_reward("Você é  um Guerreiro Corpo! ")
                                        say_reward("Você é  um Gerreiro Mental! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==1 then
                                        say_reward("Você é  um Ninja Adagas! ")
                                        say_reward("Você é  um Ninja Arco! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==2 then
                                        say_reward("Você é um Sura Armas! ")
                                        say_reward("Você é um Sura Magia! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==3 then
                                        say_reward("Você é um Shaman Dragão! ")
                                        say_reward("Você é um Shaman cura! ")
                                        say_reward("Escolha outro Professor.")
                                elseif pc_job==4 then
                                        say_reward("Você é um Lycam Instinto! ")
                                        say_reward("Escolha outro Professor.")
                                end
                                say("")
                                return
                        end
 
                        ----------------------------------------------
 
                        say_title("Treinar Instinto")
                        say("")
                        ---                                                   l
                        say("Como estão as suas garras? ")
                        say("Bem vou lhe enssinar uma arte para o ajudar")
                        say("Vai aprender a arte de Instinto..")
                        say_reward("Informação: Ser do nivel 5 ou mais")
                        say("")
 
                        ----------------------------------------------
                        local s=select("Iniciar", "Inda Não")
 
                        if 2 == s then
                                return
                        end
 
                        if pc.get_job()!=4 or pc.get_skill_group()!=0 then
                                test_chat("npc_is_same_job:"..bool_to_str(npc_is_same_job()))
                                test_chat("pc.get_skill_group:"..pc.get_skill_group())
                                test_chat("pc_job:"..pc.get_job())
                                return
                        end
 
                        set_state("start")
                        pc.set_skill_group(1) -- !!!
                        pc.clear_skill()
                        char_log(0, "CLEAR_SKILL", "O próximo talento natural quando o professor é liberado.")
                        ----------------------------------------------
 
                        say_title("Eu escolhi a educação instintiva.")
                        ---                                                   l
                        say("Parabens!")
 
                        if not pc.is_clear_skill_group() then
                                           ---                                                   l
                                say("Aprendeu as abilidades a Mestre ")
                                say("Eu não o posso ajudar mais o resto você vai")
                                say("precisar do seu livro de habilidades para desenvolver.")
                                say_title("Informação:")
                                say_reward("Habilidades Dadas como Mestre.")
                                say("")
                                pc.set_skill_level (170,20)
                                pc.set_skill_level (171,20)
                                pc.set_skill_level (172,20)
                                pc.set_skill_level (173,20)
                                pc.set_skill_level (174,20)
                                pc.set_skill_level (175,20)
                                pc.set_skill_level (137,20)
                                pc.set_skill_level (138,20)
                                pc.set_skill_level (139,20)
                                pc.set_skill_level (141,40)
                                pc.set_skill_level (142,40)
                                pc.set_skill_level (131,10)
                                pc.set_skill_level (129,40)
                                pc.set_skill_level (128,20)
                                pc.set_skill_level (127,20)
                                pc.set_skill_level (126,20)
                                pc.set_skill_level (124,40)
                                pc.set_skill_level (121,40)
                                pc.set_skill_level (122,2)
                        else
                                say_reward("Quando você escolhe um novo curso,")
                                say_reward("Você não terá mais pontos de experiência.")
                                say("")
                        end
                        clear_letter()
                end
 
        end -- end_of_state: run
end -- end_of_quest

 

6 - skill_reset2

Spoiler
quest skill_reset2 begin
    state start begin
        when 9006.chat."Redefinição de habilidade." begin
			say_title(mob_name(npc.get_race())..":")
			say("")
			---
			if(math.floor(get_global_time()/86400) == pc.getf("skill_reset2","time")) then
				say("Você já redefiniu suas habilidades. Lembra? ")
				say("Eu sei por estar tão exausto você pode perder a cabeça.")
				say("Essa mudança pode ser alterada pasdado 1 dia .")
				return
			elseif(pc.get_level() < 5) then
				say("Você é apenas um Iniciante e não aprendeu nada")
				say("Vá e aprenda algo primeiro!")
				say("")
				return
			elseif(pc.get_skill_group() == 0) then
				say("A memória já está vazia não tem Habilidades.")
				say("")
				return
			end
			local cost
			if(pc.get_level() > 30) then
				cost = 10000 + pc.level * 3000
			else
				cost = 10000 + pc.level * 2000
			end
			say("Olá está no lugar certo")
			say("mas você parece canssado.")
			say("Eu ajudo as pessoas a esquecer as suas Habilidades. ")
			say("Então você quer começasr de novo?")
			say("E esquecer as suas antigas Habilidades?")
			say("Para o fazer tem um custo!")
			say_reward("Preço : "..cost.." Yang.")
			say("")
			local s = select("Quero Esquecer","Não Obrigado")
			if(s == 2) then
				return
			end
			if(pc.money < cost) then
				say_title(mob_name(npc.get_race())..":")
				say("")
				---
				say("Acha que sou rica não taraz Yang?.")
				say("Com a minha idade eu não posso trabalhar,")
				say("Preciso de ganhar algum para viver.")
				return
			end
			pc.setf("skill_reset2","time",math.floor(get_global_time()/259000))
			pc.change_gold(-cost)
			pc.clear_skill()
			pc.set_skill_group(0)
			set_quest_state("skill_group","run")
		end
    end
end

 

7 - skil_p

Spoiler
---pc.set_skill_level
---pc.get_skill_level
quest pskill begin
	state start begin
		when 50512.use begin
		local meslek = pc.get_job()
		local grup = pc.get_skill_group()
		if meslek == 0 then
			if grup == 1 then
			say(" Olá "..pc.get_name()..", ")
			say(" Por ser Gerreiro Corpo ,")
			say(" Selecione um abaixo! ")
			local bedensel = select (" Ataque Triplo " , " Espada Rotativa " , " raiva " , " Aura da Espada " , " Investida" , " Força Vital " , " Fechar ")
			if bedensel == 1 then
			local skillnumara = 1
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bedensel == 2 then
			local skillnumara = 2
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bedensel == 3 then
			local skillnumara = 3
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bedensel == 4 then
			local skillnumara = 4
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bedensel == 5 then
			local skillnumara = 5
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bedensel == 6 then
			local skillnumara = 6
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			elseif grup == 2 then
			say(" Olá "..pc.get_name()..", ")
			say(" So por ser Gerreiro Mental ,")
			say(" Selecione um a baixo! ")
			local zihinsel = select (" Força do Golpe " , " Ataque Destrutivo " , " Terramoto " , " Corpo Forte " , " Ataque de Espada " , " Orbe da Espada " , " Fechar ")
			if zihinsel == 1 then
			local skillnumara = 16
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif zihinsel == 2 then
			local skillnumara = 17
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif zihinsel == 3 then
			local skillnumara = 18
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif zihinsel == 4 then
			local skillnumara = 19
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif zihinsel == 5 then
			local skillnumara = 20
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif zihinsel == 6 then
			local skillnumara = 21
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			end
		elseif meslek == 1 then
			if grup == 1 then
			say(" Olá "..pc.get_name()..", ")
			say(" Por ser Ninja Adagas ,")
			say(" Selecione um a baixo! ")
			local yakýndovus = select (" Emboscar " , " Ataque Rápido " , " Adaga Rotativa " , " Modo Furtivo " , " Nuvem Venenosa " , " Veneno Insidioso " , " Fechar ")
			if yakýndovus == 1 then
			local skillnumara = 31
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif yakýndovus == 2 then
			local skillnumara = 32
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif yakýndovus == 3 then
			local skillnumara = 33
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif yakýndovus == 4 then
			local skillnumara = 34
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif yakýndovus == 5 then
			local skillnumara = 35
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif yakýndovus == 6 then
			local skillnumara = 36
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			elseif grup == 2 then
			say(" Olá "..pc.get_name()..", ")
			say(" Por ser Ninja Arco ,")
			say(" Selecione um a baixo! ")
			local uzakdovus = select (" Tiro Duplo " , " Chuva de Setas " , " Seta de Fogo " , " Flutuar " , " Seta Envenenada " , " Faisca" , " Fechar ")
			if uzakdovus == 1 then
			local skillnumara = 46
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif uzakdovus == 2 then
			local skillnumara = 47
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif uzakdovus == 3 then
			local skillnumara = 48
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif uzakdovus == 4 then
			local skillnumara = 49
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif uzakdovus == 5 then
			local skillnumara = 50
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif uzakdovus == 6 then
			local skillnumara = 51
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			end
		elseif meslek == 2 then
			if grup == 1 then
			say(" Olá "..pc.get_name()..", ")
			say(" Só porque é sura Armas ,")
			say(" Selecione um a baixo! ")
			local bsilah = select (" Ataque do Dedo " , " Espiral do Dragão " , " Lâmina Encantada " , " Receio " , " Armadura Negra " ,  " Remover Efeito " , " Kapat ")
			if bsilah == 1 then
			local skillnumara = 61
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bsilah == 2 then
			local skillnumara = 62
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bsilah == 3 then
			local skillnumara = 63
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bsilah == 4 then
			local skillnumara = 64
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bsilah == 5 then
			local skillnumara = 65
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif bsilah == 6 then
			local skillnumara = 66
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			elseif grup == 2 then
			say(" Olá "..pc.get_name()..", ")
			say(" Só porque é sura Magias ,")
			say(" Selecione um a baixo! ")
			local karabuyu = select (" Ataque Obscuro " , " Ataque Chama " , " Espírito Chama " , " Proteção Sombria " , " Ataque Espiritual " , " Bola da Escuridão " , " Fechar ")
			if karabuyu == 1 then
			local skillnumara = 76
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif karabuyu == 2 then
			local skillnumara = 77
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif karabuyu == 3 then
			local skillnumara = 78
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif karabuyu == 4 then
			local skillnumara = 79
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif karabuyu == 5 then
			local skillnumara = 80
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif karabuyu == 6 then
			local skillnumara = 81
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			end
		elseif meslek == 3 then
			if grup == 1 then
			say(" Olá "..pc.get_name()..", ")
			say(" Só porque é Shaman Dragão ,")
			say(" Selecione um a baixo! ")
			local ejderhay = select (" Talismã Voador " , " Ataque do Dragão " , " Rugido do Dragão " , " Benção " , " Poder Reflectivo " , " Ajuda do Dragão ",  " Fechar ")
			if ejderhay == 1 then
			local skillnumara = 91
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif ejderhay == 2 then
			local skillnumara = 92
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif ejderhay == 3 then
			local skillnumara = 93
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif ejderhay == 4 then
			local skillnumara = 94
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif ejderhay == 5 then
			local skillnumara = 95
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif ejderhay == 6 then
			local skillnumara = 96
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			elseif grup == 2 then
			say(" Olá "..pc.get_name()..", ")
			say(" Só porque é Shaman Cura ,")
			say(" Selecione um a baixo! ")
			local iyilestirme = select (" Atirar Raio " , " Invocar Raio " , " Garra de Raios " , " Curar " , " Rapidez " , " Energia ", " Kapat ")
			if iyilestirme == 1 then
			local skillnumara = 106
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif iyilestirme == 2 then
			local skillnumara = 107
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif iyilestirme == 3 then
			local skillnumara = 108
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif iyilestirme == 4 then
			local skillnumara = 109
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif iyilestirme == 5 then
			local skillnumara = 110
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif iyilestirme == 6 then
			local skillnumara = 111
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
			end
			end
		elseif meslek == 4 then
			if grup == 1 then
			say(" Olá "..pc.get_name()..", ")
			say(" Para treinar as suas Habilidades ,")
			say(" Selecione um abaixo! ")
			local icgudu = select (" Retalho " , " Sopro do Lobo " , " Salto do Lobo " , " Garra do Lobo " , " Alma do Lobo Rubro " , " Alma do Lobo Anil ", " Fechar ")
			if icgudu == 1 then
			local skillnumara = 170
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" O nível de habilidade deve ser de pelo menos 17. ")
			end
			elseif icgudu == 2 then
			local skillnumara = 171
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif icgudu == 3 then
			local skillnumara = 172
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif icgudu == 4 then
			local skillnumara = 173
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif icgudu == 5 then
			local skillnumara = 174
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			elseif icgudu == 6 then
			local skillnumara = 175
			local perfect = 40
			local skillseviye = pc.get_skill_level(skillnumara)
			if skillseviye >= 17 and skillseviye < 40 then
			say(" Se tiver mais de 17 pontos de Habilidade, ")
			say(" Você pode tornar esta habilidade perfeita. ")
			say(" Você quer fazê-lo? ")
			local secim = select (" Sim " , " Não ")
			if secim == 1 then
			pc.set_skill_level(skillnumara,perfect)
			pc.remove_item("50512",1)
			elseif secim == 2 then
			say(" Você é que sabe Adeus! ")
			end
			elseif skillseviye >= 40 then
			say(" Essa habilidade já é perfeita. ")
			elseif skillseviye < 17 then
			say(" Deve ter  pelo menos 17 pontos de Habilidade. ")
			end
			----
					end
				end
			end
		end
	end
end

 

8-Serviços ou anel de teleporte 

Spoiler
------ Bu files Yakup Polat tarafindan yapilmistir,skype : best_desiqner ------
-----------------------------------------------
quest servis begin
	state start begin
		when 40003.use begin
			say_title("Server: Serviços ")
			say("Serviços disponiveis para ti, "..pc.get_name())
			say("Queres usar algum?")
			local menu = select("Armazém " , "Teleporte " , "Anti Exp " , "Habilidades " , "Quests Biologo " , "Mapas Beta " , "Fechar ")
			if menu == 1 then
				if pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
					syschat("Não podes abrir o Armazém dentro da torre.")
					return
				elseif pc.get_map_index() == 73 then
					syschat("Não podes abrir o Armazém dentro da cave 2.")
					return
				elseif pc.get_map_index() == 211 then
					syschat("Não podes abrir o Armazém dentro da cave 3.")
					return
				elseif pc.get_map_index() == 28 then
					syschat("Não podes abrir o Armazém na area de evetos.")
					return
				elseif pc.get_map_index() >= 790000 and pc.get_map_index() < 800000 or pc.get_map_index() == 79 then
					syschat("Não podes abrir o Armazém no templo do Dragão.")
					return
				else
					game.open_safebox()
					return
				end
			elseif menu == 2 then
				say_title("Teste server: Serviços ")
				say("Para onde queres ir?")
				local s = select("Reinos ","Para as Florestas ","Cave das Aranhas ","Entrada da Atlandida ","Outras Regiões ", "Zona comercial ","Fechar ")
				if s == 1 then
					say_title("Teste server: Serviços ")
					say("Queres ir a outro Reino?")
					local ss = select("Reino Vermelho(Cidade.1) ","Reino Vermelho(Cidade.2) ","Reino Amarelo (Cidade.1) ","Reino Amarelo (Cidade.1) ","Reino Azul (Cidade.1) ","Reino Azul (Cidade.2) ","Fechar ")
					if ss == 1 then
						pc.warp(474300,954800)
					elseif ss == 2 then
						pc.warp(360800,877600)
					elseif ss == 3 then
						pc.warp(63800,166400)
					elseif ss == 4 then
						pc.warp(138500,234900)
					elseif ss == 5 then
						pc.warp(959800,268400)
					elseif ss == 6 then
						pc.warp(873100,242600)
					elseif ss == 7 then
						return
					end
				elseif s == 2 then
					say_title("Teste server: Serviços ")
					say("Queres Ir para as Florestas?")
					local sss = select("Floresta ","Bosque Rubro (Inicio) ","Bosque Rubro (Final) ","Fechar ")
					if sss == 1 then
						pc.warp(288700,5700)
					elseif sss == 2 then
						pc.warp(1119900,70800)
					elseif sss == 3 then
						pc.warp(1118100,8600)
					elseif sss == 4 then
						return
					end
				elseif s == 3 then
					say_title("Teste server: Serviços ")
					say("Vamos a Cave das Aranhas?")
					local zindan = select("Cave das Aranhas.1 Inicio ","Cave das Aranhas 2. Final ", "Cave das Aranhas 3. Final ","Fechar ")
					if zindan == 1 then
						pc.warp(59800,497300)
					elseif zindan == 2 then
						pc.warp(704100,521900)
					elseif zindan == 3 then
						if pc.get_level() < 60 then
						say_title("Teste server: Serviços ")		
						say ( "Ir para a Cave das arnhas piso 3?" )
						say ( "So a level 60 podes ir! ")
						return
						end
						pc.warp(69200,611000)
					elseif zindan == 4 then
						return
					end
				elseif s == 4 then
					say_title("Teste server: Serviços ")
					say("Vou te teleportar para a entrada da Atlantida...")
					wait()
					pc.warp(284400,810700)
				elseif s == 5 then
					say_title("Teste server: Serviços ")
					say("Onde queres ir?")
					local sssssss = select("Vale Seungryong ","Montanha Sohan ","Deserto Yongbi ","Doyyumhwan ","Terra de Gigantes ","Torre do Demonio ","Fechar ")
					if sssssss == 1 then
						pc.warp(336000,755600)
					elseif sssssss == 2 then
						pc.warp(436400,215600)
					elseif sssssss == 3 then
						pc.warp(296800,547400)
					elseif sssssss == 4 then
						pc.warp(600800,687400)
					elseif sssssss == 5 then
						pc.warp(829900,763300)
					elseif sssssss == 6 then
						pc.warp(590500,110500)
					elseif sssssss == 7 then
						return
					end
					elseif s == 6 then
						say_title("Teste server: Serviços ")
					say("Vou te teleportar Para a Zona de Comercio.")
					wait()
					pc.warp(16558200,16575600)
				end
			elseif menu == 3 then
            if pc.getqf("antiexp") == 0 then
                pc.block_exp()
                pc.setqf("antiexp", 1)
                chat("Anti exp foi Activado.")
            elseif pc.getqf("antiexp") == 1 then
                pc.unblock_exp()
                pc.setqf("antiexp", 0)
                chat("Anti exp Desactivado.")
				end
			elseif menu == 4 then
				if pc.get_level() < 15 then
					say_title("Teste server: Serviços ")
					say("Vai upar mais um pouco.")
					return
				else
					local sure = pc.getqf("beceri_islem")
					if get_time() < sure then
						say_title("Teste server: Serviços ")
						say("Podes voltar a usar passado 5 minutos ")
						say("Aguarda 1 pouco.")
						say("")
						say_reward("Tempo restante :"..(math.ceil(sure-get_time())/60).." minuto")
						return
					else
						say_title("Teste server: Serviços ")				
						say("O que queres fazer?")				
						local skill = select("Descartar Habilidade ", "Fechar")
						if skill == 1 then
						say_title("Blade2 : Servis ")
						say_reward("De certeza de que desejas redefinir todas as tuas habilidades?")
						local skilleminmisin = select("Sim ","Não ")
						if skilleminmisin == 1 then
							if pc.get_skill_group()==0 then
								say_title("Teste server: Serviços ")
								say("")
								say("Não precisas de uma redefinição de habilidades.")
								say("Porque inda não tens habilidades.")
								say("")
							return
							end
							pc.setqf("beceri_islem",get_time()+60*5)
							char_log(0, "RESET_ALL", "RESET_SKILL_POINTS")
							pc.clear_skill()
							pc.set_skill_level (137,20)
							pc.set_skill_level (138,20)
							pc.set_skill_level (139,20)
							pc.set_skill_level (131,10)
							pc.set_skill_level (129,40)
							pc.set_skill_level (128,20)
							pc.set_skill_level (127,20)
							pc.set_skill_level (126,20)
							pc.set_skill_level (124,40)
							pc.set_skill_level (121,40)
							pc.set_skill_level (122,2)
							pc.set_skill_group(0)
							set_quest_state("skill_group","run")
						elseif skill == 3 then
							return
						end
					end
				end
			end	
			elseif menu == 5 then
				local index = pc.get_map_index()
				if index != 211 and index != 79 then
					if index == 72 or index == 73 or index == 41 or index == 1 or index == 21 then
						local b = pc.get_empire()
						command("setblockmode 1")
						if pc.getqf("bio_gittim") == 0 then
							local x = pc.getx()
							local y = pc.gety()
							say_title("Teste server: Serviços ")		
							say("Queres ir falar com o biólogo?")
							say("")
							local a = select(locale.yes,locale.no)
							if a == 1 then
								pc.setqf("bio_x",x)
								pc.setqf("bio_y",y)
								pc.setqf("bio_gittim",1)
								if b == 1 then
									pc.warp(498300,956800)
								elseif b == 2 then
									pc.warp(89300,182000)
								elseif b == 3 then
									pc.warp(950900,233400)
								end
							end
						else
							say_title("Teste server: Serviços ")
							say("Queres voltar para o último ponto?")
							say("")
							local c =  select(locale.yes,locale.no)
							if c == 1 then
								pc.setqf("bio_gittim",0)
								pc.warp(pc.getqf("bio_x")*100,pc.getqf("bio_y")*100)
							end
						end
					else
					say_title("Teste server: Serviços ")
						say("Esta seção apenas dispara ")
						say("Você pode usá-lo em sua caverna.")
						return
					end		
				else
					say_title("Teste server: Serviços ")
					say("No ninho da baronesa e na sala do dragão ") 
					say("Não podes usar esta partição.")
					return
				end
			elseif menu == 6 then
			say_title("Teste server: Serviços ")		
			say("A pouco tempo atrás, foram descobertos mapas beta.")
			say("Os mapas beta são lugares muito perigosos Mesmo para min!")
			say("Mas se me deres algum yang 10k posso te levar la!")
			say_reward("Para quql mapa queres Ir? ")
			local s = select("Mapa Cap Dragão ","Baia Nefrit","Montanhas do Trovão ","Baia Gautama ","Eu não quero ir! ")
			if s == 1 then
			if pc.get_level() < 80 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Deves ser do nivel 80! ")
			return
			end
			if pc.get_gold() < 10000000 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Tens que ter 10k yang! ")
			return
			end
			say_title("Teste server: Serviços ")		
			say("Vais de seguida para a Aldeia Cap Dragão..")
			wait()
			pc.change_gold(-10000000)
			pc.warp(1104300,1788500)
			end
			if s == 2 then 
			if pc.get_level() < 80 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Deves ser do nivel 80! ")
			return
			end
			if pc.get_gold() < 10000000 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Tens que ter 10k yang! ")
			return
			end
			say_title("Teste server: Serviços ")		
			say("Vais de seguida para a baía Nephrite..")
			wait()
			pc.change_gold(-10000000)
			pc.warp(1087900,1655900)
			end
			if s == 3 then 
			if pc.get_level() < 80 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Deves ser do nivel 80! ")
			return
			end
			if pc.get_gold() < 10000000 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Tens que ter 10k yang! ")
			return
			end
			say_title("Teste server: Serviços ")		
			say("Vais de seguida para as Montanhas do Trovão..")
			wait()
			pc.change_gold(-10000000)
			pc.warp(1135500,1653400)
			end
			if s == 4 then 
			if pc.get_level() < 80 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Deves ser do nivel 80! ")
			return
			end
			if pc.get_gold() < 10000000 then
			say_title("Teste server: Serviços ")		
			say ( "Para ir para mapeamentos Beta" )
			say ( "Tens que ter 10k yang! ")
			return
			end
			say_title("Teste server: Serviços ")		
			say("Vais de seguida para a Baia Gautama..")
			wait()
			pc.change_gold(-10000000)
			pc.warp(1226300,1681100)
				end
			elseif menu ==  7 then
				return
				end	
			end
		when login with pc.get_map_index() == 210 and pc.get_map_index() == 209 and pc.get_map_index() == 208 and pc.get_map_index() == 207 and pc.get_level() < 80 begin
			chat("Para poderes acessar este mapa, é necessário Nivel 80!")
			warp_to_village()
			end
		when login with pc.get_map_index() == 211 and pc.get_level() < 60 begin
			chat("Para poderes acessar este mapa, precisas ter um personagem acima de Nivel 60!")
			warp_to_village()
			end
        when login begin
            if pc.getqf("antiexp") == 1 then
			pc.block_exp()
			chat("Anti-EXP Sistema activo. Não ganharás exp durante este tempo.")
			end
		end	
	end
end

 

9 - Armazem

Spoiler
quest warehouse begin
    state start begin
		when 9005.click begin			
			if pc.getqf("pw")==0 then
				say_title("Guarda do Armazém")
				say("Olá Amigo,")
				say("Como deves imaginar nesse teu inventário")
				say("năo te vai caber todos os itens que ")
				say("eventualmente queiras apanhar.")
				say("Eu ofreço-te aqui um armazém")
				say("Para guardares todos os teus itens")
				say("Mas terás que pagar algum yang.")
				say("É Só 500 Yang.")
				say_reward("Queres Comprar um Armazém?")
				local s=select("Quero", "Năo Quero")
				if s==2 then
					return
				end
				if pc.get_gold()<500 then
					say_title("Guarda do Armazém")
					say("Năo tens yang Suficiente.")
					return
				end
				say_title("Guarda do Armazém")
				say("Oh! Muito Obrigado Por Comprares")
				say("o Armazém.")
				say_reward("A Tua Password é 000000")
				pc.change_gold(-500)
				game.set_safebox_level(1)
				pc.setqf("pw", 1)
			elseif pc.getqf("pw")==1 then 
				say_title("Guarda do Armazém")
				say("Que Queres Fazer?")
				local f = select("Abrir Armazém", "Comprar Barras de Ouro", "Abrir Armazém de Artigos", "Sair")
				if f == 1 then
					game.open_safebox()
					setskin(NOWINDOW)
				elseif f == 2 then				
					npc.open_shop()
					setskin(NOWINDOW)				
				elseif f == 3 then
					game.open_mall()
					setskin(NOWINDOW)
				end
			end
		end
    end
end

 

10- info do cavalo no guarda 

Spoiler
quest horse_guard begin
        state start begin
                when 20349.chat."Informaçőes sobre meu cavalo" begin
                        local s=number(1, 7)
                        if 1>=s then -- 14.29% (1/7)
                                ---                                                   l
                                say("Em quanto estiver montado no cavalo,")
                                say("ele irá se cansar. Vocę năo pode montar num")
                                say("cavalo sem vida. Deve deixá-lo descansar .")
                                say(" ")
                        elseif 2>=s then -- 14.29% (1/7)
                                say("Dizem que um cavalo morto pode ser ressucitado")
                                say("com ervas. Mas essas ervas săo guardadas pelos")
                                say("Macacos, e parece ser difícil buscá-las. Se")
                                say("vocę for apanhado por um Macaco, eles")
                                say("te transformam num Macaco também!")								
                        elseif 3>=s then -- 14.29% (1/7)
                                say("Há diferentes habilidades de montaria. Vocę pode")
                                say("melhorar o nivel do seu cavalo o deixando mais")
                                say("forte. Mas apenas uma pessoa pode usar o cavalo ")
                        elseif 4>=s then -- 14.29% (1/7)
                                say("Os cavalos precisam de vários tipos de comida, ")
                                say("nas diferentes fases de crescimento.")
                                say("Os cavalos pequenos comem Feno, os médios comem.")
                                say("Cenouras e os grandes comem Ginseng Vermelhos.")
                                say("")
                                say("Como pode imaginar, eles tęm mais resistęncia")
                                say("do que os humanos.")
                                say("")
                        elseif 6>=s then -- 14.29% (1/7)
                                say("Se o seu cavalo for saudável, é marcado como")
                                say("verde, se for amarelo, o seu cavalo está com fome")
                                say("e se for vermelho, o seu cavalo está faminto")
                                say("Vocę deve alimentá-lo para que ele volte ")
                                say("ao estado verde outra vez.")
                                say("Será um grande problema se o seu cavalo morrer.")
                                say("")
                                say("")
                        elseif 7>=s then -- 14.29% (1/7)
                                say("Os cavalos tęm 3 fases de crescimento:")
                                say("pequeno, médio e grande. Para o seu crescimento,")
                                say("")								
                        elseif 7>=s then -- 14.29% (1/7)								
                                say("Para iniciar a missăo do cavalo é preciso")
                                say("ter uma Medalha Equestre. Poderá adquirir")
                                say("uma no Calabouços dos Macacos.")
                        end
                end
        end
        state __COMPLETE__ begin
                when enter begin
                        q.done()
                end
        end
end

 

11- cards_event

Spoiler
quest cards_event begin
    state start begin
		when login or enter with game.get_event_flag("cards_event") == 0 and pc.getqf("first_click") == 1 begin
		pc.setqf("first_click",0)
		end
		
        when login or enter with game.get_event_flag("cards_event") != 0 begin
        cmdchat("cards icon")
		local mapIndex = pc.get_map_index()
			if mapIndex == 1 or mapIndex == 21 or mapIndex == 41 then
				if find_npc_by_vnum(20417) == 0 then  
					if mapIndex == 1 then
						mob.spawn(20417, 612, 612, 1, 1, 1)
					elseif mapIndex == 21 then
						mob.spawn(20417, 595, 622, 1, 1, 1)
					elseif mapIndex == 41 then
						mob.spawn(20417, 354, 735, 1, 1, 1)
					end
				end
			end
        end
        when 79505.pick with pc.count_item(79505) >= 24 begin
            pc.remove_item(79505, 24)
            pc.give_item2(79506)
        end
		
		when 20417.chat."Veja os prêmios" with game.get_event_flag("cards_event") != 0 begin
		local items = {item_name(50267), item_name(50268), item_name(50269), "Fechar"}
		local points = {"Pontuação superior a 400", "Entre 400 e 299 pontos", "299 ou menus pontos"}
		local rewards = {
						{55403,55404,55405,55406,79506,71192,71193,50513,55003,55001,55009,55004,55005,51505,51506,71224,71225,"700000 EXP","500000 Yang","700000 Yang"},
						{55401,55403,55405,79506,71192,71193,50513,55003,55003,55001,55009,55004,55005,51505,51506,71224,71225,"700000 EXP","500000 Yang","700000 Yang"},
						{79505,"700000 EXP","500000 Yang","700000 Yang"},
						}
		local s = select_table(items)
			if s == 4 then
			return
			end
		
			if s == 1 then
			say_item_vnum(50267)
			say("Condição: 400 ou mais pontos")
			say("")
			say("Pode conter objetos:")
			say("")
			say(item_name(rewards[s][1]))
			say(item_name(rewards[s][2]))
			say(item_name(rewards[s][3]))
			say(item_name(rewards[s][4]))
			say("")
			wait()
			say(item_name(rewards[s][5]))
			say(item_name(rewards[s][6]))
			say(item_name(rewards[s][7]))
			say(item_name(rewards[s][8]))
			say(item_name(rewards[s][9]))
			say(item_name(rewards[s][10]))
			say(item_name(rewards[s][11]))
			say(item_name(rewards[s][12]))
			say(item_name(rewards[s][13]))
			say(item_name(rewards[s][14]))
			say(item_name(rewards[s][15]))
			say(item_name(rewards[s][16]))
			say("")
			wait()
			say(item_name(rewards[s][17]))
			say(rewards[s][18])
			say(rewards[s][19])
			say(rewards[s][20])
			say("")
			elseif s == 2 then
			say_item_vnum(50268)
			say("Condição: entre 400 e 299 pontos")
			say("")
			say("Pode conter objetos:")
			say("")
			say(item_name(rewards[s][1]))
			say(item_name(rewards[s][2]))
			say(item_name(rewards[s][3]))
			say(item_name(rewards[s][4]))
			say("")
			wait()
			say(item_name(rewards[s][5]))
			say(item_name(rewards[s][6]))
			say(item_name(rewards[s][7]))
			say(item_name(rewards[s][8]))
			say(item_name(rewards[s][9]))
			say(item_name(rewards[s][10]))
			say(item_name(rewards[s][11]))
			say(item_name(rewards[s][12]))
			say(item_name(rewards[s][13]))
			say(item_name(rewards[s][14]))
			say(item_name(rewards[s][15]))
			say(item_name(rewards[s][16]))
			say("")
			wait()
			say(item_name(rewards[s][17]))
			say(rewards[s][18])
			say(rewards[s][19])
			say(rewards[s][20])
			say("")
			elseif s == 3 then
			say_item_vnum(50269)
			say("Condição: 299 ou seis pontos")
			say("")
			say("Pode conter objetos:")
			say("")
			say(item_name(rewards[s][1]))
			say(rewards[s][2])
			say(rewards[s][3])
			say(rewards[s][4])
			say("")
			end
		end
		
		when 20417.chat."Top List" with game.get_event_flag("cards_event") != 0 begin
			if pc.getqf("first_click") == 0 then
			game.mysql_query("insert into log.okay_event values('"..pc.get_player_id().."', '"..pc.get_name().."', '0')")
			pc.setqf("first_click",1)
			end
		local my_points_rund = game.mysql_query("select points from log.okay_event where pid='"..pc.get_player_id().."' ORDER BY points DESC LIMIT 1")
		local my_points_total = game.mysql_query("select sum(points) as spoints from log.okay_event where pid='"..pc.get_player_id().."' LIMIT 1")
		local my_points_rund_1 = tonumber(my_points_rund[1][1])
		local my_points_total_1 = tonumber(my_points_total[1][1])
		local a = select("Grande Prêmio","Pontos totais","Top Tour Score ","Fechar")
			if a == 1 then
			say("10 jogadores com o maior resultado total")
			say("Ganham os segintes prêmios.")
			say("")
			say("Primeiro: 10 "..item_name(50267))
			say("")
			say("Segundo: 5 "..item_name(50267))
			say("")
			say("Terceiro: 3 "..item_name(50267))
			say("")
			say("Do quarto ao décimo: 1 "..item_name(50267))
			say("")
			elseif a == 2 then
			say_title("Pontos totais")
			say("")
			say(pc.get_okay_global_rank())
			say("")
			say("Mostrar: "..my_points_total_1)
			elseif a == 3 then
			say_title("Top Tour Score ")
			say("")
			say(pc.get_okay_rund_rank())
			say("")
			say("Mostrar: "..my_points_rund_1)
			else
			return
			end
		end
		
		when 20417.chat."GM: Activar Evento" with pc.is_gm() begin
			if game.get_event_flag("cards_event") == 0 then
			say("O evento de cartas está desligado.")
			say("Você deseja abri-lo?")
				if select("Sim","Não") == 2 then
				return
				end
			say("Excluir entradas do evento anterior")
			say("Quer excluir?")
				if select("Sim","Não") == 1 then
				game.mysql_query("delete from log.okay_event where pid > 0")
				end
			game.set_event_flag("cards_event",1)
			else
			say("O evento de cartas está a decorrer.")
			say("Você quer fechá-lo?")
				if select("Sim","Nao") == 2 then
				return
				end
			
			game.set_event_flag("cards_event",0)
			end
		end
		
		when 71194.use with game.get_event_flag("cards_event") != 0 begin
		pc.remove_item("71194",1)
		pc.give_item2("79506",5)
		end
		
		when 71195.use with game.get_event_flag("cards_event") != 0 begin
		pc.remove_item("71195",1)
		pc.give_item2("79506",1)
		end
		
		when 71196.use with game.get_event_flag("cards_event") != 0 begin
		pc.remove_item("71196",1)
		pc.give_item2("79505",6)
		end
    end
end

 

12 - serviços de gm ou painel de eventos 

Spoiler
quest cards_event begin
    state start begin
		when login or enter with game.get_event_flag("cards_event") == 0 and pc.getqf("first_click") == 1 begin
		pc.setqf("first_click",0)
		end
		
        when login or enter with game.get_event_flag("cards_event") != 0 begin
        cmdchat("cards icon")
		local mapIndex = pc.get_map_index()
			if mapIndex == 1 or mapIndex == 21 or mapIndex == 41 then
				if find_npc_by_vnum(20417) == 0 then  
					if mapIndex == 1 then
						mob.spawn(20417, 612, 612, 1, 1, 1)
					elseif mapIndex == 21 then
						mob.spawn(20417, 595, 622, 1, 1, 1)
					elseif mapIndex == 41 then
						mob.spawn(20417, 354, 735, 1, 1, 1)
					end
				end
			end
        end
        when 79505.pick with pc.count_item(79505) >= 24 begin
            pc.remove_item(79505, 24)
            pc.give_item2(79506)
        end
		
		when 20417.chat."Veja os prêmios" with game.get_event_flag("cards_event") != 0 begin
		local items = {item_name(50267), item_name(50268), item_name(50269), "Fechar"}
		local points = {"Pontuação superior a 400", "Entre 400 e 299 pontos", "299 ou menus pontos"}
		local rewards = {
						{55403,55404,55405,55406,79506,71192,71193,50513,55003,55001,55009,55004,55005,51505,51506,71224,71225,"700000 EXP","500000 Yang","700000 Yang"},
						{55401,55403,55405,79506,71192,71193,50513,55003,55003,55001,55009,55004,55005,51505,51506,71224,71225,"700000 EXP","500000 Yang","700000 Yang"},
						{79505,"700000 EXP","500000 Yang","700000 Yang"},
						}
		local s = select_table(items)
			if s == 4 then
			return
			end
		
			if s == 1 then
			say_item_vnum(50267)
			say("Condição: 400 ou mais pontos")
			say("")
			say("Pode conter objetos:")
			say("")
			say(item_name(rewards[s][1]))
			say(item_name(rewards[s][2]))
			say(item_name(rewards[s][3]))
			say(item_name(rewards[s][4]))
			say("")
			wait()
			say(item_name(rewards[s][5]))
			say(item_name(rewards[s][6]))
			say(item_name(rewards[s][7]))
			say(item_name(rewards[s][8]))
			say(item_name(rewards[s][9]))
			say(item_name(rewards[s][10]))
			say(item_name(rewards[s][11]))
			say(item_name(rewards[s][12]))
			say(item_name(rewards[s][13]))
			say(item_name(rewards[s][14]))
			say(item_name(rewards[s][15]))
			say(item_name(rewards[s][16]))
			say("")
			wait()
			say(item_name(rewards[s][17]))
			say(rewards[s][18])
			say(rewards[s][19])
			say(rewards[s][20])
			say("")
			elseif s == 2 then
			say_item_vnum(50268)
			say("Condição: entre 400 e 299 pontos")
			say("")
			say("Pode conter objetos:")
			say("")
			say(item_name(rewards[s][1]))
			say(item_name(rewards[s][2]))
			say(item_name(rewards[s][3]))
			say(item_name(rewards[s][4]))
			say("")
			wait()
			say(item_name(rewards[s][5]))
			say(item_name(rewards[s][6]))
			say(item_name(rewards[s][7]))
			say(item_name(rewards[s][8]))
			say(item_name(rewards[s][9]))
			say(item_name(rewards[s][10]))
			say(item_name(rewards[s][11]))
			say(item_name(rewards[s][12]))
			say(item_name(rewards[s][13]))
			say(item_name(rewards[s][14]))
			say(item_name(rewards[s][15]))
			say(item_name(rewards[s][16]))
			say("")
			wait()
			say(item_name(rewards[s][17]))
			say(rewards[s][18])
			say(rewards[s][19])
			say(rewards[s][20])
			say("")
			elseif s == 3 then
			say_item_vnum(50269)
			say("Condição: 299 ou seis pontos")
			say("")
			say("Pode conter objetos:")
			say("")
			say(item_name(rewards[s][1]))
			say(rewards[s][2])
			say(rewards[s][3])
			say(rewards[s][4])
			say("")
			end
		end
		
		when 20417.chat."Top List" with game.get_event_flag("cards_event") != 0 begin
			if pc.getqf("first_click") == 0 then
			game.mysql_query("insert into log.okay_event values('"..pc.get_player_id().."', '"..pc.get_name().."', '0')")
			pc.setqf("first_click",1)
			end
		local my_points_rund = game.mysql_query("select points from log.okay_event where pid='"..pc.get_player_id().."' ORDER BY points DESC LIMIT 1")
		local my_points_total = game.mysql_query("select sum(points) as spoints from log.okay_event where pid='"..pc.get_player_id().."' LIMIT 1")
		local my_points_rund_1 = tonumber(my_points_rund[1][1])
		local my_points_total_1 = tonumber(my_points_total[1][1])
		local a = select("Grande Prêmio","Pontos totais","Top Tour Score ","Fechar")
			if a == 1 then
			say("10 jogadores com o maior resultado total")
			say("Ganham os segintes prêmios.")
			say("")
			say("Primeiro: 10 "..item_name(50267))
			say("")
			say("Segundo: 5 "..item_name(50267))
			say("")
			say("Terceiro: 3 "..item_name(50267))
			say("")
			say("Do quarto ao décimo: 1 "..item_name(50267))
			say("")
			elseif a == 2 then
			say_title("Pontos totais")
			say("")
			say(pc.get_okay_global_rank())
			say("")
			say("Mostrar: "..my_points_total_1)
			elseif a == 3 then
			say_title("Top Tour Score ")
			say("")
			say(pc.get_okay_rund_rank())
			say("")
			say("Mostrar: "..my_points_rund_1)
			else
			return
			end
		end
		
		when 20417.chat."GM: Activar Evento" with pc.is_gm() begin
			if game.get_event_flag("cards_event") == 0 then
			say("O evento de cartas está desligado.")
			say("Você deseja abri-lo?")
				if select("Sim","Não") == 2 then
				return
				end
			say("Excluir entradas do evento anterior")
			say("Quer excluir?")
				if select("Sim","Não") == 1 then
				game.mysql_query("delete from log.okay_event where pid > 0")
				end
			game.set_event_flag("cards_event",1)
			else
			say("O evento de cartas está a decorrer.")
			say("Você quer fechá-lo?")
				if select("Sim","Nao") == 2 then
				return
				end
			
			game.set_event_flag("cards_event",0)
			end
		end
		
		when 71194.use with game.get_event_flag("cards_event") != 0 begin
		pc.remove_item("71194",1)
		pc.give_item2("79506",5)
		end
		
		when 71195.use with game.get_event_flag("cards_event") != 0 begin
		pc.remove_item("71195",1)
		pc.give_item2("79506",1)
		end
		
		when 71196.use with game.get_event_flag("cards_event") != 0 begin
		pc.remove_item("71196",1)
		pc.give_item2("79505",6)
		end
    end
end

 

13 - guild_building

Spoiler
quest guild_building begin
    state start begin
        when 20040.click begin
            say_title("Corretor de Terras:")
                say("")
                say("Sou o vendedor de terrenos.")
                say("Antes estes terrenos eram tranquilos, as pessoas")
                say("viviam tranquilamente, havia terrenos suficiente")
                say("para todos. Mas agora com tantos monstros")
                say("as pessoas vivem com medo, e o terreno tornou-se")
                say("deserto, se quiser pode comprar este terreno para sua guild")
                say("Quer comprar este terreno?")
                say("")

            local s = select(locale.yes, locale.no)

            if s == 1 then
                if not pc.is_guild_master() then
                    say_title("Corretor de Terras:")
                        say("")
                        say("Você não pode compra nenhum terreno")
                        say("pós não é lider de guild.")
						say("")
                elseif building.has_land(pc.get_guild()) then
                    say_title("Corretor de Terras:")
                        say("")
                        say("Desculpa , mas cada guilda só pode ter um terreno.")
                        say("")
                else
                    local land_id = building.get_land_id(pc.get_map_index(), pc.get_x()*100, pc.get_y()*100)

                    if land_id == 0 then
                        say_title("Corretor de Terras:")
                        say("")
                        say("Não consigo encontrar está terra.")
                    else
                        local price, owner, guild_level_limit = building.get_land_info(land_id)
                        say_title("Corretor de Terras:")
                        say("")
                        say("Comprar um terreno não é uma tarefa fácil:")
                        say("Sua guilda precisa ter nível "..guild_level_limit.." .")
                        say("E também precisa de "..price..locale.gold.." .")

                        if guild.level(pc.get_guild()) < guild_level_limit then
                            say("")
                                say("Vejo que você não possui os requisitos necessarios.")
                                say("Volte , quando tiver pronto realmente.")
                        else
                            say("")
                                say("Deseja mesmo compra este terreno ?")

                            s = select(locale.yes, locale.no)

                            if s == 1 then
                                local price, owner, guild_level_limit = building.get_land_info(land_id)

                                if owner!= 0 then
                                    say_title("Corretor de Terras:")
                                say("")
                                        say("Tem outras guildas interessadas neste terreno.")
                                        say("Fique atento..")
                                elseif pc.gold < price then
                                    say_title("Corretor de Terras:")
                                say("")
                                        say("Não possui gold suficiente.")
                                        say("Volte quando tiver com gold ...")
                                else
                                    pc.changegold(-price)
                                    building.set_land_owner(land_id, pc.get_guild())
                                    notice(guild.name(pc.get_guild()).." Agora é dono de um terreno!")
                                end
                            else
                                say_title("Corretor de Terras:")
                            say("")
                                say("Hmm.. volte quando quiser realmente")
                    say("comprar um terreno.")
                            end
                        end
                    end
                end
            else
            say_title("Corretor de Terras:")
                    say("")
                    say("Hmm.. volte quando quiser realmente")
                    say("comprar um terreno.")
            end
        end
    end
end

 

14 - guild_building_alter_of_power

Spoiler
quest alter_of_power begin
        state start begin
                when 20077.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() begin
                        ---                                                   l
                        say_title("Guarda do Altar:")
                        say("")
                        say("Olá! Sou o Guarda do Altar.")
                        say("O altar permite aumentar o número")
                        say("de membros de uma guilda.")
                        say("Também pode expandir o altar")
                        say("De modo que o número de membros")
                        say("vá aumentando.")
                        say("")

                        if pc.getqf("build_level") == 0 then
                                pc.setqf("build_level", guild.level(pc.get_guild()))
                        end

                        wait()

                        if pc.getqf("build_level") < guild.level(pc.get_guild()) or guild.level(pc.get_guild()) >= 20 then
                                ---                                                   l
                                say_title("Guarda do Altar:")
                                say("")
                                say("Bem, está pronto para expandir o altar?")
                                say("Deseja mesmo continuar?")
                                say("")
                                say("Necessario ter:")
                                say("")
                                say_reward("25.000.000 Yang")
                                say_reward("10 Pedra da Fundação")
                                say_reward("15 Compensado")
                                say_reward("10 Tronco")
                                say("")

                                local s = select("Continuar", "Fechar")

                                if s == 1 then
                                        if pc.count_item(90010) >= 10 and pc.count_item(90012) >= 15 and pc.count_item(90011) >= 10 and pc.get_gold() >= 25000000 then
                                                say_title("Guarda do Altar:")
                                                say("")
                                                say("O altar foi expandido.")
                                                building.reconstruct(14062)
                                                pc.setqf("build_level", guild.level(pc.get_guild()))
                                                char_log(0, "GUILD_BUILDING", "alter_of_power 14062 constructed")

                                                pc.change_gold(-25000000)
                                                pc.remove_item("90010", 10)
                                                pc.remove_item("90011", 10)
                                                pc.remove_item("90012", 15)
                                        else
                                                say_title("Guarda do Altar:")
                                                say("")
                                                say("Não possui os materiais necessarios.")
                                                say("Quando tiver eles venha até min.")
                                                say("")
                                        end
                                elseif s == 2 then
                                say_title("Guarda do Altar:")
                                say("")
                                say("Se você mudar de idéia, volte.")
                                say("")
                                end
                        else
                                say_title("Guarda do Altar:")
                                say("")
                                say("Não pode ser expandido agora.")
                                say("")
                        end
                end

                when 20078.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() begin
                        say_title("Guarda do Altar:")
                        say("")
                        say("O altar pode ser expandido outra vez.")
                        say("")

                        wait()
                        say_title("Guarda do Altar:")
                        say("")

                        if pc.getqf("build_level") < guild.level(pc.get_guild()) or guild.level(pc.get_guild()) >= 20 then
                                say("Pode expandir o altar outra vez.")
                                say("Desta vez, precisa de:")
                                say("")
                                say_reward("30.000.000 Gold")
                                say_reward("15 Pedra da Fundação")
                                say_reward("20 Tronco")
                                say_reward("20 Compensado")
                                say("")

                                local s = select("Continuar", "Fechar")

                                if s == 1 then
                                        if pc.count_item(90010) >= 15 and pc.count_item(90012) >= 20 and pc.count_item(90011) >= 15 and pc.get_gold() >= 30000000 then
                                                say_title("Guarda do Altar:")
                                                say("")
                                                say("O altar será expandido.")
                                                say("")
                                                building.reconstruct(14063)
                                                pc.setqf("build_level", guild.level(pc.get_guild()))
                                                char_log(0, "GUILD_BUILDING", "alter_of_power 14063 constructed")

                                                pc.change_gold(-30000000)
                                                pc.remove_item("90010", 15)
                                                pc.remove_item("90011", 20)
                                                pc.remove_item("90012", 20)
                                        else
                                                say_title("Guarda do Altar:")
                                                say("")
                                                say("Não possui os materias necessarios.")
                                                say("Quando tiver eles venha até min.")
                                                say("")
                                        end
                                elseif s == 2 then
                                        say_title("Guarda do Altar:")
                                        say("")
                                        say("pode vim mas uma vez.")
                                        say("")
                                end
                        end
                end

                when 20079.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() begin
                        say_title("Guarda do Altar:")
                        say("")
                        say("")
                        say("Não pode mas expandir o altar , ele já está no maximo.")
                        say("")
                        say("")
                end

                when 20077.click or 20078.click or 20079.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master()!= true begin
                        say_title("Guarda do Altar:")
                        say("Quanto maior for o nível do Altar")
                        say("Poderá ter mais membros na guilda.")
                end
        end
end

 

15 - guild_building_melt

Spoiler
quest guild_building_melt begin
    state start begin
        function GetOreRefineCost(cost)
            if pc.empire != npc.empire then
                return 3 * cost
            end
            if pc.get_guild() == npc.get_guild() then
                return cost * 0.9
            end
            return cost
        end

        function GetOreRefineGoodPct()
            return 60
        end

        function GetOreRefineBadPct()
            return 30
        end

        function GetMyRefineNum(race)
            return race - 20060 + 50601
        end

        function IsRefinableRawOre(vnum)
            return vnum >= 50601 and vnum <= 50613
        end

        function DoRefineDiamond(pct)
            local from_postfix
            local from_name = item_name(item.vnum)
            local to_vnum = item.vnum + 20
            local to_name = item_name(to_vnum)
            local to_postfix

            if under_han(from_name) then
                from_postfix = ""
            else
                from_postfix = ""
            end

            if under_han(to_name) then
                to_postfix = ""
            else
                to_postfix = ""
            end

            say("Traga-me 100 " .. from_name .. from_postfix .. " e também precisamos")
            say(to_name .. to_postfix .. " para ser capaz de produzir oque quer.")
            if item.count >= 100 then
                say("Probabilidade de sucesso "..pct.."%.")
				say(""..guild_building_melt.GetOreRefineCost(10000).." Gold necessario.")
                say("Deseja tentar?")
                local s = select("Sim", "Não")
                if s == 1 then
                    if pc.get_gold() < guild_building_melt.GetOreRefineCost(10000) then
                        say("Não possui gold suficiente.")
                        return
                    end

                    if pc.diamond_refine(10000, pct) then
                        say("A refinação foi realizada. irá receber:")
                        say_item(to_name, to_vnum, "")
                    else
                        say("A refinação falhou.")
                    end
                end
            else
                say("Traga-me 100 Unidades.")
            end
        end
        function DoRefine(pct)
            local from_postfix
            local from_name = item_name(item.vnum)
            local to_vnum = item.vnum + 20
            local to_name = item_name(to_vnum)
            local to_postfix

            if under_han(from_name) then
                from_postfix = ""
            else
                from_postfix = ""
            end

            if under_han(to_name) then
                to_postfix = ""
            else
                to_postfix = ""
            end

            say("Traga-me 100 " .. from_name .. from_postfix .. " e uma")
            say("pedra +0, +1, +2")
            say(to_name .. to_postfix .. " Assim você poderá produzir oque quer.")
            if item.count >= 100 then
                say("Probabilidade de sucesso "..pct.."%."..guild_building_melt.GetOreRefineCost(3000).." Gold necessario.")
                say("Deseja tentar ?")
                local s = select("Sim", "Não")
                if s == 1 then
                    if pc.get_gold() < guild_building_melt.GetOreRefineCost(3000) then
                        say("Não possui gold suficiente.")
                        return
                    end

                    local selected_item_cell = select_item()
                    if selected_item_cell == 0 then
                        say("Sem o material necessario eu não posso fazer isso.")
                        return
                    end
                    local old_item = item.get_id()

                    if not item.select_cell(selected_item_cell) then
                        say("Não utilizamos esse tipo de material.")
                        return
                    end

                    -- checken, ob der meteorit ist
                    if item.vnum < 28000 or item.vnum >= 28300 then
                        say("Isso é a verdade não importa.")
                        return
                    end

                    item.select(old_item)

                    if pc.ore_refine(3000, pct, selected_item_cell) then
                        say("A refinação foi realizada, irá receber:")
                        say_item(to_name, to_vnum, "")
                    else
                        say("A refinação falhou.")
                    end
                end
            else
                say("Traga-me 100 Unidades.")
            end
        end

        when
            20060.take or
            20061.take or
            20062.take or
            20063.take or
            20064.take or
            20065.take or
            20066.take or
            20067.take or
            20068.take or
            20069.take or
            20070.take or
            20071.take or
            20072.take
            with guild_building_melt.GetMyRefineNum(npc.race) == item.vnum
        begin
            if item.vnum == 50601 then
                guild_building_melt.DoRefineDiamond(guild_building_melt.GetOreRefineGoodPct())
            else
                guild_building_melt.DoRefine(guild_building_melt.GetOreRefineGoodPct())
            end
        end

        when
            20060.take or
            20061.take or
            20062.take or
            20063.take or
            20064.take or
            20065.take or
            20066.take or
            20067.take or
            20068.take or
            20069.take or
            20070.take or
            20071.take or
            20072.take
            with guild_building_melt.IsRefinableRawOre(item.vnum) and
guild_building_melt.GetMyRefineNum(npc.race) != item.vnum
        begin
            if item.vnum == 50601 then
                guild_building_melt.DoRefineDiamond(guild_building_melt.GetOreRefineBadPct())
            else
                guild_building_melt.DoRefine(guild_building_melt.GetOreRefineBadPct())
            end
        end

        when
            20060.click or
            20061.click or
            20062.click or
            20063.click or
            20064.click or
            20065.click or
            20066.click or
            20067.click or
            20068.click or
            20069.click or
            20070.click or
            20071.click or
            20072.click
            with npc.get_guild() == pc.get_guild() and pc.isguildmaster()
        begin
            say("Precisa de 3.000.000 de gold para personalizar seu terreno.")
            if pc.get_gold() < 3000000 then
                say("Traga-me 3.000.000 de gold.")
            else
                say("Que tipo de especialização você pretende comprar?")

                local sel = 0
                local timetable1 = {"Diamante", "Fósseis", "Cobre", "Prata", "Ouro", "Jade", "Próximo", "Fechar"}
                local valuetable1 = {14043, 14045, 14046, 14047, 14048, 14049, 0, -1}
                local timetable2 = {"Ébano", "Pérola", "Ouro Branco", "Cristal", "Ametista", "Diamante", "Próximo", "Fechar"}
                local valuetable2 = {14050, 10451, 14052, 14053, 14054, 14055, 0, -1}
                repeat
                        local s = select_table(timetable1)
                        sel = valuetable1[s]
                        if sel == 0 then
                                local s = select_table(timetable2)
                                sel = valuetable2[s]
                        end
                until sel != 0
                if sel != -1 then
                    npc_num = sel + 20060 - 14043
                    if npc_num == npc.get_race() then
                        say("Não é possível sem um trabalho.")
                    else
                        pc.changegold(-3000000)
                        building.reconstruct(sel)
                    end
                else
                    say("Isso não pode acontecer.")
                end
            end
        end
    end
end

 

16 - guild_building_npc

Spoiler
quest guild_building_npc begin
    state start begin
        when 20044.click begin
            if npc.get_guild() == pc.get_guild() then
                ---                                                   l
                say_title("Chorbu:")
				say("")
				say("O meu nome é Chorbu, Sou responsável")
				say("pelo melhoramento de armas.")
				say("Sou muito mais que um armeiro na vila!")
				say("Quando vocę vem até min pode aumentar a chance de")
				say("sucesso para 10%. Dę-me a sua arma,")
				say("que eu quero melhorá-la.")
            else
                ---                                                   l
                say_title("Chorbu:")
                say("")
                say("O meu nome é Chorbu, Sou responsável")
                say("pelo melhoramento de armas.")
                say("Sou muito mais que um armeiro na vila!")
                say("Quando vocę vem até min pode aumentar a chance de")
                say("sucesso para 10%. Dę-me a sua arma,")
                say("que eu quero melhorá-la.")
            end
        end
        when 20045.click begin
            if npc.get_guild() == pc.get_guild() then
                ---                                                   l
                say_title("Chorya:")
				say("")
				say("O meu nome é Chorya, Sou o responsável")
				say("pelo melhoramento das armaduras")
				say("Eu posso melhorar as armaduras, capacetes e escudos")
				say("")
				say("Sou muito mais do que ferreiro na vila. Quando")
				say("vier até min poderá aumentar a chance de sucesso")
				say("para 10%. Dę me o seu equipamento, eu quero melhorá-lo.")
            else
                ---                                                   l
                say_title("Chorya:")
                say("")
                say("O meu nome é Chorya, Sou o responsável")
                say("pelo melhoramento das armaduras")
                say("Eu posso melhorar as armaduras, capacetes e escudos")
                say("")
                say("Sou muito mais do que ferreiro na vila. Quando")
                say("vier até min poderá aumentar a chance de sucesso")
                say("para 10%. Dę me o seu equipamento, eu quero melhorá-lo.")
            end
        end
        when 20046.click begin
            if npc.get_guild() == pc.get_guild() then
                ---                                                   l
                say_title("Chorjan:")
				say("")
				say("O meu nome é Chorjan, Sou o responsável")
				say("pelo melhoramento de acessórios.")
				say("Sou muito mais que um joalheiro na vila!")
				say("Quando vocę vier até min pode aumentar a chance de")
				say("sucesso para 10%. Dę-me a sua jóia,")
				say("que eu quero melhorá-la.")
            else
                ---                                                   l
                say_title("Chorjan:")
                say("")
                say("O meu nome é Chorjan, Sou o responsável")
                say("pelo melhoramento de acessórios.")
                say("Sou muito mais que um joalheiro na vila!")
                say("Quando vocę vier até min pode aumentar a chance de")
                say("sucesso para 10%. Dę-me a sua jóia,")
                say("que eu quero melhorá-la.")
            end
        end
    end
end

 

17 - guild_manage

Spoiler
quest guild_building begin
        state start begin
                when guild_man1.chat."Inscrever GM:.." or guild_man2.chat."Inscrever GM:.." or guild_man3.chat."Inscrever GM:.."
                        with pc.is_gm() begin

                        say_title("Guarda da Praça: ")
                        say("")
                        say("Solicita informações, registradas ")
                        say("Escreva o nome da pessoa.")
                        say("")
                        local u_name = input()
                        local u_vid=find_pc_by_name(u_name)

                        if u_vid==0 then
                                say_title("Este nome não está registrado.")
                                say(u_name)
                                return
                        end

                        local old_vid = pc.select(u_vid)
                        u_withdrawTime=pc.getqf("new_withdraw_time")
                        u_withdrawTime=pc.getqf("new_withdraw_time")
                        pc.select(old_vid)

                        withdrawDelay=game.get_event_flag("guild_withdraw_delay")
                        disbandDelay=game.get_event_flag("guild_disband_delay")

                        say_title("Guarda da Praça:")
                        say("")
                        say("Data de atendimento mais antigo")
                        say("Verifique.")

                        if u_withdrawTime>0 then
                                say("Tempo passado: "..time_to_str(u_withdrawTime))
                                say("(Tempo restante: ".. withdrawDelay.." Dia)")
                                say("")
                        end

                        if u_disbandTime>0 then
                                say("Quando está perdido: "..time_to_str(u_disbandTime))
                                say("(Tempo restante: ".. disbandDelay.." Dia)")
                                say("")
                        end

                        local retryTime1 = u_withdrawTime + withdrawDelay*86400
                        local retryTime2 = u_withdrawTime + disbandDelay*86400

                        local retryTime = 0
                        if retryTime1 > retryTime2 then
                                retryTime = retryTime1
                        else
                                retryTime = retryTime2
                        end

                        local curTime = get_time()
                        if curTime < retryTime then
                                say("Nova tentativa, tempo restante: "..time_to_str(retryTime))
                                say("(Tempo Restante: "..((retryTime-curTime)/3600).." Hora)")
                                say("")

                                if is_test_server() then
                                        local s=select("Adapte agora", "Fechar")
                                        if s==1 then
                                                local old_vid = pc.select(u_vid)
                                                local curTime=get_time()
                                                pc.setqf("new_withdraw_time", curTime-withdrawDelay*86400)
                                                pc.setqf("new_withdraw_time", curTime-disbandDelay*86400)
                                                pc.select(old_vid)
                                        end
                                end
                        else
                                say("Registro imediato possível.");
                                say("")
                        end
                end
                when guild_man1.chat."Sair da Guild " or
                        guild_man2.chat."Sair da Guild " or
                        guild_man3.chat."Sair da Guild "
                        with pc.hasguild() and not pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin
                        -- ??
                        say_title("Guarda da Praça:")
                        say("")
                        say("Você quer sair da Guild?")
                        say("Você provavelmente não encontrou um amigo lá. ")
                        say("Como você gostaria.")
                        say("Tem certeza de que deseja sair?")
                        say("")
                        local s = select("Sim Tenho", "Não tenho")
                        if s==1 then
                                say_title("Guarda da Praça:")
                                say("")
                                say("Muito Bem.")
                                say("Você não está mais na Guid. ")
                                say("")
                                say("")
                                pc.remove_from_guild()
                                pc.setqf("new_withdraw_time",get_global_time())
                        end
                end

                when guild_man1.chat."Apagar Guild" or
                        guild_man2.chat."Apagar Guild" or
                        guild_man3.chat."Apagar Guild"
                        with pc.hasguild() and pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin
                        -- ??
                        say_title("Guarda da Praça:")
                        say("")
                        say("O que?")
                        say("[DELAY value;150]        [/DELAY]")
                        say("É tão chato ")
                        say("Eu a configurei e você deseja fechá-la agora?")
                        say("Todas as suas memórias e amigos ")
                        say("Vão desaparecer para sempre!")
                        say("")
                        say("Tem certeza de que quer o Apagar Guild?")
                        say("")
                        local s = select("Sim Tenho", "Ainda Não")
                        if s==1 then
                        say_title("Guarda da Praça:")
                        say("")
                        say("Muito Bem.")
                        say("A Guild foi apagada.")
                        say("")
                        say("")
                        pc.destroy_guild()
                        pc.setqf("new_disband_time", get_global_time())
                        pc.setqf("new_withdraw_time", get_global_time())
                        end
                end

                when guild_man1.chat."Criar uma  Guild" or
                        guild_man2.chat."Criar uma  Guild" or
                        guild_man3.chat."Criar uma  Guild" with not pc.hasguild() or not pc.isguildmaster() begin
                        ----with (pc.is_gm() or npc.empire == pc.empire)
                        --------------------------------------------------------------
                        local level_limit;
                        local guild_create_item

                        level_limit = 40
                        guild_create_item = false
                        -----------------------------------------------------------------------

                        if pc.hasguild() then
                                return
                        end
                        if game.get_event_flag("guild_withdraw_delay")*86400 >
                                get_global_time() - pc.getqf("new_withdraw_time") then
                        say_title("Guarda da Praça:")
                        say("")
                        say("Depois de deixar uma Guild tem de esperar 1 dia.")
                        return
                        end

                        if game.get_event_flag("guild_disband_delay")*86400 >
                                get_global_time() - pc.getqf("new_withdraw_time") then
                        say_title("Guarda da Praça: ")
                        say("")
                        say("Você acabou de excluir sua guilda! ")
                        say("Espere 24h para estabelecer uma nova.")
                        say_reward("Tera de esperar algum tempo: ")
						say_reward(string.format("%s", time_to_str(pc.getqf("new_withdraw_time"))))
                        return
                        end
                        say_title("Guarda da Praça:")
                        say("")
                        say("Você gostaria de criar uma Guild?")
                        say("")
                        say("Para criar uma Guilda você precisa preencher dois ")
                        say("pré-requisitos: possuir nível 40")
                        say("e pagar 200.000 Yang..")
                        say("")
                        say("Deseja criar uma Guild?")
                        say("")
                        local s = select("Sim quero Criar", "Não Obrigado")
                        if s == 2 then
                                return
                        end

                        if pc.level >= 40 then
                        if pc.gold >= 200000 then

				if not guild_create_item or pc.countitem(guild_create_item)>0 then
                                        game.request_make_guild()
                                end

                                else
                                say_title("Guarda da Praça:")
                                say("")
                                say("Não tem Yang Suficiente!")
                                say("")
                                return
                                end
                        else
                        say_title("Guarda da Praça:")
                        say("")
                        say("Para Criar uma Guild o seu Nivel ")
                        say("não é suficiente. ")

                        end
                end
        end
end

 

18 - guild_ranking

Spoiler
quest guild_ranking begin
        state start begin
                when
                        guild_man1.chat."Mostrar o melhor ranking da guild" or
                        guild_man2.chat."Mostrar o melhor ranking da guild" or
                        guild_man3.chat."Mostrar o melhor ranking da guild"
                        with pc.hasguild() begin
                        say_title("Guarda da Praça:")
						say("Os resultados da luta, da posição 1 até 10 são")
                        say("Você tambem pode ver resultados de outras guilds: [DELAY value;0]")
                        ---                                                                l
                        say("|Guild	 |Pontos  |Vitórias  |Empates |Derrotas ")
                        say(guild.around_ranking_string().."[/DELAY]")
                end
                when
                        guild_man1.chat."Mostrar o ranking da guild(1-8)" or
                        guild_man2.chat."Mostrar o ranking da guild(1-8)" or
                        guild_man3.chat."Mostrar o ranking da guild(1-8)"
                        with pc.hasguild() begin
                        say_title("Guarda da Praça:")
			say("")
                        say("Aqui estão oito da classificação mais alta")
                        say("A guilda tem os seguintes resultados: [DELAY value;0]")
                        say("  |Guilda |Pontos |Vitórias |Empates |Derrotas ")
                        say(guild.high_ranking_string().."[/DELAY]")
                        say("")
                end
                when
                        guild_man1.chat."Mostrar o resultado da guild" or
                        guild_man2.chat."Mostrar o resultado da guild" or
                        guild_man3.chat."Mostrar o resultado da guild"
                        with pc.hasguild() begin
                        say_title("Guarda da Praça:")
                        say("")
                        say("O estado da sua guilda é "..guild.get_rank()..".")
                        say("e o resultado em pontos :"..guild.get_ladder_point()..".")
                        say("")
                end
        end
end

 

19 - guild_war_bet

Spoiler
quest guild_war_bet begin
        state start begin
                when
                        guild_war_observer1.chat."Apostas da Guerra entre Guilds" or
                        guild_war_observer2.chat."Apostas da Guerra entre Guilds" or
                        guild_war_observer3.chat."Apostas da Guerra entre Guilds" begin

                        local info_counter = pc.getqf("Info")

                        if info_counter < 3 then
                                say_title("As Apostas da Guerra entre Guildas")
                                say("")
                                say("Compre um lote de apostas para o seu Império.")
                                say("1. A cada guerra serão anunciadas na guilda")
                                say("as possibilidades de vitória")
                                say("")
                                say("2. Você poderá comprar o seu lote de apostas,")
                                say("e ganhar mesmo se as possibilidades de vitória")
                                say("não forem anunciadas")
                                say("")
                                say("3. As possibilidades de escolha na aposta são")
                                say("controladas pela Bolsa de Apostas e quando o")
								say("prazo terminar você vai ser informado se ganhou")
								say("ou perdeu. 10% do lucro é pago ao Império.")
                                wait()
                        end

                        local g = guild.get_reserve_war_table()
                        local gname_table = {}

                        table.foreachi(g,
                        function(n, p)
                                gname_table[n] = guild.get_name(p[2]).." vs "..guild.get_name(p[3])
                        end)

                        if table.getn(g) == 0 then
                                -- no currently war
                                say_title("Beleguin de Batalha")
                                say("")
                                say("Não há guerra de guildas no momento")
                                say("para você poder apostar.")
                        else
                                gname_table[table.getn(g)+1] = "Bitir "
                                say_title("Bahis Kurulu:")
                                say("")
                                say("Hangi lonca için bilet almak istiyorsun?")

                                local s = select_table(gname_table)

                                if s != table.getn(gname_table) then
                                        if guild.is_bet(g[s][1]) then
                                                say_title("Bahis Kurulu:")
                                                say("")
                                                say("Listeye göre piyango bileti aldın bile.")
                                                say("Her lonca için yalnız bir bilet ")
                                                say("alabilirsin.")
                                        else
                                                local name1 = guild.get_name(g[s][2])
                                                local name2 = guild.get_name(g[s][3])

                                                say_title("Bahis Kurulu:")
                                                say("")
                                                say("Görünüşe göre ")
                                                say(name1.." ile"..name2.." ,"..g[s][4].."puanla kaybediyor.")
                                                say("Hangi loncaya bahis oyanayacaksın?")
                                                local guild_s = select(name1, name2, "Bitir ")

                                                if guild_s != 3 then
                                                        local bet_guild = g[s][guild_s+1]

                                                        say_title("Bahis Kurulu:")
                                                        say("")
                                                        say("Hmm ... İyi karar! Cevabın ne?")

                                                        local price_button_table = {}

							table.foreachi(guild_war_bet_price_table,
							function(n, p) 
								price_button_table[n] = p.."Yang"
							end)

                                                        price_button_table[table.getn(price_button_table)+1] =  "Bitir"

                                                        local price_idx = select_table(price_button_table)

                                                        if price_idx != table.getn(price_button_table) then -- ? ??? ?? ??? ???
                                                                if pc.gold < guild_war_bet_price_table[price_idx] then
                                                                        say_title("Bahis Kurulu:")
                                                                        say("")
                                                                        say("Yeterli Yang yok!")
                                                                        say("")
                                                                else
                                                                        say_title("Bahis Kurulu:")
                                                                        say("")
                                                                        pc.changegold(-guild_war_bet_price_table[price_idx])
                                                                        guild.war_bet(g[s][1], bet_guild, guild_war_bet_price_table[price_idx])
                                                                        say("Her şey hazır. Kazanan loncayı bildiysen,")
                                                                        say("kazandığın yangları deponda bulacaksın.")
                                                                        say("Bol şanslar!")
                                                                end
                                                        end
                                                end -- if guild_s != 3
                                        end -- if guild.is_bet(g[s][1])
                                end -- if s != table.getn(gname_table)
                        end
                end
        end
end

 

20 - guild_war_join

Spoiler
quest guild_war_join begin
    state start begin
        when letter begin
            local e = guild.get_any_war()

            if e != 0 and pc.get_war_map() == 0 then
                setskin(NOWINDOW)
                makequestbutton("Ajudar a Guild")
            end
        end

        when button begin
            local e = guild.get_any_war()

            if e == 0 then
                say("A guerra terminou.")
            else
                say(guild.name(e).." Você quer lutar com sua Guild?")

                local s = select("Sim","Não")

                if s == 1 then
                    guild.war_enter(e)
                else
                    setskin(NOWINDOW)
                    makequestbutton("Ajudar a Guild")
                end
            end
        end
    end
end

 

21 - marriage_manage

Spoiler
quest marriage_manage begin
	state start begin
		when oldwoman.chat."Gostaria de me casar" with not pc.is_engaged_or_married() begin
			if not npc.lock() then
				say("")
				say("Já está um casamento em curso.")
				say("Por favor, fale comigo depois ok?")
				say("")
				return
			end
			if pc.level < 25 then
				say_title("Senhora do Casamento: ")
				say("")
				say("Você esta pensando em casar? Mas é muito ")
				say("inexperiente e jovem para isso. Depois que se")
				say("casar o divórcio é difícil e muito triste. ")
				say("Entãoo eu decidi não realizar casamento de jovens ")
				say("muito inexperientes. você ainda vai voltar,tenuo ")
				say(" certeza. Assim que for mais experiente vou aceitar")
				say("casar você com quem tiver escolhido. Boa Sorte!")
				say("")
				say_reward("O casamento só pode acontecer a nível 25+.")
				say("")
				npc.unlock()
				return
			end

			local m_ring_num = pc.countitem(70301)
			local m_has_ring = m_ring_num > 0
			if not m_has_ring then
				say_title("Senhora do Casamento: ")
				say("")
				say("Você que casar e nem mesmo anel de casamento trouxe? ")
				say("")
				say_item("Anel de Casamento", 70301, "")
				say_reward("Para casar e necessário ter um Anel de Casamento.")
				say("")
				npc.unlock()

				return
			end

			local m_sex = pc.get_sex()
			if not marriage_manage.is_equip_wedding_dress() then
				say_title("Senhora do Casamento: ")
				say("")
				say("Estas roupas? Pretende casar com elas? ")
				say("O casamento e a coisa mais importante na vida, ")
				say("você precisa prestar atencao a roupa.")
				say("")

				if m_sex==0 then
					say_item("Vestido", marriage_manage.get_wedding_dress(pc.get_job()), "")
					say_reward("Para se casar você deve usar")
					say_reward("Vestido")
				else
					say_item("Casamento", marriage_manage.get_wedding_dress(pc.get_job()), "")
					say_reward("A fim de se casar, você deve usar")
					say_reward("Casamento")
				end
				say("")
				npc.unlock()
				return
			end

			local NEED_MONEY = 1000000
			if pc.get_money() < NEED_MONEY then
				say_title("Senhora do Casamento: ")
				say("")
				say("O casamento e um momento único, mas para poder casá-los ")
				say("precisarei receber por isso, e agora o dinheiro que ")
				say("você tme não é o suficiente. Por favor traga o dinheiro")
				say("que pedi. Espero que pretenda casar apenas uma vez, então")
				say("o valor que peço não é muito pela sua felicidade, ou é?")
				say("")
				say_reward(string.format("O casamento  %d 10 000 2", NEED_MONEY/10000))
				say("")
				npc.unlock()
				return
			end

			say_title("Senhora do Casamento: ")
			say("")
			say("Agora você está mais experiente, agora pode se casar.")
			say("Ja escolheu com quem irá casar? ")
			say("")
			say_reward("Por favor, indique o nome do escolhido.")
			say("")

			local sname = input()
			if sname == "" then
				say_title("Senhora do Casamento: ")
				say("")
				say("Você está muito nervoso e não conseguiu escrever ")
				say("o nome? Por favor, escreva novamente.")
				say("")
				npc.unlock()
				return
			end

			local u_vid = find_pc_by_name(sname)
			local m_vid = pc.get_vid()
			if u_vid == 0 then
				say_title("Senhora do Casamento: ")
				say("")
				say("Como você não sabe o que o nome do seu escolhido...")
				say("Observe bem e tenha cuidado ao nome que escreves. ")
				say("")
				say_reward(string.format("%s ¨Ã¤£¦b½u", sname))
				say("")
				npc.unlock()
				return
			end

			if not npc.is_near_vid(u_vid, 10) then
				say_title("Senhora do Casamento: ")
				say("")
				say("Seu escolhido deve estar ao seu lado. ")
				say("Eu posso ajudar o seu casamento..")
				say("Tem que chamar seu escolhido para perto de você.")
				say("")
				say_reward(string.format("%s Com a sua muito longe.", sname))
				say("")
				npc.unlock()
				return
			end

			local old = pc.select(u_vid)
			local u_level = pc.get_level()
			local u_job = pc.get_job()
			local u_sex = pc.get_sex()
			local u_name = pc.name
			local u_gold = pc.get_money()
			local u_married = pc.is_married()
			local u_has_ring = pc.countitem(70301) > 0
			local u_wear = marriage_manage.is_equip_wedding_dress()
			pc.select(old)
			local m_level = pc.get_level()

			if u_vid == m_vid then
				say_title("Senhora do Casamento: ")
				say("")
				say("não é o seu nome")
				say("")
				say_reward("Por favor, insira o nome do seu escolhido.")
				say("")
				npc.unlock()
				return
			end

			if u_sex == m_sex then
				say_title("Senhora do Casamento: ")
				say("")
				say("Desculpe, não realizo casamento entre noivos ")
				say("do mesmo sexo, ainda. ")
				say("")
				say_reward("Não há casamento do mesmo sexo.")
				say("")
				npc.unlock()
				return
			end

			if u_married then
				say_title("Senhora do Casamento: ")
				say("")
				say("Você sabe que escolheu uma pessoa casada?")
				say("Você vai conseguir escolher alguém livre ")
				say("para que possa ser feliz ao lado dele.")
				say("")
				say_reward(string.format("%s Ja casado.", sname))
				say("")
				npc.unlock()
				return
			end

			if u_level < 25 then
				say_title("Senhora do Casamento: ")
				say("")
				say("não e muito jovem para casar com.")
				say("O casamento requer duas para se casar no talento.")
				say("")
				say_reward("¹ï¶Hªºµ¥¯Å25¯Å¤~¥i¥Hµ²±B.")
				say("")
				npc.unlock()
				return
			end

			if m_level - u_level > 15 or u_level - m_level > 15 then
				say_title("Senhora do Casamento: ")
				say("")
				say("Nível entre ambos é muito diferente, o casamento vai ")
				say("ser muito dificil depois. Não ha como dar certo.")
				say("Eu não vou deixar vocês se casarem.")
				say("")
				say_reward("Diferença maxima de 15 lvl entre os noivos.")
				say("")
				npc.unlock()
				return
			end

			if not u_has_ring then
				if m_ring_num >= 2 then
					say_title("Senhora do Casamento: ")
					say("")
					say("Querendo de se casar, tokens lembranca do amor ao desgaste.")
					say("Por favor, tokens lembranca do amor de seu objeto.")
				else
					say_title("Senhora do Casamento: ")
					say("Esta e das coisas mais importantes na vida")
					say("você precisa usar seus tokens de amor token")
					say("")
				end

				say_item("Tokens de amor token", 70301, "")
				say_reward("Quando casar deverá usar sempre sua alainça ")
				say_reward("como simbolo e lembrança do amor que os uniu.")
				say("")
				npc.unlock()
				return
			end

			if not u_wear then
				say_title("Senhora do Casamento: ")
				say("Seus objetos não estao prontos, não o seu vestido de noiva pronta para ser")
				say("Se você so se casar com um homem vestindo uma cozinha equipada")
				say("você vai estar envergonhado")
				say("")
				if u_sex==0 then
					say_item("Vestido", marriage_manage.get_wedding_dress(u_job), "")
					say_reward("A fim de se casar, você deve usar")
					say_reward("Vestido")
				else
					say_item("Casamento", marriage_manage.get_wedding_dress(u_job), "")
					say_reward("A fim de se casar, você deve usar")
					say_reward("Casamento")
				end
				say("")
				npc.unlock()
				return
			end


			local ok_sign = confirm(  u_vid, "você quer"..pc.name.. "casar comigo?", 30)
			if ok_sign == CONFIRM_OK then
				local m_name = pc.name
				if pc.get_gold()>=NEED_MONEY then
					pc.change_gold(-NEED_MONEY)

					pc.removeitem(70301, 1)
					pc.give_item2(70302, 1)
					local old = pc.select(u_vid)
					pc.removeitem(70301, 1)
					pc.give_item2(70302, 1)
					pc.select(old)

					say_title("Senhora do Casamento: ")
					say("")
					say("Agora estamos todos prontos, para fazer o casamento. ")
					say("A fim de que possam comemorar a felciidade, o amor e ")
					say("a benção deste momento , vou enviar todos para a festa. ")
					say("Desejo a todos felicidade, e que seja uma festa divina. ")
					say("")
					say_reward("Moverei todos para a Festa de Casmento.")
					say("")
					wait()
					setskin(NOWINDOW)
					marriage.engage_to(u_vid)
				end
			else
				say_title("Senhora do Casamento: ")
				say("")
				say("Seu escolhido disse que não quer casar com você.")
				say("Deve te ruma boa conversa sobre isso.")
				say("")
				say_reward("Pedido de casamento recusado.")
			end
			say("")
			npc.unlock()
		end
		-- ?? ???? ???? ??? ??

		when oldwoman.chat."Mover para a Festa de Casamento" with pc.is_engaged() begin
			say_title("Senhora do Casamento: ")
			say("")
			say("você quer participar da festa de casamento de um amigo? ")
			say("eu levarei você ate lá. Seus amigos estao esperando ")
			say("para que comemorem juntos a felciidade deste momento.")
			say("")
			wait()
			setskin(NOWINDOW)
			marriage.warp_to_my_marriage_map()
		end


		when 9011.chat."Pedido de casamento" with pc.is_engaged() and marriage.in_my_wedding() begin
			if not npc.lock() then
				say_title("Hana do Casamento:")
				say("Convide seus amigos e seu reino para participar do seu casamento!")
				say("Não se esqueça de por noite e neve para animar mais o local!")
				say("")
				return
			end
			say_title("Hana do Casamento:")
			say("")
			say("Olá! Queres realmente se casar? ")
			say("Casamento é uma coisa muita séria!")
			say("Digite o nome da pessoa com quem vai casar. ")
			say("")

			local sname = input()
			local u_vid = find_pc_by_name(sname) --casar
			local m_vid = pc.get_vid()

			if u_vid == 0 then
				say_title("Hana do Casamento:")
				say("")
				say("Oh! Esse nome que não e a nossa lista do reino. ")
				say("Pode olhar se o nome digitado esta correto? ")
				say("")
				say_reward(string.format("%s ",  sname))
				say("")
				npc.unlock()
				return
			end

			if not npc.is_near_vid(u_vid, 10) then
				say_title("Hana do Casamento:")
				say("")
				say("Você pode chamar seu escolhido para seu lado")
				say("Precisamos olhar sua identidade.")
				say("")
				say("")
				say_reward(string.format("%s Precisar estar ao lado do ", sname))
				say("")
				npc.unlock()
				return
			end

			if u_vid == m_vid then
				say_title("Hana do Casamento:")
				say("")
				say("não introduziu o seu nome.")
				say("")
				say_reward("Você deve digitar o nome.")
				say("")
				npc.unlock()
				return
			end

			if u_vid != marriage.find_married_vid() then
				say_title("Hana do Casamento:")
				say("")
				say("O nome digitado não e o mesmo.")
				say("Por favor, olhe para cima?")
				say("")
				npc.unlock()
				return
			end

			local ok_sign = confirm(u_vid, "você quer"..pc.name.. "Marry me?", 30)
			if ok_sign != CONFIRM_OK then
				say_title("Hana do Casamento:")
				say("")
				say("O escolhido parece com medo de casamento.")
				say("Tenha uma boa conversa sobre o assunto novamente.")
				say("")
				npc.unlock()
				return
			end
			say_title("Hana do Casamento:")
			say("você concluiu com êxito o seu casamento.")
			say("")
			marriage.set_to_marriage()

			-- 2005.04.12.??? ?? ?? ??
			-----------------------------------------------
			-- say("Esta e para o seu casamento")
			-- say("Pronto para presente")
			-- marriage_manage.give_wedding_gift()
			-- old = pc.select(u_vid)
			-- marriage_manage.give_wedding_gift()
			-- pc.select(old)	
			say("")
			say_reward("O casamento acabou")
			say("")
			npc.unlock()
		end

		function give_wedding_gift()
			local male_item = {71072, 71073, 71074}
			local female_item = {71069, 71070, 71071} 
			if pc.get_sex() == MALE then
				pc.give_item2(male_item[number(1, 3)], 1)
			else
				pc.give_item2(female_item[number(1, 3)], 1)
			end
		end

		-- ??? ???? ?? ????? ?? ??
		-- ?? pc.is_married() and marriage.in_my_wedding()

		-- ??? ?? ??? ??? ?? ????
		when 9011.chat."Marcha inicial começou a tocar" with 
			(pc.is_engaged() or pc.is_married()) and 
			marriage.in_my_wedding() and
			not marriage.wedding_is_playing_music() begin
			marriage.wedding_music(true, "wedding.mp3")
			setskin(NOWINDOW)
		end
		when 9011.chat." A Stop Play casamento" with 
			(pc.is_engaged() or pc.is_married()) and 
			marriage.in_my_wedding() and
			marriage.wedding_is_playing_music() begin
			marriage.wedding_music(false, "default")
			setskin(NOWINDOW)
		end
		when 9011.chat."Noite" with 
			pc.is_married() and 
			marriage.in_my_wedding() begin
			marriage.wedding_dark(true)
			setskin(NOWINDOW)
		end

		when 9011.chat."Neve" with pc.is_married() and marriage.in_my_wedding() begin
			marriage.wedding_snow(true)
			setskin(NOWINDOW)
		end

		when 9011.chat."Casamento foi concluído com exito" with pc.is_married() and marriage.in_my_wedding() begin
			if not npc.lock() then
				say_title("Hana do Casamento:")
				say("")
				say("Agora eu dialogo com o seu destino,")
				say("conversar com você falar depois ok?")
				say("")
				return
			end

			say_title("Hana do Casamento:")
			say("")
			say("Você quer encerrar o casamento?")
			say("")
			local s = select("Sim","não")
			if s == 1 then
				local u_vid = marriage.find_married_vid()
				if u_vid == 0 then
					say_title("Hana do Casamento:")
					say("")
					say("Para completar o casamento, você deve obter o ")
					say("consentimento dos outros. Agora seu escolhido ")
					say("não está online. Impossível concluir o casamento.")
					say("")
					npc.unlock()
					return
				end
				say_title("Hana do Casamento:")
				say("")
				say("Exigir o consentimento da outra parte, após ")
				say("a conclusão todos serão removidos da festa. ")
				say("Aguardando resposta.")
				say("")
				local ok_sign = confirm(u_vid, "você quer terminar o casamento?", 30)
				if ok_sign == CONFIRM_OK then
					marriage.end_wedding() -- ??? ???? ??? ??.
				else
					say_title("Hana do Casamento:")
					say("")
					say("O outro se recusou.")
					say("")
				end

			end

				npc.unlock()
		end

		-- ??? ???? ???? ??? ??
		when 11000.chat."Concordar com o divórcio" or
			11002.chat." Concordar com o divórcio" or
			11004.chat." Concordar com o divórcio" with pc.is_married() begin

			if not marriage_manage.check_divorce_time() then
				return
			end

			local u_vid = marriage.find_married_vid()
			if u_vid == 0 or not npc.is_near_vid(u_vid, 10) then
				say_title("Guarda da Praça:")
				say("")
				say("Divórcio é uma coisa muita séria! Tem certeza disso?")
				say("Traga o companheiro até perto de você. ")
				say("")
				return
			end

			say_title("Guarda da Praça:")
			say("")
			say("Concordar com um divórcio quando as necessidades de 500 000.")
			say("Ainda precisa de aprovacao do parceiro.")
			say("você quer chegar a acordo para um divórcio?")
			say("")

			local MONEY_NEED_FOR_ONE = 500000
			local s = select("Concordar.", "Discordar.")

			if s == 1 then
				local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
				local m_have_ring = pc.countitem(70302) > 0

				local old = pc.select(u_vid)
				local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
				local u_have_ring = pc.countitem(70302) > 0
				pc.select(old)

				if not m_have_ring then
					say("Para trazer um anel de casamento.")
					return
				end
				if not u_have_ring then
					say("O outro lado tambem deve usar um anel de casamento.")
					return
				end

				if not m_enough_money then
					say_title("Guarda da Praça:")
					say("Para o divórcio, você trouxe o dinheiro não e suficiente.")
					say("")
					say_reward(string.format("Para o divórcio, o calvario de pagar %d Milhoes de custo das duas", MONEY_NEED_FOR_ONE/10000))
					say("")
					return;
				end
				if not u_enough_money then
					say_title("Guarda da Praça:")
					say("")
					say("Seu objeto não seria suficiente.")
					say("")
					say_reward("Para o divórcio, todos devem pagar 500 000 2")
					say("")
					return;
				end

				say("O divórcio e algo muito doloroso, você realmente quer isso?.")
				say("")
				say("Sério? você realmente quer um divórcio?")
				say("")

				local c=select("Sim.", "Não.")
				if 2 == c then
					say_pc_name()
					say("")
					say("Eu mudei minha mente, eu não quero um divórcio.")
					say("")
					wait()
					say_title("Guarda da Praça:")
					say("")
					say("Falar bem.")
					say("você tem dois individuos com as costas e aprecia-lo, sua vida.")
					say("")
					say_reward("divórcio cancelado.")
					say("")
					return
				end

				local ok_sign = confirm(u_vid, pc.name.."Para o divórcio?", 30)
				if ok_sign == CONFIRM_OK then

					local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
					local m_have_ring = pc.countitem(70302) > 0

					local old = pc.select(u_vid)
					local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
					local u_have_ring = pc.countitem(70302) > 0
					pc.select(old)

					if m_have_ring and m_enough_money and u_have_ring and u_enough_money then
						pc.removeitem(70302, 1)
						pc.change_money(-MONEY_NEED_FOR_ONE)

						local old = pc.select(u_vid)
						pc.removeitem(70302, 1)
						pc.change_money(-MONEY_NEED_FOR_ONE)
						pc.select(old)

						say_title("Guarda da Praça:")
						say("")
						say("Divórcio com sucesso. Agora que você ")
						say("tem sucesso divorciados. você tem 2 pessoas ")
						say("não gostam uns dos outros, eu posso fazer.")
						say("")
						say_reward("divórcio com sucesso")
						say("")
						marriage.remove()
					else
						say_title("Guarda da Praça:")
						say("")
						say("Erro aconteceu durante o divórcio, não divorciou")
						say("Volte na proxima vez")
						say("")
						say_reward("divórcio cancelado.")
						say("")
					end
				else
					say_title("Guarda da Praça:")
					say("Eles não concordam com você divórcio")
					say("você tem muitos vem em primeiro lugar e, ")
					say("em seguida, falar sobre")
					say("")
					say_reward("O divórcio foi cancelado.")
					say("")
				end
			end
		end

		when 11000.chat."Remova o anel de casamento" or
			11002.chat." Remova o anel de casamento" or
			11004.chat." Remova o anel de casamento" with 
			not pc.is_married() 	and 
			pc.count_item(70302)>0
			begin
			say_title("Guarda da Praça:")
			say("")
			say("Em breve você ira esquecer.")
			say("")
			say_reward("Remova o anel de casamento de sucesso")
			pc.remove_item(70302)
		end

		when 11000.chat." divórcio unilateral" or
			11002.chat." divórcio unilateral" or
			11004.chat." divórcio unilateral" with pc.is_married() begin

			if not marriage_manage.check_divorce_time() then
				return
			end

			say_title("Guarda da Praça:")
			say("")
			say("Você quer o divórcio unilateral? Me pague um milhão")
			say("que farei isso imediatamente. ")
			say("Deseja se divorciar? ")
			say("")

			local s = select("Sim.", "não.")

			local NEED_MONEY = 1000000
			if s == 2 then
				return
			end

			if pc.money < NEED_MONEY then
				say_title("Guarda da Praça:")
				say("")
				say("Sua falta de dinheiro")
				say("Tal como acontece com o divórcio, casamento, ")
				say("exige uma grande quantidade de dinheiro")
				say("Volte quando você e bom para pensar")
				say("")
				return
			end

			say_title("Guarda da Praça:")
			say("você realmente precisa de um divórcio? você tem que pensar nisso")
			local c = select("Sim, eu quero o divórcio.", "não, eu considero.")

			if c == 2 then
				say_title("Guarda da Praça:")
				say("")
				say("Pense bem e lembre-se do que uniu vocês. ")
				say("sua vida, as ideias de todos não são os mesmos.")
				say("As vezes não e adequado, mas você tem que, ")
				say("em seguida, os resultados devem ser bons.")
				say("")
				say_reward("Divórcio unilateral cancelado")
				say("")
				return
			end

			pc.removeitem(70302, 1)
			pc.change_gold(-NEED_MONEY)

			marriage.remove()

			say_title("Guarda da Praça:")
			say("")
			say("Desde que você e assim que não gostam uns dos outros, ")
			say("entao você esta certo ou divórcio. Agora que você e único,")
			say("eu espero que você se tornara mais feliz.")
			say("")
			say_reward("Divórcio unilateral de sucesso.")
			say("")
		end

		-- ??? ?? ??
		when oldwoman.chat."Veja uma lista de casamento" with not pc.is_engaged() begin
			local t = marriage.get_wedding_list()
			if table.getn(t) == 0 then
				say("Não há casamentos ocorrendo no momento.")
				say("")
			else
				-- chat(table.getn(t))
				local wedding_names = {}
				table.foreachi(t, function(n, p) wedding_names[n] = p[3].."Com "..p[4].."Casamento" end)
				wedding_names[table.getn(t)+1] = locale.confirm
				local s = select_table(wedding_names)

				if s != table.getn(wedding_names) then
					marriage.join_wedding(t[s][1], t[s][2])
				end
			end
		end
		when 9011.click with not pc.is_engaged() and not pc.is_married() begin
			say_title("Hana do Casamento:")
			say("")
			say("Todos nos viemos aqui para abençoar seu casamento!")
			say("Por favor, abençoe este novo casal")
			say("")
		end

		function check_divorce_time()

			local DIVORCE_LIMIT_TIME = 86400

			if is_test_server() then
				DIVORCE_LIMIT_TIME = 60
			end

			if marriage.get_married_time() < DIVORCE_LIMIT_TIME then 
				say_title("Guarda da Praça:")
				say("")
				say("Você deve ter acabado de casar com divorciado!!!")
				say("Você tem de pensar com clareza que e uma boa")
				say("")
				return false
			end

			return true
		end

		-- ?? ??? ?? ???? ??? ??
		-- ?? ?? : pc.is_engaged_or_married()
		function is_equip_wedding_dress()
			local a = pc.get_armor()
			return a >= 11901 and a <= 11904
		end
		function get_wedding_dress(pc_job)
			if 0==pc_job then
				return 11901
			elseif 1==pc_job then
				return 11903
			elseif 2==pc_job then
				return 11902
			elseif 3==pc_job then
				return 11904
			else
				return 0;
			end
		end
	end
end

 

 

  • Like 1
  • Thanks 1
Link to comment
Share on other sites

  • 4 weeks later...
  • 1 year later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...