Cronus-Emulator/Traducoes — pull request #3 by SorayaAguiar (2012-10-11 02:15:47+00:00)
Title: Update npc/re/quests/thana_quest.txt

//===== rAthena Script =======================================
//= Thanatos Tower Quest
//===== By: ==================================================
//= [Ishizu-chan]
//===== Current Version: =====================================
//= 2.6
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= It's the Thanatos Tower Quest...
//===== Additional Comments: =================================
//= 1.0 First Release [Ishizu-chan]
//= 1.1 Updated Thanatos Tower Quest to official. [SinSloth]
//= 1.2 Fixed a bug where Reward NPC didn't give you Zeny and Exp. [SinSloth]
//= 1.3 Added a checking in boss map to reset event if there's no player. [SinSloth]
//= 1.4 Changed the way the Thanatos Portal works to allow people to enter
//= as long as Thanatos is alive. [SinSloth]
//= 1.4a You may enter either "Charmstone" or "Charm Stone" [Lupus]
//= 1.5 Fixed a bug in the number part of the quest. [SinSloth]
//= 1.6 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
//= 1.7 Fixed a minor bug with prevented code part from reseting properly. [SinSloth]
//= 1.8 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 1.9 Fixed a bug in the last event which allowed an exploit after the first summoning. [SinSloth]
//= 2.0 Cleaned up the trans-only check, and added expanded classes. [L0ne_W0lf]
//= 2.1 Replaced effect numerics with constants. [Samuray22]
//= 2.2 Updated the whole Script to match with latest available official file. [Masao]
//= 2.3 Added continue and break in switch case. [JayPee]
//= 2.4 Fixed a minor bug with Arch Bishop checks. [Euphy]
//= 2.5 Cleaning. [Euphy]
//= 2.5a Fixed an incorrect variable. [Euphy]
//= 2.6 Merged identical timer labels. [Euphy]
//============================================================

hu_fild01,140,163,5 script Tower Keeper 852,3,3,{

mes "[Gatei]";
mes "Saudações, aventureiro.";
mes "Meu nome é Gatei Knumm, sou guardião";
mes "da Torre de Thanatos.";
mes "Em que posso ajudar?";
next;
switch (select("Thanatos Tower?:Taxa de entrada?:Entrar na torre:Cancelar")) {
case 1:
mes "[Gatei]";
mes "Sim, a torre à sua frente";
mes "era uma ruína antiga";
mes "que recebeu seu nome de uma palavra";
mes "talhada em uma placa de pedra encontrada";
mes "em seu interior. Hoje em dia este lugar";
mes "é uma popular atração turística.";
next;
mes "[Gatei]";
mes "A torre ganhou mais popularidade";
mes "entre os aventureiros quando a";
mes "Corporação Rekenber começou";
mes "sua reconstrução.";
mes "O primeiro e o segundo andar estão agora";
mes "reparados e sem monstros.";
next;
mes "[Gatei]";
mes "Mas a reconstrução do";
mes "terceiro andar ainda está";
mes "incompleta. Este andar ainda";
mes "está cheio de monstros, portanto estamos contratando trabalhadores temporários";
mes "para exterminarem todas estas criaturas.";
next;
mes "[Gatei]";
mes "Você estaria interessado em";
mes "um trabalho temporário,";
mes "ou gostaria de saber mais sobre";
mes "este lugar, por favor";
mes "pergunte a algum guia lá dentro sobre alguma destas coisas.";
mes "Obrigado e aproveite bem sua visita!";
close;
case 2:
mes "[Gatei]";
mes "Todos são bem-vindos";
mes "na Torre de Thanatos.";
mes "Apenas o primeiro e o segundo andar";
mes "estão abertos ao público";
mes "por enquanto. A taxa de entrada";
mes "é de 5000 zenys por pessoa.";
next;
mes "[Gatei]";
mes "5000 zenys parece ser um preço um pouco salgado";
mes "para uma atração turística,";
mes "mas confie em mim, esta torre lhe dará uma experiência única na vida,";
mes "Inclusive, nossos clientes e trabalhadores contratados têm um desconto especial!";
close;
case 3:
mes "[Gatei]";
mes "Gostaria de";
mes "entrar na Torre de Thanatos?";
mes "A taxa de entrada é de ^FF00005,000 zeny^000000.";
next;
switch (select("Entrar:Quem sabe da próxima vez.")) {
case 1:
if (thana_tower > 0) {
mes "[Gatei]";
mes "Oh, "+strcharinfo(0)+"!";
mes "Bem-vindo de volta! Como você já";
mes "pegou sua vaga como";
mes "trabalhador temporário, sua taxa";
mes "de entrada é de 3000 zenys.";
next;
switch (select("Enter:Não, obrigado.")) {
case 1:
if (Zeny > 2999) {
mes "[Gatei]";
mes "Obrigado, e";
mes "continue com o";
mes "bom trabalho. E não";
mes "se esqueça: segurança em primeiro lugar quando";
mes "estiver lutando com aqueles monstros!";
set Zeny, Zeny - 3000;
close2;
warp "tha_scene01",131,220;
end;
}
mes "[Gatei]";
mes "Oh, desculpe...";
mes "Parece que você não";
mes "tem zenys suficientes. Bem,";
mes "volte mais tarde!";
close;
case 2:
mes "[Gatei]";
mes "Você deve estar ocupado então.";
mes "Bem, não se preocupe, nós";
mes "estaremos sempre por aqui. Até breve!";
close;
}
}
if (Zeny > 4999) {
mes "[Gatei]";
mes "Ah, recebi sua";
mes "taxa de entrada. Muito";
mes "obrigado. Bem, espero que";
mes "tenha aproveitado sua visita";
mes "à Torre de Thanatos!";
set Zeny, Zeny - 5000;
close2;
warp "tha_scene01",131,220;
end;
}
mes "[Gatei]";
mes "Bem...";
mes "Hmm. Sinto muito, mas";
mes "você não tem";
mes "zeny suficiente para pagar a entrada.";
mes "Por favor, volte mais tarde...";
close;
case 2:
mes "[Gatei]";
mes "Muito bem. Por favor";
mes "volte a nos visitar mais vezes";
mes "aqui na Torre de Thanatos.";
close;
}
case 4:
mes "[Gatei]";
mes "Hmm? Muito bem.";
mes "Se você quer visitar a";
mes "Torre de Thanatos, por favor";
mes "não hesite em falar comigo.";
mes "Obrigada, e tenha um bom dia!.";
close;
}

OnTouch:
mes "[Tower Keeper]";
mes "Desculpe-me, mas você não pode";
mes "entrar. Este lugar está sob";
mes "a administração da Corporação Rekenber";
mes "e esta área";
mes "está restrita a todos aqueles";
mes "sem autorização.";
close;
}

