CoMa2D 156 Posted March 26, 2013 quest horse_menu begin state start begin function horse_menu() if horse.is_mine() then say("Menu Do Cavalo") say("") local s = 6 if horse.is_dead() then s = select( "Chamar O Cavalo", "Enviar De Volta, "Fechar") if s == 1 then s = 0 elseif s == 2 then s = 3 elseif s == 3 then return end else s = select( "Alimentar Cavalo", "Montar O Cavalo", "Enviar O Cavalo Para O Estábulo", "Saúde Do Cavalo", "Mudar O Nome Do Cavalo", "Sair Do Menu") end if s == 0 then horse.revive() elseif s == 1 then local food = horse.get_grade() + 50054 - 1 if pc.countitem(food) > 0 then pc.removeitem(food, 1) horse.feed() else say("Necessitas De "..item_name(food).." Para O Alimentares.") say("") end elseif s == 2 then horse.ride() elseif s == 3 then horse.unsummon() elseif s == 4 then say("Vida Do Teu Cavalo: "..horse.get_health_pct().."%") say("Stamina Do Teu Cavalo: "..horse.get_stamina_pct().."%") say("") elseif s == 5 then if pc.countitem("71110") <= 0 then say("Necessitas De"..item_name("71110").." Para Mudar O Nome Dele.") say("") return end local old_horse_name = horse.get_name() ; say_title("Dar Açúcar Ao Cavalo:") say("Uma Misteriosa Substância que o Açúcar tinha") say("Que Aumenta 20 Pontos de Defesa.") say("Quando Montado.") say("") if string.len(old_horse_name) == 0 then say_reward("Escolhe Então O Nome Dele.") else say_reward("O Nome Atual Do Cavalo é: "..old_horse_name..".") end say("") say("Escolhe O Nome Que lhe Queres Dar.:") say("") local horse_name = input() if string.len(horse_name) < 2 then say_title("Não Alterou o Nome do Cavalo:") say("Tens De Escrever Um Nome.") say("") return elseif string.len(horse_name) > 12 then say_title("Cavalo:") say("Nome do cavalo demasiado longo.") say("") return end local ret = horse.set_name(horse_name) say_title("Cavalo:") if ret == 0 then say_reward("Utilize este nome!") say("") elseif ret == 1 then say_reward("Utilize este nome!") say("") elseif ret == 2 then pc.remove_item(71110) say("Parabéns O Novo Nome Foi Adicionado!") say("") end end end end when 20030.click begin horse_menu.horse_menu() end when 20101.click begin horse_menu.horse_menu() end when 20102.click begin horse_menu.horse_menu() end when 20103.click begin horse_menu.horse_menu() end when 20104.click begin horse_menu.horse_menu() end when 20105.click begin horse_menu.horse_menu() end when 20106.click begin horse_menu.horse_menu() end when 20107.click begin horse_menu.horse_menu() end when 20108.click begin horse_menu.horse_menu() end when 20109.click begin horse_menu.horse_menu() end endend Link De Download: http://www.mediafire.com/?us8cnz76p7fw4biVirusTotal:https://www.virustotal.com/pt/file/2c70da8667736ba4d58f3f9cc3b05bcf309bd428beb31ab63ac30de95133e717/analysis/1364335314/ Gostas-te então ajuda-me dando http://cyber-gamers.org/public/style_emoticons/default/451960.gif :P 10 SINVAL o.O, sotark, Vitor Pinho ☮ and 7 others reacted to this Share this post Link to post Share on other sites
Vitor Pinho ☮ 1,199 Posted March 26, 2013 Bom tópico, vai ser muito útil, obrigado por partilhares. Share this post Link to post Share on other sites
Rasta Man 71 Posted March 26, 2013 Muito , Obrigado,Obrigado por partilhares levas http://cyber-gamers.org/public/style_emoticons/default/451960.gif ! Share this post Link to post Share on other sites
-Ħalloween. 290 Posted March 26, 2013 Tens o meu http://cyber-gamers.org/public/style_emoticons/default/451960.gif. Continua com o trabalho. Este fórum precisa de gente como tu. Share this post Link to post Share on other sites
CoMa2D 156 Posted March 26, 2013 obg a todos. vocês se precisarem de alguma quest traduzida não hesitem em mandar PM pois eu tenho o meu server quase todo traduzido em termos de item_proto com novos itens, em termos de npc´s tudo o que precisarem falem comigo. 1 保羅·蓋伊 reacted to this Share this post Link to post Share on other sites