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

s = 0: d = hab(13) + car(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
labia = s + 1

PRINT ""
IF labia = 1 THEN PRINT "CidadÆo: Fala logo!"
IF labia = 2 THEN PRINT "CidadÆo: O que vocˆ quer?"
IF labia = 3 THEN PRINT "CidadÆo: Mais heim?"
IF labia = 4 THEN PRINT "CidadÆo: Vocˆ falou comigo?"
IF labia = 5 THEN PRINT "CidadÆo: Ol , estranho!"
IF labia = 6 THEN PRINT "CidadÆo: Oi, cara!"
IF labia = 7 THEN PRINT "CidadÆo: Bom dia!"
IF labia > 7 THEN PRINT "CidadÆo: Ol , lembra de mim?"

INPUT "", press

assunto:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 14, B
PRINT ""
PRINT "(0): Tchau."
PRINT "(1): Onde eu encontro a‡Æo por aqui?"
PRINT "(2): Por que vocˆs odeiam elfos?"
IF var(11) = 1 THEN PRINT "(3): Onde eu encontro a bruxa que vive aqui?"
IF var(12) = 1 THEN PRINT "(4): Onde eu encontro cauda de escorpiÆo?"
IF var(4) = 1 THEN PRINT "(5): Onde fica o rio Pedraguo?"
IF var(8) = 1 THEN PRINT "(6): Algu‚m perdeu um ba£ vermelho?"
IF fala0 = 1 THEN PRINT "(7): O que ‚ futebol?"
IF var(16) = 1 THEN PRINT "(8): O que vocˆ sabe sobre os drows?"
IF var(26) = 1 THEN PRINT "(9): O que vocˆ sabe sobre uma grande gema em forma de olho?"
PRINT ""

INPUT "Assunto: ", ass
PRINT ""

IF ass = 0 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "O cidadÆo vai embora grilado."
CASE 3 TO 4
PRINT "CidadÆo: Tchau."
CASE 5 TO 6
PRINT "CidadÆo: At‚ mais."
CASE IS > 6
PRINT "CidadÆo: J  vai?"
END SELECT
INPUT "", press: GOTO tchau
END IF

IF ass = 1 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Ah! Vocˆ quer saber onde matar pilhar, destruir e depois pegar o       dinheiro para matar, pilhar e destruir mais? NÆo, eu nÆo sei!"
CASE 3 TO 4
PRINT "CidadÆo: Vocˆ pode procurar na floresta a sudoeste. Ou entÆo dormir na          estalagem. Hehehe."
CASE 5 TO 6
PRINT "CidadÆo: Fale com Roger na Taverna. O entÆo entre no matagal ao oeste, l  sempretem algum monstro."
PRINT "CidadÆo: Vocˆ pode procurar na floresta a sudoeste. Ou entÆo dormir na          estalagem. Hehehe."
CASE IS > 6
PRINT "CidadÆo: Vocˆ pode procurar na floresta a sudoeste. Ou entÆo dormir na          estalagem. Hehehe."
PRINT "CidadÆo: Na Arena vocˆ pode ver elfos morrendo. Legal n‚?"
PRINT "CidadÆo: Ou entre no matagal ao oeste, l  sempre tem algum monstro."
END SELECT
END IF

IF ass = 2 THEN
SELECT CASE labia
CASE 1 TO 2
IF raca$(1) = "Elfo" THEN
PRINT "Porque vocˆs sÆo metidos, mentirosos e gays!"
ELSE
rac$ = raca$(1)
IF raca$(1) = "AnÆo" THEN rac$ = "Anäe"
PRINT "CidadÆo: Porque nÆo podemos odiar "; rac$; "s!"
END IF
CASE 3 TO 4
PRINT "CidadÆo: Porque sim, ora bolas!"
CASE 5 TO 6
PRINT "CidadÆo: Porque j  sofremos demais nas mÆos de um grupo deles."
CASE IS > 6
PRINT "CidadÆo: Porque j  sofremos demais nas mÆos de um grupo deles."
PRINT "CidadÆo: Os elfos de Tarnich nos odeiam tamb‚m. Acho que generalizamos um       pouquinho, nÆo ‚?"
END SELECT
END IF

IF ass = 3 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Na casa da tua mÆe!"
CASE 3 TO 4
PRINT "CidadÆo: Eu nÆo sei."
CASE 5 TO 6
PRINT "CidadÆo: A oeste daqui, em algum lugar."
CASE IS > 6
PRINT "CidadÆo: A oeste daqui, logo ap¢s o matagal."
END SELECT
END IF

IF ass = 4 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Vocˆ me parou para perguntar isso?!"
CASE 3 TO 4
PRINT "CidadÆo: Eu queria saber!"
CASE 5 TO 6
PRINT "CidadÆo: A sul daqui, em algum lugar."
CASE IS > 6
PRINT "CidadÆo: A sul daqui, logo ap¢s a parte nova de Tricard, nas ravinas."
END SELECT
END IF

IF ass = 5 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Vocˆ me parou para perguntar isso?!"
CASE 3 TO 4
PRINT "CidadÆo: Rio o quˆ?"
CASE 5 TO 6
PRINT "CidadÆo: A sudoeste daqui, em algum lugar."
CASE IS > 6
PRINT "CidadÆo: A sudoeste daqui, logo ap¢s a encruzilhada vire a leste e depois a     norte."
PRINT "CidadÆo: Depois da floresta siga ao norte. S¢ isso?"
END SELECT
END IF

IF ass = 6 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Eu mesmo!"
CASE 3 TO 4
PRINT "CidadÆo: Ba£ vermelho? NÆo sei. Tem algum nome nele?"
CASE 5 TO 6
PRINT "CidadÆo: Acho que foi o Tell."
CASE IS > 6
PRINT "CidadÆo: O Tell, her¢i aposentado. Agora ele s¢ joga futebol.": fala0 = 1
END SELECT
END IF

IF ass = 7 THEN
fala0 = 0
PRINT "CidadÆo: Como assim o que ‚ futebol? Vocˆ vive na idade m‚dia?"
END IF

IF ass = 8 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Nada!"
CASE 3 TO 4
PRINT "CidadÆo: Que sÆo elfos negros e moram em cavernas."
CASE 5 TO 6
PRINT "CidadÆo: Que sÆo elfos negros, moram em cavernas e adoram a deusa aranha Loth."
CASE IS > 6
PRINT "CidadÆo: Que sÆo elfos negros, moram em cavernas, adoram a deusa aranha Loth e  sÆo muito apegados …s suas adagas."
END SELECT
END IF

IF ass = 9 THEN
SELECT CASE labia
CASE 1 TO 2
PRINT "CidadÆo: Nada!"
CASE 3 TO 4
PRINT "CidadÆo: Que ‚ maligna!"
CASE 5 TO 6
PRINT "CidadÆo: Que ‚ o olho de um beholder que foi aprisionado na forma de est tua."
CASE IS > 6
PRINT "CidadÆo: Que ‚ o olho de um beholder que foi aprisionado na forma de est tua e  da £ltima vez que eu ouvi estava na posse de uma ogro que mora ao sul."
END SELECT
END IF

INPUT "", press
GOTO assunto

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