tha_t01,149,78,4 script Guide 90,{

if (thana_tower == 0) {
mes "[Ditze]";
mes "Bem-vindo à Torre de Thanatos.";
mes "A reconstrução da torre é";
mes "um projeto da Corporação Rekenber,";
mes "e apenas o primeiro e segundo andar";
mes "estão abertos para o público. Então";
mes "como posso lhe ajudar hoje?";
next;
switch (select("Informação sobre a torre:Contrato de trabalho temporário:Cancelar")) {
case 1:
mes "[Ditze]";
mes "Quando essa torre foi construída,";
mes "quem a construiu, e seu propósito";
mes "eram um mistério. Existem";
mes "muitos rumores sobre a torre ser um";
mes "Laboratório, um monumento a heróis,";
mes "ou um forte de demônios...";
next;
mes "[Ditze]";
mes "A Corporação Rekenber vem";
mes "pesquisando a origem desta";
mes "torre, mas por enquanto ainda não acho nenhuma pista que realmente confirmasse algo. Mesmo";
mes "tendo perdido muitas pesquisas para os monstros da torre, nós não desistiremos!";
next;
mes "[Ditze]";
mes "A Rekenber está convencida de que esta";
mes "torre guarda muitos segredos, e";
mes "está, com sucesso, reconstruindo";
mes "os primeiros 2 andares em busca de mais";
mes "e mais conhecimento.";
next;
mes "[Ditze]";
mes "No momento, estamos concentrados na";
mes "reconstrução do terceiro e";
mes "quarto andar da torre. Com sorte, muitos";
mes "aventureiros estão exterminando";
mes "diversos monstros nesses andares, trabalhando como funcionários temporários.";
next;
mes "[Ditze]";
mes "Estamos esperando";
mes "que a reconstrução completa";
mes "do terceiro e quarto andar esteja pronta";
mes "em um futuro próximo, nos trazendo";
mes "mais perto de nosso objetivo de abrir para visitação todos os 12 andares da Torre de Thanatos.";
next;
switch (select("Monstros da torre?:Contrato temporário de trabalho?:......")) {
case 1:
mes "[Ditze]";
mes "Sim, quando nós começamos";
mes "a reconstrução da";
mes "Torre de Thanatos, estes";
mes "monstros que se pareciam com anjos";
mes "apareceram do nada";
mes "para atacar a todos os trabalhadores.";
next;
mes "[Ditze]";
mes "O que primeiro veio em nossas cabeças";
mes "era que estes monstros talvez fossem";
mes "você sabe... anjos de verdade.";
mes "Mas se eles realmente fossem, por que estariam";
mes "nos atacando sem motivo algum?";
next;
mes "[Ditze]";
mes "Pedimos à Academia ";
mes "de Sábios de Juno para investigar";
mes "e eles confirmaram que;
mes "estas criaturas angelicais eram monstros de verdade; a aparência deles lembrar";
mes "anjos era apenas uma coincidência.";
close;
case 2:
mes "[Ditze]";
mes "Você pode já ter ouvido falar";
mes "da Torre de Thanatos, mas";
mes "estamos contratando aventureiros para exterminar os monstros da torre";
mes "do terceiro andar em diante";
mes "com trabalhadores temporários.";
next;
mes "[Ditze]";
mes "Eu estou encarregada de contratar";
mes "estes trabalhadores temporários, então";
mes "fale comigo se estiver interessado. Apenas os funcionários temporários podem";
mes "ter acesso aos outros andares";
mes "aqui na Torre de Thanatos.";
next;
break;
case 3:
mes "[Ditze]";
mes "Para liberar os andares acima";
mes "do segundo, nós estamos contratando";
mes "o máximo de trabalhadores temporários";
mes "que conseguirmos. Por que";
mes "você não considera a possibilidade";
mes "de trabalhar para nós?";
close;
}
switch (select("Maybe next time:Sure, I'd like to work for you.")) {
case 1:
mes "[Ditze]";
mes "Bem, está certo.";
mes "Então venha falar comigo";
mes "assim que você se decidir";
mes "se deseja nos ajudar com";
mes "a reconstrucão da torre,";
mes "trabalhando para a Rekenber.";
close;
case 2:
mes "[Ditze]";
mes "Isso é ótimo!";
mes "Você poderia, por favor, preencher";
mes "este formulário de";
mes "contratação antes? Vamos";
mes "ver. Seu nome é...";
mes ""+strcharinfo(0)+", right?";
next;
menu "Sim",-;
mes "[Ditze]";
mes "Certo, por favor leia";
mes "o contrato com muita atenção.";
mes "Se você concordar com todas as";
mes "condições, vá em frente";
mes "e assine embaixo.";
next;
mes "^3355FFDitze entregará";
mes "o Contrato de Trabalho";
mes "para você dar uma lida.^000000";
next;
mes "- Contrato de Trabalho -";
mes " ";
mes "1. O Contrato de Trabalho";
mes "é efetivado entre a Corporação";
mes "Rekenber (''Contratador'') e "+strcharinfo(0)+"(''Funcinário'').";
mes "1-1. Este contrato de trabalho";
mes "é classificado como uma Troca";
mes "de Interesses entre os dois lados.";
mes "2. Os termos deste contrato";
mes "têm efeito imediatamente";
mes "quando assinado por ambas as partes";
mes "(Contratador e Empregado).";
mes "3. Quando o Empregado executa";
mes "uma missão, ele será avaliado";
mes "com um teste físico que será";
mes "apresentado pelo Contratador.";
mes "3-1. Por favor, verifique a seção";
mes "7A para exemplos de testes";
mes "de extermínio de monstros.";
mes "3-2. O teste disponibilizado";
mes "pelo Contratador será definido e";
mes "rdeterminado pelo mesmo.";
mes "4. O contratador dará recompensas";
mes "ao empregado após receber";
mes "o certificado de extermínio.";
mes "4-1. Possíveis recompensas para";
mes "o extermínio de monstros podem";
mes "ser uma das listadas abaixo.";
mes ".................................................";
mes ".................................................";
mes ".................................................";
mes ".................................................";
mes ".................................................";
mes "13. Os termos deste contrato se";
mes "aplicam apenas ao que envolver a";
mes "Torre de Thanatos.";
mes "14. Empregados receberão um";
mes "desconto na taxa de entrada";
mes "para a Torre de Thanatos.";
mes " ";
mes " ";
mes " ";
mes "Assinatura do Contratador____________";
mes "Assinatura do Empregado____________";
next;
switch (select("Assinar:Não assinar")) {
case 1:
mes "^3355FFYou Você assinou as duas cópias do";
mes "Contrato de Trabalho.^000000";
next;
mes "[Ditze]";
mes "TObrigado. Agora você;
mes "é um empregado oficial da;
mes "Corporação Rekenber! Bem,";
mes "dentro dos limites da torre";
mes "obviamente. Este contrato não se";
mes "aplica a nada que não aconteça na região da torre.";
next;
mes "[Ditze]";
mes "De agora e diante, você pode falar";
mes "com o Guia do 2º Andar para";
mes "entrar no 3º Andar. Se tiver";
mes "alguma questão sobre recompensa de alguma";
mes "missão, por favor, fale com ^3355FFLiei^000000.";
next;
mes "[Ditze]";
mes "Se você quiser obter";
mes "mais informações sobre";
mes "seu trabalho, por favor";
mes "fale com o Guia do 2º Andar.";
mes "Obrigado, e bem-vindo";
mes "à Corporação Rekenber!";
set thana_tower,1;
close;
case 2:
mes "[Ditze]";
mes "Oh?! Existe uma cláusula";
mes "no contrato com a qual você";
mes "não concorda? Humm. Tudo,";
mes "bem. Mas, se você muda";
mes "de idéia, por favor volte";
mes "e fale comigo. Obrigado!";
close;
}
}
case 2:
mes "[Ditze]";
mes "Você pode já ter ouvido falar";
mes "do Vigia da Torre, mas";
mes "nós estamos contratando aventureiros para exterminar os monstros dela";
mes "do terceiro andar em diante";
mes "com trabalhadores temporários.";
next;
mes "[Ditze]";
mes "Eu estou encarregada de contratar";
mes "estes trabalhadores temporários, então";
mes "fale comigo se estiver interessado. Apenas os funcionários temporários podem";
mes "ter acesso aos outros andares";
mes "aqui na Torre de Thanatos.";
next;
switch (select("Quem sabe da próxima vez:Claro, eu gostaria de trabalhar para vocês.")) {
case 1:
mes "[Ditze]";
mes "Bem, Está certo.";
mes "Mas venha falar comigo";
mes "assim que você se decidir";
mes "se deseja nos ajudar com";
mes "a reconstrução da torre";
mes "trabalhando para a Rekenber.";
close;
case 2:
mes "[Ditze]";
mes "Isso é ótimo!";
mes "Você poderia, por favor, preencher";
mes "este formulário de";
mes "contratação antes? Vamos";
mes "ver. Seu nome é...";
mes ""+strcharinfo(0)+", right?";
next;
menu "Sim",-;
mes "[Ditze]";
mes "Certo, por favor leia";
mes "o contrato com muita atenção.";
mes "Se você concordar com todas as";
mes "condições, vá em frente";
mes "e assine embaixo.";
next;
mes "^3355FFDitze lhe entregará";
mes "o Contrato Temporário";
mes "para você dar uma lida.^000000";
next;
mes "- Contrato de Trabalho -";
mes " ";
mes "1. Este contrato de trabalho";
mes "é efetivado entre a Corporação";
mes "Rekenber (''Contratadora'') e "+strcharinfo(0)+"(''Funcinário'').";
mes "1-1. Este contrato de trabalho";
mes "é classificado como uma Troca";
mes "de Interesses entre os dois lados.";
mes "2. Os termos deste contrato";
mes "tem efeito imediatamente";
mes "quando assinado por ambas as partes";
mes "(Contratador e Empregado).";
mes "3. Quando o Empregado executa";
mes "uma missão, o resultado da mesma";
mes "com um teste físico que será";
mes "apresentado ao Contratador.";
mes "3-1. Por favor, verifique a seção";
mes "7A para exemplos de testes";
mes "de extermínio de monstros.";
mes "3-2. O teste disponibilizado;
mes "pelo Contratador será definido e";
mes "determinado pelo mesmo.";
mes "4. O contratador dará recompensas";
mes "ao empregado após receber";
mes "o certificado de extermínio.";
mes "4-1. Possíveis recompensas para";
mes "o extermínio de monstros podem";
mes "ser uma das listadas abaixo. ";
mes ".................................................";
mes ".................................................";
mes ".................................................";
mes ".................................................";
mes ".................................................";
mes "13. Os termos deste contrato se";
mes "aplicam apenas no que envolver a";
mes "Torre de Thanatos.";
mes "14. Empregados receberão um";
mes "desconto na taxa de entrada";
mes "para a Torre de Thanatos!";
mes " ";
mes " ";
mes " ";
mes "Assinatura do Contratador_____________";
mes "Assinatura do Empregado____________";
next;
switch (select("Assinar:Não assinar")) {
case 1:
mes "^3355FFVocê assinou as duas cópias do";
mes "Contrato de Trabalho.^000000";
next;
mes "[Ditze]";
mes "Obrigado. Agora você";
mes "é um empregado oficial da";
mes "Corporação Rekenber! Tudo,";
mes "dentro dos limites da torre";
mes "obviamente. Este contrato não se";
mes "aplica a nada que não aconteça na região da torre.";
next;
mes "[Ditze]";
mes "De agora e diante, você pode falar";
mes "com o Guia do 2º Andar para";
mes "entrar no 3º Andar. Se tiver";
mes "alguma questão sobre recompensa de alguma";
mes "missão, por favor, fale com ^3355FFLiei^000000.";
next;
mes "[Ditze]";
mes "Se você quiser obter";
mes "mais informações sobre";
mes "seu trabalho, por favor";
mes "fale com o Guia do 2º Andar.";
mes "Obrigado, e bem-vindo";
mes "à Corporação Rekenber!";
set thana_tower,1;
close;
case 2:
mes "[Ditze]";
mes "Oh!? Existe uma cláusula";
mes "no contrato com a qual você";
mes "não concorda? Humm. Tudo";
mes "bem. Mas, se você mudar";
mes "de idéia, por favor volte";
mes "e fale comigo. Obrigado!";
close;
}
}
case 3:
mes "[Ditze]";
mes "Bem, se você tiver alguma";
mes "questão, fique à vontade para";
mes "perguntar para mim. Meu nome é";
mes "Ditze Lappa. Tenha um bom dia!";
close;
}
}
mes "[Ditze]";
mes "Para informações mais detalhadas";
mes "sobre o extermínio de monstros,";
mes "por favor, pergunte ao Guia do 2º andar";
mes "e ao Guia ao meu lado. Bom,";
mes "esperamos que você aproveite sua experiência trabalhando para a Corporação Rekenber!";
close;
}

