COMMON SHARED px, py, portx, porty, din, mon, senha$
COMMON SHARED nome$(), raca$(), classe$(), forc(), vig(), agi(), inte(), per(), car(), rea(), dano(), vit(), mana(), fer(), exa(), xp()
COMMON SHARED var(), sta(), equ(), mag(), hab(), equip()
COMMON SHARED sala$(), movn(), movs(), movl(), movo()
COMMON SHARED moner(), corpo(), porta()

RANDOMIZE TIMER

PRINT ""
IF var(6) > 0 THEN
PRINT "O druida olha para seus cabelos enormes"
PRINT "Druida: Diga, o que vocˆ quer saber?"
INPUT "", press
ELSE
PRINT "Druida: Desculpe mas se vocˆ nÆo ‚ um elfo graduado deve marcar uma audiˆncia   primeiro."
PRINT "Druida: Pr¢ximo ano est  bom pra vocˆ?"
GOTO tchau
END IF

assunto:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 14, B
PRINT ""
PRINT "(0): Tchau."
PRINT "(1): Fale-me sobre os devoradores de mentes."
PRINT "(2): Fale-me sobre os cidadäes de Uktaw."
PRINT "(3): Fale-me sobre Tricard."
PRINT "(4): Fale-me sobre tesouros."
PRINT "(5): Fale-me sobre monstros."
PRINT "(6): Fale-me sobre vocˆ."
PRINT "(7): Fale-me sobre qualquer coisa, eu estou entediado."
PRINT ""
INPUT "Assunto: ", ass
PRINT ""

IF ass = 0 THEN
PRINT "Druida: Adeus."
GOTO tchau
END IF

IF ass = 1 THEN
PRINT "Druida: SÆo seres horr¡veis que tˆm um terr¡vel gosto musical e se escondem na  floresta a sul."
PRINT "Druida: Aqueles que foram submetidos … lavagem cerebral deles nunca mais        voltaram."
PRINT "Druida: Estes monstros desrespeitam a riqueza cultural e a diversidade musical, fazendo com que todos ou‡am apenas m£sicas da moda, que nÆo duram nem um mˆs na mem¢ria das pessoas."
PRINT "Druida: Assim, eles efetivamente devoram a mente dos incautos consumidores! Elesse acustumam a ouvir melodias sem criatividade e letras que nÆo os fazem pensar."
PRINT "Druida: Vocˆ deve ser atencioso, pois eles se multiplicam a cada ano!"
END IF

IF ass = 2 THEN
PRINT "Druida: Aqueles humanos quase nos destru¡ram! Mas n¢s os derrotamos."
PRINT "Druida: Eles tentaram roubar a espada de cristal de n¢s, mas nossos guerreiros  invadiram sua cidade e acharam a espada."
PRINT "Druida: A espada de cristal ‚ um artefato poderoso, que nÆo pode cair em mÆos   erradas."
PRINT "Druida: Diz a lenda que um dia vir  um elfo igualmente poderoso, carregando     antigas e sagradas marcas em seu rosto, como estas (o druida mostra uma foto),  que poder  usar a espada para o bem."
IF sta(12) = 0 THEN sta(12) = 1
IF sta(12) = 2 THEN PRINT "O druida olha para as marcas no seu rosto": PRINT "Druida: Ei! Vocˆ ‚ o escolhido! Pegue a espada com o l¡der dos rangers."
END IF

IF ass = 3 THEN
PRINT "Druida: Tricard ‚ uma cidade dividida, mas isso nÆo importa mais porque ela foi abandonada por todos os personagens capazes de se mover."
PRINT "Druida: Corajosamente ainda aparecem hero¡s como vocˆ para movimentar as moedas neste mundo amaldi‡oado."
PRINT "Druida: A maldi‡Æo de ser um jogo ruim foi infligida a todos n¢s por um ser     incrivelmente maligno chamado apenas de PROGRAMADOR."
PRINT "Druida: Este ser horr¡vel manipula nossas vidas e faz esse mundo funcionar      de maneira tÆo prec ria, apenas porque ele nÆo tem um programa melhor que o     QBasic para construir esse jogo."
IF sta(12) = 2 THEN PRINT "Como o escolhido, vocˆ deve livrar-nos desse mal para quepossamos descan‡ar em paz at‚ o pr¢ximo jogador incauto come‡ar um novo jogo."
END IF

IF ass = 4 THEN
PRINT "Druida: As salas de tesouro na dungeon estÆo cheias de armadilhas."
PRINT "Druida: Mas os itens que realmente importam sÆo a pedra e o disco."
PRINT "Druida: O resto ‚ puramente por diversÆo."
END IF

IF ass = 5 THEN
PRINT "Druida: Tome cuidado com o lich e os devoradores de mentes."
PRINT "Druida: Nem todos os monstros precisam ser massacrados."
END IF

IF ass = 6 THEN
PRINT "Druida: Eu vou bem, obrigado."
END IF

IF ass = 7 THEN
n = INT(RND * 10) + 1
IF n = 1 THEN PRINT "Druida: Esses jogos de texto sÆo mesmo um saco."
IF n = 2 THEN PRINT "Druida: Eu nÆo tenho nada pra falar."
IF n = 3 THEN PRINT "Druida: Jogo escrito por poeta d  nisso..."
IF n = 4 THEN PRINT "Druida: Esse jogo ‚ mesmo entendiante."
IF n = 5 THEN PRINT "Druida: NÆo sobrou mais nenhum lugar pra ir?"
IF n = 6 THEN PRINT "Druida: J  fez tudo no jogo?"
IF n = 7 THEN PRINT "Druida: NÆo fique nessa, v  jogar RPG de mesa!"
IF n = 8 THEN PRINT "Druida: Chega uma certa idade a gente se entedia f cil. Apartir dos oito anos..."
IF n = 9 THEN PRINT "Druida: NÆo precisa jogar se nÆo quizer!"
IF n = 10 THEN PRINT "Druida: E tamb‚m esse jogo foi muito mal feito."
END IF

INPUT "", press
GOTO assunto

tchau:
INPUT "", press
CHAIN "C:\Blarg!\Diacho\Salas.bas"