tha_t01,140,78,4 script Guide#reward 831,{

mes "[Liei]";
if (thana_tower == 0) {
mes "Bom dia, meu nome é";
mes "Liei Kuniziet do";
mes "Departamento de";
mes "Recompensas dos Empregados";
mes "da Torre de Thanatos.";
next;
switch (select("Recompensa dos empregados?:Continue com o bom trabalho.")) {
case 1:
mes "[Liei]";
mes "Atualmente, a Corporação Rekenber";
mes "está contratando trabalhadores temporários";
mes "para liberar o acesso a todos os andares";
mes "da Torre de Thanatos. Se quiser";
mes "se inscrever, por favor pergunte ao";
mes "Ditze bem aqui do meu lado.";
close;
case 2:
mes "[Liei]";
mes "Obrigada. Espero que você";
mes "aproveite sua visita";
mes "na Torre de Thanatos.";
close;
}
}
mes "Ah, olá!";
mes "Em que posso ajudar?";
next;
if(select("Recompensa:Nada")==2) {
mes "[Liei]";
mes "Tudo bem, então.";
mes "Por favor, faça o seu melhor";
mes "exterminar os";
mes "monstros que infestam";
mes "os andares mais altos da";
mes "Torre de Thanatos!";
close; }
mes "[Liei]";
mes "Seu nome é "+strcharinfo(0)+", certo?";
mes "Deixe-me checar seus dados";
mes "de trabalhador temporário...";
mes "Ah! Aqui está. Certo, você";
mes "pode, por favor, me contar qual";
mes "o tipo de item que você trouxe?";
next;
setarray .@Items[1],7435,7440,7441,7442;
set .@i, select("Ornamento Dourado:Pena Vermelha:Pena Azul:Selo Amaldiçoado");
mes "[Liei]";
if (!countitem(.@Items[.@i])) {
mes "Oh, desculpe, mas você";
mes "não tem nenhum "+getitemname(.@Items[.@i])+"s.";
mes "Por favor, verifique o seu inventário";
mes "mais uma vez, e depois volte";
mes "a falar comigo para resgatar seus itens";
mes "e receber a recompensa, tudo bem?";
close;
}
mes "A recompensa para cada";
mes getitemname(.@Items[.@i])+" is...";
mes " ";
mes "1,000 zeny";
mes "2,000 EXP";
next;
set .@zeny_tt,(countitem(.@Items[.@i]) * 1000);
set .@exp_tt,(countitem(.@Items[.@i]) * 2000);
mes "[Liei]";
mes "Se você me entregar";
mes countitem(.@Items[.@i])+" "+getitemname(.@Items[.@i])+"s, then";
mes "você receberá um total de...";
mes " ";
mes ""+.@zeny_tt+" zeny";
mes ""+.@exp_tt+" EXP";
next;
mes "[Liei]";
mes "Você gostaria de trocar";
mes "todo os seus "+getitemname(.@Items[.@i])+"s";
mes "pela sua recompensa agora?";
next;
switch(select("Sim:Não")) {
case 1:
mes "[Liei]";
mes "Ótimo! Aqui estão seus";
mes ""+.@zeny_tt+" zeny and";
mes ""+.@exp_tt+" EXP. Obrigado,";
mes "e por favor, continue";
mes "com o bom trabalho!";
delitem .@Items[.@i], countitem(.@Items[.@i]);
set Zeny, Zeny + .@zeny_tt;
getexp .@exp_tt,0;
close;
case 2:
mes "[Liei]";
mes "Claro, sem problemas.";
mes "Apenas volte aqui e";
mes "fale comigo";
mes "quando quiser receber";
mes "sua recompensa, certo?";
close;
}
}

tha_t02,231,161,5 script Entrance Guide 874,{

mes "[Burled]";
if (thana_tower == 0) {
mes "Você está frente à entrada para o 3º Andar. Apenas empregados";
mes "contratados estão autorizados";
mes "a entrar nesta área. Para informações sobre contrato com a Corporação Rekenber, por favor";
mes "fale com o Guia do 2º Andar.";
close;
}
mes "......";
mes ".........";
mes "............";
next;
switch (select("Com licença...:.........")) {
case 1:
mes "[Burled]";
mes "Oh...";
mes "Me desculpe, como";
mes "posso lhe ajudar?";
next;
if (thana_tower < 2) {
switch (select("Entrar no 3º Andar:Portão de Informações")) {
case 1:
mes "[Burled]";
mes "Ah, certo. Deixe-me checar";
mes "se você está na nossa";
mes "lista de empregados. Hummm...";
mes "Ah, seu nome é "+strcharinfo(0)+", right?";
next;
if (getareausers("tha_t02",226,156,236,166) < 5) {
mes "[Burled]";
mes "Primeiro, precisamos esperar pelo menos";
mes "5 empregados se reunirem aqui";
mes "para formar um grupo de trabalho. Certo";
mes "até o momento temos um total de";
mes "" +getareausers("tha_t02",226,156,236,166)+ " empregados esperando";
mes "para entrar no 3º Andar.";
next;
mes "[Burled]";
mes "Se você puder, junte";
mes "seus amigos perto de mim";
mes "para eles te ajudarem. Por favor";
mes "entenda que precisamos esperar";
mes "que se formem estes grupos de trabalho para";
mes "preencher diversas regras de segurança.";
close2;
}
mes "[Burled]";
mes "Ótimo, você chegou";
mes "bem na hora. Acabo de atingir";
mes "o mínimo de 5 empregados";
mes "para formar um grupo, então vou abrir";
mes "os portões para o 3º Andar em diante.";
next;
mes "[Burled]";
mes "Os portões para o 3º Andar";
mes "se fecharão em breve, entre";
mes "o mais rápido que puder. Nós temos que";
mes "fechá-los rápido por causa";
mes "dos monstros, eles não podem invadir";
mes "os 1º e 2º andares...";
close2;
donpcevent "3rdf_warp#tt::OnEnable";
end;
case 2:
mes "[Burled]";
mes "Este portão é a única passagem";
mes "que nos conecta ao 3º andar.";
mes "Depois do 4º andar, as passagens";
mes "entre os andares é de apenas uma";
mes "direção, ou seja, você não poderá sair pelo";
mes "mesmo caminho que entrou.";
next;
mes "[Burled]";
mes "Você pode perceber que existe uma energia";
mes "estranha que afeta do 5º";
mes "andar em diante e,";
mes "que não permite que as pessoas";
mes "voltem pela passagem pela qual entraram.";
next;
mes "[Burled]";
mes "Se você passar do";
mes "4º Andar, tenha cuidado";
mes "e tenha certeza de que vai achar";
mes "o caminho de volta. Além disso os";
mes "monstros são cada vez";
mes "mais fortes conforme você vai subindo a torre...";
next;
mes "[Burled]";
mes "Por motivo dos andares mais altos";
mes "serem muito perigosos, nós apenas";
mes "abrimos os portões para o 3º Andar quando";
mes "juntamos 5 empregados aqui. Portanto,";
mes "você precisa esperar se";
mes "não houver número suficiente de empregados.";
close;
}
}
switch (select("Entrar no 3º Andar:Portão de Informações:Sobre Satan Morroc...")) {
case 1:
mes "[Burled]";
mes "Ah, certo. Deixe-me checar";
mes "se você está na nossa";
mes "lista de empregados. Hummm...";
mes "Ah, seu nome é "+strcharinfo(0)+", right?";
next;
if (getareausers("tha_t02",226,156,236,166) < 5) {
mes "[Burled]";
mes "Primeiro, precisamos esperar pelo menos";
mes "5 empregados se reunirem aqui";
mes "para formar um grupo de trabalho. Certo";
mes "até o momento temos um total de";
mes ""+getareausers("tha_t02",226,156,236,166)+" empregados esperando";
mes "para entrar no 3º Andar.";
next;
mes "[Burled]";
mes "Se você puder, junte";
mes "seus amigos perto de mim";
mes "para eles te ajudarem. Por favor";
mes "entenda que precisamos esperar";
mes "que se formem estes grupos de trabalho para";
mes "preencher diversas regras de segurança.";
close;
}
mes "[Burled]";
mes "Ótimo, você chegou";
mes "bem na hora. Acabo de atingir";
mes "o mínimo de 5 empregados";
mes "para formar um grupo, então vou abrir";
mes "os portões para o 3º Andar em diante.";
next;
mes "[Burled]";
mes "Os portões para o 3º Andar";
mes "se fecharão em breve, entre";
mes "o mais rápido que puder. Nós temos que";
mes "fechá-los rápido por causa";
mes "dos monstros, eles não podem invadir";
mes "os 1º e 2º andares...";
close2;
donpcevent "3rdf_warp#tt::OnEnable";
end;
case 2:
mes "[Burled]";
mes "Este portão é a única passagem";
mes "que nos conecta ao 3º andar.";
mes "Depois do 4º andar, as passagens";
mes "entre os andares é de apenas uma";
mes "direção, ou seja, você não poderá sair pelo";
mes "mesmo caminho que entrou.";
next;
mes "[Burled]";
mes "Você pode perceber que existe uma energia";
mes "estranha que afeta do 5º";
mes "andar em diante e,";
mes "que não permite que as pessoas";
mes "voltem pela passagem pela qual entraram.";
next;
mes "[Burled]";
mes "Se você passar do";
mes "4º Andar, tenha cuidado";
mes "e tenha certeza de que vai achar";
mes "o caminho de volta. Além disso os";
mes "monstros são cada vez";
mes "mais fortes conforme você vai subindo a torre...";
next;
mes "[Burled]";
mes "Por motivo dos andares mais altos";
mes "serem muito perigosos, nós apenas";
mes "abrimos os portões para o 3º Andar quando";
mes "juntamos 5 empregados aqui. Portanto,";
mes "você precisa esperar se";
mes "não houver número suficiente de empregados.";
close;
case 3:
mes "[Burled]";
mes "Satan Morroc...?";
mes "Humm.... Você não está falando";
mes "sobre aquele pequeno tabu?";
mes "Digo, as pessoas ficam nervosas ou";
mes "com medo só de ouvir";
mes "este nome, você sabia?";
next;
switch (select("É importante saber mais.:Desculpe-me, eu não sei...")) {
case 1:
mes "[Burled]";
mes "Quando a Corporação Rekenber";
mes "começou a reconstrução da";
mes "Torre de Thanatos, a Corporação";
mes "Eventos Incríveis era a maior";
mes "nos negócios relacionados ao";
mes "projeto de reconstrução da torre.";
next;
mes "[Burled]";
mes "Sim, eu lembro que a Corporação";
mes "Eventos Incríveis investiu uma";
mes "grande quantidade de zenys e mão de obra";
mes "para reconstruir aquela torre, e expandir";
mes "suas relações de negócios";
mes "com a Corporação Rekenber...";
next;
mes "[Burled]";
mes "Mas então houve um";
mes "tipo de acidente. Aconteceu uma";
mes "explosão nos andares de cima";
mes "da Torre de Thanatos. Alguns dizem";
mes "que deve ter sido Satan Morroc, mas eu não sei ao certo.";
next;
mes "[Burled]";
mes "Por causa dessa explosão,";
mes "a Corporação Eventos Incríveis parou";
mes "com todos seus investimentos na torre";
mes "assim como o seu projeto de reconstrução. Eles";
mes "basicamente abandonaram a Corporação Rekenber em relação à torre.";
next;
mes "[Burled]";
mes "Mas enfim...";
mes "Logo depois desse aconteciment,";
mes "a Corporação Rekenber tomou o comando";
mes "da Corporação Eventos Incríveis. Quero dizer,";
mes "ela continua com o nome, mas faz parte da Corporação Rekenber agora.";
next;
mes "[Burled]";
mes "Eu sei, eu sei...";
mes "Tudo isso soa muito";
mes "sombrio. Por favor, faça-me um favor";
mes "e não conte a mais ninguém";
mes "que eu lhe contei estes rumores, ok?";
close;
case 2:
close;
}
}
case 2:
mes "["+strcharinfo(0)+"]";
mes ".............";
close;
}
}

tha_t02,227,163,0 script 3rdf_warp#tt 45,1,1,{
end;

OnInit:
hideonnpc "3rdf_warp#tt";
end;

OnTouch:
if (thana_tower == 0) warp "tha_t02",227,158;
else warp "tha_t03",219,159;
end;

OnEnable:
hideoffnpc "3rdf_warp#tt";
initnpctimer;
end;

OnTimer30000:
stopnpctimer;
hideonnpc "3rdf_warp#tt";
end;
}

tha_t03,67,70,0 script Machine Device#tt1 111,{

if ((countitem(7421) == 0) && (countitem(7426) == 0)) {
mes "^3355FFUm misterioso campo de";
mes "energia parece cercar";
mes "este mecanismo";
mes "impedindo que";
mes "você se aproxime dele.^000000";
next;
switch (select("Quebrar o Campo de Energia:Recuar")) {
case 1:
if (getequipweaponlv(4) == 4){
mes "^3355FFUsando "+getequipname(4)+" em";
mes "mãos, você destrói o campo";
mes "de energia com toda sua força. Depois de absorver o impacto, o";
mes "campo desaparece com um simples,";
mes "som de ''pzzzzzh'' sound.^000000";
next;
switch (select("Investigar o Mecanismo:Recuar")) {
case 1:
mes "^3355FFEnquanto você investiga o";
mes "mecanismo, você acidentalmente";
mes "pressiona um botão, resultando";
mes "em um longo bipe";
mes "e na ativação";
mes "da tela do monitor.^000000";
next;
switch (select("Ler a tela:Ignorar a tela")) {
case 1:
mes "^426F42Eu usei uma tecnologia";
mes "para selar o portão";
mes "e as pedras encantadas. Embora";
mes "os selos estejam nos seus devidos lugares, eu";
mes "não consigo parar de me preocupar se";
mes "eles vão se quebrar no futuro.^000000";
next;
mes "^426F42Não posso descansar enquanto, digamos";
mes "um certo grupo desejar as";
mes "pedras e puder facilmente";
mes "quebrar o selo. Para deter esse grupo,";
mes "eu mudei o destino do portão após tê-lo selado.^000000";
next;
mes "^426F42Eu não chequei as";
mes "coordenadas exatas";
mes "para às quais mudei o destino do portão,";
mes "mas seja lá quais forem";
mes "me dá uma sensação boa e reconfortante,";
mes "então, definitivamente não é o inferno.^000000";
next;
mes "^3355FFVocê leu todo";
mes "o texto mostrado na";
mes "tela. Julgando pelo";
mes "conteúdo, provavelmente existe";
mes "mais texto escrito antes e depois";
mes "do que foi mostrado.^000000";
next;
switch (select("Investigar melhor o mecanismo:Finalizar a investigação")) {
case 1:
mes "^3355FFVocê achou";
mes "uma pequena chave no";
mes "canto do mecanismo.";
mes "Só de tocar nesta chave";
mes "já lhe dá uma estranha sensação.^000000";
getitem 7421,1; //Key_Red
close;
case 2:
close;
}
case 2:
mes "^3355FFVocê decide ignorar";
mes "o texto mostrado na tela,";
mes "e imediatamente repara";
mes "numa pequena chave no canto";
mes "do mecanismo. Só de tocar";
mes "na chave já lhe dá uma estranha sensação.^000000";
getitem 7421,1; //Key_Red
close;
}
case 2:
mes "^3355FFVocê decide deixar";
mes "o mecanismo de lado.^000000";
close;
}
}
mes "^3355FFVocê atingiu o campo";
mes "de energia com sua arma";
mes "usando toda sua força,";
mes "mas você não conseguiu";
mes "quebrar a barreira.";
mes "Você provavelmente irá precisar de";
mes "uma arma mais poderosa...^000000";
close;
case 2:
mes "^3355FFVocê decide deixar";
mes "o mecanismo de lado.^000000";
close;
}
}
mes "^3355FFÉ uma máquina estranha";
mes "que emite um zunido";
mes "estranho. Olhando mais de perto,";
mes "você percebe uma";
mes "barreira de energia em volta";
mes "do mecanismo.^000000";
close;
}

tha_t04,195,195,0 script Machine Device#tt2 111,{

if ((countitem(7422) == 0) && (countitem(7427) == 0)) {
mes "^3355FFFFVocê encontrou um teclado numérico";
mes "abaixo do monitor.";
mes "Assim que você aperta uma";
mes "das teclas, você ouve";
mes "um bipe e vê o monitor ativar.^000000";
next;
mes "[Tela]";
mes "Por favor, digite um número";
mes "de 3 dígitos. Não digite";
mes "o mesmo dígito mais de uma";
mes "vez nem use o 0.";
set @retry,0;
next;
while (1) {
set @yagu100,rand(1,9);
set @yagu10,rand(1,9);
set @yagu1,rand(1,9);
if (((@yagu100 != @yagu10) && (@yagu100 != @yagu1)) && (@yagu10 != @yagu1)) {
break;
}
}
while (1) {
while (1) {
L_Retry:
next;
input @input;
if (@input < 100 || @input > 999) {
mes "[Tela]";
mes "O número digitado";
mes "não preenche";
mes "os requisitos necessários.";
mes "Por favor digite um";
mes "número de 3 dígitos.";
close;
}
set @input100,@input / 100;
set @input10,(@input % 100) / 10;
if (((@input100 > 0) && (@input10 > 0)) && ((@input % 10) > 0)) {
if ((@input100 != @input10) && (@input100 != (@input % 10)) && (@input10 != (@input % 10))) {
break;
}
mes "[Tela]";
mes "Violação do";
mes "padrão numérico";
mes "número 0 foi usado,";
mes "ou um mesmo número foi";
mes "usado mais de uma vez.";
next;
}
}
set @retry,@retry+1;
mes "[Tela]";
mes "Você digitou o número...";
mes "^0000ff"+@input100+"^000000, ^0000ff"+@input10+"^000000, ^0000ff"+(@input % 10)+"^000000";
mes " ";
mes "Calculando resultado...";
mes "Por favor, espere um momento...";
next;
set @strike,0;
set @ball,0;
if (@yagu100 == @input100) set @strike,@strike+1;
if (@yagu10 == @input10) set @strike,@strike+1;
if (@yagu1 == (@input % 10)) set @strike,@strike+1;
if ((@yagu100 == @input10) || (@yagu100 == (@input % 10))) set .@ball,.@ball+1;
if ((@yagu10 == @input100) || (@yagu10 == (@input % 10))) set @ball,@ball+1;
if ((@yagu1 == @input100) || (@yagu1 == @input10)) set @ball,@ball+1;
if (@strike == 3) {
mes "[Tela]";
mes "Código aceito.";
mes "Acesso autorizado.";
next;
mes "^3355FFDepois que a tela mostrar";
mes "a autorização de acesso";
mes "outras informações";
mes "serão mostradas na tela,";
mes "e uma unidade de armazenamento";
mes "irá abrir embaixo do monitor.^000000";
next;
switch (select("Ler o texto na tela:Investigar o espaço de armazenagem:Cancelar")) {
case 1:
mes "[Entrada de Log]";
mes "^426F42Isso apenas poderia dizer que ela";
mes "veio aqui pelo Satan Morroc.";
mes "Depois que eu investiguei a área,";
mes "encontrei rastros de batalha";
mes "envolvendo várias criaturas com o tamanho de um humano, e uma outra, gigante.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Eu acredito que o grupo dela";
mes "lutou contra o Satan Morroc";
mes "e conseguiu ferí-lo";
mes "gravemente. Parece que o Satan";
mes "Morroc recuou para o sul";
mes "e o grupo o seguiu.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Estranhamente, eu não notei";
mes "nenhum rastro dela, o que é";
mes "realmente suspeito a partir do momento que";
mes "outras evidências permaneceram";
mes "lá por centenas de anos.";
mes "Mas não sei dizer o porquê...^000000";
next;
mes "^3355FFVocê terminou";
mes "de ler os arquivos da Entrada de Log.^000000";
next;
switch (select("Investigar o espaço de armazenagem:Cancelar")) {
case 1:
mes "^3355FFVocê encontrou uma pequena e brilhante";
mes "chave em um canto vazio do";
mes "gabinete do Espaço de Armazenagem.";
mes "Só de segurar a chave";
mes "você sente uma sensação estranha.^000000";
if (thana_tower == 1) set thana_tower,2;
getitem 7422,1; //Key_Yellow
close;
case 2:
close;
}
case 2:
mes "^3355FFVocê encontrou uma pequena e brilhante";
mes "chave em um canto vazio do";
mes "gabinete do Espaço de Armazenagem.";
mes "Só de segurar a chave";
mes "você sente uma sensação estranha.^000000";
getitem 7422,1; //Key_Yellow
close;
case 3:
mes "^3355FFDepois de algum tempo,";
mes "você ouve um bipe";
mes "bem baixo. O texto na tela";
mes "desaparece, e o espaço de";
mes "armazenagem embaixo do gabinete do monitor";
mes "se fecha.^000000";
close;
}
}
if ((@retry > 0) && (@retry < 5)) {
mes "[Tela]";
mes "*Beeeeep*";
mes "Sequência";
mes "numérica não autorizada.";
next;
mes "[Tela]";
mes "Número correto";
mes "no local correto";
mes "em uma sequência total de: ^FF0000"+@strike+"^000000";
mes " ";
mes "Total do número correto: ^FF0000"+@ball+"^000000";
goto L_Retry;
}
mes "[Tela]";
mes "*Beeeeep*";
mes "Sequência";
mes "numérica não autorizada.";
next;
mes "[Tela]";
mes "Número correto";
mes "no local correto";
mes "em uma sequência total de: ^FF0000"+@strike+"^000000";
mes " ";
mes "Total do número correto: ^FF0000"+@ball+"^000000";
next;
mes "[Tela]";
mes "Número correto";
mes "no local correto";
mes "na sequência foi...";
mes "^ff0000"+@yagu100+"^000000, ^ff0000"+@yagu10+"^000000, ^ff0000"+@yagu1+"^000000";
mes "O número de autorização";
mes "vai mudar após nova tentativa.";
close;
}
}
mes "^3355FFEste dispositivo está";
mes "inativo ou fora de";
mes "operação. Porém, você";
mes "pode achar um bom uso para ele mais tarde...^000000";
close;
}

tha_t05,101,37,0 script Machine Device#tt3 111,{

if ((countitem(7423) == 0) && (countitem(7428) == 0)) {
if (getareausers("tha_t05",98,34,104,40) < 4) {
mes "^3355FFVocê é inexplicavelmente atraído";
mes "para este mecanismo.";
mes "Além da tela verde";
mes "no meio, não há";
mes "botões nem alavancas.^000000";
if (rand(1,3) == 2) {
next;
mes "^3355FFVocê percebe um pequeno texto no";
mes "canto inferior da tela verde";
mes "onde está escrito: “A operação";
mes "deste mecanismo requer a presença de";
mes "quatro ou mais pessoas detectadas";
mes "pelo sistema.''^000000";
close;
}
close;
}
mes "^3355FFQuando você se aproxima do dispositivo, o";
mes "chão começa a brilhar.";
mes "Um texto aparece na tela do";
mes "dispositivo e um recipiente de armazenagem se abre abaixo do monitor.^000000";
next;
switch (select("Ler o texto da tela:Investigar o espaço de armazenagem:Cancelar")) {
case 1:
mes "[Entrada de Log]";
mes "^426F42Depois da tentativa,";
mes "eu decido partir. Mas";
mes "antes que eu pudesse fazer isso,";
mes "preciso selar o portão";
mes "que levava àquele lugar.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Se alguém viesse procurar";
mes "esta torre e usasse o portão";
mes "para algum fim maléfico, o mundo seria amaldiçoado com o caos.";
mes "Claro que eles teriam me parado se soubessem que eu estava selando o portão...^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Levou muito tempo,";
mes "mas eu consegui selar o portão";
mes "secretamente. Mas antes";
mes "de começar a selar,";
mes "eu decidi examinar melhor";
mes "para ter mais segurança do que estava fazendo.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Em meus estudos sobre o portão,";
mes "eu descobri que seu poder derivava";
mes "das Pedras";
mes "Encantadas. Para prevenir que alguém";
mes "usasse seus poderes de forma inapropriada, eu selei as pedras separadamente...^000000";
next;
mes "^3355FFVocê terminou";
mes "de ler o texto";
mes "que foi exibido";
mes "na tela.^000000";
close;
case 2:
mes "^3355FFVocê encontrou uma pequena";
mes "e brilhante chave dentro";
mes "do recipiente de armazenagem";
mes "abaixo do gabinete do monitor.^000000";
getitem 7423,1; //Key_Blue
close;
case 3:
close;
}
}
mes "^3355FFVocê não encontrou nada aqui,";
mes "fora os padrões";
mes "apagados que marcavam o chão.^000000";
close;
}

tha_t06,43,152,0 script Machine Devicett4 111,{

if ((countitem(7424) == 0) && (countitem(7429) == 0)) {
mes "^3355FFVocê encontrou um mecanismo";
mes "que tem muitas";
mes "rodas. Uma tela negra";
mes "está montada ao lado";
mes "da máquina.^000000";
next;
switch (select("Investigar:Cancelar")) {
case 1:
if ((countitem(7421) >= 1) || (countitem(7422) >= 1) || (countitem(7423) >= 1)) {
mes "^3355FFQuando você examina as";
mes "rodas, você repara que elas correspondem";
mes "à chave que está no seu inventário";
mes "emitindo luz e um estranho";
mes "ruído. Depois de algum tempo, eles";
mes "param e fica tudo silencioso.^000000";
next;
switch (select("Investigar o Chassi da Máquina:Investigar as Rodas:Cancelar")) {
case 1:
mes "^3355FFA chave em seu inventário";
mes "não parece ser afetada";
mes "pelo chassi da máquina. A";
mes "tela montada ao lado";
mes "continua em branco e desativada.^000000";
close;
case 2:
set @small_1,0;
set @small_2,0;
set @big_1,0;
set @big_2,0;
set @big_3,0;
mes "^3355FFFFVocê toca as rodas e";
mes "descobre que elas estão";
mes "se movimentando lentamente. Você repara que";
mes "existem 2 rodas pequenas";
mes "e 3 maiores, num total";
mes "de 5 rodas, nesta máquina.^000000";
next;
mes "^3355FFAs rodas grandes estão se movendo";
mes "verticalmente, para cima e para baixo";
mes "pressionando as menores";
mes "fazendo com que elas girem.^000000";
next;
mes "^3355FJulgando pelo quanto a máquina";
mes "está chacoalhando, as";
mes "rodas podem estar desalinhadas.";
mes "Talvez você consiga";
mes "fazer a máquina funcionar corretamente";
mes "alinhando-as.^000000";
while (1) {
next;
mes "^3355FFQual roda você gostaria";
mes "de trocar?^000000";
next;
switch (select("1ª Roda Pequena:2ª Roda Pequena:1ª Roda Grande:2ª Roda Grande:3ª Roda Grande:Checar a configuração atual das rodas:Voltar à organização original das rodas")) {
case 1:
switch (select("Levantar a Roda:Abaixar a Roda:Pressionar a Roda")) {
case 1:
mes "^EE0000*Choom*^000000";
set @small_1,2;
if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
continue;
case 2:
mes "^00B2EE*Sneeeep*^000000";
set @small_1,1;
if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
continue;
case 3:
mes "^5C246E*Mrreeem*^000000";
set @small_1,3;
if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
continue;
}
break;
case 2:
switch (select("Levantar a Roda:Abaixar a Roda:Pressionar a Roda")) {
case 1:
mes "^5C246E*Mrreeem*^000000";
set @small_2,3;
if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
continue;
case 2:
mes "^EE0000*Choom*^000000";
set @small_2,2;
if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
continue;
case 3:
mes "^00B2EE*Sneeeep*^000000";
set @small_2,1;
if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
continue;
}
break;
case 3:
switch (select("Levantar a Roda:Abaixar a Roda:Deslocar Verticalmente a Roda")) {
case 1:
mes "^00B2EE*Sneeeep*^000000";
set @big_1,1;
if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
continue;
case 2:
mes "^5C246E*Mrreeem*^000000";
set @big_1,3;
if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
continue;
case 3:
mes "^EE0000*Choom*^000000";
set @big_1,2;
if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
continue;
}
break;
case 4:
switch (select("Levantar a Roda:Abaixar a Roda:Deslocar Verticalmente a Roda")) {
case 1:
mes "^EE0000*Choom*^000000";
set @big_2,2;
if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
continue;
case 2:
mes "^5C246E*Mrreeem*^000000";
set @big_2,3;
if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
continue;
case 3:
mes "^00B2EE*Sneeeep*^000000";
set @big_2,1;
if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
continue;
}
break;
case 5:
switch (select("Levantar a Roda:Abaixar a Roda:Deslocar Verticalmente a Roda")) {
case 1:
mes "^EE0000*Choom*^000000";
set @big_3,2;
if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
continue;
case 2:
mes "^00B2EE*Sneeeep*^000000";
set @big_3,1;
if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
continue;
case 3:
mes "^5C246E*Mrreeem*^000000";
set @big_3,3;
if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
continue;
}
break;
case 6:
mes "---Wheel Position---";
if (@small_1 == 0) mes "1º Roda Pequena: Sem mudanças";
else if (@small_1 == 1) mes "1º Roda Pequena: Para Baixo";
else if (@small_1 == 2) mes "1º Roda Pequena: Para Cima";
else mes "1º Roda Pequena: Pressionada";

if (@small_2 == 0) mes "2º Roda Pequena: Sem mudanças";
else if (@small_2 == 1) mes "2º Roda Pequena: Pressionada";
else if (@small_2 == 2) mes "2º Roda Pequena: Para Baixo";
else mes "2º Roda Pequena: Para Cima";

if (@big_1 == 0) mes "1º Roda Grande: Sem mudanças";
else if (@big_1 == 1) mes "1º Roda Grande: Para Cima";
else if (@big_1 == 2) mes "1º Roda Grande: Movida";
else mes "1º Roda Grande: Para Baixo";

if (@big_2 == 0) mes "2º Roda Grande: Sem mudanças";
else if (@big_2 == 1) mes "2º Roda Grande: Movida";
else if (@big_2 == 2) mes "2º Roda Grande: Para Cima";
else mes "2º Roda Grande: Para Baixo";

if (@big_3 == 0) mes "3ª Roda Grande: Sem mudanças";
else if (@big_3 == 1) mes "3ª Roda Grande: Para Baixo";
else if (@big_3 == 2) mes "3ª Roda Grande: Para Cima";
else mes "3ª Roda Grande: Movida";

next;
mes "---Som da Roda---";
if (@small_1 == 0) mes "1ª Roda pequena: *Br-brak!*";
else if (@small_1 == 1) mes "1ª Roda pequena: *Sneeeep*";
else if (@small_1 == 2) mes "1ª Roda pequena: *Choom*";
else mes "1ª Roda pequena: *Mrreeem*";

if (@small_2 == 0) mes "2ª Roda pequena: *Br-brak!*";
else if (@small_2 == 1) mes "2ª Roda pequena: *Sneeeep*";
else if (@small_2 == 2) mes "2ª Roda pequena: *Choom*";
else mes "2ª Roda pequena: *Mrreeem*";

if (@big_1 == 0) mes "1ª Roda grande: *Br-brak!*";
else if (@big_1 == 1) mes "1ª Roda grande: *Sneeeep*";
else if (@big_1 == 2) mes "1ª Roda grande: *Choom*";
else mes "1ª Roda grande: *Mrreeem*";

if (@big_2 == 0) mes "2ª Roda grande: *Br-brak!*";
else if (@big_2 == 1) mes "2ª Roda grande: *Sneeeep*";
else if (@big_2 == 2) mes "2ª Roda grande: *Choom*";
else mes "2ª Roda grande: *Mrreeem*";

if (@big_3 == 0) mes "3ª Roda grande: *Br-brak!*";
else if (@big_3 == 1) mes "3ª Roda grande: *Sneeeep*";
else if (@big_3 == 2) mes "3ª Roda grande: *Choom*";
else mes "3ª Roda grande: *Mrreeem*";

continue;
case 7:
set @small_1,0;
set @small_2,0;
set @big_1,0;
set @big_2,0;
set @big_3,0;
close;
}
break;
}
mes "^3355FFQuando você está ajustando as rodas,";
mes "elas param de repente";
mes "com um ruído seco. Então a tela do mecanismo se ativa e mostra";
mes "um texto enquanto o compartimento";
mes "de armazenagem abaixo do";
mes "monitor se abre.^000000";
next;
switch (select("Ler o texto na tela:Investigar o espaço de armazenagem:Cancelar")) {
case 1:
mes "[Entrada de Log]";
mes "^426F42Não foram os humanos";
mes "nem os deuses que construíram esta";
mes "torre: foram os demônios.";
mes "Intrigado com esta informação,";
mes "eu decidi tentar entender por que eles construíram a Torre de Thanatos.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Em minha pesquisa, aprendi";
mes "que esta torre era usada";
mes "como um portal para invocar demônios do inferno durante anos de guerra,";
mes "e o infame Satan Morroc foi um destes invocados aqui.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Satan Morroc... Eu admito";
mes "que estou interessado em aprender";
mes "mais sobre sua aparência a partir do";
mes "momento que ele estava aqui na Torre de Thanatos";
mes "ao mesmo tempo que ela...^000000";
next;
mes "^3355FFVocê terminou";
mes "de ler o texto";
mes "que estava na";
mes "tela do monitor.^000000";
close;
case 2:
mes "^3355FFDentro do compartimento de";
mes "armazenagem abaixo do monitor,";
mes "você encontra uma pequena e";
mes "brilhante chave.^000000";
getitem 7424,1; //Key_Green
close;
case 3:
close;
}
case 3:
close;
}
}
mes "^3355FFEste mecanismo foi";
mes "ativado, como mostram suas";
mes "rodas se movendo e brilhando.^000000";
close;
case 2:
mes "^3355FFVocê não precisa";
mes "investigar se não lhe parecer";
mes "peculiar ou fora de lugar...^000000";
close;
}
}
mes "^3355FFVocê encontrou um mecanismo";
mes "desativado com uma";
mes "interessante série de rodas.^000000";
close;
}

tha_t09,19,158,0 script Machine Device#tt5 111,{

if ((countitem(7425) == 0) && (countitem(7430) == 0)) {
if (((countitem(7421) >= 1) || (countitem(7426) >= 1)) && ((countitem(7422) >= 1) || (countitem(7427) >= 1)) && ((countitem(7423) >= 1) || (countitem(7428) >= 1)) && ((countitem(7424) >= 1) || (countitem(7429) >= 1))) {
mes "^3355FFVocê encontra uma máquina que";
mes "emite uma luz suave e um fraco";
mes "ruído. Há também um monitor";
mes "com diferentes e coloridas";
mes "fechaduras debaixo dele, em";
mes "frente à máquina.^000000";
next;
mes "^3355FFVocê também nota que existem ali";
mes "muitas fendas que parecem ser";
mes "do tamanho perfeito pra";
mes "suas chaves e Pedras Encantadas.";
next;
input .@inputstr$;
if (.@inputstr$ == "Chave" || .@inputstr$ == "Pedra Encantada") {
mes "^3355FFVocê coloca as chaves nas";
mes "fechaduras, combinando-as pela";
mes "cor correspondente, e coloca";
mes "as Pedras Encantadas nas fendas da máquina. As pedras começam a brilhar,";
mes "textos aparecem na tela e o espaço de armazenagem abaixo do monitor se abre.^000000";
next;
switch (select("Ler o texto na tela:Investigar o espaço de armazenagem:Cancelar")) {
case 1:
mes "[Entrada de Log]";
mes "^426F42Como segui sua trilha para";
mes "o norte, eu passei por muitos";
mes "lugares desertos. Finalmente,";
mes "cheguei a uma pequena vila";
mes "onde aprendi sobre a torre";
mes "que rejeita a entrada de humanos.^000000";
next;
mes "[Entrada de Log]";
mes "^426F42Instantâneamente eu entendi que ela";
mes "devia ter ido para a torre.";
mes "Eu segui para lá e quando";
mes "cheguei, entrei em choque: era grotesco e não me lembrava em nada";
mes "uma construção feita por humanos.^000000";
next;
mes "^426F42Eu também fiquei surpreso--";
mes "pela tecnologia avançada que";
mes "provavelmente foi necessária para construir a confusa estrutura da torre.";
mes "Também descobri um fato interessante enquanto estava pesquisando a torre...^000000";
next;
mes "^3355FFVocê terminou";
mes "de ler o texto";
mes "que estava na";
mes "tela do monitor.^000000";
close;
case 2:
mes "^3355FFVocê pesquisa o compartimento";
mes "de armazenagem abaixo da";
mes "tela e encontra uma chave";
mes "estranha. Assim que você a pega,";
mes "a atividade da máquina é interrompida.";
mes "Você pega suas chaves";
mes "e as Pedras Encantadas.^000000";
getitem 7425,1; //Key_Black
close;
case 3:
mes "^3355FFVocê retira suas chaves";
mes "e as Pedras Encantadas que";
mes "havia colocado na máquina.^000000";
close;
}
}
mes "Você tentou com";
mes .@inputstr$+",";
mes "mas nada aconteceu.";
close;
}
mes "^3355FFVocê encontra uma máquina que";
mes "emite uma luz suave e um fraco";
mes "ruído. Há também um monitor";
mes "com diferentes e coloridas";
mes "fechaduras debaixo dele, em";
mes "frente à máquina.^000000";
close;
}
mes "^3355FFVocê encontra um estranho";
mes "mecanismo que não";
mes "está mais em funcionamento.^000000";
close;
}

tha_t04,150,44,0 script Seal#tt1 111,{

if (countitem(7423) >= 1) {
mes "^3355FFEsta área é protegida por";
mes "algum poder misterioso.";
mes "Você tenta tocar o selo,";
mes "mas ele faz um ruído muito alto";
mes "e afasta sua mão.";
mes "com uma rajada de luz azul.^000000";
next;
switch (select("Investigar:Não há como quebrar este selo!")) {
case 1:
input .@inputstr$;
if (.@inputstr$ == "Chave Azul") {
mes "^3355FFVocê cuidadosamente segura a chave";
mes "azul e a leva até";
mes "o selo. Estranhamente sua";
mes "mão não é afastada";
mes "desta vez, e o selo começa a";
mes "emitir uma luz misteriosa.^000000";
next;
mes "^3355FFVocê encontrou uma pequena fechadura";
mes "no selo, inseriu a chave";
mes "azul, e vagarosamente a girou. A";
mes "luz do selo se apaga, revelando a";
mes "Pedra Encantada. Assim que você segura";
mes "a pedra, as memórias de";
mes "alguém são projetadas em sua mente.^000000";
next;
mes "^333333Thanatos! Temos uma";
mes "mensagem da guilda.";
mes "Eles querem que nós paremos o que";
mes "estamos fazendo e retornemos agora!^000000";
mes " ";
mes "^333333É m-melhor nós nos apressarmos...^000000";
next;
mes "......";
mes ".........";
mes "............";
next;
mes "^3355FFA imagem desaparece de";
mes "sua mente tão rápido quanto";
mes "apareceu. O que poderia";
mes "ter acontecido no passado?^000000";
delitem 7423,1; //Key_Blue
getitem 7428,1; //Magic_Gem_Blue
close;
}
mes "^3355FFVocê vai ter que";
mes "tentar algo a mais para";
mes "tentar quebrar este";
mes "selo. O que poderia";
mes "ser preciso para isto?^000000";
close;
case 2:
mes "^3355FFVocê se afasta do";
mes "selo com o poder que o";
mes "mantém longe";
mes "do mesmo.^000000";
close;
}
}
mes "^3355FFEsta área é protegida por";
mes "algum poder misterioso.";
mes "Você tenta tocar o selo,";
mes "mas ele faz um ruído muito alto";
mes "e afasta sua mão.^000000";
percentheal -10,0;
close;
}

tha_t05,218,116,0 script Seal#tt2 111,{

if (countitem(7421) >= 1) {
mes "^3355FFEsta área é protegida por";
mes "algum poder misterioso.";
mes "Você tenta tocar o selo,";
mes "mas ele faz um ruído muito alto";
mes "e afasta sua mão.";
mes "com uma rajada de luz vermelha.^000000";
next;
switch (select("Investigar:Não há como quebrar este selo!")) {
case 1:
input .@inputstr$;
if (.@inputstr$ == "Red Key") {
mes "^3355FFVocê cuidadosamente segura a chave";
mes "vermelha e a leva até";
mes "o selo. Estranhamente sua";
mes "mão não é afastada";
mes "desta vez, e o selo começa a";
mes "emitir uma luz misteriosa.^000000";
next;
mes "^3355FFVocê encontrou uma pequena fechadura";
mes "no selo, inseriu a chave";
mes "vermelha, e vagarosamente a girou. A";
mes "luz do selo se apaga, revelando a";
mes "Pedra Encantada. Assim que você segura";
mes "a pedra, as memórias de";
mes "alguém são projetadas em sua mente.^000000";
next;
mes "...Então nós decidimos";
mes "encarregar alguns Assassinos";
mes "para matar o Satan Morroc.";
mes "Mas honestamente, as chances de";
mes "sucesso são de praticamente 1%.";
mes "É melhor do que nada, mas... Isso está enfurecendo o Satan Morroc...^000000";
next;
mes "......";
mes ".........";
mes "............";
next;
mes "^3355FFA imagem desaparece de";
mes "sua mente tão rápido quanto";
mes "apareceu. O que poderia";
mes "ter acontecido no passado?^000000";
delitem 7421,1; //Key_Red
getitem 7426,1; //Magic_Gem_Red
close